hey..
mich regt es grad en wenig auf^^ ich bekomme en hotkeyset mit der funktion Pause nicht rein...
hier mein Script :
Spoiler anzeigen
#NoTrayIcon
#include <WindowsConstants.au3>
#include <Constants.au3>
#Include <GuiConstants.au3>
#Include <IE.au3>
#Include <Array.au3>
MsgBox(0,"Script make by Lissy@Testworld", "Have fun :)")
[/autoit] [autoit][/autoit] [autoit]$1 = Inputbox("Account eingeben" , "Account eintippen")
$2 = Inputbox("Passwort eingeben", "Passwort eingeben", "", "*")
Dim $fenstertitel = "Freewar Bot v0.1"
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];Tray Einstellungen und Menüpunkte
Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)
Opt("MouseCoordMode",2)
TraySetClick ( 16 )
$fensteritem = TrayCreateItem("Fenster ins Tray")
TrayItemSetOnEvent(-1,"gui_anzeigen")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1,"ExitScript")
TraySetOnEvent ( $TRAY_EVENT_PRIMARYDOWN, "gui_anzeigen" )
TraySetState()
;Tray Ende
;erstellt den eingebetten IE
$oIE = _IECreateEmbedded ()
;Hauptfenster
$main_window = GUICreate($fenstertitel, @DesktopWidth-8, @DesktopHeight-66, 0, 0, $WS_CAPTION + $WS_SYSMENU + $WS_MINIMIZEBOX + $WS_VISIBLE + $WS_CLIPSIBLINGS )
GUISetBkColor (0xded3b9)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 60, @DesktopWidth-30, @DesktopHeight-200)
GUISetState(@SW_SHOW,$main_window )
einloggen()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
sleep(25)
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitScript()
EndSelect
WEnd
Func einloggen()
[/autoit] [autoit][/autoit] [autoit]_IENavigate ($oIE, "http://world1.freewar.com/fwEnglish/srv/src/fwEnglishExport/index.php")
_IELoadWait($oIE)
$oForm = _IEFormGetObjByName ($oIE, "login_form")
$oQuery = _IEFormElementGetObjByName ($oForm, "name")
_IEFormElementSetValue ($oQuery, $1)
$oQuery = _IEFormElementGetObjByName ($oForm, "password")
_IEFormElementSetValue ($oQuery, $2)
sleep(1000)
;_IEFormSubmit ($oForm,0)
;$oSubmit = _IEFormElementGetCollection ($oForm, 1)
Sleep(1000)
$oSubmit = _IEFormElementGetObjByName ( $oForm, "submit" )
Sleep(1000)
_IEAction ($oSubmit, "click")
_IELoadWait($oIE)
Sleep(1000)
_IELinkClickByText ( $oIE, "Hier klicken um Freewar ohne Popup zu starten")
_IEAction ($oSubmit, "click")
Sleep(2000)
While 1
_IENavigate ($oIE, "http://world1.freewar.com/fwEnglish/srv/src/fwEnglishExport/internal/main.php")
_IELinkClickByText ( $oIE, "Schnellangriff")
_IELinkClickByText ( $oIE, "Schnellangriff")
_IELinkClickByText ( $oIE, "Schnellangriff")
_IELinkClickByText ( $oIE, "Schnellangriff")
_IELinkClickByText ( $oIE, "Schnellangriff")
_IELinkClickByText ( $oIE, "Schnellangriff")
_IELinkClickByText ( $oIE, "Schnellangriff")
_IELinkClickByText ( $oIE, "Schnellangriff")
_IELinkClickByText ( $oIE, "Schnellangriff")
_IELinkClickByText ( $oIE, "Schnellangriff")
Sleep(500)
Wend
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];minimiert die GUI in tray und zeigt sie wieder, je nachdem was wie der status gerad ist
func gui_anzeigen()
If TrayItemGetText ( $fensteritem ) = "Fenster ins Tray" Then
GUISetState(@SW_HIDE,$main_window)
TrayItemSetText($fensteritem,"Fenster maximieren")
Else
GUISetState(@SW_SHOW,$main_window)
TrayItemSetText($fensteritem,"Fenster ins Tray")
EndIf
EndFunc
func ExitScript()
GUIDelete($main_window)
Exit
EndFunc
