Код:
#include <script.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$oIE = _IECreate("http://wartank.ru",0,1,1)
$x1=0
$y1=0
$login = (IniRead("settings.ini", "1" , "login", ""))
$pass = (IniRead("settings.ini", "1", "pass", ""))
HotKeySet("{1}","ExitApp")
$Form1 = GUICreate("Warbot test ver0.1", 277, 256, 223, 164)
GUISetBkColor(0xA0A0A0)
$Label1 = GUICtrlCreateLabel("Что делать?", 8, 8, 67, 17)
$Combo1 = GUICtrlCreateCombo("В бой", 8, 24, 257, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "В банк|В пещеру", "В бой")
$Button1 = GUICtrlCreateButton("Начать", 8, 48, 75, 25)
$Button2 = GUICtrlCreateButton("Авотризоваться", 144, 224, 123, 25)
$Button3 = GUICtrlCreateButton("Wartank.ru", 64, 224, 75, 25)
$Button4 = GUICtrlCreateButton("KVBOT", 0, 224, 59, 25)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Button2
Call("autorization")
Case $Button3
$oIE = _IENavigate("http://wartank.ru",0,1,1)
Case $Button4
$oIE = _IECreate("http://kvbot.ucoz.ru",0,1,1)
Case $Button1
If $Combo1 = "В бой" Then
MsgBox(64,"Функция в бой","Пока что делается. Жми ок.")
EndIf
If $Combo1 = "В банк" Then
MsgBox(64,"Функция в банк","Пока что делается. Жми ок.")
EndIf
If $Combo1 = "В пещеру" Then
MsgBox(64,"Функция в пещеру","Пока что делается. Жми ок.")
EndIf
EndSwitch
WEnd
Func go()
EndFunc
Func ExitApp()
Exit
EndFunc
Func autorization()
$result1= _ImageSearch("bmp/login.bmp",1,$x1,$y1,0)
If $result1 = 1 Then
MouseClick("left" ,$x1,$y1+15,1,0)
Send($login)
$result2= _ImageSearch("bmp/password.bmp",1,$x1,$y1,0)
If $result2 = 1 Then
MouseClick("left" ,$x1,$y1+15,1,0)
Send($pass)
$result3= _ImageSearch("bmp/enter.bmp",1,$x1,$y1,0)
If $result3 = 1 Then
MouseClick("left" ,$x1,$y1,1,0)
Sleep(4000)
EndIf
EndIf
EndIf
EndFuncА вот что интересует
Как сделать функцию если в комбо1 будет текст В бой, он будет высвечивать сообщение Функция в бой.
:stars:
Код:
$Combo1 = GUICtrlCreateCombo("В бой", 8, 24, 257, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "В банк|В пещеру", "В бой")
If $Combo1 = "В бой" Then
MsgBox(64,"Функция в бой","Пока что делается. Жми ок.")
EndIf
If $Combo1 = "В банк" Then
MsgBox(64,"Функция в банк","Пока что делается. Жми ок.")
EndIf
If $Combo1 = "В пещеру" Then
MsgBox(64,"Функция в пещеру","Пока что делается. Жми ок.")
EndIf
