Siema Oto mój kod, pisany chaotycznie i na szybko [10 minut ]. Nie działa button Ustawienia loginu i hasła i Strona Autora. [Nie zwracajcie uwagi na treść ]
#include <ImageSearch.au3>
#include <GUIConstants.au3>
#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <FF.au3>
Global $x, $y ;A
If Not FileExists(@ScriptDir & "\config.ini") Then
Run( "config.exe", @ScriptDir )
Else
$mail = IniRead(@ScriptDir & "\config.ini", "Ustawienia", "Mail", "" )
$combination = IniRead(@ScriptDir & "\config.ini", "Ustawienia", "Hasło", "")
EndIf
MsgBox( 266304, "Lockerz Bot by adriank1410", "Witaj w bocie na mam już dość tej strony!"&@LF&"Program teraz otworzy przeglądarkę internetową z serwisem."&@LF&"Następnie wpisze login i hasło podane przez Ciebie wcześniej, a zapisane do pliku config.ini."&@LF&"Z racji, że niektórym przeglądarki uruchamiają się długo, masz 10 sekund.")
#Region ### START Koda GUI section ### Form=
Global $LICZNIK, $TYT, $DESC, $ZAWART, $ILOSC, $PASW, $IE, $FORM1, $FORM
$FORM1 = GUICreate("Lockerz Bot", 600, 350, 192, 114)
$RUN = GUICtrlCreateButton("Start", 180, 120, 90, 55, $WS_GROUP)
$WTF = GUICtrlCreateButton("Ustawienia loginu i hasła", 280, 120, 130, 55, $WS_GROUP)
$AUTOR = GUICtrlCreateButton("Strona autora", 420, 120, 100, 55, $WS_GROUP)
$LABEL = GUICtrlCreateLabel("Program Lockerz Bot (C)2010.", 5, 5, 292, 17)
$LABEL1 = GUICtrlCreateLabel("Wersja Beta.", 5, 300, 137, 17)
$LABEL4 = GUICtrlCreateLabel(" http://www.adriank.pl", 40, 400, 390, 17)
GUICtrlCreatePic("logo.jpg", 0, 0, 600, 120)
GuiSetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$LICZNIK = 0
While 1
$NMSG = GUIGetMsg()
Switch $NMSG
Case $GUI_EVENT_CLOSE
Exit
Case $RUN
XXX()
EndSwitch
WEnd
While 1
$NMSG = GUIGetMsg()
Switch $NMSG
Case $GUI_EVENT_CLOSE
Exit
Case $WTF
Run( "config.exe", @ScriptDir )
EndSwitch
WEnd
While 1
$NMSG = GUIGetMsg()
Switch $NMSG
Case $GUI_EVENT_CLOSE
Exit
Case $AUTOR
ShellExecute("http://www.adriank.pl")
EndSwitch
WEnd
Func XXX()
ShellExecute("FIREFOX.EXE", "http://www.mam już dość tej strony", "", "open")
Sleep(10000)
$result_1 = _ImageSearch("mail.bmp", 1, $x, $y, 29) ;B
If $result_1 = 1 Then ;C
MouseClick( "left", $x, $y )
Send("^a")
Send( $mail )
endif ;E
Sleep(1000)
$result_2 = _ImageSearch("combination.bmp", 1, $x, $y, 29) ;B
If $result_2 = 1 Then ;C
MouseClick( "left", $x, $y )
Send("^a")
Send( $combination )
endif ;E
Sleep(1000)
$result_3 = _ImageSearch("signin.bmp", 1, $x, $y, 29) ;B
If $result_3 = 1 Then ;C
MouseClick( "left", $x, $y )
endif ;E
EndFunc
While 1
$NMSG = GUIGetMsg()
Switch $NMSG
Case $GUI_EVENT_CLOSE
Exit
Case $RUN
XXX()
EndSwitch
WEnd
Czy ktos moze mi to poprawic i wytlumaczyc gdzie byl blad?