Ok, here is a simpler one.
Enter text into the field and hit the "Reverse" button. This effectively "posts" the information, and the scrip will reverse it.
The other two buttons fill the field with some data.
code:
Break On
;
; Simple example GUI interface.
;
; Richard Howarth (rhowarth@sgb.co.uk)
;
$MODE_BUTTON1=1
$MODE_BUTTON2=2
$MODE_BUTTON3=3
$sTitle="KiXtart HTML Entry Form Demo"
$Q='"'
Global $HTMLFILE
$HTMLFILE="%TEMP%\htmldemo.html"
Del $HTMLFILE
"Generating HTML File..." ?
Call fnMakeHTML()
"Starting IE instance..." ?
$oIE = CreateObject("InternetExplorer.Application")
; Hide IE paraphenalia.
$oIE.toolbar=0
$oIE.addressbar=0
$oIE.statusbar=0
$oIE.Navigate($HTMLFILE)
; Wait for page to stop loading...
While $oIE.busy AND $oIE.readystate <> 4 AND @ERROR = 0 Loop
$oIE.Visible=1
$oDoc=$oIE.document
$=SetFocus("$sTITLE")
$iStatus=$oDoc.frmControl.Status.value
While @ERROR=0
Select
Case $iStatus=$MODE_BUTTON1
$s=""
For $i=Len($oDoc.frmData.txtField1.value) To 1 Step -1
$s=$s+""+SubStr($oDoc.frmData.txtField1.value,$i,1)
Next
$oDoc.frmData.txtField1.value=$s
$oDoc.frmControl.Status.value=0
Case $iStatus=$MODE_BUTTON2
$oDoc.frmData.txtField1.value="KiXtart version is "+@KIX
$oDoc.frmControl.Status.value=0
Case $iStatus=$MODE_BUTTON3
$oDoc.frmData.txtField1.value="Current time is "+@TIME
$oDoc.frmControl.Status.value=0
EndSelect
Sleep(0.1)
$iStatus=$oDoc.frmControl.Status.value
Loop
$nul=SetConsole("FOREGROUND")
; Clean up and exit.
Del $HTMLFILE
Exit 0
; Create started HTML page.
Function fnMakeHTML()
$nul=RedirectOutput($HTMLFILE)
"<HTML>" ?
" <SCRIPT Language=JAVASCRIPT>" ?
; This little bit of JavaScript sets the status variable
" function fnSetStatus(i) {" ?
" frmControl.Status.value=i" ?
" }" ?
" </SCRIPT>" ?
"<HEAD>" ?
" <TITLE>$sTitle</TITLE>" ?
"</HEAD>" ?
"<BODY>" ?
; Define a dummy form to hold the status variable
"<FORM Name=frmControl><INPUT Type=HIDDEN Name=Status Value=0></FORM>" ?
; Define data input form
"<FORM Name=frmData>" ?
; Free form text information:
" Enter Text Here:" ?
" <INPUT Type=TEXT Name=txtField1><BR>" ?
; Reverse text button:
" <INPUT Type=BUTTON Value='Click me to reverse text' onClick='fnSetStatus($MODE_BUTTON1);'><BR>" ?
; Set text to version button:
" <INPUT Type=BUTTON Value='Click me to get KiXtart Version' onClick='fnSetStatus($MODE_BUTTON2);'><BR>" ?
; Set text to time button:
" <INPUT Type=BUTTON Value='Click me to get time' onClick='fnSetStatus($MODE_BUTTON3);'><BR>" ?
"</FORM>" ?
"</BODY>" ?
"</HTML>" ?
$nul=RedirectOutput("")
Return
EndFunction