Guest User

Chameleon installer / hackintosh multitool

a guest
Sep 9th, 2012
1,983
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. *** Chameleon installer ***
  2. *** Main form (install chameleon) ***
  3.  
  4. Public Class Form2
  5.     Public Sub SaveFromResources(ByVal FilePath As String, ByVal File As Object)
  6.         Dim FByte() As Byte = File
  7.         My.Computer.FileSystem.WriteAllBytes(FilePath, FByte, True)
  8.     End Sub
  9.     Private Sub MetroShell1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MetroShell1.Click
  10.         Form3.Show()
  11.     End Sub
  12.  
  13.     Private Sub ButtonItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem1.Click
  14.         Me.Close()
  15.     End Sub
  16.  
  17.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  18.         SaveFromResources("C:\RapHaeL444Chameleon.iso", My.Resources.Chameleon)
  19.         Form3.Show()
  20.     End Sub
  21.  
  22.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  23.  
  24.     End Sub
  25. End Class
  26.  
  27. *** second windows (Install easybcd / view tutorial) ***
  28. Public Class Form3
  29.     Public Sub SaveFromResources(ByVal FilePath As String, ByVal File As Object)
  30.         Dim FByte() As Byte = File
  31.         My.Computer.FileSystem.WriteAllBytes(FilePath, FByte, True)
  32.     End Sub
  33.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  34.         SaveFromResources("C:\RapHaeL444EasyBCD.exe", My.Resources.EasyBCD)
  35.         Process.Start("C:\RapHaeL444EasyBCD.exe")
  36.     End Sub
  37.  
  38.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  39.         Form4.Show()
  40.     End Sub
  41. End Class
  42.  
  43. *** Hackintosh multitool ***
  44. *** main windows ***
  45. Imports System.Runtime.InteropServices
  46. Public Class Form5
  47.  
  48.     <StructLayout(LayoutKind.Sequential)> _
  49.     Public Structure MARGINS
  50.         Public Destra As Integer
  51.         Public Sinistra As Integer
  52.         Public Su As Integer
  53.         Public Giu As Integer
  54.     End Structure
  55.     Declare Auto Function DwmIsCompositionEnabled Lib "dwmapi.dll" Alias "DwmIsCompositionEnabled" (ByRef pfEnabled As Boolean) As Integer
  56.     Declare Auto Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" Alias "DwmExtendFrameIntoClientArea" (ByVal hWnd As IntPtr, ByRef pMargin As MARGINS) As Integer
  57.     Dim pMargins As New MARGINS With {.Su = -1, .Sinistra = -1, .Destra = -1, .Giu = -1}
  58.     Private Sub Form5_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  59.         Dim en As Boolean = False
  60.         DwmIsCompositionEnabled(en)
  61.         If en Then
  62.             DwmExtendFrameIntoClientArea(Me.Handle, pMargins)
  63.         End If
  64.         Me.TransparencyKey = Color.FromKnownColor(KnownColor.ActiveCaption)
  65.         Me.BackColor = Me.TransparencyKey
  66.     End Sub
  67.  
  68.     Public Sub SaveFromResources(ByVal FilePath As String, ByVal File As Object)
  69.         Dim FByte() As Byte = File
  70.         My.Computer.FileSystem.WriteAllBytes(FilePath, FByte, True)
  71.     End Sub
  72.     Private Sub ButtonItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem13.Click
  73.         Me.Close()
  74.     End Sub
  75.  
  76.     Private Sub ButtonItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem2.Click
  77.         Form2.Show()
  78.     End Sub
  79.  
  80.     Private Sub RibbonBar2_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
  81.  
  82.     End Sub
  83.  
  84.     Private Sub RibbonControl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RibbonControl1.Click
  85.  
  86.     End Sub
  87.  
  88.     Private Sub ButtonItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  89.         SaveFromResources("C:\dreamscene.exe", My.Resources.dreamscene)
  90.         Process.Start("C:\dreamscene.exe")
  91.     End Sub
  92.  
  93.     Private Sub ButtonItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem4.Click
  94.         Form6.Show()
  95.     End Sub
  96.  
  97.     Private Sub ButtonItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem8.Click
  98.         Me.Close()
  99.     End Sub
  100.  
  101.     Private Sub Office2007StartButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  102.  
  103.     End Sub
  104.  
  105.     Private Sub ButtonItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  106.         SaveFromResources("C:\HFS+.exe", My.Resources.HFS)
  107.         Process.Start("C:\HFS+.exe")
  108.     End Sub
  109.  
  110.     Private Sub ButtonItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem5.Click
  111.         Process.Start("http://bit.ly/HackStoreTeam")
  112.         MessageBox.Show("To install it on your ''mac os'' just install HFS+ reader (windows editor/HFS+)and add the .dmg to you hfs+ partition.", "Hackintosh tool", _
  113.            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  114.     End Sub
  115.  
  116.     Private Sub ButtonItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  117.         SaveFromResources("C:\dreamscene.exe", My.Resources.dreamscene)
  118.         Process.Start("C:\dreamscene.exe")
  119.     End Sub
  120.  
  121.     Private Sub ButtonItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  122.         SaveFromResources("C:\HFS+.exe", My.Resources.HFS)
  123.         Process.Start("C:\HFS+.exe")
  124.     End Sub
  125.  
  126.     Private Sub ButtonItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  127.         SaveFromResources("C:\uwc.exe", My.Resources.UWC)
  128.         Process.Start("C:\uwc.exe")
  129.     End Sub
  130.  
  131.     Private Sub ButtonItem1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem1.Click
  132.         Form2.Show()
  133.     End Sub
  134.  
  135.     Private Sub ButtonItem3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem3.Click
  136.         SaveFromResources("C:\dreamscene.exe", My.Resources.dreamscene)
  137.         Process.Start("C:\dreamscene.exe")
  138.     End Sub
  139.  
  140.     Private Sub ButtonItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem6.Click
  141.         SaveFromResources("C:\HFS+.exe", My.Resources.HFS)
  142.         Process.Start("C:\HFS+.exe")
  143.     End Sub
  144.  
  145.     Private Sub ButtonItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem7.Click
  146.         SaveFromResources("C:\uwc.exe", My.Resources.UWC)
  147.         Process.Start("C:\uwc.exe")
  148.     End Sub
  149.  
  150.     Private Sub ButtonItem21_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem21.Click
  151.         Process.Start("http://bit.ly/HackStoreTeam")
  152.         MessageBox.Show("To install it on your ''mac os'' just install HFS+ reader (windows editor/HFS+)and add the .dmg to you hfs+ partition.", "Hackintosh tool", _
  153.            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  154.     End Sub
  155.  
  156.     Private Sub ButtonItem22_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem22.Click
  157.         Form6.Show()
  158.     End Sub
  159.  
  160.     Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
  161.         Process.Start("http://www.osx86.net/view/3170-chameleon_2.1_installer_from_windows.html")
  162.     End Sub
  163.  
  164.     Private Sub Office2007StartButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Office2007StartButton1.Click
  165.  
  166.     End Sub
  167.  
  168.     Private Sub ButtonItem23_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem23.Click
  169.         SaveFromResources("C:\startorbchanger.exe", My.Resources.startorb)
  170.         Process.Start("C:\startorbchanger.exe")
  171.     End Sub
  172. End Class
  173.  
  174. *** plist maker ***
  175. Public Class Form6
  176.     Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
  177.         Dim reader As New IO.StreamReader(OpenFileDialog1.FileName)
  178.         TextBox1.Text = reader.ReadToEnd
  179.         reader.Close()
  180.     End Sub
  181.     Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
  182.  
  183.  
  184.         SaveFileDialog1.Filter = "Plist files (*.plist)|*.plist"
  185.         SaveFileDialog1.FilterIndex = 2
  186.         SaveFileDialog1.RestoreDirectory = True
  187.  
  188.         Dim FileToSaveAs As String = SaveFileDialog1.FileName
  189.  
  190.         Dim objwriter As New System.IO.StreamWriter(FileToSaveAs)
  191.         objwriter.Write(TextBox1.Text)
  192.         objwriter.Close()
  193.        
  194.     End Sub
  195.     Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  196.  
  197.     End Sub
  198.  
  199.     Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
  200.         SaveFileDialog1.ShowDialog()
  201.     End Sub
  202.  
  203.     Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
  204.         OpenFileDialog1.ShowDialog()
  205.     End Sub
  206. End Class
RAW Paste Data