Hi Leute,
als ich noch Anfänger war konnte ich noch keinen Webbrowser machen, was ich jedoch immer wieder wollte. Ich hab das mal nachgeholt:
- IE(.au3) basierender Webbrowser
- Sich selbst-anpassender Titel
- HTML-Quellcode Anzeigefunktion
- Druckfunktion
- Chronik
- Lesezeichen
- Automatische Updates
To Do:
- Statusbar
- Alles was mir und euch (später) noch einfällt
Code
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ListViewConstants.au3>
#include <GuiEdit.au3>
#include <GuiListView.au3>
#include <String.au3>
#include <File.au3>
#include <Array.au3>
#include <IE.au3>
#include <INet.au3>
#include <BinaryTemps.au3>
_IEErrorHandlerRegister()
[/autoit] [autoit][/autoit] [autoit]Global $sSettingsPath = @ScriptDir & "\settings.ini", $sVisitedPath = @ScriptDir & "\visited.txt", $sBookmarkPath = @ScriptDir & "\bookmarks.wit", $sTempDir = @TempDir & "\WebIt", $sVersion = " 0.1"
[/autoit] [autoit][/autoit] [autoit]DirCreate($sTempDir)
_CreateAllTemps()
#Region ### Main-GUI
AutoItSetOption("GUIOnEventMode", 1)
AutoItSetOption("WinTitleMatchMode", 2)
AutoItSetOption("GUIResizeMode", 802)
$Form1 = GUICreate("WebIt " & $sVersion, 701, 593)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$MenuItem1 = GUICtrlCreateMenu("&Datei")
$MenuItem2 = GUICtrlCreateMenuItem("Neues Fenster Strg+N", $MenuItem1)
GUICtrlSetOnEvent(-1, "_New")
$MenuItem3 = GUICtrlCreateMenuItem("", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Seite speichern unter... Strg+S", $MenuItem1)
GUICtrlSetOnEvent(-1, "_SaveHTML")
$MenuItem5 = GUICtrlCreateMenuItem("", $MenuItem1)
$MenuItem6 = GUICtrlCreateMenuItem("Drucken Strg+P", $MenuItem1)
GUICtrlSetOnEvent(-1, "_Print")
$MenuItem7 = GUICtrlCreateMenuItem("", $MenuItem1)
$MenuItem8 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
GUICtrlSetOnEvent(-1, "_Exit")
$MenuItem9 = GUICtrlCreateMenu("&Ansicht")
;$MenuItem10 = GUICtrlCreateMenuItem("Statusleiste", $MenuItem9) ;Kommt noch
;If IniRead($sSettingsPath, "Statusbar", "state", "") <> "0" Then GUICtrlSetState(-1, $GUI_CHECKED)
;GUICtrlSetOnEvent(-1, "_Statusbar")
;$MenuItem11 = GUICtrlCreateMenuItem("", $MenuItem9)
$MenuItem12 = GUICtrlCreateMenuItem("Stopp F6", $MenuItem9)
GUICtrlSetOnEvent(-1, "_Cancel")
$MenuItem13 = GUICtrlCreateMenuItem("Neu laden F5", $MenuItem9)
GUICtrlSetOnEvent(-1, "_Reload")
$MenuItem14 = GUICtrlCreateMenuItem("", $MenuItem9)
$MenuItem15 = GUICtrlCreateMenuItem("Seitenquelltext anzeigen Strg+U", $MenuItem9)
GUICtrlSetOnEvent(-1, "_ShowHTML")
$MenuItem16 = GUICtrlCreateMenu("Chronik")
$MenuItem17 = GUICtrlCreateMenuItem("Zurück Strg+Z", $MenuItem16)
GUICtrlSetOnEvent(-1, "_Back")
$MenuItem18 = GUICtrlCreateMenuItem("Vor Strg+Y", $MenuItem16)
GUICtrlSetOnEvent(-1, "_Forward")
$MenuItem19 = GUICtrlCreateMenuItem("Startseite", $MenuItem16)
GUICtrlSetOnEvent(-1, "_Home")
$MenuItem20 = GUICtrlCreateMenuItem("Gesamte Chronik anzeigen Strg+Alt+U", $MenuItem16)
GUICtrlSetOnEvent(-1, "_ShowVisited")
$MenuItem25 = GUICtrlCreateMenuItem("Chronik löschen Strg+Alt+E", $MenuItem16)
GUICtrlSetOnEvent(-1, "_DeleteVisited")
$MenuItem21 = GUICtrlCreateMenu("Lesezeichen")
$MenuItem22 = GUICtrlCreateMenuItem("Lesezeichen hinzufügen Strg+D", $MenuItem21)
GUICtrlSetOnEvent(-1, "_NewBookmark")
$MenuItem42 = GUICtrlCreateMenuItem("Lesezeichenleiste anzeigen", $MenuItem21)
GUICtrlSetOnEvent(-1, "_Bookmarkbar")
$MenuItem29 = GUICtrlCreateMenu("Hilfe")
$MenuItem30 = GUICtrlCreateMenuItem("Nach Updates suchen...", $MenuItem29)
GUICtrlSetOnEvent(-1, "_Update")
$MenuItem31 = GUICtrlCreateMenuItem("", $MenuItem29)
$MenuItem32 = GUICtrlCreateMenuItem("Über WebIt", $MenuItem29)
GUICtrlSetOnEvent(-1, "_Info")
GUISetFont(10, 400, 0, "Arial")
GUISetBkColor(0xFFFFFF)
;$StatusBar1 = _GUICtrlStatusBar_Create($Form1) ;kommt noch
;If IniRead($sSettingsPath, "Statusbar", "state", "") = "0" Then _GUICtrlStatusBar_ShowHide($StatusBar1, @SW_HIDE)
$Input1 = GUICtrlCreateInput("", 8, 8, 497, 22)
GUICtrlSetOnEvent(-1, "_NavigateURL")
$Input2 = GUICtrlCreateInput("Google", 520, 8, 169, 22)
GUICtrlSetOnEvent(-1, "_SearchGoogle")
GUICtrlSetFont(-1, 10, 400, 2, "Arial")
GUICtrlSetColor(-1, 0x696969)
$Pic1 = GUICtrlCreatePic($sTempDir & "\Home.jpg", 136, 40, 33, 33, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetOnEvent(-1, "_Home")
GUICtrlSetTip(-1, "http://www.google.de/")
$Pic2 = GUICtrlCreatePic($sTempDir & "\Cancel.jpg", 109, 40, 22, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetOnEvent(-1, "_Cancel")
GUICtrlSetTip(-1, "Laden dieser Seite stoppen")
$Pic3 = GUICtrlCreatePic($sTempDir & "\Reload.jpg", 72, 40, 32, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetOnEvent(-1, "_Reload")
GUICtrlSetTip(-1, "Aktuelle Seite neu laden")
$Pic4 = GUICtrlCreatePic($sTempDir & "\Back.jpg", 8, 40, 29, 31, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetOnEvent(-1, "_Back")
GUICtrlSetTip(-1, "Eine Seite zurück")
$Pic5 = GUICtrlCreatePic($sTempDir & "\Forward.jpg", 36, 41, 28, 30, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetOnEvent(-1, "_Forward")
GUICtrlSetTip(-1, "Eine Seite vor")
$Obj1 = _IECreateEmbedded()
$ListView2 = GUICtrlCreateListView("Name|Adresse", 704, 79, 280, 470, $LVS_SINGLESEL)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 185)
GUICtrlCreateObj($Obj1, 8, 80, 684, 468)
_Home()
_RefreshBookmarks()
If IniRead($sSettingsPath, "Bookmarkbar", "state", "") = "" Or IniRead($sSettingsPath, "Bookmarkbar", "state", "") = "0" Then
GUICtrlSetState($MenuItem42, $GUI_UNCHECKED)
WinMove($Form1, "", (@DesktopWidth - 701) / 2, (@DesktopHeight - 593) / 2, 701)
GUICtrlSetState($ListView2, $GUI_HIDE)
;_GUICtrlStatusBar_Resize($StatusBar1) ;kommt noch
IniWrite($sSettingsPath, "Bookmarkbar", "state", "0")
Else
GUICtrlSetState($MenuItem42, $GUI_CHECKED)
WinMove($Form1, "", (@DesktopWidth - 1000) / 2, (@DesktopHeight - 593) / 2, 1000)
GUICtrlSetState($ListView2, $GUI_SHOW)
;_GUICtrlStatusBar_Resize($StatusBar1)
IniWrite($sSettingsPath, "Bookmarkbar", "state", "1")
EndIf
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
GUISetState(@SW_SHOW)
Dim $Form1_AccelTable[12][2] = [["^n", $MenuItem2],["^s", $MenuItem4],["^p", $MenuItem6],["{F6}", $MenuItem12],["{F5}", $MenuItem13],["^u", $MenuItem15],["^z", $MenuItem17],["^y", $MenuItem18],["^!u", $MenuItem20],["^!e", $MenuItem25],["^d", $MenuItem22]]
GUISetAccelerators($Form1_AccelTable)
GUIRegisterMsg($WM_NOTIFY, "WM_Notify")
#EndRegion ### Main-GUI
#Region ### Quelltext-GUI
$Form2 = GUICreate("Quelltext von - WebIt", 801, 571)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Close")
$MenuItem33 = GUICtrlCreateMenu("Datei")
$MenuItem34 = GUICtrlCreateMenuItem("Speichern unter...", $MenuItem33)
GUICtrlSetOnEvent(-1, "_SaveHTML")
$MenuItem35 = GUICtrlCreateMenuItem("Drucken", $MenuItem33)
GUICtrlSetOnEvent(-1, "_Print2")
$MenuItem36 = GUICtrlCreateMenuItem("", $MenuItem33)
$MenuItem37 = GUICtrlCreateMenuItem("Schließen", $MenuItem33)
GUICtrlSetOnEvent(-1, "_Close")
$MenuItem38 = GUICtrlCreateMenu("Bearbeiten")
$MenuItem39 = GUICtrlCreateMenuItem("Suchen", $MenuItem38)
GUICtrlSetOnEvent(-1, "_Search")
$Edit1 = GUICtrlCreateEdit("", 8, 8, 777, 529, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_HSCROLL, $WS_VSCROLL))
GUISetState(@SW_HIDE)
#EndRegion ### Quelltext-GUI
#Region ### Chronik-GUI
$Form3 = GUICreate("Chronik", 698, 561)
GUISetOnEvent($GUI_EVENT_CLOSE, "_CloseVisited")
GUICtrlCreateMenu("")
$MenuItem41 = GUICtrlCreateMenuItem("Chronik löschen...", -1, 0)
GUICtrlSetOnEvent(-1, "_DeleteVisited")
$ListView1 = GUICtrlCreateListView("Name|Adresse", 8, 2, 682, 534)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 250)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 405)
GUISetState(@SW_HIDE)
#EndRegion ### Chronik-GUI
#Region ### Update-GUI
$Form4 = GUICreate("WebIt -Update", 210, 117, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
$StatusBar2 = _GUICtrlStatusBar_Create($Form4)
$Label1 = GUICtrlCreateLabel("Aktuelle Version: " & $sVersion, 8, 8, 200, 17)
$Label2 = GUICtrlCreateLabel("Neuste Version: ", 8, 32, 200, 17)
$Button1 = GUICtrlCreateButton("Update", 17, 64, 83, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_UpdateToNewest")
$Button2 = GUICtrlCreateButton("Schließen", 107, 64, 83, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_CloseUpdate")
GUISetState(@SW_HIDE)
#EndRegion ### Update-GUI
While 1
$sLocationWait = _PropertyGet("locationurl")
Do
Sleep(100)
Until $sLocationWait <> _PropertyGet("locationurl")
_WriteVisited(_PropertyGet("locationurl"))
WEnd
Func _Exit()
_IEErrorHandlerDeRegister()
DirRemove($sTempDir, 1)
GUIDelete()
Exit
EndFunc ;==>_Exit
Func _Home()
_Navigate("http://www.google.de/")
EndFunc ;==>_Home
Func _Cancel()
_Action("stop")
EndFunc ;==>_Cancel
Func _Back()
_Action("back")
EndFunc ;==>_Back
Func _Forward()
_Action("forward")
EndFunc ;==>_Forward
Func _Reload()
_Action("refresh")
EndFunc ;==>_Reload
Func _SaveHTML()
_Action("saveas")
EndFunc ;==>_SaveHTML
Func _Print()
GUISetState(@SW_MINIMIZE, $Form1)
_Action("print")
WinWaitClose("Drucken")
GUISetState(@SW_RESTORE, $Form1)
EndFunc ;==>_Print
Func _Navigate($sUrl)
Local $sLocationUrl
_IENavigate($Obj1, $sUrl)
Do
Sleep(100)
Until _PropertyGet("busy") = False
$sLocationUrl = _PropertyGet("locationurl")
_WriteVisited($sLocationUrl)
EndFunc ;==>_Navigate
Func _NavigateURL()
Local $sLocationUrl
_IENavigate($Obj1, GUICtrlRead($Input1))
Do
Sleep(100)
Until _PropertyGet("busy") = False
$sLocationUrl = _PropertyGet("locationurl")
_WriteVisited($sLocationUrl)
EndFunc ;==>_NavigateURL
Func _Action($sAction)
_IEAction($Obj1, $sAction)
_IEErrorHandlerRegister()
EndFunc ;==>_Action
Func _ReadHTML()
Local $sHTML
$sHTML = _IEDocReadHTML($Obj1)
Return $sHTML
EndFunc ;==>_ReadHTML
Func _PropertyGet($sProperty)
Local $s_Property
$s_Property = _IEPropertyGet($Obj1, $sProperty)
Return $s_Property
EndFunc ;==>_PropertyGet
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $hWndEdit
If Not IsHWnd($Input2) Then $hWndEdit = GUICtrlGetHandle($Input2)
$hWndFrom = $ilParam
$iIDFrom = BitAND($iwParam, 0xFFFF)
$iCode = BitShift($iwParam, 16)
Switch $hWndFrom
Case $Input2, $hWndEdit
Switch $iCode
Case $EN_KILLFOCUS
_MouseUp()
Case $EN_SETFOCUS
_MouseDown()
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND
Func _MouseUp()
If GUICtrlRead($Input2) = "" Then
GUICtrlSetData($Input2, "Google")
GUICtrlSetFont($Input2, 10, 400, 2)
GUICtrlSetColor($Input2, 0x696969)
EndIf
EndFunc ;==>_MouseUp
Func _MouseDown()
If GUICtrlRead($Input2) = "Google" Then
GUICtrlSetData($Input2, "")
GUICtrlSetFont($Input2, 10, 400, 0)
GUICtrlSetColor($Input2, 0x00000)
EndIf
EndFunc ;==>_MouseDown
Func _New()
Run(@ScriptFullPath)
EndFunc ;==>_New
;Func _Statusbar() ;kommt noch
; If BitAND(GUICtrlRead($MenuItem10), $GUI_CHECKED) = $GUI_CHECKED Then
; GUICtrlSetState($MenuItem10, $GUI_UNCHECKED)
; _GUICtrlStatusBar_ShowHide($StatusBar1, @SW_HIDE)
; IniWrite($sSettingsPath, "Statusbar", "state", "0")
; Else
; GUICtrlSetState($MenuItem10, $GUI_CHECKED)
; _GUICtrlStatusBar_ShowHide($StatusBar1, @SW_SHOW)
; IniWrite($sSettingsPath, "Statusbar", "state", "1")
; EndIf
;EndFunc ;==>_Statusbar
Func _ShowHTML()
GUICtrlSetData($Edit1, _ReadHTML())
WinSetTitle("Quelltext von", "", "Quelltext von " & _PropertyGet("locationurl") & " - WebIt")
GUISetState(@SW_SHOW, $Form2)
EndFunc ;==>_ShowHTML
Func _Print2()
GUISetState(@SW_MINIMIZE, $Form1)
GUISetState(@SW_RESTORE, $Form2)
_Action("print")
EndFunc ;==>_Print2
Func _Close()
GUISetState(@SW_HIDE, $Form2)
EndFunc ;==>_Close
Func _Search()
_GUICtrlEdit_Find($Edit1)
EndFunc ;==>_Search
Func _ShowVisited()
Local $hWnd
_GUICtrlListView_DeleteAllItems($ListView1)
If FileExists($sVisitedPath) Then
$hWnd = FileOpen($sVisitedPath)
For $i = 1 To _FileCountLines($sVisitedPath)
GUICtrlCreateListViewItem(FileReadLine($hWnd, $i), $ListView1)
Next
FileClose($hWnd)
EndIf
GUISetState(@SW_SHOW, $Form3)
EndFunc ;==>_ShowVisited
Func _DeleteVisited()
_GUICtrlListView_DeleteAllItems($ListView1)
FileDelete($sVisitedPath)
EndFunc ;==>_DeleteVisited
Func _WriteVisited($sUrl)
Local $aTitle, $hWnd, $hRead
$hWnd = FileOpen($sVisitedPath, 1)
$hRead = FileRead($sVisitedPath)
Sleep(400)
If StringInStr($hRead, $sUrl) = 0 Then FileWrite($hWnd, _PropertyGet("title") & "|" & $sUrl & @CRLF)
FileClose($hWnd)
GUICtrlSetData($Input1, $sUrl)
WinSetTitle("WebIt " & $sVersion, "", _PropertyGet("title") & " - WebIt " & $sVersion)
EndFunc ;==>_WriteVisited
Func _CloseVisited()
GUISetState(@SW_HIDE, $Form3)
EndFunc ;==>_CloseVisited
Func _Bookmarkbar()
If BitAND(GUICtrlRead($MenuItem42), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($MenuItem42, $GUI_UNCHECKED)
WinMove($Form1, "", (@DesktopWidth - 701) / 2, (@DesktopHeight - 593) / 2, 701)
GUICtrlSetState($ListView2, $GUI_HIDE)
;_GUICtrlStatusBar_Resize($StatusBar1) ;kommt noch
IniWrite($sSettingsPath, "Bookmarkbar", "state", "0")
Else
GUICtrlSetState($MenuItem42, $GUI_CHECKED)
WinMove($Form1, "", (@DesktopWidth - 1000) / 2, (@DesktopHeight - 593) / 2, 1000)
_RefreshBookmarks()
GUICtrlSetState($ListView2, $GUI_SHOW)
;_GUICtrlStatusBar_Resize($StatusBar1)
IniWrite($sSettingsPath, "Bookmarkbar", "state", "1")
EndIf
EndFunc ;==>_Bookmarkbar
Func _NewBookmark()
Local $hWnd, $hRead, $sTitle, $sLocationUrl
$hRead = FileRead($sBookmarkPath)
$hWnd = FileOpen($sBookmarkPath, 1)
$sTitle = _PropertyGet("title")
$sLocationUrl = _PropertyGet("locationurl")
If StringInStr($hRead, $sLocationUrl) = 0 Then
FileWrite($hWnd, $sTitle & "|" & $sLocationUrl & @CRLF)
EndIf
FileClose($hWnd)
_RefreshBookmarks()
EndFunc ;==>_NewBookmark
Func _RefreshBookmarks()
Local $hWnd
If FileExists($sBookmarkPath) Then
_GUICtrlListView_DeleteAllItems($ListView2)
$hWnd = FileOpen($sBookmarkPath)
For $i = 1 To _FileCountLines($sBookmarkPath)
GUICtrlCreateListViewItem(FileReadLine($hWnd, $i), $ListView2)
Next
FileClose($hWnd)
EndIf
EndFunc ;==>_RefreshBookmarks
Func WM_Notify($hWndGUI, $MsgID, $wParam, $lParam)
#forceref $hWndGUI, $MsgID, $wParam
Local $tagNMHDR, $event, $hWndFrom, $code, $ContextMenu1, $aIfSelected
$tagNMHDR = DllStructCreate("int;int;int", $lParam)
If @error Then Return
$event = DllStructGetData($tagNMHDR, 3)
Select
Case $wParam = $ListView2
Select
Case $event = $NM_RCLICK
If _GUICtrlListView_GetSelectedCount($ListView2) > 0 Then
$ContextMenu1 = GUICtrlCreateContextMenu($ListView2)
GUICtrlCreateMenuItem("Öffnen", $ContextMenu1)
GUICtrlSetOnEvent(-1, "_Open")
GUICtrlCreateMenuItem("Bearbeiten", $ContextMenu1)
GUICtrlSetOnEvent(-1, "_Edit")
GUICtrlCreateMenuItem("Löschen", $ContextMenu1)
GUICtrlSetOnEvent(-1, "_Delete")
EndIf
Case $event = $NM_DBLCLK
_Open()
EndSelect
EndSelect
$tagNMHDR = 0
$event = 0
$lParam = 0
EndFunc ;==>WM_Notify
Func _Open()
Local $aCurrent
$aCurrent = _GUICtrlListView_GetItemTextArray($ListView2)
_Navigate($aCurrent[2])
EndFunc ;==>_Open
Func _Delete()
Local $aCurrent, $hWnd
$aCurrent = _GUICtrlListView_GetItemTextArray($ListView2)
$hWnd = FileOpen($sBookmarkPath)
For $i = 1 To _FileCountLines($sBookmarkPath)
If StringInStr(FileReadLine($hWnd, $i), $aCurrent[2]) <> 0 Then _FileWriteToLine($sBookmarkPath, $i, "", 1)
Next
FileClose($hWnd)
_GUICtrlListView_DeleteItemsSelected($ListView2)
EndFunc ;==>_Delete
Func _Edit()
Local $aCurrent, $aIndex, $sNewTitle, $sNewURL, $hWnd, $aReadedLine
$aCurrent = _GUICtrlListView_GetItemTextArray($ListView2)
$aIndex = _GUICtrlListView_GetSelectedIndices($ListView2, True)
$sNewTitle = InputBox("Bearbeiten", "Bitte geben Sie den neuen Namen ein:", $aCurrent[1])
If $sNewTitle <> "" Then
$sNewURL = InputBox("Bearbeiten", "Bitte geben Sie die neue Adresse ein:", $aCurrent[2])
If $sNewURL <> "" Then
_GUICtrlListView_SetItemText($ListView2, $aIndex[1], $sNewTitle)
_GUICtrlListView_SetItemText($ListView2, $aIndex[1], $sNewURL, 1)
$hWnd = FileOpen($sBookmarkPath)
For $i = 1 To _FileCountLines($sBookmarkPath)
If StringInStr(FileReadLine($hWnd, $i), $aCurrent[2]) <> 0 Then _FileWriteToLine($sBookmarkPath, $i, $sNewTitle & "|" & $sNewURL, 1)
Next
FileClose($hWnd)
EndIf
_GUICtrlListView_SetItemText($ListView2, $aIndex[1], $sNewTitle)
$hWnd = FileOpen($sBookmarkPath)
For $i = 1 To _FileCountLines($sBookmarkPath)
If StringInStr(FileReadLine($hWnd, $i), $aCurrent[2]) <> 0 Then
$aReadedLine = FileReadLine($hWnd, $i)
_FileWriteToLine($sBookmarkPath, $i, $sNewTitle & "|" & $aCurrent[2], 1)
EndIf
Next
FileClose($hWnd)
EndIf
EndFunc ;==>_Edit
Func _PropertySet($sProperty, $vNewValue)
_IEPropertySet($Obj1, $sProperty, $vNewValue)
EndFunc ;==>_PropertySet
Func _SearchGoogle()
Local $sSearch
$sSearch = StringReplace(GUICtrlRead($Input2), " ", "+")
_Navigate("http://www.google.de/#hl=de&q=" & $sSearch & "&aq=f&aqi=&aql=&oq=&gs_rfai=&fp=f6c1d847b703d967")
EndFunc ;==>_SearchGoogle
Func _Update()
GUISetState(@SW_SHOW, $Form4)
_GUICtrlStatusBar_SetText($StatusBar2, "Suche nach der neusten Version...")
GUICtrlSetData($Label2, "Neuste Version: " & BinaryToString(InetRead("http://updates-buraksz.kilu.de/WebIt/version.txt", 1)))
_GUICtrlStatusBar_SetText($StatusBar2, "Fertig")
EndFunc ;==>_Update
Func _UpdateToNewest()
Local $sSaveTo, $hDownload, $iSize, $fStatus
_GUICtrlStatusBar_SetText($StatusBar2, "Update wird durchgeführt")
If $sVersion == BinaryToString(InetRead("http://updates-buraksz.kilu.de/WebIt/version.txt", 1)) Then
MsgBox(262144 + 16, "Fehler", "Sie haben schon die neuste Version von WebIt (" & $sVersion & ").")
_GUICtrlStatusBar_SetText($StatusBar2, "Fertig")
Else
$sSaveTo = FileSaveDialog("Wo wollen Sie die neue Version von WebIt speichern?", @ScriptDir, "Executable (*.exe)", 16, "WebIt")
If $sSaveTo <> "" Then
If Not StringRight($sSaveTo, 4) = ".exe" Then $sSaveTo = $sSaveTo & ".exe"
$iSize = InetGetSize("http://updates-buraksz.kilu.de/WebIt/WebIt.exe", 1)
$hDownload = InetGet("http://updates-buraksz.kilu.de/WebIt/WebIt.exe", $sSaveTo, 1, 1)
Do
Sleep(100)
_GUICtrlStatusBar_SetText($ListView2, (InetGetInfo($hDownload, 0) / 1024) & " kBytes von " & ($iSize / 1024) & " kBytes")
Until InetGetInfo($hDownload, 2)
$fStatus = InetGetInfo($hDownload, 2)
If $fStatus = True Then
MsgBox(262144 + 64, "Status", "Die neuste Version von WebIt wurde erfolgreich unter '" & $sSaveTo & "' gespeichert. Bitte ersetzen Sie diese mit der vorhanden Version. Das Programm wird sich jetzt beenden, damit Sie die neuste Version mit der alten Version ersetzen können.")
Exit
Else
MsgBox(262144 + 16, "Status", "Die neuste Version von WebIt konnte nicht heruntergeladen werden.")
EndIf
_GUICtrlStatusBar_SetText($StatusBar2, "Fertig")
EndIf
EndIf
EndFunc ;==>_UpdateToNewest
Func _CloseUpdate()
GUISetState(@SW_HIDE, $Form4)
EndFunc ;==>_CloseUpdate
Func _Info()
MsgBox(262144 + 64, "Über WebIt", "WebIt " & $sVersion & " von BurakSZ." & @CRLF & @CRLF & "WebIt ist ein Internet Explorer basierender AutoIt Browser." & @CRLF & @CRLF & "www.autoit.de")
EndFunc ;==>_Info
http://www.box.net/files#/files/0/f/46646062
Alle Art von Kommentar (Verbesserungsvorschlag, ...) erlaubt.