Oyun İçinde Sürekli Bir Tuşa Bastırma

Lien-Rock*
Hızlı Çırak
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 ( tamamen kendim hazırladım )

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 "{ENTER}"
End Sub

Private Sub Timer2_Timer()
SendKeys "1"
End Sub

Private Sub Timer3_Timer()
SendKeys "2"
End Sub
 
notname
Forum Kalfası
sendmessage dene o zaman. delphi için sendmessage('metin handle',wm_char,ord('1'),0) vbde nasıl olur bilmem karşılıgı.
 
shoq
Forum Ustası
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 :)
 
tyfnatly1
Daimi Üye
Ç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 (textx.text) yapıp, textbox içerisindeki bütün rakamları oyuna gönderebilirsin.
AutoItX3.dll
 
Lien-Rock*
Hızlı Çırak
Ç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 (textx.text) yapıp, textbox içerisindeki bütün rakamları oyuna gönderebilirsin.
AutoItX3.dll

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

[COLOR="Red"][B]Private Sub Text3_Change()
command.Send (Text3.Text)
End Sub[/B][/COLOR]

Private Sub Timer1_Timer()
SendKeys "{ENTER}"
End Sub

Private Sub Timer2_Timer()
SendKeys "1"
End Sub

Private Sub Timer3_Timer()
SendKeys "2"
End Sub
Nerde Hata Yapıyorum Yaw :S
 
- Yönetici düzenlemesi: :
NoPainNoGain
Forum Ustası
banada lazım böyle bir şey , bir arkadaşım oynuyor(pvp serverda), o istiyordu.
kendim yapmayı bilmiyorum.
yapınca buraya upload edermisiniz ?
 
lockman
Forum Kalfası
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..
 
ramo_21
Forum Ustası
bende top eleven manager hilesi arıyorum.program yazma gibi bi seçeneğiniz var mı ..cheat engıneden olmuyor.
 
Lien-Rock*
Hızlı Çırak
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.
 
lockman
Forum Kalfası
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.
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 (suresini ayarlayabilme) olursa guzel olur.
 
Üst