- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
ADIM 1:
Gerekli Bileşenler : Link Silindi //Cixcocuk97
Linkdeki dll’yi indirip Yerel Disk (C
’ e atioruz..
Başlat > Çaliştir > Cmd > regsvr32 C:/AutoItx3.dll ’ yazip Enter’a basioruz ve karşiniza bu mesaj
çıkacak: DllRegisterServer / D:\\AutoItX3.dll başaryıla gerçekleştirildi
Daha sonra , vb 6.0 çaliştirip Gelen Pencereden Standart Exe ’ yi seçip aç dioruz.
Daha sonra Project sekmesinden References bölümüne gelip AutoItx3 1.0 Type Library ’ i işaretleyip
Ok butonuna basiniz..
Forma 1 Adet Timer 2 Adet Button Ekleyip Sağ tıklayarak ’ Wiew Code ’ diyip aşşağidaki Kodlari yapiştirin.
CODE
Dim Komut As New AutoItX3Lib.AutoItX3
Private Sub From_Load()
Timer1.Interval = 100
Form1.BorderStyle = 4
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
End Sub
Gerekli Bileşenler : Link Silindi //Cixcocuk97
Linkdeki dll’yi indirip Yerel Disk (C
Başlat > Çaliştir > Cmd > regsvr32 C:/AutoItx3.dll ’ yazip Enter’a basioruz ve karşiniza bu mesaj
çıkacak: DllRegisterServer / D:\\AutoItX3.dll başaryıla gerçekleştirildi
Daha sonra , vb 6.0 çaliştirip Gelen Pencereden Standart Exe ’ yi seçip aç dioruz.
Daha sonra Project sekmesinden References bölümüne gelip AutoItx3 1.0 Type Library ’ i işaretleyip
Ok butonuna basiniz..
Forma 1 Adet Timer 2 Adet Button Ekleyip Sağ tıklayarak ’ Wiew Code ’ diyip aşşağidaki Kodlari yapiştirin.
CODE
Dim Komut As New AutoItX3Lib.AutoItX3
Private Sub From_Load()
Timer1.Interval = 100
Form1.BorderStyle = 4
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
Komut.Send ("6")
Komut.Send ("8")
Komut.Send ("7")
End Sub