Schon wieder ich :D

  • Also Ich habe einen Broswe geschrieben und möchte jetzt EIn Fenster für Die einstllugne machen!

    Bis hier hin alles ok!

    So jetzt wen Ich bei dem Fenster mit den Einstellungen X Drücke Schließen beide Fenster!

    Dann dachte ich Ich hööte das Problem Gelöst indem ich @Sw_hide benutze um das Zweite Fenster zu Schlisen .Auch alles okay....Jetzt wen Ich aber Dann den Browser an sich Schliesen will mit dem X dann macht er gar nix :(

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    #include <GuiEdit.au3>
    #include <misc.au3>
    #include <File.au3>
    $Speicher = DirCreate( "C:\Lesezeichen")
    $IE = _IECreateEmbedded()

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

    #Region ### START Koda GUI section ### Form=
    ;Form
    $Form1 = GUICreate(">>>¤....Digga's....Webbrowser....¤<<<", 1215, 681, 202, 126)
    $Farbe = GUISetBkColor(0x3399FF)
    $Adresse = GUICtrlCreateInput("", 104, 32, 825, 32)
    $Schrift1 = GUICtrlSetFont(-1, 16, 400, 0, "Arial")
    $Label1 = GUICtrlCreateLabel("Adresse:", 8, 32, 95, 28)
    $Schrift2 = GUICtrlSetFont(-1, 16, 800, 0, "Arial")
    $Button1 = GUICtrlCreateButton("Go!!", 952, 32, 129, 33, $WS_GROUP)
    $Browser_Feld = GUICtrlCreateObj($IE, 8, 72, 1193, 577)
    $Browser = GUISetState(@SW_SHOW)
    ;Datei
    $Menu_Datei = GUICtrlCreateMenu("Datei")
    $Menu_Datei_Beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
    $Menu_Datei_Einstellung = GUICtrlCreateMenuItem("Einstellungen", $Menu_Datei)
    ;Bearbeiten
    $Menu_Bearbeiten = GUICtrlCreateMenu("Bearbeiten")
    $Menu_Bearbeiten_Ausschneiden = GUICtrlCreateMenuItem("Ausschneiden", $Menu_Bearbeiten)
    $Menu_Bearbeiten_Kopieren = GUICtrlCreateMenuItem("Kopieren", $Menu_Bearbeiten)
    $Menu_Bearbeiten_Einfugen = GUICtrlCreateMenuItem("Einfügen", $Menu_Bearbeiten)
    $Menu_Bearbeiten_Loschen = GUICtrlCreateMenuItem("Löschen", $Menu_Bearbeiten)
    $Menu_Bearbeiten_AllesMarkieren = GUICtrlCreateMenuItem("Alles Markieren", $Menu_Bearbeiten)
    $Menu_Bearbeiten_Ruckgangig = GUICtrlCreateMenuItem("Rückgängig", $Menu_Bearbeiten)
    ;Lesezeichen
    $Menu_Lesezeichen = GUICtrlCreateMenu( "Lesezeichen")
    $Menu_Lesezeichen_Hinzufugen = GUICtrlCreateMenuItem( "Lesezeichen hinzufügen" ,$Menu_Lesezeichen)
    ;Einstellungen
    $Form1 = GUICreate("Einstellungen", 416, 218, 462, 279)
    $Farbe1 = GUISetBkColor(0x3399FF)
    $Group1 = GUICtrlCreateGroup("Startseite", 8, 8, 401, 201)
    $Schrift3 = GUICtrlSetFont(-1, 12, 800, 0, "Arial")
    $Button1 = GUICtrlCreateButton("Aktuelle Seite", 16, 160, 185, 33, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Standard", 216, 160, 185, 33, $WS_GROUP)
    $Input1 = GUICtrlCreateInput("", 16, 120, 385, 23)
    $Schrift4 = GUICtrlSetFont(-1, 9, 800, 0, "Arial")
    $Group2 = GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Browser_Einstellungen = GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

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

    _IENavigate($IE, "www.Google.de")
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    If $GUI_EVENT_CLOSE Then
    $Browser_Einstellungen = GUISetState(@SW_HIDE)
    EndIf

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

    Case $Menu_Datei_Beenden
    Exit
    Case $Button1
    $Html = GUICtrlRead($Adresse)
    _IENavigate($IE, $Html)
    Case $Menu_Bearbeiten_Ausschneiden
    Send ("^x")
    if @error Then
    MsgBox (64, "ERROR", "Bitte Bereich Markieren der ausgeschnitten werden soll.")
    EndIf
    Case $Menu_Bearbeiten_Einfugen
    Send ("^v")
    Case $Menu_Bearbeiten_Kopieren
    send ("^c")
    if @error Then
    MsgBox (64, "ERROR", "Bitte Bereich Markieren der Kopiert werden soll")
    EndIf
    Case $Menu_Bearbeiten_Loschen
    Send ("{DELETE}")
    if @error Then
    MsgBox (64, "ERROR", "Bitte Bereich Markieren der Kopiert werden soll")
    EndIf
    Case $Menu_Bearbeiten_AllesMarkieren
    _GUICtrlEdit_SetSel ($Adresse,0,-1)
    Case $Menu_Lesezeichen_Hinzufugen
    MsgBox(0 ,"Error" , "Noch in Bearbeitung")
    Case $Menu_Datei_Einstellung
    $Browser_Einstellungen = GUISetState(@SW_SHOW)

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

    EndSwitch
    WEnd

    [/autoit]

    Das Zeug mit den Lesezeichen einfach ignorien :pinch:

  • Habs mal überarbeitet:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    #include <GuiEdit.au3>
    #include <misc.au3>
    #include <File.au3>
    $Speicher = DirCreate( "C:\Lesezeichen")
    $IE = _IECreateEmbedded()

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

    #Region ### START Koda GUI section ### Form=
    ;Form
    $Form1 = GUICreate(">>>¤....Digga's....Webbrowser....¤<<<", 1215, 681, 202, 126)
    $Farbe = GUISetBkColor(0x3399FF)
    $Adresse = GUICtrlCreateInput("", 104, 32, 825, 32)
    $Schrift1 = GUICtrlSetFont(-1, 16, 400, 0, "Arial")
    $Label1 = GUICtrlCreateLabel("Adresse:", 8, 32, 95, 28)
    $Schrift2 = GUICtrlSetFont(-1, 16, 800, 0, "Arial")
    $Button1 = GUICtrlCreateButton("Go!!", 952, 32, 129, 33, $WS_GROUP)
    $Browser_Feld = GUICtrlCreateObj($IE, 8, 72, 1193, 577)
    $Browser = GUISetState(@SW_SHOW)
    ;Datei
    $Menu_Datei = GUICtrlCreateMenu("Datei")
    $Menu_Datei_Beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
    $Menu_Datei_Einstellung = GUICtrlCreateMenuItem("Einstellungen", $Menu_Datei)
    ;Bearbeiten
    $Menu_Bearbeiten = GUICtrlCreateMenu("Bearbeiten")
    $Menu_Bearbeiten_Ausschneiden = GUICtrlCreateMenuItem("Ausschneiden", $Menu_Bearbeiten)
    $Menu_Bearbeiten_Kopieren = GUICtrlCreateMenuItem("Kopieren", $Menu_Bearbeiten)
    $Menu_Bearbeiten_Einfugen = GUICtrlCreateMenuItem("Einfügen", $Menu_Bearbeiten)
    $Menu_Bearbeiten_Loschen = GUICtrlCreateMenuItem("Löschen", $Menu_Bearbeiten)
    $Menu_Bearbeiten_AllesMarkieren = GUICtrlCreateMenuItem("Alles Markieren", $Menu_Bearbeiten)
    $Menu_Bearbeiten_Ruckgangig = GUICtrlCreateMenuItem("Rückgängig", $Menu_Bearbeiten)
    ;Lesezeichen
    $Menu_Lesezeichen = GUICtrlCreateMenu( "Lesezeichen")
    $Menu_Lesezeichen_Hinzufugen = GUICtrlCreateMenuItem( "Lesezeichen hinzufügen" ,$Menu_Lesezeichen)

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

    #EndRegion ### END Koda GUI section ###

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

    _IENavigate($IE, "www.Google.de")
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Menu_Datei_Beenden
    Exit
    Case $Button1
    $Html = GUICtrlRead($Adresse)
    _IENavigate($IE, $Html)
    Case $Menu_Bearbeiten_Ausschneiden
    Send ("^x")
    if @error Then
    MsgBox (64, "ERROR", "Bitte Bereich Markieren der ausgeschnitten werden soll.")
    EndIf
    Case $Menu_Bearbeiten_Einfugen
    Send ("^v")
    Case $Menu_Bearbeiten_Kopieren
    send ("^c")
    if @error Then
    MsgBox (64, "ERROR", "Bitte Bereich Markieren der Kopiert werden soll")
    EndIf
    Case $Menu_Bearbeiten_Loschen
    Send ("{DELETE}")
    if @error Then
    MsgBox (64, "ERROR", "Bitte Bereich Markieren der Kopiert werden soll")
    EndIf
    Case $Menu_Bearbeiten_AllesMarkieren
    _GUICtrlEdit_SetSel ($Adresse,0,-1)
    Case $Menu_Lesezeichen_Hinzufugen
    MsgBox(0 ,"Error" , "Noch in Bearbeitung")
    Case $Menu_Datei_Einstellung
    einstellungen()

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

    EndSwitch
    WEnd

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

    Func einstellungen()
    ;Einstellungen
    $Form1 = GUICreate("Einstellungen", 416, 218, 462, 279)
    $Farbe1 = GUISetBkColor(0x3399FF)
    $Group1 = GUICtrlCreateGroup("Startseite", 8, 8, 401, 201)
    $Schrift3 = GUICtrlSetFont(-1, 12, 800, 0, "Arial")
    $Button1 = GUICtrlCreateButton("Aktuelle Seite", 16, 160, 185, 33, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Standard", 216, 160, 185, 33, $WS_GROUP)
    $Input1 = GUICtrlCreateInput("", 16, 120, 385, 23)
    $Schrift4 = GUICtrlSetFont(-1, 9, 800, 0, "Arial")
    $Group2 = GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Browser_Einstellungen = GUISetState(@SW_SHOW)
    While 1
    $Msg = GUIGetMsg()
    Switch $Msg
    Case $GUI_EVENT_CLOSE
    $Browser_Einstellungen = GUIDelete($Form1)
    EndSwitch
    WEnd
    EndFunc

    [/autoit]
    Spoiler anzeigen

    Grundkenntnisse in: C++, JavaScript
    Sehr gute Kenntnisse: PHP, JAVA, C und näturlich AutoIt


    Klaviatur, Anhang UDF, GDI+ Mühle

    Zitat

    "Wenn einen um 20h der Pizzadienst anruft und fragt, ob man's nur vergessen hat und ob man das gleiche
    möchte wie immer -- dann sollte man sein Bestellverhalten evtl überdenken"

    • Offizieller Beitrag
    Spoiler anzeigen
    [autoit]

    #include <IE.au3>
    #include <GuiEdit.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    $Speicher = DirCreate("C:\Lesezeichen")
    $IE = _IECreateEmbedded()

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

    #region ### START Koda GUI section ### Form=
    ;Form
    $Form1 = GUICreate(">>>¤....Digga's....Webbrowser....¤<<<", 1215, 681, 202, 126)
    $Farbe = GUISetBkColor(0x3399FF)
    $Adresse = GUICtrlCreateInput("", 104, 32, 825, 32)
    $Schrift1 = GUICtrlSetFont(-1, 16, 400, 0, "Arial")
    $Label1 = GUICtrlCreateLabel("Adresse:", 8, 32, 95, 28)
    $Schrift2 = GUICtrlSetFont(-1, 16, 800, 0, "Arial")
    $Button1 = GUICtrlCreateButton("Go!!", 952, 32, 129, 33, $WS_GROUP)
    $Browser_Feld = GUICtrlCreateObj($IE, 8, 72, 1193, 577)
    $Browser = GUISetState(@SW_SHOW)
    ;Datei
    $Menu_Datei = GUICtrlCreateMenu("Datei")
    $Menu_Datei_Beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
    $Menu_Datei_Einstellung = GUICtrlCreateMenuItem("Einstellungen", $Menu_Datei)
    ;Bearbeiten
    $Menu_Bearbeiten = GUICtrlCreateMenu("Bearbeiten")
    $Menu_Bearbeiten_Ausschneiden = GUICtrlCreateMenuItem("Ausschneiden", $Menu_Bearbeiten)
    $Menu_Bearbeiten_Kopieren = GUICtrlCreateMenuItem("Kopieren", $Menu_Bearbeiten)
    $Menu_Bearbeiten_Einfugen = GUICtrlCreateMenuItem("Einfügen", $Menu_Bearbeiten)
    $Menu_Bearbeiten_Loschen = GUICtrlCreateMenuItem("Löschen", $Menu_Bearbeiten)
    $Menu_Bearbeiten_AllesMarkieren = GUICtrlCreateMenuItem("Alles Markieren", $Menu_Bearbeiten)
    $Menu_Bearbeiten_Ruckgangig = GUICtrlCreateMenuItem("Rückgängig", $Menu_Bearbeiten)
    ;Lesezeichen
    $Menu_Lesezeichen = GUICtrlCreateMenu("Lesezeichen")
    $Menu_Lesezeichen_Hinzufugen = GUICtrlCreateMenuItem("Lesezeichen hinzufügen", $Menu_Lesezeichen)

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

    ;Einstellungen GUI
    $Browser_Einstellungen = GUICreate("Einstellungen", 416, 218, 462, 279)
    $Farbe1 = GUISetBkColor(0x3399FF)
    $Group1 = GUICtrlCreateGroup("Startseite", 8, 8, 401, 201)
    $Schrift3 = GUICtrlSetFont(-1, 12, 800, 0, "Arial")
    $Button1 = GUICtrlCreateButton("Aktuelle Seite", 16, 160, 185, 33, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Standard", 216, 160, 185, 33, $WS_GROUP)
    $Input1 = GUICtrlCreateInput("", 16, 120, 385, 23)
    $Schrift4 = GUICtrlSetFont(-1, 9, 800, 0, "Arial")
    $Group2 = GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_HIDE)
    #endregion ### END Koda GUI section ###

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

    _IENavigate($IE, "www.Google.de")
    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[1]
    Case $Form1
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Menu_Datei_Beenden
    Exit
    Case $Button1
    $Html = GUICtrlRead($Adresse)
    _IENavigate($IE, $Html)
    Case $Menu_Bearbeiten_Ausschneiden
    Send("^x")
    If @error Then
    MsgBox(64, "ERROR", "Bitte Bereich Markieren der ausgeschnitten werden soll.")
    EndIf
    Case $Menu_Bearbeiten_Einfugen
    Send("^v")
    Case $Menu_Bearbeiten_Kopieren
    Send("^c")
    If @error Then
    MsgBox(64, "ERROR", "Bitte Bereich Markieren der Kopiert werden soll")
    EndIf
    Case $Menu_Bearbeiten_Loschen
    Send("{DELETE}")
    If @error Then
    MsgBox(64, "ERROR", "Bitte Bereich Markieren der Kopiert werden soll")
    EndIf
    Case $Menu_Bearbeiten_AllesMarkieren
    _GUICtrlEdit_SetSel($Adresse, 0, -1)
    Case $Menu_Lesezeichen_Hinzufugen
    MsgBox(0, "Error", "Noch in Bearbeitung")
    Case $Menu_Datei_Einstellung
    GUISetState(@SW_SHOW, $Browser_Einstellungen)
    EndSwitch
    Case $Browser_Einstellungen
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $Browser_Einstellungen)
    EndSwitch
    EndSwitch
    WEnd

    [/autoit]