Hallo!
Hi leute ich habe mit Autoit einen Webbrowser erstellt =)
Hier der Quellcode der bei Fast allen Pc's geht:
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$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 ###
_IENavigate ($IE,"http://www.google.at")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
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
Und hier der Quellcode der bei wenigeren PC's geht (wegen der gröse):
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$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 ###
_IENavigate ($IE,"http://www.google.at")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
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
Wir versprochen.... hier der ganz neue der bei jedem PC gehen sollte:
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$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 ###
_IENavigate ($IE,"http://www.google.at")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
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
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