Online Oyunlar İçin Macro Yapımı VB06

Arkadaşlar öncelikle merhaba. Bildiğiniz üzere son zamanlarda online oyunlarda macro tarzı programlar popülerleşti. Peki macro nedir ne işe yarar? Macro oyunun içinde tuşları sizin yerinize basmayı sağlayan bir çeşit basit bir programdır. Bu yazımda sizlere basit bir macro nasıl yapılır onu göstereceğim. Öncelikle Visual Basic 06 programını indirmemiz gerekiyor. Bu programı Google’a yazdığınız zaman kolaylıkla bulabilirsiniz. Programımızı kurup açtıktan sonra Formumuza 2 adet command button ve 1 adet timer ekliyoruz.

Programımızı kurup açtıktan standard exeyi seçiyoruz.

Sonra Formumuza 2 adet command button ve 1 adet timer ekliyoruz.

Üstte bulunan project->references kısmından autoitx3 1.0 type library i işaretliyoruz.

Buttonların caption bölümünden isimlerini düzeltiyoruz command button 1 in ismini BAŞLAT, 2 nin ismini ise DURDUR yapıyoruz.

Timer ın üstüne tıklayıp Interval kısmını 100 (Macronun hızını ayarlıyoruz. Örneğin 1sn de bir tuş yollamasını istiyorsak Interval i 1000 yapmamız gerekir.) Ve Enabled kısmını mutlaka False yapalım resimde True gösteriyor ama biz False yapacağız yoksa program exe yi çalıştırdığımız anda otomatik olarak açılır. Biz macroyu tuş yolu ile aktif edeceğimiz için Enabled kısmını False yapıyoruz.

Evet arkadaşlar tasarımımızı ve dll kaydımızı tamamladık şimdi ise işin programlama kısmı kaldı. Şimdi tuşların kodlarını atayalım. Başlat tuşuna iki kere tıklıyoruz. Ve gelen ekrana

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

kodunu yapıştırıyoruz.(Bu kod ile başlat buttonuna tıkladığımızda timerı aktif hale getirir.) Ana formumuza döndükten sonra ise Durdur tuşuna iki kere tıklıyoruz oraya da

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

kodunu yapıştırıyoruz(Timerı pasif hale getirir. Yani macroyu durdurur). Ana formumuza tekrar dönüyoruz arkadaşlar şimdi ise timerımıza iki kere tıklıyoruz. Ve açılan yere macromuzun komutlarını yazıyoruz.
Örneğin Knight Online ı ele alırsak Z ye ve ardından 1 e basmasını ayarlayalım.
Timer için kod

Private Sub Timer1_Timer()
BCM.Send "z" ' z tuşunu yollar'
BCM.Send "1" ' 1 tuşunu yollar'
End Sub

Evet arkadaşlar şimdi son kodumuza geldi sıra. Kod penceresini açtıktan sonra pencerenin en üstüne

Dim BCM As New AutoItX3Lib.AutoItX3

File->Make project1.exe ye tıklayıp programımızı exe halinde istediğimiz yere çıkartıyoruz. Ve artık macro kullanıma hazırdır.

Dim BCM As New AutoItX3Lib.AutoItX3
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
BCM.Send "z" ' z tuşunu yollar'
BCM.Send "1" ' 1 tuşunu yollar'
End Sub

Çıkardığınız programı kullanırken yönetici olarak çalıştırmayı unutmayın.