Fehlermeldung aber wo????

Mrx007

Hallo Leute habe ein Problem
AutoIT zeigt mir den Fehler an:

C:\...\...\...\...\AutoIt3\Include\WinAPIError.au3 (29) : ==> "Func" statement has no matching "EndFunc".:
Func _WinAPI_GetLastError($curErr=@error, $curExt=@extended)

So aber in Zeile 29 Steht:
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

Hier ist ein Teil meines Scripts:

Spoiler anzeigen

[autoit]

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Pasword Abfrage", 258, 87, 192, 124)
$Input1 = GUICtrlCreateInput("", 128, 40, 121, 21,$ES_PASSWORD)
$Label1 = GUICtrlCreateLabel("Password Abfrage", 8, 0, 131, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Bitte Password eingeben:", 0, 40, 124, 17)
$Weiter = GUICtrlCreateButton("Weiter >", 8, 56, 75, 25, 0)
$Label3 = GUICtrlCreateLabel("Made by Mrx", 144, 16, 76, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Weiter
If GUICtrlRead($Input1) = "xxxx" Then
ToolTip("Richtig^^")
Main()
Else
TrayTip("Fehler","Sie haben das Fasche Password eingegeben!",6)
EndIf
EndSwitch
WEnd

[/autoit]

**Schnitzel**

was haste denn in main() stehen?

Mrx007

Ein anders GUI.
Das ist aber etwas länger

yxyx

kommt der fehler ohne Main() auch?

Mrx007

Jup wenn ich ein ";" davor machen und starte kommt immernoch der Fehler

TheShadowAE

Sieht so aus als würde der Font nicht gefunden werden => bei sowas wird der Font ohne Leerzeichen geschrieben

yxyx

also so wie du das hier gepostet hast funzt das bei mir ohne error

TheShadowAE

Dann könnte es sein das bei Main() das EndFunc fehlt

**Schnitzel**

mal abgesehn von main funktioniert es bei mir auch ohne fehler.

das problem liegt also wo anderes. und wie der debugger schon sagt. irgendwo fehlt vermutlich n endfunc

Mrx007

Nein das aknn auch nicht sein.

So geht der:

Spoiler anzeigen

[autoit]

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Pasword Abfrage", 258, 87, 192, 124)
$Input1 = GUICtrlCreateInput("", 128, 40, 121, 21,$ES_PASSWORD)
$Label1 = GUICtrlCreateLabel("Password Abfrage", 8, 0, 131, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Bitte Password eingeben:", 0, 40, 124, 17)
$Weiter = GUICtrlCreateButton("Weiter >", 8, 56, 75, 25, 0)
$Label3 = GUICtrlCreateLabel("Made by Mrx", 144, 16, 76, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Weiter
If GUICtrlRead($Input1) = 23081994 Then
ToolTip("Geht")
Run("")
Else
TrayTip("Fehler","Sie haben das Fasche Password eingegeben!",6)
EndIf
EndSwitch
WEnd

[/autoit]

Es liegt doch an der Main
ABER ich habe dort nur eine Func drin und das ist die Main selber.

**Schnitzel**

und das hauptscript ohne diesem teil funktioniert auch?

poste doch einfach mal alles

Mrx007

OK

Spoiler anzeigen

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

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Pasword Abfrage", 258, 87, 192, 124)
$Input1 = GUICtrlCreateInput("", 128, 40, 121, 21,$ES_PASSWORD)
$Label1 = GUICtrlCreateLabel("Password Abfrage", 8, 0, 131, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Bitte Password eingeben:", 0, 40, 124, 17)
$Weiter = GUICtrlCreateButton("Weiter >", 8, 56, 75, 25, 0)
$Label3 = GUICtrlCreateLabel("Made by Mrx", 144, 16, 76, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Weiter
If GUICtrlRead($Input1) = "23081994" Then
ToolTip("Geht")
Main()
Else
TrayTip("Fehler","Sie haben das Fasche Password eingegeben!",6)
EndIf
EndSwitch
WEnd

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

Func Oeffnen()
Opt("WinTitleMatchMode",2)
$Open = WinActivate("Editor")
If $Open = 0 Then
$Msg = MsgBox(32+3+262144,"Fehler #001","Der Editor konnte nciht gefunden werden."&@CRLF&"Soll der Editor geöffnet werden?")
If $Msg = 6 Then
Run("NOTEPAD.exe")
EndIf
If $Msg = 7 Then
Exit
EndIf
EndIf
Sleep(1000)
EndFunc

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

Func Main()
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiComboBox.au3>

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

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Michael Stiels\Desktop\AutoIT\KodaDesingner\Forms\HTML Helfer.kxf
$Form1 = GUICreate("HTML Helfer", 617, 447, 192, 124)
$Group1 = GUICtrlCreateGroup("Schriftarten", 8, 112, 257, 113)
$Fett = GUICtrlCreateButton("Fett", 16, 128, 75, 25, 0)
$Kursiv = GUICtrlCreateButton("Kursiv", 96, 128, 75, 25, 0)
$Unterstrichen = GUICtrlCreateButton("Unterstrichen", 16, 160, 75, 25, 0)
$Durchstreichen = GUICtrlCreateButton("Durchstrichen", 96, 160, 75, 25, 0)
$Hoch = GUICtrlCreateButton("Hochgestellt", 16, 192, 75, 25, 0)
$Tief = GUICtrlCreateButton("Tiefgestellte", 96, 192, 75, 25, 0)
$Blinken = GUICtrlCreateButton("Blinken", 176, 160, 75, 25, 0)
$Link = GUICtrlCreateButton("Link", 176, 128, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group2 = GUICtrlCreateGroup("Schriftgröße", 224, 232, 97, 113)
$Button7 = GUICtrlCreateButton("Schriftgröße", 232, 248, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Big", 232, 280, 75, 25, 0)
$Button38 = GUICtrlCreateButton("Small", 232, 312, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group3 = GUICtrlCreateGroup("Faben in HTML ", 16, 248, 193, 81)
$HintergrundFarbe = GUICtrlCreateButton("Hintergrund", 24, 264, 75, 25, 0)
$FarbeSchrift = GUICtrlCreateButton("Farbe Schrift", 24, 296, 75, 25, 0)
Global $aColors[3][2] = [['Rot', '0xFF0000'], ['Grün', '0x00FF00'],['Blau', '0x0000FF']]
$Combo3 = GUICtrlCreateCombo($aColors[0][0], 104, 296, 97, 25,$CBS_DROPDOWNLIST)
For $i = 0 To UBound($aColors) - 1
GUICtrlSetData($Combo3, $aColors[$i][0])
Next
;~ GUICtrlSetData($Combo3,"Schwarz|Grün|Rot","item3")
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group4 = GUICtrlCreateGroup("Farben", 360, 224, 249, 209)
$Schwarz = GUICtrlCreateButton("Schwarz", 368, 240, 75, 25, 0)
$RotBraun = GUICtrlCreateButton("Rotbraun", 448, 240, 75, 25, 0)
$Gruen = GUICtrlCreateButton("Grün", 528, 240, 75, 25, 0)
$Olive = GUICtrlCreateButton("Olive", 368, 272, 75, 25, 0)
$Marnineblau = GUICtrlCreateButton("Marnineblau", 448, 272, 75, 25, 0)
$Lila = GUICtrlCreateButton("Lila", 528, 272, 75, 25, 0)
$Smaragdgruen = GUICtrlCreateButton("Smaragdgrün", 368, 304, 75, 25, 0)
$Grau = GUICtrlCreateButton("Grau", 448, 304, 75, 25, 0)
$Silber = GUICtrlCreateButton("Silber", 528, 304, 75, 25, 0)
$Rot = GUICtrlCreateButton("Rot", 368, 336, 75, 25, 0)
$Hellgruen = GUICtrlCreateButton("Hellgrün", 448, 336, 75, 25, 0)
$Gelb = GUICtrlCreateButton("Gelb", 528, 336, 75, 25, 0)
$Blau = GUICtrlCreateButton("Blau", 368, 368, 75, 25, 0)
$Pink = GUICtrlCreateButton("Pink", 448, 368, 75, 25, 0)
$Aqua = GUICtrlCreateButton("Aqua", 528, 368, 75, 25, 0)
$Weiss = GUICtrlCreateButton("Weiß", 448, 400, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group5 = GUICtrlCreateGroup("Allgemein", 8, 352, 169, 81)
$Button29 = GUICtrlCreateButton("Anfang", 16, 368, 75, 25, 0)
$Button30 = GUICtrlCreateButton("Kopfbereich", 96, 368, 75, 25, 0)
$Button31 = GUICtrlCreateButton("Mittelteil", 16, 400, 75, 25, 0)
$Button32 = GUICtrlCreateButton("Titel", 96, 400, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group6 = GUICtrlCreateGroup("Satzaufbau", 184, 352, 169, 81)
$Button33 = GUICtrlCreateButton("Bündig", 192, 368, 75, 25, 0)
$Combo1 = GUICtrlCreateCombo("Combo1", 272, 368, 73, 25)
$Button34 = GUICtrlCreateButton("Zitat", 192, 400, 75, 25, 0)
$Button35 = GUICtrlCreateButton("Umbruch", 272, 400, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group7 = GUICtrlCreateGroup("Verschiedenes", 280, 120, 329, 97)
$Button37 = GUICtrlCreateButton("Eingabe Feld", 288, 136, 75, 25, 0)
$Combo2 = GUICtrlCreateCombo("Imput", 376, 136, 209, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Input1 = GUICtrlCreateInput("", 328, 80, 257, 21)
$Label1 = GUICtrlCreateLabel("Text der geschrieben werden soll:", 128, 80, 196, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("HTML Helfer", 248, 8, 105, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Made by Mrx", 264, 32, 80, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Fett
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Kursiv
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Unterstrichen
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Durchstreichen
Oeffnen()
Send("<s>"&GUICtrlRead($Input1)&"</s>")
Case $Hoch
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Tief
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Blinken
Oeffnen()
Send("<blink>"&GUICtrlRead($Input1)&"</blink>")
Case $Link
Oeffnen()
$I1=InputBox("Link","Bitte geben sie die Internetadresse ein!","http://www.")
$I2=InputBox("Link","Bitte geben sie die den Namen der Internetadresse ein!")
Send('<a href="'&$I1&'">'&$I2&'</a>')
;~ -------------------------------------------------------------
Case $HintergrundFarbe
Oeffnen()
Send('<body bgcolor="'&GUICtrlRead($Input1)&'">')
Case $FarbeSchrift
Oeffnen()
$iSelect = _GUICtrlComboBox_GetCurSel($Combo3)
Send(''&GUICtrlRead($Input1)&'')
;~ -------------------------------------------------------------
Case $Schwarz
Oeffnen()
Send("#000000",1)
Case $RotBraun
Oeffnen()
Send("#800000",1)
Case $Gruen
Oeffnen()
Send("#008000",1)
Case $Olive
Oeffnen()
Send("#808000",1)
Case $Marnineblau
Oeffnen()
Send("#000080",1)
Case $Lila
Oeffnen()
Send("#800080",1)
Case $Smaragdgruen
Oeffnen()
Send("#008080",1)
Case $Grau
Oeffnen()
Send("#808080",1)
Case $Silber
Oeffnen()
Send("#c0c0c0",1)
Case $Rot
Oeffnen()
Send("#FF0000",1)
Case $Hellgruen
Oeffnen()
Send("#00FF00",1)
Case $Gelb
Oeffnen()
Send("#FFFF00",1)
Case $Blau
Oeffnen()
Send("#0000FF",1)
Case $Pink
Oeffnen()
Send("#FF00FF",1)
Case $Aqua
Oeffnen()
Send("#00FFFF",1)
Case $Weiss
Oeffnen()
Send("#FFFFFF",1)
;~ --------------------------------------------------------------
EndSwitch
WEnd
EndFunc

[/autoit]

yxyx

""includes haben gefehlt

ich würd dir organize includes empfehlen

Edit:

Sorry

waren nur zu viele

hab mich Verkuckt

Mrx007

Ja aber da ist nur eine Func!!!

**Schnitzel**

war das jetzt so schwer?

so hat mans wenigstens nach 2 min...

die includes müssen auserhalb der funktion stehen und doppelt brauchst du sie auch nicht

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiComboBox.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Pasword Abfrage", 258, 87, 192, 124)
$Input1 = GUICtrlCreateInput("", 128, 40, 121, 21,$ES_PASSWORD)
$Label1 = GUICtrlCreateLabel("Password Abfrage", 8, 0, 131, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Bitte Password eingeben:", 0, 40, 124, 17)
$Weiter = GUICtrlCreateButton("Weiter >", 8, 56, 75, 25, 0)
$Label3 = GUICtrlCreateLabel("Made by Mrx", 144, 16, 76, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Weiter
If GUICtrlRead($Input1) = "23081994" Then
ToolTip("Geht")
Main()
Else
TrayTip("Fehler","Sie haben das Fasche Password eingegeben!",6)
EndIf
EndSwitch
WEnd

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

Func Oeffnen()
Opt("WinTitleMatchMode",2)
$Open = WinActivate("Editor")
If $Open = 0 Then
$Msg = MsgBox(32+3+262144,"Fehler #001","Der Editor konnte nciht gefunden werden."&@CRLF&"Soll der Editor geöffnet werden?")
If $Msg = 6 Then
Run("NOTEPAD.exe")
EndIf
If $Msg = 7 Then
Exit
EndIf
EndIf
Sleep(1000)
EndFunc

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

Func Main()

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

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Michael Stiels\Desktop\AutoIT\KodaDesingner\Forms\HTML Helfer.kxf
$Form1 = GUICreate("HTML Helfer", 617, 447, 192, 124)
$Group1 = GUICtrlCreateGroup("Schriftarten", 8, 112, 257, 113)
$Fett = GUICtrlCreateButton("Fett", 16, 128, 75, 25, 0)
$Kursiv = GUICtrlCreateButton("Kursiv", 96, 128, 75, 25, 0)
$Unterstrichen = GUICtrlCreateButton("Unterstrichen", 16, 160, 75, 25, 0)
$Durchstreichen = GUICtrlCreateButton("Durchstrichen", 96, 160, 75, 25, 0)
$Hoch = GUICtrlCreateButton("Hochgestellt", 16, 192, 75, 25, 0)
$Tief = GUICtrlCreateButton("Tiefgestellte", 96, 192, 75, 25, 0)
$Blinken = GUICtrlCreateButton("Blinken", 176, 160, 75, 25, 0)
$Link = GUICtrlCreateButton("Link", 176, 128, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group2 = GUICtrlCreateGroup("Schriftgröße", 224, 232, 97, 113)
$Button7 = GUICtrlCreateButton("Schriftgröße", 232, 248, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Big", 232, 280, 75, 25, 0)
$Button38 = GUICtrlCreateButton("Small", 232, 312, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group3 = GUICtrlCreateGroup("Faben in HTML ", 16, 248, 193, 81)
$HintergrundFarbe = GUICtrlCreateButton("Hintergrund", 24, 264, 75, 25, 0)
$FarbeSchrift = GUICtrlCreateButton("Farbe Schrift", 24, 296, 75, 25, 0)
Global $aColors[3][2] = [['Rot', '0xFF0000'], ['Grün', '0x00FF00'],['Blau', '0x0000FF']]
$Combo3 = GUICtrlCreateCombo($aColors[0][0], 104, 296, 97, 25,$CBS_DROPDOWNLIST)
For $i = 0 To UBound($aColors) - 1
GUICtrlSetData($Combo3, $aColors[$i][0])
Next
;~ GUICtrlSetData($Combo3,"Schwarz|Grün|Rot","item3")
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group4 = GUICtrlCreateGroup("Farben", 360, 224, 249, 209)
$Schwarz = GUICtrlCreateButton("Schwarz", 368, 240, 75, 25, 0)
$RotBraun = GUICtrlCreateButton("Rotbraun", 448, 240, 75, 25, 0)
$Gruen = GUICtrlCreateButton("Grün", 528, 240, 75, 25, 0)
$Olive = GUICtrlCreateButton("Olive", 368, 272, 75, 25, 0)
$Marnineblau = GUICtrlCreateButton("Marnineblau", 448, 272, 75, 25, 0)
$Lila = GUICtrlCreateButton("Lila", 528, 272, 75, 25, 0)
$Smaragdgruen = GUICtrlCreateButton("Smaragdgrün", 368, 304, 75, 25, 0)
$Grau = GUICtrlCreateButton("Grau", 448, 304, 75, 25, 0)
$Silber = GUICtrlCreateButton("Silber", 528, 304, 75, 25, 0)
$Rot = GUICtrlCreateButton("Rot", 368, 336, 75, 25, 0)
$Hellgruen = GUICtrlCreateButton("Hellgrün", 448, 336, 75, 25, 0)
$Gelb = GUICtrlCreateButton("Gelb", 528, 336, 75, 25, 0)
$Blau = GUICtrlCreateButton("Blau", 368, 368, 75, 25, 0)
$Pink = GUICtrlCreateButton("Pink", 448, 368, 75, 25, 0)
$Aqua = GUICtrlCreateButton("Aqua", 528, 368, 75, 25, 0)
$Weiss = GUICtrlCreateButton("Weiß", 448, 400, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group5 = GUICtrlCreateGroup("Allgemein", 8, 352, 169, 81)
$Button29 = GUICtrlCreateButton("Anfang", 16, 368, 75, 25, 0)
$Button30 = GUICtrlCreateButton("Kopfbereich", 96, 368, 75, 25, 0)
$Button31 = GUICtrlCreateButton("Mittelteil", 16, 400, 75, 25, 0)
$Button32 = GUICtrlCreateButton("Titel", 96, 400, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group6 = GUICtrlCreateGroup("Satzaufbau", 184, 352, 169, 81)
$Button33 = GUICtrlCreateButton("Bündig", 192, 368, 75, 25, 0)
$Combo1 = GUICtrlCreateCombo("Combo1", 272, 368, 73, 25)
$Button34 = GUICtrlCreateButton("Zitat", 192, 400, 75, 25, 0)
$Button35 = GUICtrlCreateButton("Umbruch", 272, 400, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group7 = GUICtrlCreateGroup("Verschiedenes", 280, 120, 329, 97)
$Button37 = GUICtrlCreateButton("Eingabe Feld", 288, 136, 75, 25, 0)
$Combo2 = GUICtrlCreateCombo("Imput", 376, 136, 209, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Input1 = GUICtrlCreateInput("", 328, 80, 257, 21)
$Label1 = GUICtrlCreateLabel("Text der geschrieben werden soll:", 128, 80, 196, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("HTML Helfer", 248, 8, 105, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Made by Mrx", 264, 32, 80, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Fett
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Kursiv
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Unterstrichen
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Durchstreichen
Oeffnen()
Send("<s>"&GUICtrlRead($Input1)&"</s>")
Case $Hoch
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Tief
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Blinken
Oeffnen()
Send("<blink>"&GUICtrlRead($Input1)&"</blink>")
Case $Link
Oeffnen()
$I1=InputBox("Link","Bitte geben sie die Internetadresse ein!","http://www.")
$I2=InputBox("Link","Bitte geben sie die den Namen der Internetadresse ein!")
Send('<a href="'&$I1&'">'&$I2&'</a>')
;~ -------------------------------------------------------------
Case $HintergrundFarbe
Oeffnen()
Send('<body bgcolor="'&GUICtrlRead($Input1)&'">')
Case $FarbeSchrift
Oeffnen()
$iSelect = _GUICtrlComboBox_GetCurSel($Combo3)
Send(''&GUICtrlRead($Input1)&'')
;~ -------------------------------------------------------------
Case $Schwarz
Oeffnen()
Send("#000000",1)
Case $RotBraun
Oeffnen()
Send("#800000",1)
Case $Gruen
Oeffnen()
Send("#008000",1)
Case $Olive
Oeffnen()
Send("#808000",1)
Case $Marnineblau
Oeffnen()
Send("#000080",1)
Case $Lila
Oeffnen()
Send("#800080",1)
Case $Smaragdgruen
Oeffnen()
Send("#008080",1)
Case $Grau
Oeffnen()
Send("#808080",1)
Case $Silber
Oeffnen()
Send("#c0c0c0",1)
Case $Rot
Oeffnen()
Send("#FF0000",1)
Case $Hellgruen
Oeffnen()
Send("#00FF00",1)
Case $Gelb
Oeffnen()
Send("#FFFF00",1)
Case $Blau
Oeffnen()
Send("#0000FF",1)
Case $Pink
Oeffnen()
Send("#FF00FF",1)
Case $Aqua
Oeffnen()
Send("#00FFFF",1)
Case $Weiss
Oeffnen()
Send("#FFFFFF",1)
;~ --------------------------------------------------------------
EndSwitch
WEnd
EndFunc

[/autoit]

Mrx007

So eine kleinichkeit

Aber noch en Frage wenn die Main Startet dann ist imi Hintergrund noch das Password Ding.
Kann man das so machen das es dann geschlossen wird??

OHNE ES IN 2 EXEn ZU PACKEN???

**Schnitzel**

schau dir mal guidelete oder guisetstate an

Mrx007

Das geht aber irgendwie nicht

pls HELP

**Schnitzel**

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiComboBox.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Pasword Abfrage", 258, 87, 192, 124)
$Input1 = GUICtrlCreateInput("", 128, 40, 121, 21,$ES_PASSWORD)
$Label1 = GUICtrlCreateLabel("Password Abfrage", 8, 0, 131, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Bitte Password eingeben:", 0, 40, 124, 17)
$Weiter = GUICtrlCreateButton("Weiter >", 8, 56, 75, 25, 0)
$Label3 = GUICtrlCreateLabel("Made by Mrx", 144, 16, 76, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Weiter
If GUICtrlRead($Input1) = "23081994" Then
ToolTip("Geht")
Main()
Else
TrayTip("Fehler","Sie haben das Fasche Password eingegeben!",6)
EndIf
EndSwitch
WEnd

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

Func Oeffnen()
Opt("WinTitleMatchMode",2)
$Open = WinActivate("Editor")
If $Open = 0 Then
$Msg = MsgBox(32+3+262144,"Fehler #001","Der Editor konnte nciht gefunden werden."&@CRLF&"Soll der Editor geöffnet werden?")
If $Msg = 6 Then
Run("NOTEPAD.exe")
EndIf
If $Msg = 7 Then
Exit
EndIf
EndIf
Sleep(1000)
EndFunc

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

Func Main()
GUIDelete($Form1); >>>>>>>>>>HIER IST DIE ÄNDERUNG <<<<<<<<<<<<<<<<<<
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Michael Stiels\Desktop\AutoIT\KodaDesingner\Forms\HTML Helfer.kxf
$Form1 = GUICreate("HTML Helfer", 617, 447, 192, 124)
$Group1 = GUICtrlCreateGroup("Schriftarten", 8, 112, 257, 113)
$Fett = GUICtrlCreateButton("Fett", 16, 128, 75, 25, 0)
$Kursiv = GUICtrlCreateButton("Kursiv", 96, 128, 75, 25, 0)
$Unterstrichen = GUICtrlCreateButton("Unterstrichen", 16, 160, 75, 25, 0)
$Durchstreichen = GUICtrlCreateButton("Durchstrichen", 96, 160, 75, 25, 0)
$Hoch = GUICtrlCreateButton("Hochgestellt", 16, 192, 75, 25, 0)
$Tief = GUICtrlCreateButton("Tiefgestellte", 96, 192, 75, 25, 0)
$Blinken = GUICtrlCreateButton("Blinken", 176, 160, 75, 25, 0)
$Link = GUICtrlCreateButton("Link", 176, 128, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group2 = GUICtrlCreateGroup("Schriftgröße", 224, 232, 97, 113)
$Button7 = GUICtrlCreateButton("Schriftgröße", 232, 248, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Big", 232, 280, 75, 25, 0)
$Button38 = GUICtrlCreateButton("Small", 232, 312, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group3 = GUICtrlCreateGroup("Faben in HTML ", 16, 248, 193, 81)
$HintergrundFarbe = GUICtrlCreateButton("Hintergrund", 24, 264, 75, 25, 0)
$FarbeSchrift = GUICtrlCreateButton("Farbe Schrift", 24, 296, 75, 25, 0)
Global $aColors[3][2] = [['Rot', '0xFF0000'], ['Grün', '0x00FF00'],['Blau', '0x0000FF']]
$Combo3 = GUICtrlCreateCombo($aColors[0][0], 104, 296, 97, 25,$CBS_DROPDOWNLIST)
For $i = 0 To UBound($aColors) - 1
GUICtrlSetData($Combo3, $aColors[$i][0])
Next
;~ GUICtrlSetData($Combo3,"Schwarz|Grün|Rot","item3")
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group4 = GUICtrlCreateGroup("Farben", 360, 224, 249, 209)
$Schwarz = GUICtrlCreateButton("Schwarz", 368, 240, 75, 25, 0)
$RotBraun = GUICtrlCreateButton("Rotbraun", 448, 240, 75, 25, 0)
$Gruen = GUICtrlCreateButton("Grün", 528, 240, 75, 25, 0)
$Olive = GUICtrlCreateButton("Olive", 368, 272, 75, 25, 0)
$Marnineblau = GUICtrlCreateButton("Marnineblau", 448, 272, 75, 25, 0)
$Lila = GUICtrlCreateButton("Lila", 528, 272, 75, 25, 0)
$Smaragdgruen = GUICtrlCreateButton("Smaragdgrün", 368, 304, 75, 25, 0)
$Grau = GUICtrlCreateButton("Grau", 448, 304, 75, 25, 0)
$Silber = GUICtrlCreateButton("Silber", 528, 304, 75, 25, 0)
$Rot = GUICtrlCreateButton("Rot", 368, 336, 75, 25, 0)
$Hellgruen = GUICtrlCreateButton("Hellgrün", 448, 336, 75, 25, 0)
$Gelb = GUICtrlCreateButton("Gelb", 528, 336, 75, 25, 0)
$Blau = GUICtrlCreateButton("Blau", 368, 368, 75, 25, 0)
$Pink = GUICtrlCreateButton("Pink", 448, 368, 75, 25, 0)
$Aqua = GUICtrlCreateButton("Aqua", 528, 368, 75, 25, 0)
$Weiss = GUICtrlCreateButton("Weiß", 448, 400, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group5 = GUICtrlCreateGroup("Allgemein", 8, 352, 169, 81)
$Button29 = GUICtrlCreateButton("Anfang", 16, 368, 75, 25, 0)
$Button30 = GUICtrlCreateButton("Kopfbereich", 96, 368, 75, 25, 0)
$Button31 = GUICtrlCreateButton("Mittelteil", 16, 400, 75, 25, 0)
$Button32 = GUICtrlCreateButton("Titel", 96, 400, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group6 = GUICtrlCreateGroup("Satzaufbau", 184, 352, 169, 81)
$Button33 = GUICtrlCreateButton("Bündig", 192, 368, 75, 25, 0)
$Combo1 = GUICtrlCreateCombo("Combo1", 272, 368, 73, 25)
$Button34 = GUICtrlCreateButton("Zitat", 192, 400, 75, 25, 0)
$Button35 = GUICtrlCreateButton("Umbruch", 272, 400, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group7 = GUICtrlCreateGroup("Verschiedenes", 280, 120, 329, 97)
$Button37 = GUICtrlCreateButton("Eingabe Feld", 288, 136, 75, 25, 0)
$Combo2 = GUICtrlCreateCombo("Imput", 376, 136, 209, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Input1 = GUICtrlCreateInput("", 328, 80, 257, 21)
$Label1 = GUICtrlCreateLabel("Text der geschrieben werden soll:", 128, 80, 196, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("HTML Helfer", 248, 8, 105, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Made by Mrx", 264, 32, 80, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Fett
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Kursiv
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Unterstrichen
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Durchstreichen
Oeffnen()
Send("<s>"&GUICtrlRead($Input1)&"</s>")
Case $Hoch
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Tief
Oeffnen()
Send(""&GUICtrlRead($Input1)&"")
Case $Blinken
Oeffnen()
Send("<blink>"&GUICtrlRead($Input1)&"</blink>")
Case $Link
Oeffnen()
$I1=InputBox("Link","Bitte geben sie die Internetadresse ein!","http://www.")
$I2=InputBox("Link","Bitte geben sie die den Namen der Internetadresse ein!")
Send('<a href="'&$I1&'">'&$I2&'</a>')
;~ -------------------------------------------------------------
Case $HintergrundFarbe
Oeffnen()
Send('<body bgcolor="'&GUICtrlRead($Input1)&'">')
Case $FarbeSchrift
Oeffnen()
$iSelect = _GUICtrlComboBox_GetCurSel($Combo3)
Send(''&GUICtrlRead($Input1)&'')
;~ -------------------------------------------------------------
Case $Schwarz
Oeffnen()
Send("#000000",1)
Case $RotBraun
Oeffnen()
Send("#800000",1)
Case $Gruen
Oeffnen()
Send("#008000",1)
Case $Olive
Oeffnen()
Send("#808000",1)
Case $Marnineblau
Oeffnen()
Send("#000080",1)
Case $Lila
Oeffnen()
Send("#800080",1)
Case $Smaragdgruen
Oeffnen()
Send("#008080",1)
Case $Grau
Oeffnen()
Send("#808080",1)
Case $Silber
Oeffnen()
Send("#c0c0c0",1)
Case $Rot
Oeffnen()
Send("#FF0000",1)
Case $Hellgruen
Oeffnen()
Send("#00FF00",1)
Case $Gelb
Oeffnen()
Send("#FFFF00",1)
Case $Blau
Oeffnen()
Send("#0000FF",1)
Case $Pink
Oeffnen()
Send("#FF00FF",1)
Case $Aqua
Oeffnen()
Send("#00FFFF",1)
Case $Weiss
Oeffnen()
Send("#FFFFFF",1)
;~ --------------------------------------------------------------
EndSwitch
WEnd
EndFunc

[/autoit]

Mrx007

Könntest du mir das vielleicht erklären??
Ich finde das nciht wasse geändert hast