hey,
ich und L3w3x haben diese woche einen Browser gescriptet.
und hier ist das ergebnis
mehre tabs (bis 20 stück)
startseite ändern
vor
zurück
kopieren
einfügen
startseite
stop
drucken
Spoiler anzeigen
#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)
;by l3w3x
#region menue
$menue1 = GUICtrlCreateMenu("&Datei")
$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)
$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)
;$menue3 = GUICtrlCreateMenu("&Lesezeichen")
;$fileitem31 = GUICtrlCreateMenuItem("lesezeichen speichen", $menue3)
;$fileitem33 = GUICtrlCreateMenuItem("", $menue3)
;$fileitem34 = GUICtrlCreateMenuItem("lesezeichen verwalten", $menue3)
$menue4 = GUICtrlCreateMenu("&Verwalten")
;$fileitem41 = GUICtrlCreateMenuItem("Cookies löschen", $menue4)
$fileitem42 = GUICtrlCreateMenuItem("Einstellungen", $menue4)
$menue5 = GUICtrlCreateMenu("&Hilfe")
;$fileitem51 = GUICtrlCreateMenuItem("über diese version", $menue5)
$fileitem52 = GUICtrlCreateMenuItem("nach neuer version suchen", $menue5)
;$fileitem53 = GUICtrlCreateMenuItem("hilfe zum browser", $menue5)
#endregion
;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
Func _go ()
;Msgbox (4096,"",$i)
If $i = 20 then
MsgBox (4096,"","es können höchstens 20 tabs geöffnet werden")
Else
$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
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 ###
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
der Browser hat auch schon eine update Funktion die ich hier im Forum gefunden habe
bald kommt auch noch hinzu das man lesezeichen spiechern kann
und Proxy Einstellungen
Gruß Nitrama
PS: ist alle bilder und source sind im anhang
PSS: die bilder direkt in C: kopieren oder exe starten