VB.NET Seri Macro Yapımı

HZ.CİN

Cin Terbiyecisi
Editör
Katılım
22 Ara 2019
Mesajlar
231
Tepkime puanı
10
Puanları
18
Konum
Cehennem
Bir proje açın iki tane Timer ekleyin
timer1 Enable si True olcak intervali de 200 olcak

timer2 Enablesi False olcak intervalide 100 olarak kalsın 100 den aşagı düsürürsen daha cok hızlı basar

sonra timerlara sırayla tıkla
sonra kod bölümünde kodlar bu şekilde olcak şekilde kopyala yapıstır

sonra programı calıstır sen ctrl ye bastıgın an A harfine basmaya baslıcaktır tekrar Ctrl ye bastıgında duracaktır

Kod:
Public Class Form1
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If GetAsyncKeyState(Keys.ControlKey) Then

If Timer2.Enabled = False Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If

End If

End Sub



Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

SendKeys.Send("A")

End Sub

End Class
 
Üst Alt