Online Oyun İçin Tuş Basma Programı

23/Ara/08 19:49

Kısayol

Şikayet

Özel Mesaj

alp

Kayıt Tarihi: 28/Ekim/2003

Set objShell = WScript.CreateObject("WScript.Shell")

With objShell
wscript.sleep 15000
.SendKeys "a"
wscript.sleep 2000
.sendkeys "b"
wscript.sleep 2000
.sendkeys "c"
End With

bu kodu yapıştır notepad'e uzantısı vbs olacak şekilde kaydet. çalıştırdığın zaman 15 saniye bekler sonra a tuşuna basar, sonra 2 saniye bekler b tuşuna basar vs. vs

wscript.sleep 15000 = 15 saniye bekle demek (15000 = 15 sn)

bu değerleri değiştirerek istediğini yaparsın

Alıntı yap

23/Ara/08 20:31

Kısayol

Şikayet

Özel Mesaj

Lathedarkman

Kayıt Tarihi: 05/Mayıs/2007

şöyle bişey olsa benimde işime yarar mesela 1 tuşuna saniyenin yarısı hızında bassın çeksin bassın çeksin böyle bişey olsa güzel olur :) eminim yapabilen ark. vardır

Alıntı yap

23/Ara/08 20:48

Kısayol

Şikayet

Özel Mesaj

zxzxzxzx

Kayıt Tarihi: 02/Temmuz/2007

MacroRecorder isimli proya bakmanı tavsiye ederim

Alıntı yap

23/Ara/08 22:25

Kısayol

Şikayet

Özel Mesaj

HeYeT

Kayıt Tarihi: 03/Ocak/2006

hmm. bu topic hoşuma gitti. :))

matematik24.com

Alıntı yap

23/Ara/08 22:48

Kısayol

Şikayet

Özel Mesaj

Gzx

Kayıt Tarihi: 23/Ağustos/2005

actool var

while 1=1 sonsuz döngüye sokabilirsin

keys a

yaparsan a tuşuna basar

delay 1000 yaparsan 1 saniye yada 10 sn beklet tam hatirlamiyorm

mesala benim facebooktaki çete savaşları için yaptığım kodu vereyim

SetActiveWindow Facebook | Çete Savaşları - Mozilla Firefox Call //pencereyi seçmek için kullanılır

procedure kavga1 // bu puresedür belirlemek için yani çağırılmadan aktif olmaz

delay 1000 // 1 sn bekle

mousepos 390,300 // fare pozisyonu 390,300 e getir

delay 1000 // 1 sn bekle

leftclick // sol tuşa tıkla

delay 1000 // 1 sn bekle

mousepos 670,455 // mouse pozisyonunu ayarla

delay 5000 // 5 sn bekle

end // purosedür biriş

procedure kavga2 // Kavga 2 purosedür başlangıçı

delay 1000
mousepos 390,300
delay 1000
leftclick
delay 1000
mousepos 670,555
delay 5000
end
procedure kavga3

delay 1000
mousepos 390,300
delay 1000
leftclick
delay 1000
mousepos 670,655
delay 5000
end

procedure kavga4

delay 1000
mousepos 390,300
delay 1000
leftclick
delay 1000
mousepos 670,755
delay 5000
end

procedure kavga5

delay 1000
mousepos 390,300
delay 1000
leftclick
delay 1000
mousepos 670,855
delay 5000
end

procedure Gorev
delay 1 sec
mousepos 290, 307
LeftClick
delay 10 sec
MousePos 1275, 396
DragTo 1275, 700 //sürükle olması emin değilim :D deneye deneye çözersin
delay 5 sec
MousePos 700, 906
delay 5 sec
leftclick
end

procedure banka
delay 1 sec // bunu sonradan keşfettim 1 saniye bekle :D 1 min 1 dakka gibi gidiyor

mousepos 540,300
delay 2 sec
leftclick
delay 10 sec
mousepos 580,530
delay 10 sec
leftclick
delay 500
end

procedure saldiri
LoadRGB 394, 395 // bunları çözemedim gitti

GetGreen 394, 395 = {RGBGreen} //işlevsiz:D
call kavga1

   delay 30000
    call kavga2
    delay 30000
    call kavga3
    delay 30000
    call kavga4
    delay 30000
    call kavga5
    delay 30000
Else // değilse tabi burda çok saçma şe yarıyormuydu merak ediyorum :D

   MousePos 204, 308
    delay 500
    leftclick
    delay 5000
End
end

procedure adres
MousePos 300, 68
leftclick
delay 1 sec

keys http: // http: yaz

keys {Keypad /} // "/ koy "
keys {Keypad /}
keys apps.new.facebook.com
keys {Keypad /}
keys cete-savaslar

keys
keys {keypad /}
keys {return}
end
//ana kod sayfasi
SetActiveWindow Facebook | Çete Savaşları - Mozilla Firefox Call // aktif pencere adi
while 1=1 // sonsuz döngü
call gorev // görev purosedürünü çağırır

delay 5 sec
//keys {F5}
delay 10 sec
call banka
delay 60 min
//call adres
//delay 10 sec
end

bunlar yeterlidir sanırım ama ko gibi oyunlarda güvenlik sistemini devredışı (bypass) etmen gerekebilir

"açık mı var la" yazdı diye ban yiyen adam !

Alıntı yap

23/Ara/08 23:55

Kısayol

Şikayet

Özel Mesaj

alp

Kayıt Tarihi: 28/Ekim/2003

Lathedarkman bunu yazdı:
-----------------------------
şöyle bişey olsa benimde işime yarar mesela 1 tuşuna saniyenin yarısı hızında bassın çeksin bassın çeksin böyle bişey olsa güzel olur :) eminim yapabilen ark. vardır
-----------------------------
hoca bi üstündeki msjda vbscriptini verdim ya onun :) sadece döngüye sokacaksın

Set objShell = WScript.CreateObject("WScript.Shell")

for i=1 to 1000
With objShell
wscript.sleep 500
.SendKeys "1"
End With
next

bu kod yarım saniyede bir 1 tuşuna basar 1000 kez

Alıntı yap

27/Ara/08 15:58

Kısayol

Şikayet

Özel Mesaj

angelofhope

Banlanmış Üye

Kayıt Tarihi: 16/Temmuz/2008

Gzx bunu yazdı:
-----------------------------

actool var

while 1=1 sonsuz döngüye sokabilirsin

keys a

yaparsan a tuşuna basar

delay 1000 yaparsan 1 saniye yada 10 sn beklet tam hatirlamiyorm

mesala benim facebooktaki çete savaşları için yaptığım kodu vereyim

SetActiveWindow Facebook | Çete Savaşları - Mozilla Firefox Call //pencereyi seçmek için kullanılır

procedure kavga1 // bu puresedür belirlemek için yani çağırılmadan aktif olmaz

delay 1000 // 1 sn bekle

mousepos 390,300 // fare pozisyonu 390,300 e getir

delay 1000 // 1 sn bekle

leftclick // sol tuşa tıkla

delay 1000 // 1 sn bekle

mousepos 670,455 // mouse pozisyonunu ayarla

delay 5000 // 5 sn bekle

end // purosedür biriş

procedure kavga2 // Kavga 2 purosedür başlangıçı

delay 1000
mousepos 390,300
delay 1000
leftclick
delay 1000
mousepos 670,555
delay 5000
end
procedure kavga3

delay 1000
mousepos 390,300
delay 1000
leftclick
delay 1000
mousepos 670,655
delay 5000
end

procedure kavga4

delay 1000
mousepos 390,300
delay 1000
leftclick
delay 1000
mousepos 670,755
delay 5000
end

procedure kavga5

delay 1000
mousepos 390,300
delay 1000
leftclick
delay 1000
mousepos 670,855
delay 5000
end

procedure Gorev
delay 1 sec
mousepos 290, 307
LeftClick
delay 10 sec
MousePos 1275, 396
DragTo 1275, 700 //sürükle olması emin değilim :D deneye deneye çözersin
delay 5 sec
MousePos 700, 906
delay 5 sec
leftclick
end

procedure banka
delay 1 sec // bunu sonradan keşfettim 1 saniye bekle :D 1 min 1 dakka gibi gidiyor

mousepos 540,300
delay 2 sec
leftclick
delay 10 sec
mousepos 580,530
delay 10 sec
leftclick
delay 500
end

procedure saldiri
LoadRGB 394, 395 // bunları çözemedim gitti

GetGreen 394, 395 = {RGBGreen} //işlevsiz:D
call kavga1

   delay 30000
    call kavga2
    delay 30000
    call kavga3
    delay 30000
    call kavga4
    delay 30000
    call kavga5
    delay 30000
Else // değilse tabi burda çok saçma şe yarıyormuydu merak ediyorum :D

   MousePos 204, 308
    delay 500
    leftclick
    delay 5000
End
end

procedure adres
MousePos 300, 68
leftclick
delay 1 sec

keys http: // http: yaz

keys {Keypad /} // "/ koy "
keys {Keypad /}
keys apps.new.facebook.com
keys {Keypad /}
keys cete-savaslar

keys
keys {keypad /}
keys {return}
end
//ana kod sayfasi
SetActiveWindow Facebook | Çete Savaşları - Mozilla Firefox Call // aktif pencere adi
while 1=1 // sonsuz döngü
call gorev // görev purosedürünü çağırır

delay 5 sec
//keys {F5}
delay 10 sec
call banka
delay 60 min
//call adres
//delay 10 sec
end

bunlar yeterlidir sanırım ama ko gibi oyunlarda güvenlik sistemini devredışı (bypass) etmen gerekebilir

-----------------------------

Arkadaşın dediği güzel bir yöntem eğer dediği gibi oyunun bir güvenliği yoksa actool kullan derim

Programming is our Religion, Algorithms are Our Bible & We ./make Our Own GOD

Alıntı yap

27/Ara/08 16:13

Kısayol

Şikayet

Özel Mesaj

canerator

Kayıt Tarihi: 14/Haziran/2006

Gzx bunu yazdı:
-----------------------------

actool var

while 1=1 sonsuz döngüye sokabilirsin

keys a

-------------------------

1 zaten 1 e eşit deilmi nası döngü olcak :S

Alıntı yap

27/Ara/08 16:53

Kısayol

Şikayet

Özel Mesaj

Stevie

Kayıt Tarihi: 09/Haziran/2007

Jorman's Uo Loop. Kullanımı kolay bir program istediğin pencereyi seçiyorsun oda o penceredekine basıyor sadece.

Alıntı yap