AUTOIT Webbrowser

WORLD-KILLER

Hallo!
Hi leute ich habe mit Autoit einen Webbrowser erstellt =)
Hier der Quellcode der bei Fast allen Pc's geht:

Spoiler anzeigen

[autoit]

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

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

$IE = _IECreateEmbedded ()

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

Global $html

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

#Region ### START Koda GUI section ### Form=c:\users\sandro\desktop\gui_main.kxf
$Gui_main = GUICreate("Webbrowser by WORLD-KILLER", 1112, 704, 2, -1)
GUISetFont(8, 400, 0, "MS PMincho")
$Label1 = GUICtrlCreateLabel("Adresse: ", 16, 8, 71, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$GUI_adresszeile = GUICtrlCreateInput("http://www.", 88, 8, 737, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Microsoft Sans Serif")
$GUI_send = GUICtrlCreateButton("Go!", 840, 8, 113, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Microsoft Sans Serif")
$GUI_startseite = GUICtrlCreateButton("Home", 960, 8, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Microsoft Sans Serif")
$browser = GUICtrlCreateObj ($IE,8, 48, 1097, 633)
$MenuItem1 = GUICtrlCreateMenu("&Datei")
$GUI_menu_einstellungen = GUICtrlCreateMenuItem("Einstellungen", $MenuItem1)
$GUI_menu_beenden = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_IENavigate ($IE,"http://www.google.at")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $GUI_menu_einstellungen
MsgBox (0,"Noch nicht fertig...","Diese option gibts nicht O.o")
Case $GUI_menu_beenden
Exit
Case $GUI_send
$html = GUICtrlRead ($GUI_adresszeile)
_IENavigate ($IE , $html)
Case $GUI_startseite
_IENavigate ($IE,"http://www.google.de/")
EndSwitch
WEnd

[/autoit]

Und hier der Quellcode der bei wenigeren PC's geht (wegen der gröse):

Spoiler anzeigen

[autoit]

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

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

$IE = _IECreateEmbedded ()

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

Global $html

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

#Region ### START Koda GUI section ### Form=c:\users\sandro\desktop\gui_main.kxf
$Gui_main = GUICreate("Webbrowser by WORLD-KILLER", 1260, 701, 10, 7)
GUISetFont(8, 400, 0, "MS PMincho")
$Label1 = GUICtrlCreateLabel("Adresse: ", 16, 8, 71, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$GUI_adresszeile = GUICtrlCreateInput("http://www.", 88, 8, 737, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Microsoft Sans Serif")
$GUI_send = GUICtrlCreateButton("Go!", 840, 8, 113, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Microsoft Sans Serif")
$GUI_startseite = GUICtrlCreateButton("Home", 960, 8, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Microsoft Sans Serif")
$browser = GUICtrlCreateObj ($IE,8, 56, 1241, 617)
$MenuItem1 = GUICtrlCreateMenu("&Datei")
$GUI_menu_einstellungen = GUICtrlCreateMenuItem("Einstellungen", $MenuItem1)
$GUI_menu_beenden = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_IENavigate ($IE,"http://www.google.at")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $GUI_menu_einstellungen
MsgBox (0,"Noch nicht fertig...","Diese option gibts nicht O.o")
Case $GUI_menu_beenden
Exit
Case $GUI_send
$html = GUICtrlRead ($GUI_adresszeile)
_IENavigate ($IE , $html)
Case $GUI_startseite
_IENavigate ($IE,"http://www.google.de/")
EndSwitch
WEnd

[/autoit]

Wir versprochen.... hier der ganz neue der bei jedem PC gehen sollte:

Spoiler anzeigen

[autoit]

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

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

$IE = _IECreateEmbedded ()

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

Global $html

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

#Region ### START Koda GUI section ### Form=c:\users\sandro\desktop\gui_main.kxf
$Gui_main = GUICreate("Webbrowser by WORLD-KILLER", 679, 402, 335, 171)
GUISetFont(8, 400, 0, "MS PMincho")
$Label1 = GUICtrlCreateLabel("Adresse: ", 16, 8, 71, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$GUI_adresszeile = GUICtrlCreateInput("http://www.", 88, 8, 241, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Microsoft Sans Serif")
$GUI_send = GUICtrlCreateButton("Go!", 336, 8, 113, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Microsoft Sans Serif")
$GUI_startseite = GUICtrlCreateButton("Home", 456, 8, 105, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Microsoft Sans Serif")
$browser = GUICtrlCreateObj ($IE,8, 56, 665, 321)
$MenuItem1 = GUICtrlCreateMenu("&Datei")
$GUI_menu_einstellungen = GUICtrlCreateMenuItem("Einstellungen", $MenuItem1)
$GUI_menu_beenden = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_IENavigate ($IE,"http://www.google.at")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $GUI_menu_einstellungen
MsgBox (0,"Noch nicht fertig...","Diese option gibts nicht O.o")
Case $GUI_menu_beenden
Exit
Case $GUI_send
$html = GUICtrlRead ($GUI_adresszeile)
_IENavigate ($IE , $html)
Case $GUI_startseite
_IENavigate ($IE,"http://www.autoit.de/")
EndSwitch
WEnd

[/autoit]

Was villeicht Wichtig sein könnte:
zur Vorherigen Internet-seite kommt man
mit Backspace
und Aktualisieren/Neuladen der Seite
mit F5
und das gewöhnliche ENTER drücken für die seite geht leider nicht... man muss immer
auf Go!
drücken

Naja Lg: WORLD-KILLER

TheShadowAE

Sorry, aber, sogar das Beispiel aus der Hilfe ist länger und umfassender xD

Nischlas

Naja.. Solang er es selbst gemacht hat

dpjeezy89

die ie udf ist zu steuerung des browser selbst
warum das rad neu erfinden
wenn du sie weiterhin nutzt und nix von dir selbst dazu kommt
wird dein browser nicht besser sein als der internet explorer (der sowieso mist ist^^)
wenn es eine opera udf gebe würde ich damit doch kein opera browser machen^^

verschwende nicht deine zeit damit

WORLD-KILLER

soll das heisen ich bin etwa dumm?
autoit webbrowser is doch nioch nie hiergewesen

UND der browser ist nicht für den Allgemeinen gebrauch gedacht... es ist gedacht um sachen zu erledigen,
z.B. einzahlungen.... den google chrome speichert wirklich >>ALLE<< verleufe.... bei mozilla ist es
auch nicht gerade viel anders...

KURZ GESAGT: der einfache browser für unterwegs...

und ich habs ohne hilfe gemacht -_- da schaut ihr was.... ihr könnt bei allen foren nach gucken

HABS SELBER GEMACHT =)

so jetz is auch der ganz neue drinn der bei jedem gehen sollte....

kleine info
Browser(alt) = bei meinem Bildschirm ausfüllend(nur wenig kleiner)...
Browser (neu) = bei meinem Bildschirm komplett ausfüllend....
Browser (ganz neu) = bei meinem Bildschirm etwa ein viertel ausfüllend...

m-obi

Schonmal was von dem "Privaten Modus" beim FF gehört?

WORLD-KILLER

Schonmal was von dem "Privaten Modus" beim FF gehört?

-----> nein hab ich nicht... was ist das.... stimt was nicht???

SEuBo

Ich finds cool.
Auch wenns ein kurzes Script ist - es ist selbstgemacht, und funktioniert.

Freut euch doch, dass er nen kleinen Browser gebaut hat, und uns nicht wie andere mit nem Bot auf den P**** gegangen ist.

Nestos

Ein kleiner Tipp:
Setzt die ganzen Codeblöcke in nen Spoiler.

Schreib einfach [ spoiler ] Und um den Spoiler zu schließen [ /spoiler]

Beispiel:

Spoiler anzeigen

[autoit]

; Tada

[/autoit]

WORLD-KILLER

Danke SEuBo ! du bist der erste dem es gefällt =)

Und H2112 auch vielen dank =) ich ändere es vill. später...

denn das ist mit 100% der erste autoit Browser in diesem forum...

Ineluki

Wenn ich das richtig sehe, ist das kein AutoIt Webbrowser, sondern nur ein IE, der in einer Gui geöffnet wird, mit etwas anderem Design... Das wichtigste ist dabei eigt. nur der Lerneffekt...

**Schnitzel**

Zitat von WORLD-KILLER

denn das ist mit 100% der erste autoit Browser in diesem forum...

*g* ne das isser mit 100% nicht. da hab ich schon mindestens 5 gesehn.

aber is ja egal. du hast etwas geschaffen das funktioniert

is natürlich noch ausbaufähig ohne ende aber schonmal ne gute grundlage

WORLD-KILLER

jo ich weiss ich arbeite daran dass auch Go ! mit enter geht...

und die seite zurück/seite wiederhohlen arbeite ich auch noch....

aber ihr habt recht fürs erste nicht schlecht
fürs zweite ne gute grundlage für bessere ideen....

EIN FETTES THANKS FÜR ALLE

Der Browser gehört zu den ersten Bots fon mir und hab ihn ohne hilfe gemacht.... ich find ihn
fürs erste ganz gut....

Bakku

Webbrowser ist nicht grade das schwerste.
Aber du kannst trotzdem stolz sein, was geschafft zu haben.
Das wichtigste ist am Anfang immer die Übung.
Und das war sicher ne gute Übung für GUIs. Aber du kannst daran noch sehr viel ändern.
Du kannst ja mal versuchen Firefox oder Internet Explorer nach zu bauen. Vom aussehen und von den Funktionen.
Webbrowser oder Taschenrechner ist immer was gutes für den Anfang.

WORLD-KILLER

Ja danke!

Ich habe vor ein paar wochen Auto It kennen gerlernt (oder hald seit ich hier registriert bin) und bis vor 3 tagen konnte ich nur
MsgBoxes machen aber die Zeíten sind jetzt Vorbei....

An dem Browser finde ich gut, dass keine NERVENDEN toolbars möglich sind.... bei Mozilla ist auch die "webseite" kleiner
damit meine ich das fenster wo man die website siht... deshalb surf ich mit dem...

Und ich arbeite an einem neuem Browser.... mit deiner Idee ein taschenrechner einzubauen Ist sicherlich gebrauchbar...
VIELEN DANK

SEuBo

Kannst ja mal versuchen Tabs einzubauen.
Hatte auch mal ein Beispiel dafür gemacht *rauskram*

Spoiler anzeigen

[autoit]

#include <IE.au3>
#include <WindowsConstants.au3>

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

_IEErrorHandlerRegister()

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

Dim $aGUIArray[1][4]
Global $iSel = 0, $hDummy = GUICreate("")

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

$hGUI = GUICreate("Browser Beispiel", 800, 600)
$hURL = GUICtrlCreateInput("about:blank", 200, 540, 400)
$hNTab = GUICtrlCreateButton("Tab +", 20, 540, -1, -1)
$hRTab = GUICtrlCreateButton("Tab -", 60, 540, -1, -1)
$hABack = GUICtrlCreateButton(" <- ", 140, 540, -1, -1)
$hANext = GUICtrlCreateButton(" -> ", 165, 540, -1, -1)

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

$aGUIArray[0][0] = GUICtrlCreateButton("about:blank", 20, 570, -1, -1, 0x8000)
$aGUIArray[0][1] = GUICreate("Child GUI", 700, 510, 50, 20, 0x80000000, $WS_EX_MDICHILD, $hGUI)
$aGUIArray[0][3] = __IECreateEmbedded($aGUIArray[0][2],"www.google.de")
_Browser_SyncURLBar()

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

GUISetBkColor(0x000000, $hGUI)
GUISetBkColor(0xFF0000, $aGUIArray[0][1])
GUISetState(@SW_SHOWNOACTIVATE, $aGUIArray[0][1])
GUISetState(@SW_SHOW, $hGUI)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hNTab
_Browser_TabAdd($aGUIArray)
_Browser_SyncURLBar()
Case $hURL
$oIE = _Browser_ReturnActiveObj()
_IENavigate($oIE, GUICtrlRead($hURL))
_Browser_SyncURLBar()
Case $hRTab
_Browser_TabRemove()
Case $hABack
$oIE = _Browser_ReturnActiveObj()
_IEAction($oIE,"back")
Case $hANext
$oIE = _Browser_ReturnActiveObj()
_IEAction($oIE,"forward")
EndSwitch

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

For $i = 0 To UBound($aGUIArray) - 1
If $nMsg = $aGUIArray[$i][0] Then
If $i = $iSel Then ContinueLoop 2
_Browser_AnimateChild($iSel, 0)
_Browser_AnimateChild($i, 1)
$iSel = $i
ExitLoop
EndIf
Next

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

If ControlGetHandle("", "", ControlGetFocus("")) <> GUICtrlGetHandle($hURL) Then
_Browser_SyncURLBar()
EndIf
WEnd

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

Func __IECreateEmbedded(ByRef $_oIE, $_sURL = "about:blank")
$_oIE = _IECreateEmbedded()
$sObjCtrl = GUICtrlCreateObj($_oIE, 0, 0, 700, 510)
_IENavigate($_oIE, $_sURL)
Return $sObjCtrl
EndFunc ;==>__IECreateEmbedded

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

Func _Browser_TabAdd(ByRef $aArray)
_Browser_AnimateChild($iSel, 0)
$iUbound = UBound($aArray)
$hSwitch = GUISwitch($hGUI)
ReDim $aArray[$iUbound + 1][4]
$aCPos = ControlGetPos($hGUI, "", $aArray[$iUbound - 1][0])
$aArray[$iUbound][0] = GUICtrlCreateButton("Tab " & $iUbound + 1, $aCPos[0] + $aCPos[2] + 5, 570, -1, -1, 0x8000)
$aArray[$iUbound][1] = GUICreate("Child GUI", 700, 510, 50, 20, 0x80000000, $WS_EX_MDICHILD, $hGUI)
$aArray[$iUbound][3] = __IECreateEmbedded($aArray[$iUbound][2])
_Browser_AnimateChild($iUbound, 1)
$iSel = $iUbound
GUISwitch($hSwitch)
EndFunc ;==>_Browser_TabAdd

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

Func _Browser_TabRemove()
If UBound($aGUIArray) <= 1 Then Return
_Browser_AnimateChild($iSel, 0)
GUICtrlDelete($aGUIArray[$iSel][3])
GUIDelete($aGUIArray[$iSel][1])
GUICtrlDelete($aGUIArray[$iSel][0])
For $i = $iSel To UBound($aGUIArray) - 2
$aGUIArray[$i][0] = $aGUIArray[$i + 1][0]
$aGUIArray[$i][1] = $aGUIArray[$i + 1][1]
$aGUIArray[$i][2] = $aGUIArray[$i + 1][2]
$aGUIArray[$i][3] = $aGUIArray[$i + 1][3]
Next
ReDim $aGUIArray[UBound($aGUIArray) - 1][4]
If $iSel > 0 Then
$iSel -= 1
EndIf
ConsoleWrite($iSel & @CRLF)
_Browser_TabRepairSize()
_Browser_AnimateChild($iSel, 1)
EndFunc ;==>_Browser_TabRemove

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

Func _Browser_ReturnActiveObj()
Return $aGUIArray[$iSel][2]
EndFunc ;==>_Browser_ReturnActiveObj

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

Func _Browser_AnimateChild($iIndex, $iFlag)
Switch $iFlag
Case 0
For $i = 255 To 0 Step -10
WinSetTrans($aGUIArray[$iIndex][1], "", $i)
Next
WinSetState($aGUIArray[$iIndex][1], "", @SW_HIDE)
Case 1
WinSetTrans($aGUIArray[$iIndex][1], "", 0)
WinSetState($aGUIArray[$iIndex][1], "", @SW_SHOWNOACTIVATE)
For $i = 0 To 255 Step 10
WinSetTrans($aGUIArray[$iIndex][1], "", $i)
Next
WinActivate($hGUI)
EndSwitch
EndFunc ;==>_Browser_AnimateChild

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

Func _Browser_SyncURLBar()
$oIE = _Browser_ReturnActiveObj()
$sUrl = _IEPropertyGet($oIE, "locationurl")
$sName = _IEPropertyGet($oIE, "locationname")
If $sUrl <> GUICtrlRead($hURL) Or ($sName <> GUICtrlRead($aGUIArray[$iSel][0]) AND StringLeft($sName, 15) & "..." <> GUICtrlRead($aGUIArray[$iSel][0])) Then
GUICtrlSetData($hURL, $sUrl)
$sText = $sName
If StringLen($sText) > 15 Then $sText = StringLeft($sText, 15) & "..."
GUICtrlSetData($aGUIArray[$iSel][0], $sText)
_Browser_TabRepairSize()
WinSetTitle($hGUI, "", $sName)
EndIf
EndFunc ;==>_Browser_SyncURLBar

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

Func _Browser_TabRepairSize()
$hSwitch = GUISwitch($hDummy)
For $i = 0 To UBound($aGUIArray) - 1
$aCPos = ControlGetPos($hGUI, "", $aGUIArray[$i][0])
$hLableDummy = GUICtrlCreateButton(GUICtrlRead($aGUIArray[$i][0]), 0, 0, -1, -1)
$aCLPos = ControlGetPos($hDummy, "", $hLableDummy)
$aCPos[2] = $aCLPos[2]
ControlMove($hGUI, "", $aGUIArray[$i][0], $aCPos[0], $aCPos[1], $aCPos[2])
If $i = 0 Then ControlMove($hGUI, "", $aGUIArray[$i][0], 20, 570, $aCPos[2])
For $j = $i + 1 To UBound($aGUIArray) - 1
$aCTPos = ControlGetPos($hGUI, "", $aGUIArray[$j][0])
ControlMove($hGUI, "", $aGUIArray[$j][0], ($aCPos[0] + $aCPos[2] + 5), $aCTPos[1])
Next
Next
GUISwitch($hSwitch)
EndFunc ;==>_Browser_TabRepairSize

[/autoit]

Obwohl ich glaube dass du mein Script wohl (noch) nicht verstehen wirst. Dafür ist einfach zu wenig AutoIt Erfahrung da.

Deswegen: Versuch mal bei dir Tabs einzubauen, wenn du lust hast. Ich denke das wäre eine gute Herausforderung, an der du wachsen könntest.

Marthog

Bei der Addressleiste wäre Enter noch ganz nützlich, um die nächte Seite zu öffnen.
Ein größernveränderbares Fenster wäre ganz nützlich
Du könntest noch ein gutes Lesezeichensystem einbauen.

clezZ

Hm... So etwas gibt es mehrfach auf Youtube, guckst du:

http://www.youtube.com/watch?v=KDeglEN0DaY&feature=related

Ich will dir aber nichts unterstellen

Bakku

Zitat

Und ich arbeite an einem neuem Browser.... mit deiner Idee ein taschenrechner einzubauen Ist sicherlich gebrauchbar...

Ähm das hab ich gar nicht gesagt. Ich habe gesagt, dass Taschenrechner und Browser gute Anfangsübungen sind.
Wenn du die beiden Sachen zusammen machen willst, dann meinetwegen.

So jetzt habe ich eine Frage. Wie schafft man es, dass dort Zitat von "World-Killer" steht. Ich bekomme das nicht hin???

nuts

Zitat von WORLD-KILLER

VIELEN DANK

Bakku: So