Hi Leute,
dieser HTML-Creator von PrideRage hat mich beeindruckt:
https://autoit.de/index.php?page…2766#post202766
Ich habe für sein Projekt ein neues Design und ein Beenden-Button hinzugefügt.
Jetzt gibt es nicht mehr 2 sondern nur noch 1 Fenster, was die Taskleiste unten schont...
Die Beenden?-Abfrage ist jetzt eine MsgBox.
Trotzdem Hut-Ab an PrideRage! Mein persönlicher Websiten-Freak
Der jetzige Skipt: (Update 1)
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=HTML Creator.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <WinAPI.au3>
#include <Array.au3>
#include <GUIEdit.au3>
Global $sHTMLText = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">' & @CRLF
Global $iSaved = 0, $sFileName, $FuncPromt, $hWnd, $mainX = 450, $mainY = 300, $srcX = $mainX - 370, $srcY = 250, $gui, $srcEditor, $sHTMLBackup
Global $sIEFile, $sFFFile, $htmlStarted = 0, $bodyStarted = 0, $listStarted = 0, $formStarted = 0
Global $hS = 0, $lS = 0, $fS = 0, $bs = 0
Global Const $G_D = $GUI_DISABLE, $G_E = $GUI_ENABLE
Global $sFFPath, $sIEPath
Global $isHTML = 0, $isBody = 0, $ih = 0, $ib = 0
Global $lastLine
If IniReadSection("infos.ini", "Brosers") = @error Then
_CheckFF()
_CheckIE()
EndIf
Global $sFFPath = IniRead("infos.ini", "Browsers", "FF", 0)
Global $sIEPath = IniRead("infos.ini", "Browsers", "IE", 0)
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$gui = GUICreate("Create2HTML - Kinderleicht HTML-Seiten erstellen!", 626, 421, 192, 124)
$hsourcegroup = GUICtrlCreateGroup("Quellcode-Ansicht", 8, 0, 609, 209)
$srcEditor = GUICtrlCreateEdit("", 16, 16, 593, 185)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$hcontrolsgroup = GUICtrlCreateGroup("Steuerelemente", 8, 208, 609, 161)
$htmlstart = GUICtrlCreateButton("HTML-Anfang", 16, 224, 81, 33, $WS_GROUP)
$head = GUICtrlCreateButton("Head", 104, 224, 57, 33, $WS_GROUP)
$bodystart = GUICtrlCreateButton("Body-Anfang", 168, 224, 73, 33, $WS_GROUP)
$js = GUICtrlCreateButton("JavaSkript", 248, 224, 67, 33, $WS_GROUP)
$css = GUICtrlCreateButton("CSS", 320, 224, 57, 33, $WS_GROUP)
$text = GUICtrlCreateButton("Text", 384, 224, 49, 33, $WS_GROUP)
$image = GUICtrlCreateButton("Bild", 440, 224, 49, 33, $WS_GROUP)
$flash = GUICtrlCreateButton("Flash-Objekt", 496, 224, 75, 33, $WS_GROUP)
$video = GUICtrlCreateButton("Video", 16, 264, 41, 33, $WS_GROUP)
$button = GUICtrlCreateButton("Button", 64, 264, 59, 33, $WS_GROUP)
$addlist = GUICtrlCreateButton("Neuer Listeneintrag", 128, 264, 107, 33, $WS_GROUP)
$newlist = GUICtrlCreateButton("Liste Anfang", 240, 264, 73, 33, $WS_GROUP)
$endlist = GUICtrlCreateButton("Liste Ende", 320, 264, 65, 33, $WS_GROUP)
$header = GUICtrlCreateButton("Header", 392, 264, 49, 33, $WS_GROUP)
$link = GUICtrlCreateButton("Link", 448, 264, 33, 33, $WS_GROUP)
$htmlend = GUICtrlCreateButton("HTML-Ende", 488, 264, 73, 33, $WS_GROUP)
$bodyend = GUICtrlCreateButton("Body-Ende", 16, 304, 65, 33, $WS_GROUP)
$beginnform = GUICtrlCreateButton("Form-Anfang", 88, 304, 73, 33, $WS_GROUP)
$endform = GUICtrlCreateButton("Form-Ende", 168, 304, 65, 33, $WS_GROUP)
$textfield = GUICtrlCreateButton("Eingabefeld", 240, 304, 73, 33, $WS_GROUP)
$useJSFile = GUICtrlCreateButton("JavaSkript Datei einbinden", 320, 304, 145, 33, $WS_GROUP)
$useCSSFile = GUICtrlCreateButton("CSS Datei einbinden", 472, 304, 113, 33, $WS_GROUP)
$crlf = GUICtrlCreateButton("Zeilenumbruch", 16, 336, 89, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$new = GUICtrlCreateButton("Neu", 8, 368, 59, 25, $WS_GROUP)
$save = GUICtrlCreateButton("Speichern", 72, 368, 75, 25, $WS_GROUP)
$infos = GUICtrlCreateButton("Infos", 160, 368, 75, 25, $WS_GROUP)
$help = GUICtrlCreateButton("Hilfe", 240, 368, 75, 25, $WS_GROUP)
$exit = GUICtrlCreateButton("Beenden", 328, 368, 75, 25, $WS_GROUP)
$execFF = GUICtrlCreateButton("Ausführen in Firefox", 8, 392, 107, 25, $WS_GROUP)
$execIE = GUICtrlCreateButton("Ausführen in Internet Explorer", 120, 392, 155, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
If $iSaved = 0 Then
_WinAPI_SetWindowText($gui, "Create2HTML (Nicht gespeichert)")
Else
_WinAPI_SetWindowText($gui, "Create2HTML")
EndIf
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE, $exit
If $nMsg[1] = $gui Then
If $iSaved = 0 Then
$msgbox = MsgBox(35, "Beenden?","Wollen sie wirklich beenden?")
If @error Then GUIDelete($hWnd)
If $msgbox = 6 Then
FileClose($sFileName)
Exit
ElseIf $msgbox = 8 Then
GUIDelete($hWnd)
If $iSaved = 0 And Not FileExists($sFileName) Then
$sFileName = _FileSaveDialog("Speichern unter...", @ScriptDir, "HTML (*.html)")
If $sFileName <> "" Then
FileWrite($sFileName, $sHTMLText)
$iSaved = 1
EndIf
Else
FileWrite($sFileName, $sHTMLText)
EndIf
EndIf
Else
FileClose($sFileName)
Exit
EndIf
EndIf
Case $help
MsgBox(64, "Hilfen", "Falls sie hilfe benötigen, lesen sie die Readme, falls sie ein paar JavaScript und CSS Beispiele brauchen, " & @CRLF & _
"laden sie sich die Beispiele.rar aus dem HTML Creator Thread herunter, dort sind einige Beispiele vorhanden.")
Case $infos
MsgBox(64, "Infos", "Dieses Tool erzeugt eine HTML Datei im Handumdrehen." & @CRLF & _
"Ich hoffe ihnen gefällt dieses Tool. Es ist besonders für diejenigen gemacht, die wenig bis garkeine HTML kenntnisse haben." & @CRLF & _
"Falls sie einen Bug finden, bitte an PrideRage im deutschen AutoIt Forum (AutoIt.de) berichten.!" & @CRLF & _
"Made by PrideRage"&@CRLF&"Neues Design by button421")
Case $new
$iSaved = 0
$msgbox = MsgBox(292, "Bestätigen", "Möchten sie wirklich eine neue Datei erstellen ?")
If $msgbox = 6 Then
$sHTMLText = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">' & @CRLF
_startup()
EndIf
Case $htmlstart
$iSaved = 0
$htmlStarted = 1
$isHTML = 1
$sHTMLText &= "<html>" & @CRLF
Case $head
$iSaved = 0
$headText = InputBox("Head Text", "Fügen sie einen Head Text ein (Optional)")
If $headText <> "" Then
$sHTMLText &= "<head>" & @CRLF & "<title>" & $headText & "</title>" & @CRLF & "</head>" & @CRLF
GUICtrlSetState($head, $G_D)
Else
$sHTMLText &= "<head />" & @CRLF
GUICtrlSetState($head, $G_D)
EndIf
Case $save
If $iSaved = 0 And Not FileExists($sFileName) Then
$sFileName = _FileSaveDialog("Speichern unter...", @ScriptDir, "HTML (*.html)")
If $sFileName <> "" Then
FileOpen($sFileName, 2)
FileWrite($sFileName, $sHTMLText)
$iSaved = 1
EndIf
Else
FileWrite($sFileName, $sHTMLText)
EndIf
Case $bodystart
$iSaved = 0
$bodyStarted = 1
$isBody = 1
;~ $sHTMLText &= "<body>" & @CRLF
$iBodyMode = InputBox("Body Modus","Geben sie hier den Modus vom Hintergrund vom Body ein"&@CRLF&"0 = Standardhintergrund(Weiß)"&@CRLF&"1 = Benutzerdefinierte Farbe")
If $iBodyMode = "0" Then
$sHTMLText &= "<body>" & @CRLF
ElseIf $iBodyMode = "1" Then
;~ MsgBox(64,"Test","iBodyMode = 1")
$iBodyBackground = InputBox("Hintergrund","Geben sie hier den HTML-Farbcode für den Hintergrund ein!")
$sHTMLText &= "<body bgcolor="""&$iBodyBackground&""">" & @CRLF
EndIf
Case $js
$iSaved = 0
$JavaCode = _ScriptEdit("Geben sie ihren JavaScript ein")
GUIDelete($FuncPromt)
If $JavaCode <> False Then
$sHTMLText &= '<script type="text/javascript">' & @CRLF & "<!--" & @CRLF & $JavaCode & @CRLF & "//-->" & @CRLF & "</script>" & @CRLF
EndIf
Case $css
$iSaved = 0
$CSSCode = _ScriptEdit("Geben sie ihren CSS Code ein")
GUIDelete($FuncPromt)
If $CSSCode <> False Then
$sHTMLText &= '<style type="text/css">' & @CRLF & $CSSCode & @CRLF & @CRLF & "</style>" & @CRLF
EndIf
Case $text
$iSaved = 0
$textToPut = InputBox("Geben sie einen Text ein!", "Geben sie einen Text ein, der auf der Seite angezeigt werden soll!")
If $textToPut <> "" And IsString($textToPut) Then $sHTMLText &= "<p>" & $textToPut & "</p>" & @CRLF
Case $image
$iSaved = 0
$Datei = InputBox("Datei auswählen", "Geben sie den Pfad zum Bild an (siehe Readme)")
$Alt = InputBox("Alternativtext", "Geben sie den Alternativtext ein")
If $Datei <> "" And $Alt <> "" And IsString($Datei) And IsString($Alt) Then $sHTMLText &= '<img src="' & $Datei & '" alt="' & $Alt & '">' & @CRLF
Case $flash
$iSaved = 0
$flvDatei = InputBox("Version angeben", "Geben sie den Pfad der Flash Datei an (siehe Readme)")
$hexColor = InputBox("Farbe angeben", "Geben sie eine Hintergrundfarbe an (Format: #RRGGBB bsp. #000040)")
$width = InputBox("Breite angeben", "Geben sie die gewünschte Breite an (in px)")
$height = InputBox("Höhe angeben", "Geben sie die gewünschte Höhe an (in px)")
If IsString($flvDatei) And StringInStr($hexColor, "#") And StringLen($hexColor) = 7 And StringIsInt($width) And StringIsInt($height) Then
If $flvDatei <> "" Then
$sHTMLText &= '<object classid="CLSID:D27CDB6E-AE6D-11cf-96B8-444553540000" ' & 'width="' & $width & '" ' & 'height="' & $height & '">' & @CRLF
$sHTMLText &= '<param name="movie" value="' & $flvDatei & '">' & @CRLF
$sHTMLText &= '<param name="quality" value="high">' & @CRLF & '<param name="scale" value="exactfit">' & @CRLF & '<param name="menu" value="true">' & @CRLF
$sHTMLText &= '<param name="bgcolor" value="' & $hexColor & '">' & @CRLF
$sHTMLText &= '<embed src="' & $flvDatei & '" quality="high" scale="exactfit" menu="false" bgcolor="' & $hexColor & '" width="' & $width & '" height="' & $height & '" swLiveConnect="false"' & @CRLF
$sHTMLText &= 'type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash">' & @CRLF
$sHTMLText &= '</embed></object>' & @CRLF
EndIf
EndIf
Case $video
$iSaved = 0
$videoData = InputBox("Videodatei angeben", "Bitte geben sie den Pfad zur Videodatei an. (siehe Readme)")
$width1 = InputBox("Breite angeben", "Geben sie die gewünschte Breite an (in px)")
$height1 = InputBox("Höhe angeben", "Geben sie die gewünschte Höhe an (in px)")
If IsString($videoData) And StringIsInt($width1) And StringIsInt($height1) Then
If $videoData <> "" Then
$sHTMLText &= '<embed src="' & $videoData & '" width="' & $width1 & '" height="' & $height1 & '"></embed>' & @CRLF
EndIf
EndIf
Case $button
$iSaved = 0
$name = InputBox("Namen angeben", "Bitte geben sie einen Namen und den Text für den Button an (mit // trennen bsp. btn1//Klick mich)")
$onclick = InputBox("OnClick Funktion definieren", "Definieren sie eine Funktion, die beim Klicken des Buttons ausgeführt werden soll. (Cancel drücken um keine Funktion zu definieren)")
$name = StringSplit($name, "//", 1)
If $name <> "" And $onclick = "" And $name[0] = 2 And $name[2] <> "" Then
$sHTMLText &= '<input type="button" name="' & $name[1] & '" value="' & $name[2] & '">' & @CRLF
ElseIf $name <> "" And $onclick <> "" And $name[0] = 2 And $name[2] <> "" Then
$sHTMLText &= '<input type="button" name="' & $name[1] & '" value="' & $name[2] & '" onclick="' & $onclick & '">' & @CRLF
EndIf
Case $newList
$iSaved = 0
$listStarted = 1
GUICtrlSetState($endList, $G_E)
$sHTMLText &= "<ul>" & @CRLF
Case $endList
$iSaved = 0
$listStarted = 0
$sHTMLText &= "</ul>" & @CRLF
Case $addList
$iSaved = 0
$listEntry = InputBox("Text eingeben", "Geben sie den Text für ihren Listeneintrag ein")
If $listEntry <> "" Then $sHTMLText &= "<li>" & $listEntry & "</li>" & @CRLF
Case $header
$iSaved = 0
$headerEntry = InputBox("Text eingeben", "Geben sie den Text für ihren Header ein")
$headerNum = InputBox("Nummer definieren", "Definieren sie eine Nummer, die die größe des Headers repräsentiert (1 größte - 6 kleinste)")
If $headerEntry <> "" And $headerNum < 7 Then
$sHTMLText &= "<h" & $headerNum & ">" & $headerEntry & "</h" & $headerNum & ">" & @CRLF
EndIf
Case $link
$iSaved = 0
$reference = InputBox("Link eingeben", "Geben sie einen Link ein")
$hrText = InputBox("Text eingeben", "Geben sie den Text ein, der als Link erscheinen soll")
If $reference <> "" And $hrText <> "" Then $sHTMLText &= '<a href="' & $reference & '">' & $hrText & '</a>' & @CRLF
Case $bodyend
$iSaved = 0
$bodyStarted = 0
GUICtrlSetState($head, $G_D)
$sHTMLText &= "</body>" & @CRLF
Case $htmlend
$iSaved = 0
$htmlStarted = 0
$sHTMLText &= "</html>" & @CRLF
Case $execFF
If _CheckFF() = -1 Then
MsgBox(62, "Firefox nicht installiert", "Firefox ist nicht installiert oder wurde nicht gefunden!")
Else
If $iSaved = 0 Or Not FileExists($sFileName) Then
$sFFFile = _FileSaveDialog("Speichern unter...", @ScriptDir, "HTML (*.html)")
If $sFFFile <> "" Then
$sFileName = $sFFFile
FileOpen($sFileName, 2)
FileWrite($sFFFile, $sHTMLText)
$iSaved = 1
$sFFFile = StringReplace($sFFFile, "\", "/")
$sFFFile = StringReplace($sFFFile, " ", "%20")
$sFFFile = _StringInsert($sFFFile, "file:///", 0)
ShellExecute($sFFPath, $sFFFile)
EndIf
Else
$sFFFile = $sFileName
$sFFFile = StringReplace($sFFFile, "\", "/")
$sFFFile = StringReplace($sFFFile, " ", "%20")
$sFFFile = _StringInsert($sFFFile, "file:///", 0)
ShellExecute($sFFPath, $sFFFile)
EndIf
EndIf
Case $execIE
If _CheckIE() = -1 Then
MsgBox(62, "Internet Explorer fehler", "Der Internet Explorer wurde nicht gefunden!")
Else
If $iSaved = 0 Or Not FileExists($sFileName) Then
$sIEFile = _FileSaveDialog("Speichern unter...", @ScriptDir, "HTML (*.html)")
If $sIEFile <> "" Then
FileOpen($sIEFile, 2)
FileWrite($sIEFile, $sHTMLText)
$iSaved = 1
ShellExecute($sIEPath, $sIEFile)
EndIf
Else
$sIEFile = $sFileName
ShellExecute($sIEPath, $sIEFile)
EndIf
EndIf
Case $beginnform
$iSaved = 0
$fName = InputBox("Namen angeben", "Geben sie den Namen für die Form an")
$action = InputBox("Pfad für Aktion", "Geben sie den Pfad zur Datei an, die diese Daten verarbeiten soll. (Leerlassen falls keine Datei vorhanden)")
$method = InputBox("Methode eingeben", "Geben sie eine Methode zur weiterverarbeitung ein. (get, post oder lassen sie das Feld frei.)")
If $fName <> "" Then
$formStarted = 1
$sHTMLText &= '<form name="' & $fName & '" action="' & $action & '" method="' & $method & '">' & @CRLF
EndIf
Case $endform
$iSaved = 0
$formStarted = 0
$sHTMLText &= "</form>" & @CRLF
Case $textfield
$iSaved = 0
$name = InputBox("Namen angeben", "Geben sie den Namen für das Textfeld ein")
$size = InputBox("Größe angeben", "Geben sie die größe des Textfeldes ein")
$maxlen = InputBox("Länge angeben", "Geben sie die länge für das Textfeld ein (Diese Zahl repräsentiert die maximale Anzahl an Buchstaben)")
$stdVal = InputBox("Standard Text", "Geben sie einen standard Text ein (Optional)")
If $name <> "" And $size <> "" And $maxlen <> "" Then
$sHTMLText &= '<input name="' & $name & '" type="text" size=' & $size & ' maxlength = ' & $maxlen & ' value="' & $stdVal & '">' & @CRLF
EndIf
Case $useJSFile
$iSaved = 0
$jsPath = InputBox("Pfad angeben", "Geben sie den Pfad zu der JavaScript (*.js) Datei an")
If $jsPath <> "" And StringInStr($jsPath, ".js") Then
$sHTMLText &= '<script src="' & $jsPath & '" type="text/javascript"></script>' & @CRLF
EndIf
Case $useCSSFile
$iSaved = 0
$cssPath = InputBox("Pfad angeben", "Geben sie den Pfad zu der CSS (*.css) Datei an")
If $cssPath <> "" And StringInStr($cssPath, ".css") Then
$sHTMLText &= '<link rel="stylesheet" type="text/css" href="' & $cssPath & '">' & @CRLF
EndIf
Case $crlf
_GUICtrlEdit_AppendText($srcEditor, _br())
EndSwitch
[/autoit] [autoit][/autoit] [autoit]If $sHTMLText <> $sHTMLBackup Then GUICtrlSetData($srcEditor, $sHTMLText)
If $sHTMLText <> GUICtrlRead($srcEditor) Then $sHTMLText = GUICtrlRead($srcEditor)
$sHTMLBackup = $sHTMLText
If $htmlStarted = 0 And $hS = 0 Then
GUICtrlSetState($head, $G_D)
GUICtrlSetState($bodystart, $G_D)
GUICtrlSetState($js, $G_D)
GUICtrlSetState($css, $G_D)
GUICtrlSetState($text, $G_D)
GUICtrlSetState($image, $G_D)
GUICtrlSetState($flash, $G_D)
GUICtrlSetState($video, $G_D)
GUICtrlSetState($button, $G_D)
GUICtrlSetState($addList, $G_D)
GUICtrlSetState($newList, $G_D)
GUICtrlSetState($endList, $G_D)
GUICtrlSetState($header, $G_D)
GUICtrlSetState($link, $G_D)
GUICtrlSetState($htmlend, $G_D)
GUICtrlSetState($bodyend, $G_D)
GUICtrlSetState($beginnform, $G_D)
GUICtrlSetState($endform, $G_D)
GUICtrlSetState($textfield, $G_D)
GUICtrlSetState($useJSFile, $G_D)
GUICtrlSetState($useCSSFile, $G_D)
GUICtrlSetState($crlf, $G_D)
$hS = 1
ElseIf $htmlStarted = 1 And $hS = 1 Then
GUICtrlSetState($bodystart, $G_E)
GUICtrlSetState($head, $G_E)
$hS = 0
EndIf
If $bodyStarted = 0 And $bs = 0 Then
GUICtrlSetState($js, $G_D)
GUICtrlSetState($css, $G_D)
GUICtrlSetState($text, $G_D)
GUICtrlSetState($image, $G_D)
GUICtrlSetState($flash, $G_D)
GUICtrlSetState($video, $G_D)
GUICtrlSetState($button, $G_D)
GUICtrlSetState($addList, $G_D)
GUICtrlSetState($newList, $G_D)
GUICtrlSetState($endList, $G_D)
GUICtrlSetState($header, $G_D)
GUICtrlSetState($link, $G_D)
GUICtrlSetState($bodyend, $G_D)
GUICtrlSetState($beginnform, $G_D)
GUICtrlSetState($endform, $G_D)
GUICtrlSetState($textfield, $G_D)
GUICtrlSetState($useJSFile, $G_D)
GUICtrlSetState($useCSSFile, $G_D)
GUICtrlSetState($crlf, $G_D)
$bs = 1
ElseIf $bodyStarted = 1 And $bs = 1 Then
GUICtrlSetState($js, $G_E)
GUICtrlSetState($css, $G_E)
GUICtrlSetState($text, $G_E)
GUICtrlSetState($image, $G_E)
GUICtrlSetState($flash, $G_E)
GUICtrlSetState($video, $G_E)
GUICtrlSetState($button, $G_E)
GUICtrlSetState($newList, $G_E)
GUICtrlSetState($header, $G_E)
GUICtrlSetState($link, $G_E)
GUICtrlSetState($htmlend, $G_E)
GUICtrlSetState($bodyend, $G_E)
GUICtrlSetState($beginnform, $G_E)
GUICtrlSetState($textfield, $G_E)
GUICtrlSetState($useJSFile, $G_E)
GUICtrlSetState($useCSSFile, $G_E)
GUICtrlSetState($crlf, $G_E)
$bs = 0
EndIf
If $listStarted = 0 And $lS = 0 Then
GUICtrlSetState($addList, $G_D)
GUICtrlSetState($endList, $G_D)
$lS = 1
ElseIf $listStarted = 1 And $lS = 1 Then
GUICtrlSetState($addList, $G_E)
GUICtrlSetState($endList, $G_E)
$lS = 0
EndIf
If $formStarted = 0 And $fS = 0 Then
GUICtrlSetState($endform, $G_D)
$fS = 1
ElseIf $formStarted = 1 And $fS = 1 Then
GUICtrlSetState($endform, $G_E)
$fS = 0
EndIf
If $isHTML = 1 And $ih = 0 Then
GUICtrlSetState($htmlstart, $G_D)
$ih = 1
ElseIf $isBody = 1 And $ib = 0 Then
GUICtrlSetState($bodystart, $G_D)
$ib = 1
EndIf
Sleep(10)
WEnd
Func _ScriptEdit($sTitle)
$FuncPromt = GUICreate($sTitle, 634, 455, 191, 123)
$script = GUICtrlCreateEdit("", 0, 0, 633, 393)
GUICtrlSetFont(-1, 12, 400, 0, "Courier New")
$done = GUICtrlCreateButton("Fertig", 8, 400, 81, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case -3
Return False
Case $done
Return GUICtrlRead($script)
EndSwitch
WEnd
EndFunc ;==>_ScriptEdit
Func _FileSaveDialog($sTitle, $sInitDir, $sFilter = 'All (*.*)')
Local $sDiag = FileSaveDialog($sTitle, $sInitDir, $sFilter)
If Not @error Then
$sDiag &= ".html"
FileWrite($sDiag, $sHTMLText)
Return $sDiag
EndIf
EndFunc ;==>_FileSaveDialog
Func _MsgBoxEx($sTitle, $sText, $iButtonNum, $sButton1 = "", $sButton2 = "", $sButton3 = "", $sButton4 = "")
Local $iHwndLen = $iButtonNum * 120, $iBtnDist = 0
Dim $hButtons[$iButtonNum], $sBtnText[4] = [$sButton1, $sButton2, $sButton3, $sButton4]
$hWnd = GUICreate($sTitle, $iHwndLen, 150, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER, $WS_CLIPSIBLINGS), BitOR($WS_EX_APPWINDOW, $WS_EX_WINDOWEDGE))
$hLabel = GUICtrlCreateLabel($sText, 16, 8, $iHwndLen - 10, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
For $i = 0 To $iButtonNum - 1
$hButtons[$i] = GUICtrlCreateButton($sBtnText[$i], 15 + $iBtnDist, 70, 80, 40, $WS_GROUP)
$iBtnDist += 90
Next
GUISetState(@SW_SHOW)
While 1
$gMsg = GUIGetMsg()
If $gMsg = -3 Then Return SetError(-1, 0, -1)
For $a = 0 To $iButtonNum - 1
If $gMsg = $hButtons[$a] Then Return $a
Next
WEnd
EndFunc ;==>_MsgBoxEx
Func _CheckFF()
$FFVersion = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox\", "CurrentVersion")
If @error Then Return -1
$FFPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox\" & $FFVersion & "\Main", "PathToExe")
IniWrite("infos.ini", "Browsers", "FF", $FFPath)
EndFunc ;==>_CheckFF
Func _CheckIE()
$IEPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\IE Setup\Setup", "Path")
If @error Then Return -1
If StringInStr($IEPath, "%programfiles%") Then $IEPath = StringReplace($IEPath, "%programfiles%", @ProgramFilesDir)
$IEPath &= "\iexplore.exe"
IniWrite("infos.ini", "Browsers", "IE", $IEPath)
EndFunc ;==>_CheckIE
Func _br()
$sHTMLText &= "<br>"
EndFunc
Func _startup()
If $htmlStarted = 0 And $hS = 0 Then
GUICtrlSetState($head, $G_D)
GUICtrlSetState($bodystart, $G_D)
GUICtrlSetState($js, $G_D)
GUICtrlSetState($css, $G_D)
GUICtrlSetState($text, $G_D)
GUICtrlSetState($image, $G_D)
GUICtrlSetState($flash, $G_D)
GUICtrlSetState($video, $G_D)
GUICtrlSetState($button, $G_D)
GUICtrlSetState($addList, $G_D)
GUICtrlSetState($newList, $G_D)
GUICtrlSetState($endList, $G_D)
GUICtrlSetState($header, $G_D)
GUICtrlSetState($link, $G_D)
GUICtrlSetState($htmlend, $G_D)
GUICtrlSetState($bodyend, $G_D)
GUICtrlSetState($beginnform, $G_D)
GUICtrlSetState($endform, $G_D)
GUICtrlSetState($textfield, $G_D)
GUICtrlSetState($useJSFile, $G_D)
GUICtrlSetState($useCSSFile, $G_D)
GUICtrlSetState($crlf, $G_D)
$hS = 1
ElseIf $htmlStarted = 1 And $hS = 1 Then
GUICtrlSetState($bodystart, $G_E)
GUICtrlSetState($head, $G_E)
$hS = 0
EndIf
If $bodyStarted = 0 And $bs = 0 Then
GUICtrlSetState($js, $G_D)
GUICtrlSetState($css, $G_D)
GUICtrlSetState($text, $G_D)
GUICtrlSetState($image, $G_D)
GUICtrlSetState($flash, $G_D)
GUICtrlSetState($video, $G_D)
GUICtrlSetState($button, $G_D)
GUICtrlSetState($addList, $G_D)
GUICtrlSetState($newList, $G_D)
GUICtrlSetState($endList, $G_D)
GUICtrlSetState($header, $G_D)
GUICtrlSetState($link, $G_D)
GUICtrlSetState($bodyend, $G_D)
GUICtrlSetState($beginnform, $G_D)
GUICtrlSetState($endform, $G_D)
GUICtrlSetState($textfield, $G_D)
GUICtrlSetState($useJSFile, $G_D)
GUICtrlSetState($useCSSFile, $G_D)
GUICtrlSetState($crlf, $G_D)
$bs = 1
ElseIf $bodyStarted = 1 And $bs = 1 Then
GUICtrlSetState($js, $G_E)
GUICtrlSetState($css, $G_E)
GUICtrlSetState($text, $G_E)
GUICtrlSetState($image, $G_E)
GUICtrlSetState($flash, $G_E)
GUICtrlSetState($video, $G_E)
GUICtrlSetState($button, $G_E)
GUICtrlSetState($newList, $G_E)
GUICtrlSetState($header, $G_E)
GUICtrlSetState($link, $G_E)
GUICtrlSetState($htmlend, $G_E)
GUICtrlSetState($bodyend, $G_E)
GUICtrlSetState($beginnform, $G_E)
GUICtrlSetState($textfield, $G_E)
GUICtrlSetState($useJSFile, $G_E)
GUICtrlSetState($useCSSFile, $G_E)
GUICtrlSetState($crlf, $G_E)
$bs = 0
EndIf
If $listStarted = 0 And $lS = 0 Then
GUICtrlSetState($addList, $G_D)
GUICtrlSetState($endList, $G_D)
$lS = 1
ElseIf $listStarted = 1 And $lS = 1 Then
GUICtrlSetState($addList, $G_E)
GUICtrlSetState($endList, $G_E)
$lS = 0
EndIf
If $formStarted = 0 And $fS = 0 Then
GUICtrlSetState($endform, $G_D)
$fS = 1
ElseIf $formStarted = 1 And $fS = 1 Then
GUICtrlSetState($endform, $G_E)
$fS = 0
EndIf
If $isHTML = 1 And $ih = 0 Then
GUICtrlSetState($htmlstart, $G_D)
$ih = 1
ElseIf $isBody = 1 And $ib = 0 Then
GUICtrlSetState($bodystart, $G_D)
$ib = 1
EndIf
If $formStarted = 0 And $fS = 0 Then
GUICtrlSetState($endform, $G_D)
$fS = 1
ElseIf $formStarted = 1 And $fS = 1 Then
GUICtrlSetState($endform, $G_E)
$fS = 0
EndIf
If $isHTML = 1 And $ih = 0 Then
GUICtrlSetState($htmlstart, $G_D)
$ih = 1
ElseIf $isBody = 1 And $ib = 0 Then
GUICtrlSetState($bodystart, $G_D)
$ib = 1
EndIf
Sleep(10)
EndFunc
Hoffentlich meldet sich PrideRage zu diesem Thread...
MfG button421