Es una versión de ejemplo para demostrar la potencia de Autoit.
link en http://www.emesn.com:8888/mas/
fichero Ejemplo_Editor_Web(1).au3
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.1.12 (beta)
Script de ejemplo para un editor/generador Web
Author: Basicos http://www.autoit.es
Puede crear una pequeña página web con Autoit este es un ejemplo para ver la potencia de este
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <GUIConstants.au3>
#Include <GuiEdit.au3>
#include <IE.au3>
$oIE = ObjCreate("Shell.Explorer.2")
GUICreate("GUI menu", 880, 400)
$GUIActiveX = GUICtrlCreateObj($oIE, 420, 0, 450, 370)
$savemenu = GUICtrlCreateMenu("Archivo")
$abre = GUICtrlCreateMenuitem("Abrir", $savemenu)
$save = GUICtrlCreateMenuitem("Guardar", $savemenu)
$vor = GUICtrlCreateMenuitem("Vista Previa", $savemenu)
$zuruck = GUICtrlCreateMenuitem("Deshacer", $savemenu)
$filemenu = GUICtrlCreateMenu("Archivo")
$headmenu = GUICtrlCreateMenu("Html Básico", $filemenu)
$head = GUICtrlCreateMenuitem("Inserta Página Básica", $headmenu)
$bear = GUICtrlCreateMenuitem("Otro", $headmenu)
$url = GUICtrlCreateMenuitem("Link", $filemenu)
$mail = GUICtrlCreateMenuitem("E-Mail-link", $filemenu)
$separator1 = GUICtrlCreateMenuitem("", $filemenu)
$exititem = GUICtrlCreateMenuitem("Salir", $filemenu)
$schriftmenu = GUICtrlCreateMenu("Tipos")
$ub = GUICtrlCreateMenu("Títulos", $schriftmenu)
$h1 = GUICtrlCreateMenuitem("h1", $ub)
$h2 = GUICtrlCreateMenuitem("h2", $ub)
$h3 = GUICtrlCreateMenuitem("h3", $ub)
$h4 = GUICtrlCreateMenuitem("h4", $ub)
$h5 = GUICtrlCreateMenuitem("h5", $ub)
$h6 = GUICtrlCreateMenuitem("h6", $ub)
$big = GUICtrlCreateMenuitem("Negrita", $schriftmenu)
$unter = GUICtrlCreateMenuitem("Subrrayado", $schriftmenu)
$durch = GUICtrlCreateMenuitem("Tachado", $schriftmenu)
$kur = GUICtrlCreateMenuitem("Cursiva", $schriftmenu)
$blink = GUICtrlCreateMenuitem("Intermitente", $schriftmenu)
$lauf = GUICtrlCreateMenuitem("Corrector", $schriftmenu)
$edit = GUICtrlCreateEdit("", 10, 0, 400, 370, $ES_MULTILINE + $ES_WANTRETURN)
GUISetState()
$context = GUICtrlCreateContextMenu()
Dim $saves = @MyDocumentsDir&"\mi_pagina.html", $ausgabe
GUICtrlSetData($edit, FileRead($saves))
$actEdit = GUICtrlRead($edit)
While 1
$msg = GUIGetMsg()
$a_sel = _GUICtrlEditGetSel($edit)
$actEdit = GUICtrlRead($edit)
If Not ($a_sel == $EC_ERR) Then $actSel = StringMid($actEdit, $a_sel[1], $a_sel[2] - $a_sel[1])
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $head
$grund = '<html>' & @CRLF & '<head>' & @CRLF & '<title></title>' & @CRLF & '<meta name="author" content=">' & @CRLF & '</head>' & @CRLF & '<body>' & @CRLF& @CRLF& @CRLF& @CRLF & '</body>' & @CRLF & '</html>'
_GUICtrlEditReplaceSel($edit, 1, $grund)
send("{UP 6}")
Case $msg = $url
$link = '<a></a>'
_GUICtrlEditReplaceSel($edit, 1, $link)
Case $msg = $mail
$email = '<a></a>'
_GUICtrlEditReplaceSel($edit, 1, $email)
Case $msg = $h1
$h1s = '<h1>' & $actSel & '</h1>'
_GUICtrlEditReplaceSel($edit, 1, $h1s)
Case $msg = $h2
$h2s = '<h2>' & $actSel & '</h2>'
_GUICtrlEditReplaceSel($edit, 1, $h2s)
Case $msg = $h3
$h3s = '<h3>' & $actSel & '</h3>'
_GUICtrlEditReplaceSel($edit, 1, $h3s)
Case $msg = $h4
$h4s = '<h4>' & $actSel & '</h4>'
_GUICtrlEditReplaceSel($edit, 1, $h4s)
Case $msg = $h5
$h5s = '<h5>' & $actSel & '</h5>'
_GUICtrlEditReplaceSel($edit, 1, $h5s)
Case $msg = $h6
$h6s = '<h6>' & $actSel & '</h6>'
_GUICtrlEditReplaceSel($edit, 1, $h6s)
Case $msg = $big
$bigs = '<b>' & $actSel & '</b>'
_GUICtrlEditReplaceSel($edit, 1, $bigs)
Case $msg = $durch
$durchs = '<s>' & $actSel & '</s>'
_GUICtrlEditReplaceSel($edit, 1, $durchs)
Case $msg = $unter
$unters = '<u>' & $actSel & '</u>'
_GUICtrlEditReplaceSel($edit, 1, $unters)
Case $msg = $kur
$kurs = '<i>' & $actSel & '</i>'
_GUICtrlEditReplaceSel($edit, 1, $kurs)
Case $msg = $blink
$blinks = '<blink>' & $actSel & '</blink>'
_GUICtrlEditReplaceSel($edit, 1, $blinks)
Case $msg = $lauf
$laufs = '<marquee>' & $actSel & '</marquee>'
_GUICtrlEditReplaceSel($edit, 1, $laufs)
Case $msg = $abre
$MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
$saves = FileOpenDialog("Elige un nombre.", $MyDocsFolder, "(*.*)", 3, "mi_pagina.html")
If @error Then
MsgBox(4096, "", "Salvado Cancelado.")
Else
GUICtrlSetData($edit, FileRead($saves))
EndIf
Case $msg = $save
$MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
$saves = FileSaveDialog("Elige un nombre.", $MyDocsFolder, "(*.*)", 3, "mi_pagina.html")
If @error Then
MsgBox(4096, "", "Salvado Cancelado.")
Else
$ausgabe = GUICtrlRead($edit)
FileMove($saves,$saves&".bak",1)
FileWrite($saves, $ausgabe)
EndIf
Case $msg = $vor
$ausgabe = GUICtrlRead($edit)
FileMove($saves,$saves&".bak")
FileWrite($saves, $ausgabe)
$oIE.navigate ($saves)
Case $msg = $zuruck
_GUICtrlEditUndo($edit)
Case $msg = $exititem
ExitLoop
EndSelect
WEnd
GUIDelete()
Exit