ben metin2 oyununu oynuyorum bi p v pde çoğu hile engelli. sürekli pot basması için "1" tuşuna basması gerekiyor. ben sendkey ile denedim. Fakat oyunda sohbet satırına 111111 şeklinde yazıyor. bunu sohbet satırına yazdırmadan direk "1"e bastırmak istiyorum. projede kullandıgım kodlar Kod: Private Sub Command1_Click MsgBox "Auto HP Özelliği Aktif Edilmiştir..", , OK Label3. Caption = "Aktif" Timer2. Enabled = True End Sub Private Sub Command2_Click MsgBox "Auto HP Özelliği Kapatılmıştır.", , OK Label3. Caption = "Kapalı" Timer2. Enabled = False End Sub Private Sub Command3_Click MsgBox "Auto SP Özelliği Aktif Edilmiştir..", , OK Label6. Caption = "Aktif" Timer3. Enabled = True End Sub Private Sub Command4_Click MsgBox "Auto SP Özelliği Kapatılmıştır.", , OK Label6. Caption = "Kapalı" Timer3. Enabled = False End Sub Private Sub Command5_Click MsgBox "ATAK Aktif Edilmiştir.", , OK Timer1. Enabled = True End Sub Private Sub Command6_Click MsgBox "Atak Kapatılmıştır.", , OK Timer1. Enabled = False End Sub Private Sub Command7_Click MsgBox "Çekme Özelliği Aktif Edilmiştir.", , OK Label15. Caption = "Aktif" Timer4. Enabled = True End Sub Private Sub Command8_Click MsgBox "Çekme Özelliği Kapatılmıştır..", , OK Label3. Caption = "Kapalı" Timer4. Enabled = False End Sub Private Sub Form_Load Text1. Enabled = False Text2. Enabled = False End Sub Private Sub Option1_Click MsgBox "%100 Exp Artışı Hesabınıza Eklenmiştir.", , OK End Sub Private Sub Option2_Click MsgBox "%250 Exp Artışı Hesabınıza Eklenmiştir.", , OK End Sub Private Sub Option3_Click MsgBox "%500 Exp Artışı Hesabınıza Eklenmiştir.", , OK End Sub Private Sub Timer1_Timer SendKeys " " End Sub Private Sub Timer2_Timer SendKeys "1" End Sub Private Sub Timer3_Timer SendKeys "2" End Sub

Rica ederim, iyi çalışmalar.

Saolasın dörtgözle bekiyrum bu konuyu ozaman : ) önerilerimi de dikate alırsan (başlatma durdurma tuşu - mavi kırmızı pot basma, potların oldugu tuşu ayarlama - yang toplama olursa guzel olur.

çook ama çoook teşekkür ederim çalıştı

Macroman abi ya gerisi hikaye

kendi açıklamasında shift yazıyordu da, şimdi oldu teşekkür ederim ilgin için karma sistemi arızalı, şansına küs

banada lazım böyle bir şey, bir arkadaşım oynuyor , o istiyordu. kendim yapmayı bilmiyorum. yapınca buraya upload edermisiniz?

slayer macro f ile aktif oluyor fakat shift ile pasif hale gelmiyo.. durduramıyoruz

Macro gördüğüm kadarıyla oyuna bağlı değil. O yüzdende sizin yazı ekranınızda yazmaya çalışıyor. Oyuna bağlarsanız çözebilirsiniz. Hack gibi.. Diğer yolları bilemiyorum. Ben ko oynarken, AutoIt ile yapmıştım bu tür birşey.. Pvp de tamam ama, normalde iyi verim alamadım

sendmessage dene o zaman. delphi için sendmessage('metin handle', wm_char, ord('1'),0) vbde nasıl olur bilmem karşılıgı. Lien-Rock

yorumunuz için teşekkür ederim fakat delphi bilmiyorum.

Olmadı :S Kod: Dim command As New AutoItX3 Private Sub Command1_Click MsgBox "Auto HP Özelliği Aktif Edilmiştir..", , OK Label3. Caption = "Aktif" Timer2. Enabled = True End Sub Private Sub Command2_Click MsgBox "Auto HP Özelliği Kapatılmıştır.", , OK Label3. Caption = "Kapalı" Timer2. Enabled = False End Sub Private Sub Command3_Click MsgBox "Auto SP Özelliği Aktif Edilmiştir..", , OK Label6. Caption = "Aktif" Timer3. Enabled = True End Sub Private Sub Command4_Click MsgBox "Auto SP Özelliği Kapatılmıştır.", , OK Label6. Caption = "Kapalı" Timer3. Enabled = False End Sub Private Sub Command5_Click MsgBox "ATAK Aktif Edilmiştir.", , OK Timer1. Enabled = True End Sub Private Sub Command6_Click MsgBox "Atak Kapatılmıştır.", , OK Timer1. Enabled = False End Sub Private Sub Command7_Click MsgBox "Çekme Özelliği Aktif Edilmiştir.", , OK Label15. Caption = "Aktif" Timer4. Enabled = True End Sub Private Sub Command8_Click MsgBox "Çekme Özelliği Kapatılmıştır..", , OK Label3. Caption = "Kapalı" Timer4. Enabled = False End Sub Private Sub Command9_Click command. Send (Text3. Text) End Sub Private Sub Form_Load Text1. Enabled = False Text2. Enabled = False End Sub Private Sub Option1_Click MsgBox "%100 Exp Artışı Hesabınıza Eklenmiştir.", , OK End Sub Private Sub Option2_Click MsgBox "%250 Exp Artışı Hesabınıza Eklenmiştir.", , OK End Sub Private Sub Option3_Click MsgBox "%500 Exp Artışı Hesabınıza Eklenmiştir.", , OK End Sub Private Sub Text3_Change command. Send (Text3. Text) End Sub Private Sub Timer1_Timer SendKeys " " End Sub Private Sub Timer2_Timer SendKeys "1" End Sub Private Sub Timer3_Timer SendKeys "2" End Sub Nerde Hata Yapıyorum Yaw :S -

ben projeyi tamamladıgımda temiz bir şekilde buraya upload edicem. isteyen kullanabilir. yada yukarda sourccesi mevcut kod bilginiz varsa yazabilirsiniz ama coook ugraştırır.

Çok basit. Project > References > AutoItX3 1.0 Type Library'i seçip, projende ki herhangi bir yere aşağıdaki kodu kopyalıycaksın. Kod: Dim command As New AutoItX3 Sonrasında ise tek bir tuş göndermek yerine bir textbox açarak, command. send yapıp, textbox içerisindeki bütün rakamları oyuna gönderebilirsin. AutoItX3. dll Lien-Rock

Source, kolay gelsin. Lien-Rock

valla banda lazım ama devamlı basmasın oyundan atıyor. bana é tuşuna basan (saniyede 2 kere bassa yeter) bitane lazım. yere düşenleri toplamak zahmetli. bir de üzerinde on of dugmesi olursa daha iyi olur. istemidzde çalışır. mavi ve kırmızı potuda f1 f2 koyuyorum kimileri f3 f4 kimileride 1 2 tuşlarına koyuyor. ona görede seçme şansı verirse tadından yinmez not: dedigim gibi aslında programlar var ama milet içine keyloggeri trojanı basıyor malesef. o yuzden guvenemiyrum. temiz bitane yapar atarsan duacı oluruz..

valla mausdan fll sagtık veya 7-8 seri seri bastırablıyormuyuz ya ucak gibi

Shift ile değil "G" ile durması gerekiyor.

bende top eleven manager hilesi arıyorum. program yazma gibi bi seçeneğiniz var mı.. cheat engıneden olmuyor. Lien-Rock