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 )
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