API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 26th, 2012
92
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.16 KB | None | 0 0
raw download clone embed print report
  1. Public Class Form1
  2.  
  3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4. If System.IO.File.Exists("log.txt") Then
  5. CheckBox1.Checked = True
  6. Dim sr As New System.IO.StreamReader("log.txt")
  7. TextBox1.Text = sr.ReadLine
  8. TextBox2.Text = sr.ReadLine
  9. sr.Close()
  10. End If
  11. End Sub
  12.  
  13. Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
  14.  
  15. End Sub
  16.  
  17. Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
  18.  
  19. End Sub
  20.  
  21. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  22.  
  23. If CheckBox2.Checked = False Then
  24. If CheckBox1.Checked = True Then
  25. Dim sw As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\log.txt")
  26. sw.WriteLine(TextBox1.Text)
  27. sw.WriteLine(TextBox2.Text)
  28. sw.Close()
  29. If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt") = False Then
  30. MsgBox("Installation des fichiers nécessaires... Veillez à ce que minecraft soit fermé, appuyez sur ok et attendez la confirmation", MsgBoxStyle.Information)
  31. If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar") = True Then
  32. Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
  33. End If
  34. My.Computer.Network.DownloadFile("http://minefriends.site90.com/Launcher/Launcherversion.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt")
  35. My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
  36. My.Computer.Network.DownloadFile("http://minefriends.site90.com/Launcher/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
  37. My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/59058772/Minecraft1.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft1.exe")
  38. MsgBox("Installation terminée", MsgBoxStyle.Information)
  39. End If
  40. Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe", TextBox1.Text & " " & TextBox2.Text & " 46.18.93.210")
  41. ElseIf CheckBox1.Checked = False Then
  42. If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt") = False Then
  43. MsgBox("Installation des fichiers nécessaires... Veillez à ce que minecraft soit fermé, appuyez sur ok et attendez la confirmation", MsgBoxStyle.Information)
  44. If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar") = True Then
  45. Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
  46. End If
  47. My.Computer.Network.DownloadFile("http://minefriends.site90.com/Launcher/Launcherversion.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt")
  48. My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
  49. My.Computer.Network.DownloadFile("http://minefriends.site90.com/Launcher/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
  50. My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/59058772/Minecraft1.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft1.exe")
  51. MsgBox("Installation terminée", MsgBoxStyle.Information)
  52. End If
  53. Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe", TextBox1.Text & " " & TextBox2.Text & " 46.18.93.210")
  54. Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\log.txt")
  55. End If
  56. ElseIf CheckBox2.Checked = True Then
  57. If CheckBox1.Checked = True Then
  58. Dim sw As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\log.txt")
  59. sw.WriteLine(TextBox1.Text)
  60. sw.WriteLine(TextBox2.Text)
  61. sw.Close()
  62. If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt") = False Then
  63. MsgBox("Installation des fichiers nécessaires... Veillez à ce que minecraft soit fermé, appuyez sur ok et attendez la confirmation", MsgBoxStyle.Information)
  64. If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar") = True Then
  65. Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
  66. End If
  67. My.Computer.Network.DownloadFile("http://minefriends.site90.com/Launcher/Launcherversion.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt")
  68. My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
  69. My.Computer.Network.DownloadFile("http://minefriends.site90.com/Launcher/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
  70. My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/59058772/Minecraft1.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft1.exe")
  71. MsgBox("Installation terminée", MsgBoxStyle.Information)
  72. End If
  73. Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft1.exe", TextBox1.Text & " " & " 46.18.93.210")
  74. ElseIf CheckBox1.Checked = False Then
  75. If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt") = False Then
  76. MsgBox("Installation des fichiers nécessaires... Veillez à ce que minecraft soit fermé, appuyez sur ok et attendez la confirmation", MsgBoxStyle.Information)
  77. If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar") = True Then
  78. Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
  79. End If
  80. My.Computer.Network.DownloadFile("http://minefriends.site90.com/Launcher/Launcherversion.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt")
  81. My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
  82. My.Computer.Network.DownloadFile("http://minefriends.site90.com/Launcher/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
  83. My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/59058772/Minecraft1.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft1.exe")
  84. MsgBox("Installation terminée", MsgBoxStyle.Information)
  85. End If
  86. Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft1.exe", TextBox1.Text & " " & " 46.18.93.210")
  87. Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\log.txt")
  88. End If
  89. End If
  90. End
  91. End Sub
  92.  
  93. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  94. Process.Start("http://46.18.93.210:8123")
  95. End Sub
  96.  
  97. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  98. MsgBox("Avez-vous fermé minecraft ? Veuillez attendre attendre le message de confirmation de la mise à jour", MsgBoxStyle.Exclamation)
  99. If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt") = True Then
  100. Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt")
  101. Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
  102. Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
  103. Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft1.exe")
  104. My.Computer.Network.DownloadFile("http://minefriends.site90.com/Launcher/Launcherversion.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt")
  105. My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
  106. My.Computer.Network.DownloadFile("http://minefriends.site90.com/Launcher/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
  107. My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/59058772/Minecraft1.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft1.exe")
  108. My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/59058772/Launcher%20MineFriends.exe", "launcher1.0.1.exe")
  109. Dim sw As New System.IO.StreamWriter("MAJ.txt")
  110. sw.WriteLine("0")
  111. sw.Close()
  112. ElseIf System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt") = False Then
  113. If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar") = True Then
  114. Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
  115. End If
  116. My.Computer.Network.DownloadFile("http://minefriends.site90.com/Launcher/Launcherversion.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\launcherversion.txt")
  117. My.Computer.Network.DownloadFile("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
  118. My.Computer.Network.DownloadFile("http://minefriends.site90.com/Launcher/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
  119. My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/59058772/Minecraft1.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft1.exe")
  120. My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/59058772/Launcher%20MineFriends.exe", "launcher1.0.1.exe")
  121. Dim sw As New System.IO.StreamWriter("MAJ.txt")
  122. sw.WriteLine("0")
  123. sw.Close()
  124. End If
  125. MsgBox("Mise à jour terminée", MsgBoxStyle.Exclamation)
  126. End Sub
  127.  
  128. Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
  129.  
  130. End Sub
  131.  
  132. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  133. MsgBox("Désolé mais il n'y a pas encore de forum :(", MsgBoxStyle.Exclamation)
  134. End Sub
  135. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!