Problem mit IE Browser und GUI

andymandy

Hallo!

Ich bin ein Autoit-Neuling und habe ein Problem mit dem folgenden Skript:

C

#include <GUIConstants.au3>
#include <IE.au3>
#include <StaticConstants.au3>
#include <MsgBoxConstants.au3>

$IE = _IECreateEmbedded()

$Start_Bar = ControlGetPos('','Browser',40965)
$Main_App = GUICreate('Browser',@DesktopWidth,@DesktopHeight - $Start_Bar[3]-25)
$browser = GUICtrlCreateObj($IE,0,0,@DesktopWidth, @DesktopHeight)
GUISetState (@SW_SHOW)

$ping = Ping("www.google.com")
If $ping > 0 then
   _IENavigate($IE, "https://google.com")
Else
   MsgBox($MB_OK, "Fehler", "Sie können nur dieses Programm starten, wenn Ihre Internetverbindung aktiv ist. Bitte versuchen Sie es erneut.")
   Exit
EndIf


While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
Exit

Alles anzeigen

Und zwar bekomme ich die Fehlermeldung:

Code

Subscript used on non-accessible variable. 
$Main_App = GUICreate('Browser',@DesktopWidth,@DesktopHeight - $Start_Bar[3]-25)
$Main_App = GUICreate('Browser',@DesktopWidth,@DesktopHeight - $Start_Bar^ ERROR

Habe diverse Sachen versucht, jedoch führen alle Wege nicht zum Erfolg. Wäre sehr dankbar, wenn mir jemand auf die Sprünge helfen könnte. Dankeschön!!

**BugFix**

Dann prüfe doch erst mal, ob ControlGetPos überhaupt Erfolg hatte und ein Array erstellte.

AutoIt

$Start_Bar = ControlGetPos('','Browser',40965)
If Not IsArray($Start_Bar) Then Exit MsgBox(0, 'Fehler', 'ControlGetPos nicht erfolgreich')

Nebenbei: Du wirst schwerlich ein Fenster identifizieren können, wenn du keinen Titel verwendest.

**Musashi**

OK, dass ControlGetPos kein Array zurückliefert, und damit ...- $Start_Bar[3]-25) einen Error wirft, hat BugFix bereits angesprochen.

Eine Möglichkeit (auf die Schnelle) wäre z.B. :

AutoIt

#include <GUIConstants.au3>
#include <IE.au3>
#include <StaticConstants.au3>
#include <MsgBoxConstants.au3>

Local $hMain_App = GUICreate("Browser")
Local $oIE       = _IECreateEmbedded()
Local $CtrlObj   = GUICtrlCreateObj($oIE, 0, 0, @DesktopWidth, @DesktopHeight)
Local $msg, $ping

$ping = Ping("www.google.com")
If $ping > 0 then
    _IENavigate($oIE, "https://google.com")
    ConsoleWrite($oIE.left & @CRLF & $oIE.top & @CRLF & $oIE.width & @CRLF & $oIE.height & @CRLF)
    WinMove($hMain_App, "Browser", $oIE.left, $oIE.top, $oIE.width, $oIE.height-250)
Else
    MsgBox($MB_OK, "Fehler", "Sie können nur dieses Programm starten, wenn Ihre Internetverbindung aktiv ist. Bitte versuchen Sie es erneut.")
    GUIDelete($hMain_App)
    Exit
EndIf

GUISetState()

While True
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
GUIDelete($hMain_App)

Alles anzeigen

Gruß Musashi

Problem mit IE Browser und GUI

Ähnliche Themen

Browser aus der Taskleiste selektiv beenden

Chrome starten+untersuchen

winclosearea() - suche eine Funktion, die dieser entspricht oder einen Workaround