WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE with MSIE
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Click on Input Type Image


;
;<title>1ShoppingCart.com - Login to Your Account</title>
;<script language="JavaScript" type="text/javascript" src="/Netcart/jscripts/netcartnav.asp"></script>
;<body onLoad="WM_setCookie ('selbtn', 'welcome', 1, '/');">
;<form name="form2" method="post" action="login.asp">
;<input type="hidden" name="internallogin" value="1">
;<input name="up" type="hidden" value="">
;<input name="UserName2" type="text" size="26" id="UserName2" value="" class="input-text">
;<input name="lostpassword" size="26" class="input-text" value="">
;<input name="cmd" type="hidden" id="cmd" value="sendpassword">
;<input type="image" src="/Netcart/login/img/login/button-send-password.gif" name="submit2" id="submit2" border="0" width="118" height="31" alt="Send Password" />


objBrowser = ObjectCreate("InternetExplorer.Application")
objBrowser.visible = @TRUE
url = "https://www.mcssl.com/netcart/login/login.asp"
objBrowser .navigate(url)
TimeDelay(2)

While objBrowser.readystate <> 4
   TimeDelay(0.5)
EndWhile

objDoc = objBrowser .document
objDoc .Body.GetElementsByTagName("INPUT").Item(3).Value = "username"
objDoc .Body.GetElementsByTagName("INPUT").Item(4).Value = "Password"
objDoc .Body.GetElementsByTagName("INPUT").Item(6).click()
objDoc = 0
objBrowser = 0
Exit

Article ID:   W17451
File Created: 2012:11:01:15:10:44
Last Updated: 2012:11:01:15:10:44