So nochmal hallo @all,
ich habe heute mein erstes skript gemacht unzwar einen internet browser. er ist noch schlecht aber ich will ihn noch verbessern.ja also jetzt zum skript:
Spoiler anzeigen
#include <ButtonConstants.au3>#include <EditConstants.au3>#include <GUIConstantsEx.au3>#include <StaticConstants.au3>#include <WindowsConstants.au3>#include <IE.au3>
$IE = _IECreateEmbedded()
Global $html, $old
$Breite = @DesktopWidth$Hoehe = @DesktopHeight
$Form1 = GUICreate("Browser von Meyermeyer11", $Breite, $Hoehe, 0, 0)$Menu_Datei = GUICtrlCreateMenu("&Datei")$Menu_Einstellungen = GUICtrlCreateMenuItem("Einstellungen", $Menu_Datei)$Menu_beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)$gui_url = GUICtrlCreateInput("", 72, 8, 801, 21)$Label1 = GUICtrlCreateLabel("Adresse:", 8, 8, 67, 24)GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")$GUI_go = GUICtrlCreateButton("Go!", 880, 8, 65, 25, $WS_GROUP)$GUI_home = GUICtrlCreateButton("HOME", 952, 8, 89, 25, $WS_GROUP)$browser = GUICtrlCreateObj($IE,8, 40, $Breite -30 , $Hoehe)GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###
_IENavigate($IE,"www.google.de")
While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Menu_beenden Exit Case $GUI_go $html = GUICtrlRead($gui_url) _IENavigate($IE,$html) Case Else $current = _IEPropertyGet($IE, "locationurl") If $current<>$old Then GUICtrlSetData($gui_url, $current) $old = $current EndIf EndSwitchWEnd
[/autoit]
so das wars auch von mir
grüße aus ostfriesland
meyermeyer11