2. Wie kann ich die Farbe meines guis mit einem 2 gui im script (Einstellungen) ändern.
3.ich habe eine startseite eingestellt möchte sie aber per 2 gui im script ändern und beim nächsten start wieder meine geänderte (also neue )startseite haben)
Hier Hauptskript:
PHP Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=Beta
#AutoIt3Wrapper_icon=browsers-flock.ico
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.0
Author:
Script Function:
GSGB Browser
#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Array.au3>
#include <file.au3>
$IE = _IECreateEmbedded ()
Global $html, $old
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("GSGB ---- Internet Expolra", 1681, 1001, -8, -8)
$MenuItem1 = GUICtrlCreateMenu("Hauptmenu")
$MenuItem2 = GUICtrlCreateMenuItem("Einstellungen", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenu("Infos")
$MenuItem6 = GUICtrlCreateMenuItem("Version", $MenuItem4)
$MenuItem7 = GUICtrlCreateMenuItem("Hersteller", $MenuItem4)
$MenuItem5 = GUICtrlCreateMenu("Hilfe")
$MenuItem8 = GUICtrlCreateMenuItem("Hilfe", $MenuItem5)
GUISetFont(8, 800, 2, "Segoe Print")
GUISetBkColor(0xB9D1EA)
$Label1 = GUICtrlCreateLabel("GSGB Internet Browser", 16, 8, 424, 57)
GUICtrlSetFont(-1, 24, 800, 6, "Segoe Script")
GUICtrlSetColor(-1, 0x00FF00)
$adresse = GUICtrlCreateInput($IE, 552, 72, 577, 25)
$Label2 = GUICtrlCreateLabel("Adresse:", 448, 64, 99, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Wikipedia", 582, 24, 145, 33, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 2, "Segoe Print")
$Button2 = GUICtrlCreateButton("Google", 742, 24, 145, 33, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 2, "Segoe Print")
$Button3 = GUICtrlCreateButton("GSGB Website", 902, 24, 145, 33, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 2, "Segoe Print")
$Button4 = GUICtrlCreateButton("Youtube", 1062, 24, 145, 33, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 2, "Segoe Print")
$Button5 = GUICtrlCreateButton("Go!", 1134, 64, 73, 33, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 2, "Segoe Print")
$Button6 = GUICtrlCreateButton("Regeln", 420, 24, 145, 33, $WS_GROUP)
GUICtrlSetFont(-1, 14, 800, 2, "Segoe Print")
$browser = GUICtrlCreateObj ($IE,8, 104, 1665, 873)
$Pic2 = GUICtrlCreatePic("C:\Users\\Desktop\1.jpg", 1232, 8, 409, 89, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button7 = GUICtrlCreateButton("<<<<<<<<Zurück", 16, 72, 193, 25, $WS_GROUP)
$Button8 = GUICtrlCreateButton("Vor>>>>>>>>>", 232, 72, 193, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
Dim $Form1_AccelTable[6][2] = [["{F2}", $MenuItem6],["{F12}", $MenuItem3],["^i", $MenuItem4],["^h", $MenuItem5],["{F1}", $MenuItem8],["{ENTER}", $Button5]]
GUISetAccelerators($Form1_AccelTable)
#EndRegion ### END Koda GUI section ###
_IENavigate($IE,"www.gsgb.de")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem3
Exit
Case $MenuItem2
_Func ()
Case $MenuItem6
MsgBox(0,"Version 1.0","Version:" & @CR & "1.0 (Beta)" & @CR & "" & @CR & "Hokeys:" & @CR &"F1 = Hilfe" & @CR & "F12 = Beenden" & @CR & "F2 = Version",30)
Case $MenuItem7
MsgBox(0,"Info","Dieser Browserwurde von:" & @CR & " erstellt.",10)
Case $MenuItem8
MsgBox(0,"Hilfe","Wenn sie Hilfe brauchen wenden sie sich beitte an den Hersteller" & @CR & "Hokeys:" & @CR & "F12 = Beenden" & @CR & "F2 = Version",30)
Case $Button1
_IENavigate($IE,"www.wikipedia.de")
Case $Button2
_IENavigate($IE,"www.google.de")
Case $Button3
_IENavigate($IE,"www.gsgb.de")
Case $Button4
_IENavigate($IE,"www.youtube.de")
Case $Button6
MsgBox(0,"Regeln","Diese sind die Regeln für den GSGB WEBBORWSER:" & @CR & "Keine Spiele!" & @CR & "Keine Videos die nicht für die Schule sind Anschauen!" & @CR & "Keine anderen Websites aufrufen die nicht für die Schule sind!",30)
Case $Button7
_IEAction($IE,"Back")
Case $Button8
_IEAction($IE,"forward")
Case $Button5
$AD = GUICtrlRead($adresse)
_IENavigate($IE,$AD)
IniWrite("Verlauf","Verlauf:",$AD,"")
$html = GUICtrlRead($adresse)
_IENavigate($IE,$html)
Case Else
$current = _IEPropertyGet($IE, "locationurl")
If $current<>$old Then
GUICtrlSetData($adresse, $current)
$old = $current
EndIf
EndSwitch
WEnd
Func _Func ()
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Einstellungen", 298, 130, 225, 262)
$MenuItem1_1 = GUICtrlCreateMenu("Seiten")
$MenuItem2_2 = GUICtrlCreateMenuItem("Seite 1", $MenuItem1)
$MenuItem3_3 = GUICtrlCreateMenuItem("Seite 2", $MenuItem1)
GUISetFont(10, 400, 0, "MS Sans Serif")
GUISetBkColor(0x99B4D1)
$Button1_1 = GUICtrlCreateButton("Boost Modus On", 16, 8, 129, 41, $WS_GROUP)
$Button2_2 = GUICtrlCreateButton("Boost Modus Off", 152, 8, 129, 41, $WS_GROUP)
$Button5_5 = GUICtrlCreateButton("Verlauf löschen", 16, 56, 129, 41, $WS_GROUP)
$Button6_6 = GUICtrlCreateButton("Update suchen", 152, 56, 129, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit("Einstellungen")
EndSwitch
WEnd
EndFunc
Ich bedanke mich für jedliche Hilfe