Что нового

Редактирование отправляемых данных.

Carousel

Новичок
Сообщения
7
Репутация
0
Приветствую.
У нас есть скрипт вида
Код:
Func StartBot()
Local $edText  
$edText = GUICtrlRead($edRespTime)
$edText = $edText * 1000          
While 1
    Send('{A}')   
    Sleep(100)  
    Send('{B}')   
    Sleep(100)   
    Send('{C}')    
    Sleep(100)     
    Send('{D}')   
    Sleep($edText) 
WEnd
EndFunc

Как сделать Edit'ы с помощью которых можно было бы выбирать параметры A,B,C,D, а так же выбором промежутка(Sleep).
 

Fever

Скриптер
Сообщения
308
Репутация
112
смею предложить вот такой вариант, без напряга с контролами
Код:
#include <GUIConstantsEx.au3>

HotKeySet("{ESC}", "_Quit")

GUICreate("", 300, 200)
$Input = GUICtrlCreateInput("A;-500;B;-3000;C;-2000;D;ElseFunc;_111", 10, 60, 200, 20)

$Button = GUICtrlCreateButton("Start", 100, 100, 60, 20)

GUISetState()

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button
			$Func = StringSplit(GUICtrlRead($Input), ";")

			For $i = 1 To $Func[0]
				If StringLeft($Func[$i], 1) == "-" Then
					MsgBox(0, "", "ждём " & StringTrimLeft($Func[$i], 1) & " милисекунд")
					Sleep(Number(StringTrimLeft($Func[$i], 1)))
				Else
					Call($Func[$i])
				EndIf
			Next
	EndSwitch
WEnd

Func _Quit()
	Exit
EndFunc

Func A()
	MsgBox(0, "", "This is A function")
EndFunc

Func B()
	MsgBox(0, "", "This is B function")
EndFunc

Func C()
	MsgBox(0, "", "This is C function")
EndFunc

Func D()
	MsgBox(0, "", "This is D function")
EndFunc

Func ElseFunc()
	MsgBox(0, "", "This is ElseFunc function")
EndFunc

Func _111()
	MsgBox(0, "", "This is 111 function")
EndFunc
 
Верх