Jump to content
  • Kaydol

Visual Basic (VB6) Macro Yapımı Kendi Macronuzu yapın


Larkozs
 Share

Önerilen Mesajlar

Öncelikle Konumuza Geçmeden Önce İndirmemiz Gereken Bir .dll var
AutoItx3.dll  http://adf.ly/hrwVQ

Dosyayı indirdkten sonra C Diskinin İçine Atalım Daha Sonra Başlat>Çalıştır>regsvr32> C:/AutoItx3.dll Yazıp Enter’e Basıyoruz.
Bastıktan Sonra AutoItx3.dll Başarı İle Çalıştırıldı Dediği Zaman Macro Programımızı Yapmaya Hazırız.

Yapım

Daha Sonra Visual Basic 6.0 Açıp Standart .exe Seçiyoruz.
Ve Formumuza Project Sekmesinden References Bölümüne Gelip AutoItx3 1.0 Type Library Bulup İşaretleyip Ok Butonuna Basıyoruz.

Sonra Forma
1 Adet Timer
2 Adet CommandButton ekliyoruz
(Tİmer1′in Enabled Bölümünü False ve İntervali = 100 Yapınız…
Ve Aşağıdaki Kodları Forma Yapıştırıyoruz

Kod:
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 ‘ başlat
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False ‘ durdur
End Sub

Private Sub Timer1_Timer()
Komut.Send (“Z”) ‘ Bu Kısmı İsteğiniz Kadar Çoğaltırsınız
Komut.Send (“3″) ‘ aynı şekil
End Sub
capslok f1 f2 f4 shift vs vs .. tuşlarıylada durdur başlat yapabilirsiniz onun anlatımını ayrı yapıcam teşekkürler arkadaşlar

Çok hızlı yapsın diyorsanız timer intervalini 5 yapabilirsiniz tabiki aşırı olur sizin seçiminiz..


DevilCrafty Oyun Portalı!

 

 

Larkozs-DevilCrafty

Yorum bağlantısı
Sitelerde Paylaş

  • 1 year later...
  • 4 months later...

 

Öncelikle Konumuza Geçmeden Önce İndirmemiz Gereken Bir .dll var
AutoItx3.dll  http://adf.ly/hrwVQ

Dosyayı indirdkten sonra C Diskinin İçine Atalım Daha Sonra Başlat>Çalıştır>regsvr32> C:/AutoItx3.dll Yazıp Enter’e Basıyoruz.
Bastıktan Sonra AutoItx3.dll Başarı İle Çalıştırıldı Dediği Zaman Macro Programımızı Yapmaya Hazırız.

Yapım

Daha Sonra Visual Basic 6.0 Açıp Standart .exe Seçiyoruz.
Ve Formumuza Project Sekmesinden References Bölümüne Gelip AutoItx3 1.0 Type Library Bulup İşaretleyip Ok Butonuna Basıyoruz.

Sonra Forma
1 Adet Timer
2 Adet CommandButton ekliyoruz
(Tİmer1′in Enabled Bölümünü False ve İntervali = 100 Yapınız…
Ve Aşağıdaki Kodları Forma Yapıştırıyoruz

Kod:
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 ‘ başlat
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False ‘ durdur
End Sub

Private Sub Timer1_Timer()
Komut.Send (“Z”) ‘ Bu Kısmı İsteğiniz Kadar Çoğaltırsınız
Komut.Send (“3″) ‘ aynı şekil
End Sub
capslok f1 f2 f4 shift vs vs .. tuşlarıylada durdur başlat yapabilirsiniz onun anlatımını ayrı yapıcam teşekkürler arkadaşlar

Çok hızlı yapsın diyorsanız timer intervalini 5 yapabilirsiniz tabiki aşırı olur sizin seçiminiz..


DevilCrafty Oyun Portalı!

 

 

Larkozs-DevilCrafty

 

Arkadaşlar aşağıdaki resimde gördüğünüz gibi makroda basılacak tuşları listbox a yönlendirdim ve tuşlar listboxtaki sırası ile devamlı dönüyor. 

Ancak F1,F2,F3 vb.. fonksiyon tuşlarına ne yaptıysam basmıyor. normalde sendkeys {F1} yağtığımda F1 e basıyor, listbox içinde iken basmıyor.

Yardımcı olurmusunuz..

                                            DENEDİĞİM FORMATLAR BUNLAR

355681509e1a02f2b44ea1756314e931.png

Yorum bağlantısı
Sitelerde Paylaş

  • 2 weeks later...
Misafir
Bu konu kapalıdır ama konuya cevap yazmaya yetkiniz var görünüyor.
 Share

×
×
  • Yeni Oluştur...