Gelöscht
2. GUI einfügen
-
- [ offen ]
-
Marder 16 -
9. November 2009 um 17:42 -
Geschlossen -
Erledigt
-
-
- Offizieller Beitrag
Probier es mal so, kann es nicht testen. Hab die Autorun.au3 nicht.
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <AutoRun.au3>
#include <IE.au3>$aProgramm = @ScriptDir & "TrayManager.exe"
[/autoit] [autoit][/autoit] [autoit]
_AutoRun_SetProgramm($aProgramm)TraySetState()
[/autoit] [autoit][/autoit] [autoit]
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_oeffnenWhile 1
[/autoit]
$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 -
Gelöscht
-
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include <Constants.au3>
;#include <AutoRun.au3>
#include <IE.au3>$aProgramm = @ScriptDir & "TrayManager.exe"
[/autoit] [autoit][/autoit] [autoit]
;_AutoRun_SetProgramm($aProgramm)TraySetState()
[/autoit] [autoit][/autoit] [autoit]
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.$menuURLoeffnen = TrayCreateitem("URL öffnen")
[/autoit] [autoit][/autoit] [autoit]$MenuAusfuehren = TrayCreateMenu("Ausführen")
[/autoit] [autoit][/autoit] [autoit]
$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)Func _Info()
[/autoit] [autoit][/autoit] [autoit]
MsgBox(64, "Info", "Dieses Programm wurde von Andi gemacht." & @CRLF)
EndFunc ;==>_Info
TraySetState(8)
Func _URL_oeffnen()
_IECreate($Input1, 0, 1, 0)
EndFunc ;==>_URL_oeffnenWhile 1
[/autoit] [autoit][/autoit] [autoit]
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $Info
_Info()Case $msg = $menuURLoeffnen
[/autoit] [autoit][/autoit] [autoit]
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
EndSelectWEnd
[/autoit]
Exitdas 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
-
Gelöscht
-
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.