2. GUI einfügen

1. offizieller Beitrag
    • Offizieller Beitrag

    Probier es mal so, kann es nicht testen. Hab die Autorun.au3 nicht.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Constants.au3>
    #include <AutoRun.au3>
    #include <IE.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $aProgramm = @ScriptDir & "TrayManager.exe"
    _AutoRun_SetProgramm($aProgramm)

    [/autoit] [autoit][/autoit] [autoit]

    TraySetState()
    TrayTip("TrayManager ist aktiviert", "Sie können den TrayManager nun nutzen", 99999999999999999)
    Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.
    $MenuAusfuehren = TrayCreateMenu("Ausführen")
    $ICQ = TrayCreateItem("ICQ", $MenuAusfuehren)
    $FF = TrayCreateItem("Firefox", $MenuAusfuehren)
    $Safari = TrayCreateItem("Safari", $MenuAusfuehren)
    $IE = TrayCreateItem("Internet-Explorer", $MenuAusfuehren)
    TrayCreateItem("")
    $MenuOpenWEB = TrayCreateMenu("Internetseite im Internet-Explorer öffnen")
    $Wikipedia = TrayCreateItem("Wikipedia.de", $MenuOpenWEB)
    $Leo = TrayCreateItem("Leo.de", $MenuOpenWEB)
    $Youtube = TrayCreateItem("Youtube.de", $MenuOpenWEB)
    $Google = TrayCreateItem("Google.de", $MenuOpenWEB)
    $Yahoo = TrayCreateItem("Yahoo.de", $MenuOpenWEB)
    $Web = TrayCreateItem("Web.de", $MenuOpenWEB)
    $YahooMAIL = TrayCreateItem("Yahoo-Mail", $MenuOpenWEB)
    $Gmx = TrayCreateItem("Gmx.de", $MenuOpenWEB)
    TrayCreateItem("")
    $Info = TrayCreateItem("Info")
    TrayCreateItem("")
    $Beenden = TrayCreateItem("Beenden")
    $Form1 = GUICreate("URL öffnen", 544, 80, 192, 124)
    $Input1 = GUICtrlCreateInput("http://", 24, 50, 465, 21)
    $Button1 = GUICtrlCreateButton("URL öffnen", 400, 15, 70, 30, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("Bitte geben Sie die URL ein und klicken Sie dann auf URL öffnen", 24, 8, 350, 17)
    GUISetState(@SW_SHOW)
    Func _Info()
    MsgBox(64, "Info", "Dieses Programm wurde von jemanden gemacht." & @CRLF)
    EndFunc ;==>_Info
    TraySetState(8)
    Func _URL_oeffnen()
    _IECreate($Input1, 0, 1, 0)
    EndFunc ;==>_URL_oeffnen

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    Case $msg = $Info
    _Info()
    Case $msg = $ICQ
    Run("C:\Programme\ICQ6.5\ICQ.exe")
    If @error Then
    MsgBox(48, "Fehler!!!", "Kann ICQ.exe nicht finden!")
    EndIf
    Case $msg = $IE
    Run("C:\Programme\Internet Explorer\IEXPLORE.EXE")
    If @error Then
    MsgBox(48, "Fehler!!!", "Kann IEXPLORE.exe nicht finden!")
    EndIf
    Case $msg = $FF
    Run("C:\Programme\Mozilla Firefox\firefox.exe")
    If @error Then
    MsgBox(48, "Fehler!!!", "Kann firefox.exe nicht finden!")
    EndIf
    Case $msg = $Safari
    Run("C:\Programme\Safari\Safari.exe")
    If @error Then
    MsgBox(48, "Fehler!!!", "Kann Safari.exe nicht finden!")
    EndIf
    Case $msg = $Wikipedia
    _IECreate("www.wikipedia.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Wikipedia.de herstellen!")
    EndIf
    Case $msg = $Leo
    _IECreate("www.leo.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Leo.de herstellen!")
    EndIf
    Case $msg = $Youtube
    _IECreate("www.youtube.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Youtube.de herstellen!")
    EndIf
    Case $msg = $Google
    _IECreate("www.google.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Google.de herstellen!")
    EndIf
    Case $msg = $Yahoo
    _IECreate("www.Yahoo.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Yahoo.de herstellen!")
    EndIf
    Case $msg = $Web
    _IECreate("www.web.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Web.de herstellen!")
    EndIf
    Case $msg = $YahooMAIL
    _IECreate("de.mail.yahoo.com", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Yahoo-Mail herstellen!")
    EndIf
    Case $msg = $Gmx
    _IECreate("www.gmx.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Gmx.de herstellen!")
    EndIf
    Case $msg = $Beenden
    ExitLoop
    EndSelect
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _URL_oeffnen()
    Exit
    EndSwitch
    WEnd
    Exit

    [/autoit]
    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Constants.au3>
    ;#include <AutoRun.au3>
    #include <IE.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $aProgramm = @ScriptDir & "TrayManager.exe"
    ;_AutoRun_SetProgramm($aProgramm)

    [/autoit] [autoit][/autoit] [autoit]

    TraySetState()
    TrayTip("TrayManager ist aktiviert", "Sie können den TrayManager nun nutzen", 99999999999999999)
    Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.

    [/autoit] [autoit][/autoit] [autoit]

    $menuURLoeffnen = TrayCreateitem("URL öffnen")

    [/autoit] [autoit][/autoit] [autoit]

    $MenuAusfuehren = TrayCreateMenu("Ausführen")
    $ICQ = TrayCreateItem("ICQ", $MenuAusfuehren)
    $FF = TrayCreateItem("Firefox", $MenuAusfuehren)
    $Safari = TrayCreateItem("Safari", $MenuAusfuehren)
    $IE = TrayCreateItem("Internet-Explorer", $MenuAusfuehren)
    TrayCreateItem("")
    $MenuOpenWEB = TrayCreateMenu("Internetseite im Internet-Explorer öffnen")
    $Wikipedia = TrayCreateItem("Wikipedia.de", $MenuOpenWEB)
    $Leo = TrayCreateItem("Leo.de", $MenuOpenWEB)
    $Youtube = TrayCreateItem("Youtube.de", $MenuOpenWEB)
    $Google = TrayCreateItem("Google.de", $MenuOpenWEB)
    $Yahoo = TrayCreateItem("Yahoo.de", $MenuOpenWEB)
    $Web = TrayCreateItem("Web.de", $MenuOpenWEB)
    $YahooMAIL = TrayCreateItem("Yahoo-Mail", $MenuOpenWEB)
    $Gmx = TrayCreateItem("Gmx.de", $MenuOpenWEB)
    TrayCreateItem("")
    $Info = TrayCreateItem("Info")
    TrayCreateItem("")
    $Beenden = TrayCreateItem("Beenden")
    $Form1 = GUICreate("URL öffnen", 544, 80, 192, 124)
    $Input1 = GUICtrlCreateInput("http://", 24, 50, 465, 21)
    $Button1 = GUICtrlCreateButton("URL öffnen", 400, 15, 70, 30, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("Bitte geben Sie die URL ein und klicken Sie dann auf URL öffnen", 24, 8, 350, 17)

    [/autoit] [autoit][/autoit] [autoit]

    Func _Info()
    MsgBox(64, "Info", "Dieses Programm wurde von Andi gemacht." & @CRLF)
    EndFunc ;==>_Info
    TraySetState(8)
    Func _URL_oeffnen()
    _IECreate($Input1, 0, 1, 0)
    EndFunc ;==>_URL_oeffnen

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    Case $msg = $Info
    _Info()

    [/autoit] [autoit][/autoit] [autoit]

    Case $msg = $menuURLoeffnen
    GUISetState(@SW_SHOW, $Form1)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exitloop
    Case $Button1
    _URL_oeffnen()
    ExitLoop
    EndSwitch
    WEnd
    GUISetState(@SW_hide, $Form1)
    Case $msg = $ICQ
    Run("C:\Programme\ICQ6.5\ICQ.exe")
    If @error Then
    MsgBox(48, "Fehler!!!", "Kann ICQ.exe nicht finden!")
    EndIf
    Case $msg = $IE
    Run("C:\Programme\Internet Explorer\IEXPLORE.EXE")
    If @error Then
    MsgBox(48, "Fehler!!!", "Kann IEXPLORE.exe nicht finden!")
    EndIf
    Case $msg = $FF
    Run("C:\Programme\Mozilla Firefox\firefox.exe")
    If @error Then
    MsgBox(48, "Fehler!!!", "Kann firefox.exe nicht finden!")
    EndIf
    Case $msg = $Safari
    Run("C:\Programme\Safari\Safari.exe")
    If @error Then
    MsgBox(48, "Fehler!!!", "Kann Safari.exe nicht finden!")
    EndIf
    Case $msg = $Wikipedia
    _IECreate("www.wikipedia.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Wikipedia.de herstellen!")
    EndIf
    Case $msg = $Leo
    _IECreate("www.leo.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Leo.de herstellen!")
    EndIf
    Case $msg = $Youtube
    _IECreate("www.youtube.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Youtube.de herstellen!")
    EndIf
    Case $msg = $Google
    _IECreate("www.google.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Google.de herstellen!")
    EndIf
    Case $msg = $Yahoo
    _IECreate("www.Yahoo.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Yahoo.de herstellen!")
    EndIf
    Case $msg = $Web
    _IECreate("www.web.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Web.de herstellen!")
    EndIf
    Case $msg = $YahooMAIL
    _IECreate("de.mail.yahoo.com", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Yahoo-Mail herstellen!")
    EndIf
    Case $msg = $Gmx
    _IECreate("www.gmx.de", 0, 1, 0)
    If @error Then
    MsgBox(48, "Fehler!!!", "Konnte keine Verbindung zu Gmx.de herstellen!")
    EndIf
    Case $msg = $Beenden
    ExitLoop
    EndSelect

    [/autoit] [autoit][/autoit] [autoit]

    WEnd
    Exit

    [/autoit]

    das funktioniert so mit einer selbstgebastelten GUI, aber die "ein_Befehl_Lösung" wäre in diesem Fall Inputbox(). Man muss ja nicht jedes mal das Rad komplett neu erfinden ^^

    Zitat von Marder 16

    bis auf: immer wenn ich eine URL eingebe und auf öffnen gehe, öffnet er im IE nur https://autoit.de/www.3.de ich hab keine ahnung woran das liegt..

    Versuch mal Zeile 45 von

    [autoit]

    _IECreate($Input1, 0, 1, 0)

    [/autoit]

    zu

    [autoit]

    _IECreate(GUICtrlRead($Input1), 0, 1, 0)

    [/autoit]


    ändern.