Dyskusja: Piszemy Bota Do Tibi W Autoicie Przy Użyciu Wielowątkowości

[jackraymund]

Name: Piszemy bota do tibi w autoicie przy użyciu wielowątkowości

Category: Tutoriale, Poradniki

Date Added: 19 December 2010 - 23:47

Submitter: jackraymund

Short Description: Niezatwierdzony

 

KOD<br />

#include <ButtonConstants.au3><br />#include <EditConstants.au3><br />#include <GUIConstantsEx.au3><br />#include <WindowsConstants.au3><br />#include <nomad.au3><br />#include <Timers.au3><br />#Region ### START Koda GUI section ### Form=<br />$Form1 = GUICreate("bot do tibi", 154, 258, 192, 124)<br />$Button1 = GUICtrlCreateButton("spell caster", 8, 8, 75, 25, $WS_GROUP)<br />$Input1 = GUICtrlCreateInput("czar", 16, 40, 121, 21)<br />$Input2 = GUICtrlCreateInput("mana", 16, 64, 121, 21)<br />$Button2 = GUICtrlCreateButton("anty-idle", 8, 96, 75, 25, $WS_GROUP)<br />$Input3 = GUICtrlCreateInput("czas", 16, 128, 121, 21)<br />$Button3 = GUICtrlCreateButton("jedzienie fooda", 8, 160, 75, 25, $WS_GROUP)<br />$Input4 = GUICtrlCreateInput("guzik", 16, 192, 121, 21)<br />$Input5 = GUICtrlCreateInput("czas", 16, 216, 121, 21)<br />GUISetState(@SW_SHOW)<br />#EndRegion ### END Koda GUI section ###<br /><br />While 1<br /> $nMsg = GUIGetMsg()<br /> Switch $nMsg<br /> Case $GUI_EVENT_CLOSE<br /> Exit<br /> case $Button1<br /> global $pid = ProcessExists("Hexana.exe")<br /> $memaaa = _MemoryOpen($pid)<br /> _Timer_SetTimer($form1,500,"spell")<br /> case $Button2<br /> $ff = guictrlread($input3)<br /> $ff *= 1000<br /> _Timer_SetTimer($form1,$ff,"afk")<br /> case $Button3<br /> $ks = guictrlread($Input4)<br /> $ksks = guictrlread($Input5)<br /> _Timer_SetTimer($form1,$ksks,"food")<br /> EndSwitch<br />WEnd<br />func food(,,,)<br /> controlsend("Tibia","","",$ks)<br /> EndFunc<br />func afk(,,,)<br /> controlsend("Tibia","","","{ctrldown}{down}{ctrlup}")<br /> controlsend("Tibia","","","{ctrldown}{up}{ctrlup}")<br /> controlsend("Tibia","","","{ctrldown}{left}{ctrlup}")<br /> controlsend("Tibia","","","{ctrldown}{right}{ctrlup}")<br /> EndFunc<br /><br />func spell(,,,)<br /> $kk = guictrlread($input2)<br /> $mem = _MemoryRead(0x0063FE78,$memaaa)<br /> if $mem >= $kk Then<br /> controlsend("Tibia","","",guictrlread($input1))<br /> controlsend("Tibia","","","{enter}")<br /> EndIf<br /> EndFunc

<br />filmiki nagrywam z narracja by przezwyciężyć treme, nauczyć sie freestyle i przekazać moją wiedzę innym:D<br />przy dokładnym przysłuchaniu można wyciągnąć parę błędów<br /><br />filmik specjalnie nagrałem by pokazać wszystkim że autoit jest wielowątkowy!<br />trochę ścieżka dźwiękowa jest przyśpieszona w filmiku ale to chyba nie problem:)

 

Wyświetl filmy