Vb.Net Yardım
- Konbuyu başlatan Oxicroos
- Başlangıç tarihi
Şöyle bişey yapabilirsin mesela
If textbox1.text = a then
textbox1.text = ç
elseıf textbox1.text = b then
textbox1.text = d
end ıf
Bu şekilde degil tam ama bunu geliştirebilirsin yani bu durumda bütün harfleri tanıtmış olursun buda türkçe dil destegi sağlar
If textbox1.text = a then
textbox1.text = ç
elseıf textbox1.text = b then
textbox1.text = d
end ıf
Bu şekilde degil tam ama bunu geliştirebilirsin yani bu durumda bütün harfleri tanıtmış olursun buda türkçe dil destegi sağlar
O zaman bro klavye harflerini deyiştiriceksin 1 Dakika kodu düzeliyim
Imports Microsoft.Win32
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If (GetAsyncKeyState(65)) Then
TextBox1.Text = TextBox1.Text + "ç"
ElseIf (GetAsyncKeyState(66)) Then
TextBox1.Text = TextBox1.Text + "d"
End If
End Sub
End Class
-----------------------------------
Bu kod İşini Görür ancak bütün harfleri tanıtıcaksın
ve kod keylogger mantıgı yani mouse click olayın forumun olmıyıcak
anlatabildim m ?
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If (GetAsyncKeyState(65)) Then
TextBox1.Text = TextBox1.Text + "ç"
ElseIf (GetAsyncKeyState(66)) Then
TextBox1.Text = TextBox1.Text + "d"
End If
End Sub
End Class
-----------------------------------
Bu kod İşini Görür ancak bütün harfleri tanıtıcaksın
ve kod keylogger mantıgı yani mouse click olayın forumun olmıyıcak
anlatabildim m ?
Ben burda sadece a ve b harfini tanımladım kolay gelsin
form load kısmında timer start mevcut
Form 1 in Loadına
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Integer) As Integer
Ve
Timer1.Start
Timer'ın İçine
On Error Resume Next
If GetAsyncKeyState(Keys.A) Then
SendKeys.Send("ç")
Exit Sub
End If
TextBox Tıklı İken Gayette Çalışır
