[Linkleri görebilmek için üye olun veya giriş yapın.]

Keypress göndermek işin basit tarafıdır, bunu yapmak için gereken şey;
Başlat buttonuna başlatma görevi vermek ve while döngüsünün içine başlatıldığında şu tuşlara durdurana kadar bas komutlarını yerleştirmek. Bunu şu şekilde yapıyoruz ;

Kod:

Dim $basla = 0

While 1
Sleep(100)
if $basla = 1 then
Send("z1")
endif
Wend

Func Button1Click()
$basla = 1
Endfunc

Func Button2Click()
$basla = 0
Endfunc

görüldüğü gibi olayımız bu . Sırada kutu toplama var, onuda basit bi şekilde döngünün içine yerleştiriyoruz.
Şu şekilde ;


<BLOCKQUOTE>

Kod:

 
<BLOCKQUOTE>if GuiCtrlread($checkbox1) = $GUI_CHECKED then ;burada eğer checkbox1 seçiliyse dedik.
send("{SPACE}")
endif</BLOCKQUOTE>

bunu while döngüsünün içine z1 den sonra yerleştiriyoruz.

Şimdi sıra geldi hp ve mp yi okumaya.
Bunun 2 yolu var birincisi pixelsearch yöntemi, yani ekranda renk taraması yaparak hp nin azaldığını anlamak
ikincisi ise memoryread yöntemi, yani direk olarak memoryden Hp yi okumak, ki bu daha güvenlidir.
Ancak her pc de memory değerleri aynı olmayabilir. Yani sizde çalışan program arkadaşınızda çalışmayabilir.
Bunun için şimdilik memory i bi kenara atalım ona daha sonra yer verelim. Pixelsearch ı işleyelim. Bu nedenle hp değeri girmeyide şimdilik atlıyorum..

Duzgun bir şekilde pixelsearch ı gerçekleştirmek için ilk olarak HP bardaki rengi ve ekrandaki yerini bilmemiz lazım.

Bunu öğrenmek için hemen basit bir script yazalım.

Kod:

<BLOCKQUOTE>While 1
Sleep(250)
$pos = MouseGetPos()
$pixelrengi = PixelGetColor($pos[0],$pos[1])
ToolTip("X : "&$pos[0]&" Y : "&$pos[1]&" Renk : "&$pixelrengi)
WEnd</BLOCKQUOTE>

Bunu bu şekilde exe ye çevirelim ve oyun açıkken hp barın tam ortasına getirelim,
tooltipde görünen değerler X pozisyonu, Y pozisyonu, ve o pozisyonlardaki renkdir.
Şimdi bu ne işimize yarıycak onu söyliyim, bunları bir kenara not aldıktan sonra,
diyelimki renk kodumuz : 12345678,
renk kodunun pozisyonları : X 300, Y 400,
şu kodu ekliyoruz;

Kod:

[size=9]Dim $PotKey = Guictrlread($combo1)

[/size][size=9]While 1
Sleep(250)
$pixelrengi = PixelGetColor(300,400)
if $pixelrengi = "12345678" then
sleep(10)
else
Send($PotKey)
Endif
WEnd

[/size]

hemen açıklamasını yapalım, dim ile $potkey in comboda yazan değer olduğunu belirttik.
Yani comboda 1 yazıyorsa 1e, 2 yazıyorsa 2ye 3,4.. vs basıcaktır.
Döngüde yaptığımız olay ise, x300 ve y400 deki renk 12345678 ise bişey yapma ama değil ise hp tuşuna basdır. Biraz daha basit açıklarsak, hp bizim değerini aldığımız tam ortadan aşağı düşerse orası bildiğiniz gibi siyah olur, script orayı siyah gördüğü anda hp tuşuna basıcaktır, kırmızı olduğundada durucak tekrar siyah olmasını bekleyecektir.

Pixelsearch ın düzgün çalışabilmesi için diyelimki siz renk belirlemesi yaparken 1024x768 ekran çözünürlüğü kullandınız o halde, başka bir bilgisayarda kullanılıcak ise çözünürük doğal olarak aynı olmalıdır.

Kod:

Yardımı İçin Teşekkürler AUT0İTSCRİPT.blogspot.com

</BLOCKQUOTE>

tyy

YHA BN PRGRAMI yUKLEDM AMA ACAMADIM HANGİSİNE GİRCM

eed yaf hangisini açcaz bide buton nasıl eklioski?

denemes

BLİNKO BU PROGRAMI İNDİRDİM KODLARI NEREYE GİRİP YAPICAS KOXP U Bİ OZEL MESAJ ATABİLİRMİSİN ANLAMLI OLARAKTAN WE RESİMLİ ....

aynen bnde indirdm ama nasıl yapcaz çozemedm

teşekkürler

kodları wermişsin nereye yapıstırıcalgını söylememişsin .

dasdasdasdasdsadaad

bi deneyelim

+++++++++++++++++++++++++

RRRRRRRRRRRRRRRR

asdasdasdqwe

sasasasasasasa

sasdasdasdadsa

+++++++++++++++++

deneyecez