Input für IE_Navigate immer auf die aktuelle seite aktuallisieren.

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Include <Misc.au3>
#include <GUIConstants.au3>

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

global $Bookmarks[2][2],$Startseite[2],$MenuItem5
dim $result
$result=IniReadSection(@ScriptDir & "/settings.ini", "Bookmarks")
if @error Then
;~ Keine Lesezeichen vorhanden
$Startseite[0]="http://www.google.de"
$Startseite[1]="Google"
$Bookmarks[0][0]="http://www.autoit.de"
$Bookmarks[0][1]="AutoIt3.de"
Else
;~ Startseite & Lesezeichen Einlesen
redim $Bookmarks[($result[0][0]-2)/2][2]
$x=-1
For $i = 1 To $result[0][0] step 2
if $i=1 then
$Startseite[0]=$result[$i][1]
$Startseite[1]=$result[$i+1][1]
else
$Bookmarks[$x][0]=$result[$i][1]
$Bookmarks[$x][1]=$result[$i+1][1]
EndIf
$x=$x+1
Next
EndIf

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

$Proxy = IniRead(@ScriptDir & "/settings.ini","Extras","Proxy","")
$Home=$Startseite[0]
HttpSetProxy(1,GuiCtrlRead($Proxy))
$Embedded = _IECreateEmbedded ()

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Waterbird v0.1 Beta", 993, 594, 11, 97)
GUICtrlCreateObj($Embedded, 0, 40, 988, 521)
$Button1 = GUICtrlCreateButton("Los!", 680, 8, 83, 25, $WS_GROUP)
$URLInput = GUICtrlCreateInput($Home, 312, 8, 345, 21)
$vor = GUICtrlCreateButton("Vor", 48, 8, 35, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Zurück", 96, 8, 43, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Neu Laden", 152, 8, 59, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Zur Startseite", 216, 8, 75, 25, $WS_GROUP)
$MenuItem2 = GUICtrlCreateMenu("Datei(Noch nicht verfügbar)")
;~ Lesezeichen Start
$MenuItem5 = GUICtrlCreateMenu("Lesezeichen(Beta)")
$MenuItem5_1= GUICtrlCreateMenuItem("Startseite ändern",$MenuItem5)
$MenuItem5_2 = GUICtrlCreateMenuItem("Lesezeichen Hinzufügen", $MenuItem5)
$BookLine = GUICtrlCreateMenuItem("", $MenuItem5)
;~ Lesezeichen Ende
$MenuItem1 = GUICtrlCreateMenu("About...")
$MenuItem1_1= GUICtrlCreateMenuItem("Über...",$MenuItem1)
$MenuItem4 = GUICtrlCreateMenu("Einstellungen")
$MenuItem4_1= GUICtrlCreateMenuItem("Proxy Login",$MenuItem4)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
for $i= 0 to UBound($Bookmarks)-1
GUICtrlCreateMenuItem($Bookmarks[$i][1], $MenuItem5)
next

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

_IENavigate ($Embedded, $Home)

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

While 1
$nMsg = GUIGetMsg()
;~ if $nMsg = 11 Then
;~ MsgBox(4096,"Box","Lesezeichen")
;~ endif
;~ MsgBox(4096,"Box",$MenuItem5)
Switch $nMsg

Case $GUI_EVENT_CLOSE
Exit

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

Case $Button1
_IENavigate ($Embedded, GUICTRLRead($URLInput))

Case $Button4
_IENavigate ($Embedded, $Home)

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

Case $MenuItem5_1
$Home01=InputBox("Startseite ändern","Hier kannst du deine Startseite ändern. gib unten einfach unten die Page an.")
;~ IniWrite(@ScriptDir & "/settings.ini", "Bookmarks", "BookmarkStart", $Home01)
;~ IniWrite(@ScriptDir & "/settings.ini", "Bookmarks", "BookmarkStartt", $Home01)
MsgBox(0,"Info", "Damit die änderungen wirksam werden musst du Waterbird Neu starten")

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

Case $MenuItem5_2
$Lesezeichen=InputBox("Lesezeichen Hinzufügen", "Gib unten die page an die ins Lesezeichen hinzugefügt werden soll")
GUiCtrlCreateMenuItem($Lesezeichen,$MenuItem5)

case $MenuItem1_1
MsgBox(0, "Info","Rogprog Waterbird wurde von RogProg aka. DoMe geschrieben und bassiert auf einem IE Embedded. Auserdem steht Waterbird unter einer CreativeCommons Lizenz")

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

Case $MenuItem4_1
$ProxySet=InputBox("Proxy Login","Hier kannst du deine IP hinter einem Proxy verstecken. gib unten einfach den Proxy an")
IniWrite(@ScriptDir & "/settings.ini", "Extras", "Proxy", $Proxyset)
MsgBox(0,"Info", "Damit die Änderungen wirksam werden musst du Waterbird Neu starten")
EndSwitch
sleep(10)
WEnd

[/autoit]