Hallo,
wenn ich dieses Script starten will zeigt er mir folgende fehlermeldung an:
[Blockierte Grafik: http://img3.imageshack.us/my.php?image=au3errorof8.jpg]
Wäre sehr nett wenn mir jemand helfen könnte =))
Früher als ich Win. Xp Home hatte ging es aber seit ich Vista habe nichtmehr...
Der Fehler ist bei Line 48
Spoiler anzeigen
#NoTrayIcon
#include
#include
#Include
Dim $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(51,"Bestätigen","Wollen sie wirklich fortsetzen?")
Select
Case $iMsgBoxAnswer = 6 ;Yes
Case $iMsgBoxAnswer = 7 ;No
[/autoit] [autoit][/autoit] [autoit]Case $iMsgBoxAnswer = 2 ;Cancel
[/autoit] [autoit][/autoit] [autoit]EndSelect
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Dim $fenstertitel = "Freewar Bot v0.1"
[/autoit] [autoit][/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()
_IENavigate ($oIE, "http://www.freewar.de")
_IELoadWait($oIE)
_IELinkClickByText ( $oIE, "Login Welt 10" )
_IELoadWait($oIE)
$oForm = _IEFormGetObjByName ($oIE, "login_form")
$oQuery = _IEFormElementGetObjByName ($oForm, "name")
_IEFormElementSetValue ($oQuery, "IsleOfTechno")
$oQuery = _IEFormElementGetObjByName ($oForm, "password")
_IEFormElementSetValue ($oQuery, "yujahi")
sleep(1000)
;_IEFormSubmit ($oForm,0)
;$oSubmit = _IEFormElementGetCollection ($oForm, 1)
$oSubmit = _IEFormElementGetObjByName ( $oForm, "submit" )
_IEAction ($oSubmit, "click")
_IELoadWait($oIE)
_IELinkClickByText ( $oIE, "Hier klicken um Freewar ohne Popup zu starten")
EndFunc
[/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
