Hey Community,
Habe mal einen kleinen Browser mit Autoit nachgebaut. Nichts dolles.
Aber ich hätte gerne mal ein paar Ideen wie ich die "Favoriten-Liste" so ändern kann das bei einem Doppelklick auf eine bestimmte Seite diese geändert wird.
Ich hatte es mal mit einer .ini probiert , bin aber gescheitert.
Mein bisheriger Code
Spoiler anzeigen
#include <GUIConstants.au3>
#include <Misc.au3>
#include <IE.au3>
Opt("RunErrorsFatal", 0)
#region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Dominik Schubert\Desktop\browser.kxf
$Form1 = GUICreate("AutoIt Browser", @DesktopWidth, @DesktopHeight - 60, 0, 0)
$seite = GUICtrlCreateInput("", 70, 0, 877, 21)
$Button1 = GUICtrlCreateButton("<", 0, 0, 33, 21, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button2 = GUICtrlCreateButton(">", 36, 0, 33, 21, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button3 = GUICtrlCreateButton("Add Fav.", 948, 0, 71, 21, 0)
$IE = _IECreateEmbedded()
$Group1 = GUICtrlCreateObj($IE, 106, 22, 913, 653)
$List1 = GUICtrlCreateList("", 0, 48, 97, 617)
$Label1 = GUICtrlCreateLabel("Favoriten", 22, 30, 48, 17)
$Button4 = GUICtrlCreateButton("<", 95, 292, 9, 77, 0)
GUISetState(@SW_SHOW)
#endregion ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Dominik Schubert\Desktop\browser.kxf
Global $anzahl = 0, $schritt1 = 0, $schritt2 = 48, $schritt3 = 95, $schritt4 = 292, $button = 0
[/autoit] [autoit][/autoit] [autoit]Func _GO()
GUICtrlSetData($List1, GUICtrlRead($seite))
_IENavigate($IE, GUICtrlRead($seite, 0))
EndFunc ;==>_GO
While 1
If _IsPressed("0D") And WinActive("AutoIt Browser") And GUICtrlRead($seite) <> "" Then
$split = StringSplit(GUICtrlRead($seite), ".")
If $split[1] <> "www" Then
GUICtrlSetData($seite, "")
ToolTip("Bitte URL folgendermaßen eingeben:" & @CRLF & "www.autoit.de", @DesktopWidth / 2 - 50, 0 + 21, "")
Sleep(4000)
ToolTip("")
Else
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
_GO()
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_IEAction($IE, "back")
Case $Button2
_IEAction($IE, "forward")
Case $Button3
GUICtrlSetData($List1, GUICtrlRead($seite))
Case $Button4
$button = $button + 1
If $button = 1 Then
GUICtrlSetData($Button4, ">")
Do
GUICtrlSetPos($Button4, $schritt3, $schritt4)
GUICtrlSetPos($List1, $schritt1, $schritt2)
$schritt1 = $schritt1 - 2
$schritt3 = $schritt3 - 2
Sleep(10)
Until $schritt1 = -100
Else
$button = $button - 2
GUICtrlSetData($Button4, "<")
Do
GUICtrlSetPos($Button4, $schritt3, $schritt4)
GUICtrlSetPos($List1, $schritt1, $schritt2)
$schritt1 = $schritt1 + 2
$schritt3 = $schritt3 + 2
Sleep(10)
Until $schritt1 = 2
EndIf
EndSwitch
WEnd
38 Views , und niemand antwortet oO?