#91375 - 2003-02-06 06:44 PM
IE get form info
|
rollo
Getting the hang of it
Registered: 2000-07-11
Posts: 85
Loc: louisiana
|
hello, what is a good way to bring up a IE instance and retrive web page via COM, and retrieve a value from a form on that page? I have been looking all day and can not find how to extract it thanks! Adam
|
Top
|
|
|
|
#91381 - 2003-02-06 09:45 PM
Re: IE get form info
|
rollo
Getting the hang of it
Registered: 2000-07-11
Posts: 85
Loc: louisiana
|
cant use kixforms not authorized! if I can just read the values from the form that will be fine. as my head always aches lets add some more! -adam I used to use somthing like it in 3.62
here is what I used to use but I have sleept since!! but I wanted to use a database back end this time 'round.
code:
break on ;big thanks to Bryce and kixtart.org gang -adam If @inwin = 2 ? "win9x system. sorry" exit endif $Description = readvalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters","srvcomment") $Selection = MessageBox("Do you want to update the description of this PC ? the Description is in the title bar", "$Description", 4388,5) If $Selection = 6 ? "Yes selected, continuing...." gosub "GO" Endif return :GO DIM $top DIM $left DIM $height DIM Width DIM $False DIM $true DIM $title DIM $status DIM $doc DIM $nul DIM $html
GLOBAL $group
$dropdown = ""
$title = "Update Computer Description" $top = "10" $left = "10" $height = "550" $width = "550" $false = 0 $true = -1
Gosub HTML Gosub IE ; Get a handle to the form controls ... $oStatus = val("&" + GetObject($doc,"GetElementById","s","status")) $oGroup = val("&" + CreateObject($doc,"GetElementById","s","Group")) $oUnit = val("&" + CreateObject($doc,"GetElementById","s","Unit")) $oOffice = val("&" + CreateObject($doc,"GetElementById","s","Office")) $oCpu = val("&" + CreateObject($doc,"GetElementById","s","Cpu")) $oBuilding = val("&" + CreateObject($doc,"GetElementById","s","Building")) $oRoom = val("&" + CreateObject($doc,"GetElementById","s","Room")) $oPhone = val("&" + CreateObject($doc,"GetElementById","s","Phone")) $oExtra = val("&" + CreateObject($doc,"GetElementById","s","Extra")) $oIP = val("&" + CreateObject($doc,"GetElementById","s","ip")) $oId = val("&" + CreateObject($doc,"GetElementById","s","id")) ;$oAsset = val("&" + CreateObject($doc,"GetElementById","s","Asset")) ; Fill in the fields $nul = oleputproperty($oIP, "value", "s", "@ipaddress0" ) $nul = oleputproperty($oId, "value", "s", "$Description" )
; Get the valueof the status control ... $Status = olegetproperty (val("&" + CreateObject($doc,"GetElementById","s","status")), "value" )
; Main Command Loop while @error = 0 and $status <> "" ; ? $status select case $status = "1" ; Submit was clicked ; Get the Group value / clear form... $Group = olegetproperty($oGroup, "value") $nul = oleputproperty($oGroup,"value","s","")
; Get the unit value / clear form... $Unit = olegetproperty($oUnit, "value") $nul = oleputproperty($oUnit,"value","s","")
; Get the Office value / clear form... $Office = olegetproperty($oOffice, "value") $nul = oleputproperty($oOffice,"value","s","")
; Get the CPU value / clear form... $CPU = olegetproperty($oCpu, "value") $nul = oleputproperty($oCpu,"value","s","")
; Get the Asset value / clear form... ;$Asset = olegetproperty($oAsset, "value") ;$nul = oleputproperty($oAsset,"value","s","")
; Get the building value / clear form...... $Building = olegetproperty($oBuilding, "value") $nul = oleputproperty($oBuilding,"value","s","")
; Get the Room value / clear form...... $Room = olegetproperty($oRoom, "value") $nul = oleputproperty($oRoom,"value","s","")
; Get the Phone value / clear form...... $Phone = olegetproperty($oPhone, "value") $nul = oleputproperty($oPhone,"value","s","")
; Get the Phone value / clear form...... $Extra = olegetproperty($oExtra, "value") $nul = oleputproperty($oExtra, "value","s","")
; Reset the status value to zero ... $nul = oleputproperty($oStatus,"value","s","0")
;create/fill in the csv file $computerDescription = "$Group,$Unit,$Office,$CPU,$Building,$Room,$Phone,$Extra" WRITEVALUE("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters","srvcomment","$computerDescription","REG_SZ") $Description = readvalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters","srvcomment") $update = oleputproperty($oId, "value", "s", "$Description" )
case $status = "2" ;Cancle was clicked. gosub Finish exit endselect ; Get the valueof the status control ... $Status = olegetproperty (val("&" + CreateObject($doc,"GetElementById","s","status")), "value" ) loop gosub Finish return
;--------------------------------------------------------------------------------------------------- :IE $ie = olecreateobject("internetexplorer.application") if $ie = 0 exit endif ; Set properties and display form ... $nul = oleputproperty($ie, "addressbar","s","$false") $nul = oleputproperty($ie, "menubar", "s", "$false") $nul = oleputproperty($ie, "toolbar", "s", "$false") $nul = oleputproperty($ie, "statusbar", "s", "$false") $nul = oleputproperty($ie, "resizable", "s", "$false") $nul = oleputproperty($ie, "top", "s", "$top") $nul = oleputproperty($ie, "left", "s", "$left") $nul = oleputproperty($ie, "height", "s", "$height") $nul = oleputproperty($ie, "width", "s", "$width") $nul = oleputproperty($ie, "visible", "s", "$true") $nul = CreateObject($ie, "navigate", "s", "about:blank") while olegetproperty($ie, "busy") <> "0" and @error = 0 loop
; Get a handle to the open document ... $doc = val("&" + olegetproperty($ie, "document"))
$nul = CreateObject($doc, "write", "s", "$html") while setfocus("$title") <> 0 loop return
;--------------------------------------------------------------------------------------------------- :html $html = '<html> <head><title>$title</title> <style><!---body{ background-color: blue; color: black; font-family: tahoma, arial; font-size: 10pt; margin: 2px " input.tbox { border: lpx black solid;} td { font: 10pt tahoma; } ---></style> </head>
<body scroll=no> <center> <p align="center"> Description<br> Fill in all fields. Once you click submit the changes are made<BR> then you will see the description field get filled in.<BR> Then click the Close. <table align=center> <form name=frm> <tr><td align=right>Ip (info only): </td><td colspan=2><input id=ip name=ip value="" class=tbox></td></tr>
<tr><td align=right>Description: </td><td colspan=2><input id=iD name=iD value="" class=tbox size="60"><hr>do not type in the area above</td></tr>
<tr><td align=right>Enter Group:</td><td colspan=2><SELECT Id=Group> <OPTION value=nul>--- Select An Group ---</OPTION> <OPTION value="RHS">RHS</OPTION> <OPTION value="SPG">SPG</OPTION> <OPTION value="LG">LG</OPTION> <OPTION value="OG">OG</OPTION> </SELECT></td></tr>
<tr><td align=right>Enter Unit:</td><td colspan=2><SELECT Id=Unit> <OPTION value=nul>--- Select An Unit ---</OPTION> <OPTION value="big RHS">bigRHS</OPTION> <OPTION value="47 FTR SQ">47 FTR SQ</OPTION> <OPTION value="47 FSMU">47 FSMU</OPTION> <OPTION value="south CES">south CES</OPTION> <OPTION value="south COMM FT">south COMM FT</OPTION> <OPTION value="south LOG GP">south LOG GP</OPTION> <OPTION value="south MAINT">south MAINT</OPTION> <OPTION value="south MED SQ">south MED SQ</OPTION> <OPTION value="south MSSQ">south MSSQ</OPTION> <OPTION value="south OPS GP">south OPS GP</OPTION> <OPTION value="south SPT GP">south SPT GP</OPTION> <OPTION value="south LSSQ">south LSSQ</OPTION> <OPTION value="south OSF">south OSF</OPTION> <OPTION value="south SFS">south SFS</OPTION> <OPTION value="south WING">south WING</OPTION> <OPTION value="north BOMB SQ">north BOMB SQ</OPTION> <OPTION value="north FSMU">north FSMU</OPTION> <OPTION value="FBK8">FBK8</OPTION> </SELECT></td></tr>
<tr><td align=right>Enter Office:</td><td colspan=2><SELECT Id=Office> <OPTION value=nul>--- Select An Office ---</OPTION> <OPTION value="9892">9892</OPTION> <OPTION value="ADO">ADO</OPTION> <OPTION value="CC">CC</OPTION> <OPTION value="CCA">CCA</OPTION> <OPTION value="CCAP">CCAP</OPTION> <OPTION value="CCE">CCE</OPTION> <OPTION value="CCF">CCF</OPTION> <OPTION value="CCM">CCM</OPTION> <OPTION value="CCQ">CCQ</OPTION> <OPTION value="CCV">CCV</OPTION> <OPTION value="CCX">CCX</OPTION> <OPTION value="CD">CD</OPTION> <OPTION value="CE">CE</OPTION> <OPTION value="CEB">CEB</OPTION> <OPTION value="CED">CED</OPTION> <OPTION value="CEE">CEE</OPTION> <OPTION value="CEF">CEF</OPTION> <OPTION value="CEFO">CEFO</OPTION> <OPTION value="CEO">CEO</OPTION> <OPTION value="CEOI">CEOI</OPTION> <OPTION value="CEOM">CEOM</OPTION> <OPTION value="CES">CES</OPTION> <OPTION value="CEX">CEX</OPTION> <OPTION value="CO">CO</OPTION> <OPTION value="COA">COA</OPTION> <OPTION value="COAA">COAA</OPTION> <OPTION value="COAA1">COAA1</OPTION> <OPTION value="COAA2">COAA2</OPTION> <OPTION value="COAA3">COAA3</OPTION> <OPTION value="COAA4">COAA4</OPTION> <OPTION value="COC">COC</OPTION> <OPTION value="COCA">COCA</OPTION> <OPTION value="COCE">COCE</OPTION> <OPTION value="COCE1">COCE1</OPTION> <OPTION value="COCE2">COCE2</OPTION> <OPTION value="COCE3">COCE3</OPTION> <OPTION value="COCEP">COCEP</OPTION> <OPTION value="COCS">COCS</OPTION> <OPTION value="COCS1">COCS1</OPTION> <OPTION value="COCS2">COCS2</OPTION> <OPTION value="COCS3">COCS3</OPTION> <OPTION value="COCU">COCU</OPTION> <OPTION value="COCUH">COCUH</OPTION> <OPTION value="COCUW">COCUW</OPTION> <OPTION value="COO">COO</OPTION> <OPTION value="COOA">COOA</OPTION> <OPTION value="COOF">COOF</OPTION> <OPTION value="CP">CP</OPTION> <OPTION value="CPM">CPM</OPTION> <OPTION value="CPO">CPO</OPTION> <OPTION value="CSS">CSS</OPTION> <OPTION value="CV">CV</OPTION> <OPTION value="D0N">D0N</OPTION> <OPTION value="DE">DE</OPTION> <OPTION value="DEA">DEA</OPTION> <OPTION value="DEES">DEES</OPTION> <OPTION value="DEF">DEF</OPTION> <OPTION value="DEM">DEM</OPTION> <OPTION value="DEME">DEME</OPTION> <OPTION value="DEMM">DEMM</OPTION> <OPTION value="DEMM-H">DEMM-H</OPTION> <OPTION value="DEMM-R">DEMM-R</OPTION> <OPTION value="DEMP">DEMP</OPTION> <OPTION value="DEMRC">DEMRC</OPTION> <OPTION value="DEMS">DEMS</OPTION> <OPTION value="DEO">DEO</OPTION> <OPTION value="DO">DO</OPTION> <OPTION value="DOA">DOA</OPTION> <OPTION value="DOC">DOC</OPTION> <OPTION value="DOF">DOF</OPTION> <OPTION value="DOG">DOG</OPTION> <OPTION value="DOI">DOI</OPTION> <OPTION value="DOL">DOL</OPTION> <OPTION value="DOM">DOM</OPTION> <OPTION value="DOMT">DOMT</OPTION> <OPTION value="DON">DON</OPTION> <OPTION value="DONB">DONB</OPTION> <OPTION value="DOO">DOO</OPTION> <OPTION value="DOOC">DOOC</OPTION> <OPTION value="DOR">DOR</OPTION> <OPTION value="DOS">DOS</OPTION> <OPTION value="DOT">DOT</OPTION> <OPTION value="DOTF">DOTF</OPTION> <OPTION value="DOTS">DOTS</OPTION> <OPTION value="DOTV">DOTV</OPTION> <OPTION value="DOV">DOV</OPTION> <OPTION value="DOW">DOW</OPTION> <OPTION value="DPM">DPM</OPTION> <OPTION value="DPMA">DPMA</OPTION> <OPTION value="DPMAE">DPMAE</OPTION> <OPTION value="DPMAR">DPMAR</OPTION> <OPTION value="DPMD">DPMD</OPTION> <OPTION value="DPMP">DPMP</OPTION> <OPTION value="DPMPE">DPMPE</OPTION> <OPTION value="DPMPS">DPMPS</OPTION> <OPTION value="DPMSA">DPMSA</OPTION> <OPTION value="DPMSC">DPMSC</OPTION> <OPTION value="DPMT">DPMT</OPTION> <OPTION value="DPT">DPT</OPTION> <OPTION value="FM">FM</OPTION> <OPTION value="HC">HC</OPTION> <OPTION value="HO">HO</OPTION> <OPTION value="IG">IG</OPTION> <OPTION value="IN">IN</OPTION> <OPTION value="JA">JA</OPTION> <OPTION value="LG">LG</OPTION> <OPTION value="LGL">LGL</OPTION> <OPTION value="LGLC">LGLC</OPTION> <OPTION value="LGLI">LGLI</OPTION> <OPTION value="LGLM">LGLM</OPTION> <OPTION value="LGLOR">LGLOR</OPTION> <OPTION value="LGLP">LGLP</OPTION> <OPTION value="LGLS">LGLS</OPTION> <OPTION value="LGLSF">LGLSF</OPTION> <OPTION value="LGLT">LGLT</OPTION> <OPTION value="LGLX">LGLX</OPTION> <OPTION value="LGM">LGM</OPTION> <OPTION value="LGMA">LGMA</OPTION> <OPTION value="LGMAE">LGMAE</OPTION> <OPTION value="LGMAF">LGMAF</OPTION> <OPTION value="LGMAG">LGMAG</OPTION> <OPTION value="LGMAH">LGMAH</OPTION> <OPTION value="LGMF">LGMF</OPTION> <OPTION value="LGMFE">LGMFE</OPTION> <OPTION value="LGMFN">LGMFN</OPTION> <OPTION value="LGMFS">LGMFS</OPTION> <OPTION value="LGMG">LGMG</OPTION> <OPTION value="LGMI">LGMI</OPTION> <OPTION value="LGMM">LGMM</OPTION> <OPTION value="LGMMP">LGMMP</OPTION> <OPTION value="LGMMR">LGMMR</OPTION> <OPTION value="LGMP">LGMP</OPTION> <OPTION value="LGMPE">LGMPE</OPTION> <OPTION value="LGMPJ">LGMPJ</OPTION> <OPTION value="LGMPT">LGMPT</OPTION> <OPTION value="LGMR">LGMR</OPTION> <OPTION value="LGMV">LGMV</OPTION> <OPTION value="LGMVE">LGMVE</OPTION> <OPTION value="LGMVS">LGMVS</OPTION> <OPTION value="LGMVT">LGMVT</OPTION> <OPTION value="LGMW">LGMW</OPTION> <OPTION value="LGMWA">LGMWA</OPTION> <OPTION value="LGMWS">LGMWS</OPTION> <OPTION value="LGQ">LGQ</OPTION> <OPTION value="LGS">LGS</OPTION> <OPTION value="LGSA">LGSA</OPTION> <OPTION value="LGSAE">LGSAE</OPTION> <OPTION value="LGSF">LGSF</OPTION> <OPTION value="LGSFO">LGSFO</OPTION> <OPTION value="LGT">LGT</OPTION> <OPTION value="LGTA1">LGTA1</OPTION> <OPTION value="LGTA2">LGTA2</OPTION> <OPTION value="LGTC">LGTC</OPTION> <OPTION value="LGTF">LGTF</OPTION> <OPTION value="LGTM">LGTM</OPTION> <OPTION value="LGTM1">LGTM1</OPTION> <OPTION value="LGTM2">LGTM2</OPTION> <OPTION value="LGTT">LGTT</OPTION> <OPTION value="LGX">LGX</OPTION> <OPTION value="LSLOB">LSLOB</OPTION> <OPTION value="MA">MA</OPTION> <OPTION value="MA0A">MA0A</OPTION> <OPTION value="MA0SA">MA0SA</OPTION> <OPTION value="MA0SB">MA0SB</OPTION> <OPTION value="MAA">MAA</OPTION> <OPTION value="MAF">MAF</OPTION> <OPTION value="MAFD">MAFD</OPTION> <OPTION value="MAFI">MAFI</OPTION> <OPTION value="MAFS">MAFS</OPTION> <OPTION value="MAO">MAO</OPTION> <OPTION value="MAOA">MAOA</OPTION> <OPTION value="MAOB">MAOB</OPTION> <OPTION value="MAOC">MAOC</OPTION> <OPTION value="MAOF">MAOF</OPTION> <OPTION value="MAOS">MAOS</OPTION> <OPTION value="MAOSA">MAOSA</OPTION> <OPTION value="MAOSB">MAOSB</OPTION> <OPTION value="MAOW">MAOW</OPTION> <OPTION value="MAQ">MAQ</OPTION> <OPTION value="MAS">MAS</OPTION> <OPTION value="ME">ME</OPTION> <OPTION value="MERBD">MERBD</OPTION> <OPTION value="MERH">MERH</OPTION> <OPTION value="OGV">OGV</OPTION> <OPTION value="OGVB">OGVB</OPTION> <OPTION value="OSF CCQ">OSF CCQ</OPTION> <OPTION value="OSOF">OSOF</OPTION> <OPTION value="OST">OST</OPTION> <OPTION value="OSTL">OSTL</OPTION> <OPTION value="OSTW">OSTW</OPTION> <OPTION value="PA">PA</OPTION> <OPTION value="QA">QA</OPTION> <OPTION value="RA">RA</OPTION> <OPTION value="RXR">RXR</OPTION> <OPTION value="SA">SA</OPTION> <OPTION value="SBP">SBP</OPTION> <OPTION value="SCB">SCB</OPTION> <OPTION value="SCBN">SCBN</OPTION> <OPTION value="SCBT">SCBT</OPTION> <OPTION value="SCUV">SCUV</OPTION> <OPTION value="SE">SE</OPTION> <OPTION value="SEA">SEA</OPTION> <OPTION value="SEF">SEF</OPTION> <OPTION value="SEG">SEG</OPTION> <OPTION value="SEW">SEW</OPTION> <OPTION value="SF0S">SF0S</OPTION> <OPTION value="SFO">SFO</OPTION> <OPTION value="SFOS">SFOS</OPTION> <OPTION value="SG">SG</OPTION> <OPTION value="SGA">SGA</OPTION> <OPTION value="SGAL">SGAL</OPTION> <OPTION value="SGAS">SGAS</OPTION> <OPTION value="SGAT">SGAT</OPTION> <OPTION value="SGB">SGB</OPTION> <OPTION value="SGBP">SGBP</OPTION> <OPTION value="SGD">SGD</OPTION> <OPTION value="SGDD">SGDD</OPTION> <OPTION value="SGH">SGH</OPTION> <OPTION value="SGHL">SGHL</OPTION> <OPTION value="SGHN">SGHN</OPTION> <OPTION value="SGHR">SGHR</OPTION> <OPTION value="SGHSEO">SGHSEO</OPTION> <OPTION value="SGJ">SGJ</OPTION> <OPTION value="SGL">SGL</OPTION> <OPTION value="SGN">SGN</OPTION> <OPTION value="SGO">SGO</OPTION> <OPTION value="SGOBC">SGOBC</OPTION> <OPTION value="SGOMN">SGOMN</OPTION> <OPTION value="SGP">SGP</OPTION> <OPTION value="SGPB">SGPB</OPTION> <OPTION value="SGPF">SGPF</OPTION> <OPTION value="SGPFS">SGPFS</OPTION> <OPTION value="SGPM">SGPM</OPTION> <OPTION value="SGS">SGS</OPTION> <OPTION value="SGSA">SGSA</OPTION> <OPTION value="SGSAL">SGSAL</OPTION> <OPTION value="SGSAP">SGSAP</OPTION> <OPTION value="SGSL">SGSL</OPTION> <OPTION value="SGSO">SGSO</OPTION> <OPTION value="SGSTC">SGSTC</OPTION> <OPTION value="SME">SME</OPTION> <OPTION value="SPC">SPC</OPTION> <OPTION value="SPO">SPO</OPTION> <OPTION value="SPOS">SPOS</OPTION> <OPTION value="SVM">SVM</OPTION> <OPTION value="SVMF">SVMF</OPTION> <OPTION value="SVML">SVML</OPTION> <OPTION value="SVMM">SVMM</OPTION> <OPTION value="SVMR">SVMR</OPTION> <OPTION value="XP">XP</OPTION>
</SELECT></td></tr>
<tr><td align=right>type CPU:</td><td colspan=2><SELECT Id=Cpu> <OPTION value=nul>--- Select A Type ---</OPTION> <OPTION value="Desktop">Desktop</OPTION> <OPTION value="Laptop">Laptop</OPTION> </SELECT></td></tr>
<tr><td align=right>Building: </td><td colspan=2><input id=Building name=Building value="" class=tbox></td></tr> <tr><td align=right>Room: </td><td colspan=2><input id=Room name=Room value="" class=tbox></td></tr> <tr><td align=right>Phone:(4 digits) </td><td colspan=2><input id=Phone name=Phone value="" class=tbox></td></tr> <tr><td align=right>Extra: </td><td colspan=2><input id=Extra name=Extra value="" class=tbox></td></tr> <tr><td align=right></td><td colspan=2> <input type=hidden id=status value=0><p> <tr><td colspan=2><td align=right> <tr><td align=right><input id=enter type=button value=" Submit " onclick="frm.status.value=1"> <input id=close type=button value=" Close " onclick="frm.status.value=2"> </td><td colspan=2></center> </form></table></body> </html>' return
;--------------------------------------------------------------------------------------------------- :finish ; Object cleanup ... $nul = CreateObject ( $doc, "close" ) $nul = olereleaseobject ( $doc ) $nul = CreateObject ( $ie, "quit" ) $nul = olereleaseobject ( $ie )
$Selection = MessageBox("Thank you for updating this! You Should Reboot this PC Click Yes to shutdown now", "Reboot!", 4116,10)
If $Selection = 6 ? "Yes selected, continuing...." gosub "shutdown"
Endif
return :shutdown Shutdown("", "System is being rebooted to enable new settings.", 60, 0, 1) return
|
Top
|
|
|
|
#91384 - 2003-02-07 09:41 PM
Re: IE get form info
|
rollo
Getting the hang of it
Registered: 2000-07-11
Posts: 85
Loc: louisiana
|
I still need help on this I am not sure how to convert from the old to the new version of kix. please help! or if I had some documentation about how whats going on in this like what steve did. Thanks -Adam
|
Top
|
|
|
|
#91386 - 2003-02-09 09:59 PM
Re: IE get form info
|
rollo
Getting the hang of it
Registered: 2000-07-11
Posts: 85
Loc: louisiana
|
can not use them not authorized on the network here too bad!
|
Top
|
|
|
|
#91388 - 2003-02-10 04:33 AM
Re: IE get form info
|
rollo
Getting the hang of it
Registered: 2000-07-11
Posts: 85
Loc: louisiana
|
government system... I just got the okay to use kix 4.x from 3.62 and I have been requesting that since the final release way back then. Here is better fix incorporate kixforms into kix!!!! then I can use it. RUUD can you please do it? -Adam -still need help on converting this thing
|
Top
|
|
|
|
#91389 - 2003-02-10 09:54 AM
Re: IE get form info
|
Richard H.
Administrator
Registered: 2000-01-24
Posts: 4946
Loc: Leatherhead, Surrey, UK
|
I'm using IE for form entry in a couple of projects.
Here's one I prepared earlier.
It's a little more complicated than your needs, but you should be able to use it to teach yourself the new COM semantics.
I use a pair of hidden form status variables to control the execution of KiXtart and IE. These inform the relative part to do thngs like "write the information to file", and "initialise the form variables" etc.
|
Top
|
|
|
|
#91390 - 2003-02-11 05:35 AM
Re: IE get form info
|
rollo
Getting the hang of it
Registered: 2000-07-11
Posts: 85
Loc: louisiana
|
Richard, I am starting to see it but its still clear as mud can you post a real basic skeleton script perhaps document whats happening please I.E. one field. I can see how to get and set a page elements on the html but where it gets dark is how to detect & set the change when you click submit. your printer script has alot of work in it! but I need somthing simple to learn whats going on then I can build up from there thanks Adam
|
Top
|
|
|
|
#91391 - 2003-02-11 02:14 PM
Re: IE get form info
|
Richard H.
Administrator
Registered: 2000-01-24
Posts: 4946
Loc: Leatherhead, Surrey, UK
|
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
|
Top
|
|
|
|
#91392 - 2003-02-16 06:32 AM
Re: IE get form info
|
rollo
Getting the hang of it
Registered: 2000-07-11
Posts: 85
Loc: louisiana
|
okay after too many hours my logic is falling short. please look at this and see what I am missing here I can not seem to get a proper result from my select case inside the loop. WHAT AM I MISSING???? thanks Adam (testing on xp and IE6)
code:
BREAK ON IF @inwin = 2 ? "This script will not Run on a win9x system." EXIT ENDIF
$description = readvalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters","srvcomment") ;--------------------------------------------------------
$title = "Update Computer Description"
;---------------- Instantiate Object --------------------
global $appie , $status $appie = CREATEOBJECT("InternetExplorer.Application")
;---------------- load up html --------------------------
$html = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML> <HEAD> <META NAME="generator" CONTENT="HTML Tidy, see www.w3.org"> <META HTTP-EQUIV="Expires" CONTENT="-1"> <TITLE>$title</TITLE> <STYLE TYPE="text/css"> <!---body{ background-color: blue; color: black; font-family: tahoma, arial; font-size: 10pt; margin: 2px " input.tbox { border: lpx black solid;} td { font: 10pt tahoma; } ---> </STYLE> </HEAD>
<BODY SCROLL="no"> <CENTER> <P ALIGN="center">Description <BR> Fill in all fields. Once you click submit the changes are made <BR> then you will see the description field get filled in. <BR> Then click the Close.</P>
<FORM name="frm">
<TABLE ALIGN="center"> <TR> <TD ALIGN="right">Ip (info only):</TD>
<TD COLSPAN="2"><INPUT ID="ip" VALUE="123" CLASS="tbox"></TD> </TR>
<TR> <TD ALIGN="right">Description:</TD>
<TD COLSPAN="2"> <INPUT ID="id" VALUE="" CLASS="tbox" SIZE="60"> <HR> do not type in the area above </TD> </TR>
<TD COLSPAN="2"><INPUT TYPE="hidden" id="status" VALUE="0"></TD> </TR>
<TR> <TD COLSPAN="2"> </TD>
<TD ALIGN="right"> </TD> </TR>
<TR> <TD ALIGN="right"> <INPUT ID="enter" TYPE="button" VALUE=" Submit " ONCLICK="frm.status.value=1"> <INPUT ID="close" TYPE="button" VALUE=" Close " ONCLICK="frm.status.value=2"> </TD></FORM>
<TD COLSPAN="2"> </TD> </TR> </TABLE> </CENTER> </BODY> </HTML>'
;---------------- Set IE Object Properties -------------- $appie.top = 10 $appie.left = 300 $appie.height = 550 $appie.width = 550 $appie.addressbar = 0 $appie.menubar = 0 $appie.toolbar = 0 $appie.statusbar = 0 $appie.resizeable = 0 $appie.navigate("about:blank")
;-------------- load html ------------------ $appie.document.write($html)
WHILE $appie.busy <> 0 AND @error = 0 LOOP
;----------------Make IE visible and set focus -----------
$appie.visible = 1 WHILE setfocus("$title") <> 0 LOOP ;---------shorten up the path ---------- $doc = $appie.document
$status = "" ;---- write in your ip into the webpage-----
$appie.document.frm.ip.value =@ipaddress0 $appie.document.frm.id.value = $description
; Get the valueof the status control ... $status = $appie.document.frm.status.value ? $Status ; Main Command Loop ;--- I want to make sure I am see the right thing ? $doc.frm.ip.value
debug off ? "pause before the loop" get $
while $status = "0" ? "in loop status = $status " select case $status = "1" ? "submit was clicked" get $x case $status = "2" ? "Cancel was clicked" goto Finish endselect
; Get the valueof the status control ... $status = $doc.frm.status.value
loop ;--------------- finish ---------------- :finish debug off ? "final status=$status"
;---------------- Object cleanup ... ? "pause after loop" GET $ ;sleep 4 $appie.quit $appie = '' exit
[ 16. February 2003, 06:37: Message edited by: rollo ]
|
Top
|
|
|
|
#91394 - 2003-02-17 05:47 AM
Re: IE get form info
|
rollo
Getting the hang of it
Registered: 2000-07-11
Posts: 85
Loc: louisiana
|
ok got it working! it loads a webpage from my server(which is online) kix loads the form values and the description of the pc and shows the ip. you fill out the form and kix updates the description field in the form and on your pc when you submit. kix then closes IE when you click close. still requires a reboot to show up on the box. I still have plans to go further with this to populate a mysql database here is the code.
code:
BREAK ON IF @inwin = 2 ? "This script will not Run on a win9x system." EXIT ENDIF
$description = readvalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters","srvcomment") ;---- Form title ----
$title = "Description Update"
;---- Instantiate Object ---- GLOBAL $appie , $status $appie = CREATEOBJECT("InternetExplorer.Application")
;---- load up html ---- ;CALL html.kix
;---------------- Set IE Object Properties -------------- $appie.top = 10 $appie.left = 10 $appie.height = 550 $appie.width = 550 $appie.addressbar = 0 $appie.menubar = 0 $appie.toolbar = 0 $appie.statusbar = 0 $appie.resizeable = 0 ;$appie.navigate("about:blank") $appie.navigate("http://kix.mine.nu/inv.php")
;-------------- load html ------------------ ;$appie.document.write($html)
WHILE $appie.busy <> 0 AND @error = 0 LOOP
;----------------Make IE visible and set focus ----------- $appie.visible = 1 WHILE setfocus("$title") <> 0 LOOP
;---------shorten up the path ---------- $doc = $appie.document.frm
;---- write in your ip on the form ----- $doc.ip.value =@ipaddress0
;---- write in the current description on the form ---- $doc.id.value = $description $doc.id.isContentEditable = false
;------------- main loop ------------------- ; Get the valueof the status control ... $status = $doc.status.value WHILE $status <> "2" ;? "in loop status = $status " IF $status = "1" ? "submit was clicked" $group = $doc.group.value $unit = $doc.unit.value $office = $doc.office.value $cpu = $doc.cpu.value $building = $doc.building.value $room = $doc.room.value $phone = $doc.phone.value $extra = $doc.extra.value $ip = $doc.ip.value
$computerdescription = "$Group,$Unit,$Office,$CPU,$Building,$Room,$Phone,$Extra" ;---- write the description to the registry ---- WRITEVALUE("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters","srvcomment","$computerDescription","REG_SZ") $description = readvalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters","srvcomment") $doc.id.value =$description ;---- reset the value of the status so user can see the results in the form ----- $doc.status.value = 0 ENDIF
;---- Get the valueof the status control ---- $status = $doc.status.value sleep 1 LOOP
;---- finish ----
;---- Object cleanup ----
$appie.quit $appie = '' EXIT
here is the web page code code:
<html><title>Description Update</title>
<head><META HTTP-EQUIV="Expires" CONTENT="-1"> <style><!---body{ background-color: blue; color: black; font-family: tahoma, arial; font-size: 10pt; margin: 2px " input.tbox { border: lpx black solid;} td { font: 10pt tahoma; } ---></style> </head>
<body scroll=no> <center> <p align="center"><h2> Description Update</h2> Fill in all fields.<br> Once you click submit the changes are made.<BR> Then the description field updated.<BR> Click the Close button<br> (there will be a one second delay after clicking until closing). <table align=center> <form name=frm>
<tr><td align=right>Ip (info only): </td><td colspan=2><input id=ip name=ip value="if you see this kix did not work" class=tbox disabled></td></tr>
<tr><td align=right>Description: </td><td colspan=2><input id=iD name=iD value="" class=tbox size="60" disabled><br><hr>do not type in the area above</td></tr>
<tr><td align=right>Enter Group:</td><td colspan=2><SELECT Id=Group> <OPTION value=nul>--- Select An Group ---</OPTION> <OPTION value="RHS">RHS</OPTION> <OPTION value="SPG">SPG</OPTION> <OPTION value="LG">LG</OPTION> <OPTION value="OG">OG</OPTION> </SELECT></td></tr>
<tr><td align=right>Enter Unit:</td><td colspan=2><SELECT Id=Unit> <OPTION value=nul>--- Select An Unit ---</OPTION> <OPTION value="307 RHS">307RHS</OPTION> <OPTION value="47 FTR SQ">47 FTR SQ</OPTION> <OPTION value="47 FSMU">47 FSMU</OPTION> <OPTION value="917 CES">917 CES</OPTION> <OPTION value="917 COMM FT">917 COMM FT</OPTION> <OPTION value="917 LOG GP">917 LOG GP</OPTION> <OPTION value="917 MAINT">917 MAINT</OPTION> <OPTION value="917 MED SQ">917 MED SQ</OPTION> <OPTION value="917 MSSQ">917 MSSQ</OPTION> <OPTION value="917 OPS GP">917 OPS GP</OPTION> <OPTION value="917 SPT GP">917 SPT GP</OPTION> <OPTION value="917 LSSQ">917 LSSQ</OPTION> <OPTION value="917 OSF">917 OSF</OPTION> <OPTION value="917 SFS">917 SFS</OPTION> <OPTION value="917 WING">917 WING</OPTION> <OPTION value="93 BOMB SQ">93 BOMB SQ</OPTION> <OPTION value="93 FSMU">93 FSMU</OPTION> <OPTION value="FBK8">FBK8</OPTION> </SELECT></td></tr>
<tr><td align=right>Enter Office:</td><td colspan=2><SELECT Id=Office> <OPTION value=nul>--- Select An Office ---</OPTION> <OPTION value="9892">9892</OPTION> <OPTION value="ADO">ADO</OPTION> <OPTION value="CC">CC</OPTION> <OPTION value="CCA">CCA</OPTION> <OPTION value="CCAP">CCAP</OPTION> <OPTION value="CCE">CCE</OPTION> <OPTION value="CCF">CCF</OPTION> <OPTION value="CCM">CCM</OPTION> <OPTION value="CCQ">CCQ</OPTION> <OPTION value="CCV">CCV</OPTION> <OPTION value="CCX">CCX</OPTION> <OPTION value="CD">CD</OPTION> <OPTION value="CE">CE</OPTION> <OPTION value="CEB">CEB</OPTION> <OPTION value="CED">CED</OPTION> <OPTION value="CEE">CEE</OPTION> <OPTION value="CEF">CEF</OPTION> <OPTION value="CEFO">CEFO</OPTION> <OPTION value="CEO">CEO</OPTION> <OPTION value="CEOI">CEOI</OPTION> <OPTION value="CEOM">CEOM</OPTION> <OPTION value="CES">CES</OPTION> <OPTION value="CEX">CEX</OPTION> <OPTION value="CO">CO</OPTION> <OPTION value="COA">COA</OPTION> <OPTION value="COAA">COAA</OPTION> <OPTION value="COAA1">COAA1</OPTION> <OPTION value="COAA2">COAA2</OPTION> <OPTION value="COAA3">COAA3</OPTION> <OPTION value="COAA4">COAA4</OPTION> <OPTION value="COC">COC</OPTION> <OPTION value="COCA">COCA</OPTION> <OPTION value="COCE">COCE</OPTION> <OPTION value="COCE1">COCE1</OPTION> <OPTION value="COCE2">COCE2</OPTION> <OPTION value="COCE3">COCE3</OPTION> <OPTION value="COCEP">COCEP</OPTION> <OPTION value="COCS">COCS</OPTION> <OPTION value="COCS1">COCS1</OPTION> <OPTION value="COCS2">COCS2</OPTION> <OPTION value="COCS3">COCS3</OPTION> <OPTION value="COCU">COCU</OPTION> <OPTION value="COCUH">COCUH</OPTION> <OPTION value="COCUW">COCUW</OPTION> <OPTION value="COO">COO</OPTION> <OPTION value="COOA">COOA</OPTION> <OPTION value="COOF">COOF</OPTION> <OPTION value="CP">CP</OPTION> <OPTION value="CPM">CPM</OPTION> <OPTION value="CPO">CPO</OPTION> <OPTION value="CSS">CSS</OPTION> <OPTION value="CV">CV</OPTION> <OPTION value="D0N">D0N</OPTION> <OPTION value="DE">DE</OPTION> <OPTION value="DEA">DEA</OPTION> <OPTION value="DEES">DEES</OPTION> <OPTION value="DEF">DEF</OPTION> <OPTION value="DEM">DEM</OPTION> <OPTION value="DEME">DEME</OPTION> <OPTION value="DEMM">DEMM</OPTION> <OPTION value="DEMM-H">DEMM-H</OPTION> <OPTION value="DEMM-R">DEMM-R</OPTION> <OPTION value="DEMP">DEMP</OPTION> <OPTION value="DEMRC">DEMRC</OPTION> <OPTION value="DEMS">DEMS</OPTION> <OPTION value="DEO">DEO</OPTION> <OPTION value="DO">DO</OPTION> <OPTION value="DOA">DOA</OPTION> <OPTION value="DOC">DOC</OPTION> <OPTION value="DOF">DOF</OPTION> <OPTION value="DOG">DOG</OPTION> <OPTION value="DOI">DOI</OPTION> <OPTION value="DOL">DOL</OPTION> <OPTION value="DOM">DOM</OPTION> <OPTION value="DOMT">DOMT</OPTION> <OPTION value="DON">DON</OPTION> <OPTION value="DONB">DONB</OPTION> <OPTION value="DOO">DOO</OPTION> <OPTION value="DOOC">DOOC</OPTION> <OPTION value="DOR">DOR</OPTION> <OPTION value="DOS">DOS</OPTION> <OPTION value="DOT">DOT</OPTION> <OPTION value="DOTF">DOTF</OPTION> <OPTION value="DOTS">DOTS</OPTION> <OPTION value="DOTV">DOTV</OPTION> <OPTION value="DOV">DOV</OPTION> <OPTION value="DOW">DOW</OPTION> <OPTION value="DPM">DPM</OPTION> <OPTION value="DPMA">DPMA</OPTION> <OPTION value="DPMAE">DPMAE</OPTION> <OPTION value="DPMAR">DPMAR</OPTION> <OPTION value="DPMD">DPMD</OPTION> <OPTION value="DPMP">DPMP</OPTION> <OPTION value="DPMPE">DPMPE</OPTION> <OPTION value="DPMPS">DPMPS</OPTION> <OPTION value="DPMSA">DPMSA</OPTION> <OPTION value="DPMSC">DPMSC</OPTION> <OPTION value="DPMT">DPMT</OPTION> <OPTION value="DPT">DPT</OPTION> <OPTION value="FM">FM</OPTION> <OPTION value="HC">HC</OPTION> <OPTION value="HO">HO</OPTION> <OPTION value="IG">IG</OPTION> <OPTION value="IN">IN</OPTION> <OPTION value="JA">JA</OPTION> <OPTION value="LG">LG</OPTION> <OPTION value="LGL">LGL</OPTION> <OPTION value="LGLC">LGLC</OPTION> <OPTION value="LGLI">LGLI</OPTION> <OPTION value="LGLM">LGLM</OPTION> <OPTION value="LGLOR">LGLOR</OPTION> <OPTION value="LGLP">LGLP</OPTION> <OPTION value="LGLS">LGLS</OPTION> <OPTION value="LGLSF">LGLSF</OPTION> <OPTION value="LGLT">LGLT</OPTION> <OPTION value="LGLX">LGLX</OPTION> <OPTION value="LGM">LGM</OPTION> <OPTION value="LGMA">LGMA</OPTION> <OPTION value="LGMAE">LGMAE</OPTION> <OPTION value="LGMAF">LGMAF</OPTION> <OPTION value="LGMAG">LGMAG</OPTION> <OPTION value="LGMAH">LGMAH</OPTION> <OPTION value="LGMF">LGMF</OPTION> <OPTION value="LGMFE">LGMFE</OPTION> <OPTION value="LGMFN">LGMFN</OPTION> <OPTION value="LGMFS">LGMFS</OPTION> <OPTION value="LGMG">LGMG</OPTION> <OPTION value="LGMI">LGMI</OPTION> <OPTION value="LGMM">LGMM</OPTION> <OPTION value="LGMMP">LGMMP</OPTION> <OPTION value="LGMMR">LGMMR</OPTION> <OPTION value="LGMP">LGMP</OPTION> <OPTION value="LGMPE">LGMPE</OPTION> <OPTION value="LGMPJ">LGMPJ</OPTION> <OPTION value="LGMPT">LGMPT</OPTION> <OPTION value="LGMR">LGMR</OPTION> <OPTION value="LGMV">LGMV</OPTION> <OPTION value="LGMVE">LGMVE</OPTION> <OPTION value="LGMVS">LGMVS</OPTION> <OPTION value="LGMVT">LGMVT</OPTION> <OPTION value="LGMW">LGMW</OPTION> <OPTION value="LGMWA">LGMWA</OPTION> <OPTION value="LGMWS">LGMWS</OPTION> <OPTION value="LGQ">LGQ</OPTION> <OPTION value="LGS">LGS</OPTION> <OPTION value="LGSA">LGSA</OPTION> <OPTION value="LGSAE">LGSAE</OPTION> <OPTION value="LGSF">LGSF</OPTION> <OPTION value="LGSFO">LGSFO</OPTION> <OPTION value="LGT">LGT</OPTION> <OPTION value="LGTA1">LGTA1</OPTION> <OPTION value="LGTA2">LGTA2</OPTION> <OPTION value="LGTC">LGTC</OPTION> <OPTION value="LGTF">LGTF</OPTION> <OPTION value="LGTM">LGTM</OPTION> <OPTION value="LGTM1">LGTM1</OPTION> <OPTION value="LGTM2">LGTM2</OPTION> <OPTION value="LGTT">LGTT</OPTION> <OPTION value="LGX">LGX</OPTION> <OPTION value="LSLOB">LSLOB</OPTION> <OPTION value="MA">MA</OPTION> <OPTION value="MA0A">MA0A</OPTION> <OPTION value="MA0SA">MA0SA</OPTION> <OPTION value="MA0SB">MA0SB</OPTION> <OPTION value="MAA">MAA</OPTION> <OPTION value="MAF">MAF</OPTION> <OPTION value="MAFD">MAFD</OPTION> <OPTION value="MAFI">MAFI</OPTION> <OPTION value="MAFS">MAFS</OPTION> <OPTION value="MAO">MAO</OPTION> <OPTION value="MAOA">MAOA</OPTION> <OPTION value="MAOB">MAOB</OPTION> <OPTION value="MAOC">MAOC</OPTION> <OPTION value="MAOF">MAOF</OPTION> <OPTION value="MAOS">MAOS</OPTION> <OPTION value="MAOSA">MAOSA</OPTION> <OPTION value="MAOSB">MAOSB</OPTION> <OPTION value="MAOW">MAOW</OPTION> <OPTION value="MAQ">MAQ</OPTION> <OPTION value="MAS">MAS</OPTION> <OPTION value="ME">ME</OPTION> <OPTION value="MERBD">MERBD</OPTION> <OPTION value="MERH">MERH</OPTION> <OPTION value="OGV">OGV</OPTION> <OPTION value="OGVB">OGVB</OPTION> <OPTION value="OSF CCQ">OSF CCQ</OPTION> <OPTION value="OSOF">OSOF</OPTION> <OPTION value="OST">OST</OPTION> <OPTION value="OSTL">OSTL</OPTION> <OPTION value="OSTW">OSTW</OPTION> <OPTION value="PA">PA</OPTION> <OPTION value="QA">QA</OPTION> <OPTION value="RA">RA</OPTION> <OPTION value="RXR">RXR</OPTION> <OPTION value="SA">SA</OPTION> <OPTION value="SBP">SBP</OPTION> <OPTION value="SCB">SCB</OPTION> <OPTION value="SCBN">SCBN</OPTION> <OPTION value="SCBT">SCBT</OPTION> <OPTION value="SCUV">SCUV</OPTION> <OPTION value="SE">SE</OPTION> <OPTION value="SEA">SEA</OPTION> <OPTION value="SEF">SEF</OPTION> <OPTION value="SEG">SEG</OPTION> <OPTION value="SEW">SEW</OPTION> <OPTION value="SF0S">SF0S</OPTION> <OPTION value="SFO">SFO</OPTION> <OPTION value="SFOS">SFOS</OPTION> <OPTION value="SG">SG</OPTION> <OPTION value="SGA">SGA</OPTION> <OPTION value="SGAL">SGAL</OPTION> <OPTION value="SGAS">SGAS</OPTION> <OPTION value="SGAT">SGAT</OPTION> <OPTION value="SGB">SGB</OPTION> <OPTION value="SGBP">SGBP</OPTION> <OPTION value="SGD">SGD</OPTION> <OPTION value="SGDD">SGDD</OPTION> <OPTION value="SGH">SGH</OPTION> <OPTION value="SGHL">SGHL</OPTION> <OPTION value="SGHN">SGHN</OPTION> <OPTION value="SGHR">SGHR</OPTION> <OPTION value="SGHSEO">SGHSEO</OPTION> <OPTION value="SGJ">SGJ</OPTION> <OPTION value="SGL">SGL</OPTION> <OPTION value="SGN">SGN</OPTION> <OPTION value="SGO">SGO</OPTION> <OPTION value="SGOBC">SGOBC</OPTION> <OPTION value="SGOMN">SGOMN</OPTION> <OPTION value="SGP">SGP</OPTION> <OPTION value="SGPB">SGPB</OPTION> <OPTION value="SGPF">SGPF</OPTION> <OPTION value="SGPFS">SGPFS</OPTION> <OPTION value="SGPM">SGPM</OPTION> <OPTION value="SGS">SGS</OPTION> <OPTION value="SGSA">SGSA</OPTION> <OPTION value="SGSAL">SGSAL</OPTION> <OPTION value="SGSAP">SGSAP</OPTION> <OPTION value="SGSL">SGSL</OPTION> <OPTION value="SGSO">SGSO</OPTION> <OPTION value="SGSTC">SGSTC</OPTION> <OPTION value="SME">SME</OPTION> <OPTION value="SPC">SPC</OPTION> <OPTION value="SPO">SPO</OPTION> <OPTION value="SPOS">SPOS</OPTION> <OPTION value="SVM">SVM</OPTION> <OPTION value="SVMF">SVMF</OPTION> <OPTION value="SVML">SVML</OPTION> <OPTION value="SVMM">SVMM</OPTION> <OPTION value="SVMR">SVMR</OPTION> <OPTION value="XP">XP</OPTION>
</SELECT></td></tr>
<tr><td align=right>type CPU:</td><td colspan=2><SELECT Id=Cpu> <OPTION value=nul>--- Select A Type ---</OPTION> <OPTION value="Desktop">Desktop</OPTION> <OPTION value="Laptop">Laptop</OPTION> </SELECT></td></tr>
<tr><td align=right>Building: </td><td colspan=2><input id=Building name=Building value="" class=tbox></td></tr> <tr><td align=right>Room: </td><td colspan=2><input id=Room name=Room value="" class=tbox></td></tr> <tr><td align=right>Phone:(4 digits) </td><td colspan=2><input id=Phone name=Phone value="" class=tbox></td></tr> <tr><td align=right>Extra: </td><td colspan=2><input id=Extra name=Extra value="" class=tbox></td></tr> <tr><td align=right></td><td colspan=2> <input type=hidden id=status value= 0 ><p> <tr><td colspan=2><td align=right> <tr><td align=right><input id=enter type=button value=" Submit " onclick="frm.status.value=1"> <input id=close type=button value=" Close " onclick="frm.status.value=2"> </td><td colspan=2></center> </form></table></body> </html>
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
1 registered
(Allen)
and 382 anonymous users online.
|
|
|