WEBOBO create text

[NewForAutoit]

You can create your images into text

With the following script:

#include <GUIConstants.au3>
#include <IE.au3>
Opt("TrayMenuMode", 1)
$reduireitfem = TrayCreateItem("WEBOBO CREAT")
$rffehh = TrayCreateItem("Version 0.1")
$oIE = _IECreateEmbedded ()
$Form1 = GUICreate("WEBOBO CREAT", 387, 317, 193, 125)
$Label1 = GUICtrlCreateLabel("WEBOBO CREAT TEXT", 24, 8, 313, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Aerial")
$Input1 = GUICtrlCreateInput("Your Text", 40, 72, 281, 21)
$Label2 = GUICtrlCreateLabel("Your Text :", 32, 48, 53, 17)
$Button1 = GUICtrlCreateButton("Creat", 288, 104, 57, 17, 0)
$Label3 = GUICtrlCreateLabel("Resultat :", 32, 104, 49, 17)
$GUIActiveX = GUICtrlCreateObj($oIE, 32, 128, 329, 161)
GUISetState(@SW_SHOW)
_IENavigate ($oIE, "http://www.webobo.com/modeles/banniere.php?text=Your Text")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
_IENavigate ($oIE, "http://www.webobo.com/modeles/banniere.php?text="&GUICtrlRead($Input1))
EndSwitch
WEnd

Edited June 12, 2008 by NewForAutoit