[Pytanie] Pomoc Z Autoit

[Weest]

Witam,

Otóż potrzebuję pomocy z tym językiem.

Mam zamiar zrobić prostego bota.

Ma on polegać na tym, że po klika on 1 raz TAB i zaraz po tym 1 raz przycisk "1"

I to wszystko w pętlę i powtarza się co 20 sec.

Wytłumaczę jeszcze raz.

Po wciśnięciu hotkey'a (np. f10) bot klika Tab a następnie "1" po 20 sec i to wszytko w kółko. Po wciśnięciu F9 opcja ta się wyłącza.

Może mi ktoś wytłumaczyć jak to zrobić?

Z góry dzięki.

 

#edit

dałoby się zrobić że ta pętla będzie się powtarzać co 20 sec ?

[SouI]

HotKeySet("{END}","KONIEC")
#include <GUIConstantsEx.au3>
GuiCreate( "Sratatata", 190, 125 ) ;gui
$Start = GuiCtrlCreateButton("Start", 60, 73, 60, 30 ) ;button start
Guisetstate(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
	Case $msg = $GUI_EVENT_CLOSE
		Exit ;----zamyka botka
	Case $msg = $Start
		While 1
			SPAM() ;funkcja spam
		WEnd
EndSelect
WEnd
Func spam() ;wykonuje funkcję
Send( "{TAB}" )
Send( "1" )
sleep(1000); - 1000 - sekunda
EndFunc
Func KONIEC() ;zamykanie na END
Exit
EndFunc

[Weest]

Dzięki Ci chłopie!

 

#edit

a opcja żeby to wykonywało w grze?

chcę zrobić takiego prostego bota, który zaznacza (tab) i atakuję (1)

ogólnie działa, tylko w grze nie.

Mógłbyś na to zaradzić?

[matiszon]

może ta gra ma jakieś zabezpieczenie przed botami.

[dziób tukana]

żeby działało pod GameGuard

kompilator: 3, 2, 4, 9

nazwa pliku: Xpadder

 

prosty autopoter "3 klawiszowy" z pełną regulacją... można dowolnie przerabiać pod warunkiem nie umieszczania nicków i adresów www na gui:

 

klawisze specjalnie typu spacja wpisywać jako space (bez {}), jak ma być np: zablokowane / odblokowane to z dopiskiem up / down czyli np: space down, itd...

pełna lista klawiszy tu:

http://www.autoitscript.com/autoit3/docs/appendix/SendKeys.htm

/: edit 29.06.10

Global Const $GUI_ENABLE = 64
Global Const $GUI_DISABLE = 128
Opt("GUIOnEventMode", 1)
Global $imput[3], $label[3], $timer[3], $speed[3], $akcja[3] = ["Off", "Off", "Off"], $edytuj = False, $text = "", $idx
GUICreate("=auto_pote'r).v.2", 210, 308)
GUISetOnEvent(-3, "Close")
For $i = 0 To 2
GUICtrlCreateLabel("" & (1 + $i) & " key:", 10 + (60 * $i), 10, 30, 13)
$imput[$i] = GUICtrlCreateInput(IniRead(@ScriptDir & "\configbot.ini", "Settings =auto_pote'r", "key" & $i, "" & $i), 42 + (60 * $i), 8, 25, 18)
GUICtrlSetState(-1, $GUI_DISABLE)
$text &= (1 + $i) & " key -" & @CR & @TAB & "numpad " & (7 + $i) & " - On/Off" & @CR & @TAB & "numpad " _
		& (4 + $i) & " - Decrease Interval" & @CR & @TAB & "numpad " & (1 + $i) & " - Increase Interval" & @CR
$speed[$i] = IniRead(@ScriptDir & "\configbot.ini", "Settings =auto_pote'r", "speed" & $i, "60")
$label[$i] = GUICtrlCreateLabel("Akcja " & (1 + $i) & " key:" & @TAB & $akcja[$i] & @TAB & licz($speed[$i]), 10, 252 + (15 * $i), 200, 14)
Next
$button = GUICtrlCreateButton("edytuj", 20, 30, 169, 20)
GUICtrlSetOnEvent($button, "edytuj")
GUICtrlCreateLabel($text & "--------" & @CR & @TAB & "numpad 0 - All Off", 10, 55, 190, 190)
GUISetState(@SW_SHOW)
Func _IsPressed($s_hexKey, $v_dll = 'user32.dll')
Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey)
If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
Return 0
EndFunc   ;==>_IsPressed
Func Close()
local $i
For $i = 0 To 2
IniWrite(@ScriptDir & "\configbot.ini", "Settings =auto_pote'r", "speed" & $i, ($speed[$i]))
Next
Exit
EndFunc   ;==>Close
Func edytuj()
Local $i, $l
If $edytuj = False Then
	$edytuj = True
	$l = $GUI_ENABLE
Else
	$edytuj = False
	$l = $GUI_DISABLE
EndIf
For $i = 0 To 2
	GUICtrlSetState($imput[$i], $l)
	IniWrite(@ScriptDir & "\configbot.ini", "Settings =auto_pote'r", "key" & $i, (GUICtrlRead($imput[$i])))
Next
EndFunc   ;==>edytuj
Func Zmien($789, $456, $321)
Local $i
If $789 <> 3 Then
	If $akcja[$789] = "On" Then
		$akcja[$789] = "Off"
	Else
		$akcja[$789] = "On"
		$timer[$789] = TimerInit()
	EndIf
	$i = $789
	Sleep(200)
ElseIf $456 <> 3 Then
	If $speed[$456] > 1 Then
		$speed[$456] -= 1
	EndIf
	$i = $456
ElseIf $321 <> 3 Then
	If $speed[$321] < 600 Then
		$speed[$321] +=  1
	EndIf
	$i = $321
Else
	For $i = 0 To 2
		$akcja[$i] = "Off"
		GUICtrlSetData($label[$i], "Akcja " & (1 + $i) & " key:" & @TAB & $akcja[$i] & @TAB & licz($speed[$i]))
	Next
	Return
EndIf
GUICtrlSetData($label[$i], "Akcja " & (1 + $i) & " key:" & @TAB & $akcja[$i] & @TAB & licz($speed[$i]))
EndFunc   ;==>Zmien
Func licz($i)
Local $l
If $i < 61 Then
	Return "" & $i & " sek."
Else
	$l = Floor($i / 60)
	Return $l & " min. " & $i - (60 * $l) & " sek."
EndIf
EndFunc   ;==>licz
While 1
Sleep(50)
If _IsPressed("60") Then Zmien(3, 3, 3)
If _IsPressed("61") Then Zmien(3, 3, 0)
If _IsPressed("62") Then Zmien(3, 3, 1)
If _IsPressed("63") Then Zmien(3, 3, 2)
If _IsPressed("64") Then Zmien(3, 0, 3)
If _IsPressed("65") Then Zmien(3, 1, 3)
If _IsPressed("66") Then Zmien(3, 2, 3)
If _IsPressed("67") Then Zmien(0, 3, 3)
If _IsPressed("68") Then Zmien(1, 3, 3)
If _IsPressed("69") Then Zmien(2, 3, 3)
For $idx = 0 To 2
	If $akcja[$idx] = "On" Then
		If TimerDiff($timer[$idx]) > ($speed[$idx]) * 1000 And $imput[$idx] <> "" Then
			Send("{" & (GUICtrlRead($imput[$idx])) & "}", 0)
			$timer[$idx] = TimerInit()
		EndIf
	EndIf
Next
WEnd