neuer Browser

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiToolbar.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <ToolbarConstants.au3>
#include <WindowsConstants.au3>
#Include <Array.au3>
#include <IE.au3>
#include <INet.au3>
;-------------------------------------------->------<--------müsst ihr hier noch anpassen
FileInstall ( "C:\Dokumente und Einstellungen\Martin\Desktop\go.jpg", @WindowsDir & "\Temp\" )
FileInstall ( "C:\Dokumente und Einstellungen\Martin\Desktop\zurueck.jpg", @WindowsDir & "\Temp\" )
FileInstall ( "C:\Dokumente und Einstellungen\Martin\Desktop\vor.jpg", @WindowsDir & "\Temp\" )
FileInstall ( "C:\Dokumente und Einstellungen\Martin\Desktop\home.jpg", @WindowsDir & "\Temp\" )
FileInstall ( "C:\Dokumente und Einstellungen\Martin\Desktop\stop.jpg", @WindowsDir & "\Temp\" )
FileInstall ( "C:\Dokumente und Einstellungen\Martin\Desktop\neuladen.jpg", @WindowsDir & "\Temp\" )
$i= -1
$startseite = IniRead ( "ini.ini", "URL", "Startseite","google.de")
Local $tabs[21]
local $seiten[21]
local $Tab[21]
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
HotKeySet ("^t","_newTab")
HotKeySet ( "^d" , "_drucken" )
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Browser", 800, 620, -1, -1, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
$input = GUICtrlCreateInput($startseite, 182, 32, 393, 20)
$buttongo = GUICtrlCreatePic (@WindowsDir & "\Temp\go.jpg", 600,20,40,40)
$buttonzurueck = GUICtrlCreatePic (@WindowsDir & "\Temp\zurueck.jpg", 30,20,40,40)
$buttonvor = GUICtrlCreatePic (@WindowsDir & "\Temp\vor.jpg", 80,20,40,40)
$buttonhome = GUICtrlCreatePic (@WindowsDir & "\Temp\home.jpg", 130,20,40,40)
$buttonstop = GUICtrlCreatePic (@WindowsDir & "\Temp\stop.jpg", 650,20,40,40)
$buttonneuladen = GUICtrlCreatePic (@WindowsDir & "\Temp\neuladen.jpg", 700,20,40,40)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Tab = GUICtrlCreateTab(5, 65, 790, 510)

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

;by l3w3x
#region menue
$menue1 = GUICtrlCreateMenu("&Datei")

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

$fileitem11 = GUICtrlCreateMenuItem("Tap öffnen", $menue1)
;$fileitem12= GUICtrlCreateMenuItem("Tap schließen", $menue1)
;$fileitem13= GUICtrlCreateMenuItem("Fenster oeffnen", $menue1)
;$fileitem14 = GUICtrlCreateMenuItem("Fenster schließen", $menue1)
$fileitem15 = GUICtrlCreateMenuItem("Drucken", $menue1)
$fileitem16 = GUICtrlCreateMenuItem("", $menue1)
$fileitem17 = GUICtrlCreateMenuItem("Beenden", $menue1)

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

$menue2 = GUICtrlCreateMenu("&Bearbeiten")
$fileitem21 = GUICtrlCreateMenuItem("Rückgängig", $menue2)
$fileitem22 = GUICtrlCreateMenuItem("Widerherstellen", $menue2)
$fileitem23 = GUICtrlCreateMenuItem("kopieren", $menue2)
$fileitem24 = GUICtrlCreateMenuItem("einfügen", $menue2)
;$fileitem25 = GUICtrlCreateMenuItem("suchen", $menue2)
;$fileitem26 = GUICtrlCreateMenuItem("weiter suchen", $menue2)
$fileitem27 = GUICtrlCreateMenuItem("neu laden", $menue2)

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

;$menue3 = GUICtrlCreateMenu("&Lesezeichen")
;$fileitem31 = GUICtrlCreateMenuItem("lesezeichen speichen", $menue3)
;$fileitem33 = GUICtrlCreateMenuItem("", $menue3)
;$fileitem34 = GUICtrlCreateMenuItem("lesezeichen verwalten", $menue3)

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

$menue4 = GUICtrlCreateMenu("&Verwalten")
;$fileitem41 = GUICtrlCreateMenuItem("Cookies löschen", $menue4)
$fileitem42 = GUICtrlCreateMenuItem("Einstellungen", $menue4)

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

$menue5 = GUICtrlCreateMenu("&Hilfe")
;$fileitem51 = GUICtrlCreateMenuItem("über diese version", $menue5)
$fileitem52 = GUICtrlCreateMenuItem("nach neuer version suchen", $menue5)
;$fileitem53 = GUICtrlCreateMenuItem("hilfe zum browser", $menue5)
#endregion

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

;end by L3w3x
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
GUICtrlSetResizing ($tab,1)
$activTAB = GUICtrlRead ($Tab)
if $activTAB >= 0 Then
GUICtrlSetResizing ($seiten[$activTAB],1)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_exit ()
Case $buttonzurueck
$activTAB = GUICtrlRead ($Tab)
if $activTAB >= 0 Then
$activTAB = GUICtrlRead ($Tab)
_IEAction($tabs[$activTAB],"Back")
EndIf
case $buttonvor
$activTAB = GUICtrlRead ($Tab)
if $activTAB >= 0 Then
_IEAction ($tabs[$activTAB], "forward")
EndIf
case $buttonhome
$activTAB = GUICtrlRead ($Tab)
$startseite = IniRead ( "ini.ini", "URL", "Startseite","google.de")
IF $activTAb = -1 Then
$i = 0
GUICtrlCreateTabItem ($startseite)
$tabs[$i] = _IECreateEmbedded ()
$seiten[$i] = GUICtrlCreateObj ($tabs[$i], 10, 100, 780, 470)
_IENavigate ($tabs[$i] , $startseite)
Else
$activTAB = GUICtrlRead ($Tab)
GUICtrlSetData ($activTAB , $startseite)
_IENavigate ($tabs[$activTAB] , $startseite)
EndIf
Case $buttongo
_go ()
Case $buttonstop
$activTAB = GUICtrlRead ($Tab)
if $activTAB >= 0 Then
_IEAction ($tabs[$activTAB], "stop")
Endif
Case $buttonneuladen
$activTAB = GUICtrlRead ($Tab)
if $activTAB >= 0 Then
_IEAction ($tabs[$activTAB], "refresh")
EndIf
Case $fileitem11
_newTab ()
Case $fileitem15
$activTAB = GUICtrlRead ($Tab)
if $activTAB >= 0 Then
_IEAction ($tabs[$activTAB], "print")
EndIf
Case $fileitem17
_exit ()
Case $fileitem21
$activTAB = GUICtrlRead ($Tab)
if $activTAB >= 0 Then
_IEAction ($tabs[$activTAB], "back")
EndIf
Case $fileitem22
$activTAB = GUICtrlRead ($Tab)
if $activTAB >= 0 Then
_IEAction ($tabs[$activTAB], "forward")
EndIf
Case $fileitem23
$activTAB = GUICtrlRead ($Tab)
if $activTAB >= 0 Then
_IEAction ($tabs[$activTAB], "copy")
EndIf
Case $fileitem24
$activTAB = GUICtrlRead ($Tab)
if $activTAB >= 0 Then
_IEAction ($tabs[$activTAB], "paste")
EndIf
Case $fileitem27
$activTAB = GUICtrlRead ($Tab)
if $activTAB >= 0 Then
_IEAction ($tabs[$activTAB], "refresh")
EndIf
Case $fileitem42
_settings ()
Case $fileitem52
_Update ()
;Case $fileitem13
;MsgBox (0,"","")
;$run = @ScriptDir & "\" & @ScriptName
;run (@ScriptDir & "\" & @ScriptName)
;MsgBox (0,"",$run)
EndSwitch
WEnd

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

Func _go ()
;Msgbox (4096,"",$i)
If $i = 20 then
MsgBox (4096,"","es können höchstens 20 tabs geöffnet werden")
Else

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

$url = GUICtrlRead ($input)
$activTAB = GUICtrlRead ($Tab)
IF $activTAb = -1 Then
$i = 0
;Msgbox (4096,"",$activTAB)
GUICtrlCreateTabItem ($url)
$tabs[$i] = _IECreateEmbedded ()
$seiten[$i] = GUICtrlCreateObj ($tabs[$i], 10, 100, 780, 470)
_IENavigate ($tabs[$i] , $url)
Else
$activTAB = GUICtrlRead ($Tab)
$url = GUICtrlRead ($input)
GUICtrlSetData ($activTAB , $url)
_IENavigate ($tabs[$activTAB] , $url)
EndIf
EndIf
EndFunc

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

Func _newTab () ;by Nitrama
If $i = 20 then
MsgBox (4096,"","es können höchstens 20 tabs geöffnet werden")
Else
$i += 1
GUICtrlCreateTabItem("Neuer Tab")
$tabs[$i] = _IECreateEmbedded ()
$seiten[$i] = GUICtrlCreateObj ($tabs[$i], 10, 100, 780, 470)

ENDIf
EndFunc
Func _drucken ()
$activTAB = GUICtrlRead ($Tab)
_IEAction($tabs[$activTAB],"Print")
EndFunc
Func _exit ()
FileDelete (@WindowsDir & "\Temp\go.jpg")
FileDelete (@WindowsDir & "\Temp\zurueck.jpg")
FileDelete (@WindowsDir & "\Temp\vor.jpg")
FileDelete (@WindowsDir & "\Temp\home.jpg")
FileDelete (@WindowsDir & "\Temp\stop.jpg")
FileDelete (@WindowsDir & "\Temp\neuladen.jpg")
Exit
EndFunc
Func _Update ()
Dim $ver = "0.5.0"
InetGet("http://Nitrama.ni.funpic.de/neu.txt",@TempDir & "\neu.txt", 1, 0)
$file = FileOpen(@TempDir & "\neu.txt", 0)
$line = FileReadLine($file, 1)
$line2= FileReadLine($file, 2)
If $line = $ver Then
MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
FileClose($file)
FileDelete(@TempDir & "\neu.txt")
Else
MsgBox(64, "Update!", "Es ist eine Neue Version verfügbar!")
$fg = MsgBox(4, "Updaten?", "Möchtest du jetzt Updaten?")
If $fg = 6 Then
InetGet("http://test/files/" & $line2, $line2, 1, 0) ; ANPASSEN
FileClose($file)
FileDelete(@TempDir & "\update.txt")
Exit
EndIf
EndIf
EndFunc
Func _settings ()
$Form2 = GUICreate("Einstellungen", 521, 442, 268, 127)
$newstart = GUICtrlCreateInput("Neue Startseite", 152, 50, 217, 21)
$Button1 = GUICtrlCreateButton("OK", 392, 50, 105, 25)
$Button2 = GUICtrlCreateButton("Abbrechen", 344, 400, 105, 33)
$Button3 = GUICtrlCreateButton("OK", 203, 400, 105, 33)
$Label1 = GUICtrlCreateLabel("Neue Startseite", 40, 50, 96, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete ($Form2)
exitloop
Case $Button1
$startseitenew = GUICtrlRead ($newstart)
IniDelete ("ini.ini","URL")
IniWriteSection ("ini.ini","URL","Startseite="& $startseitenew )
Case $Button2
GUIDelete ($Form2)
exitloop
Case $Button3
GUIDelete ($Form2)
exitloop
EndSwitch
WEnd
EndFunc

[/autoit]