About Us

chrisho

here is the Source of the website

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.0//EN"
<HTML<HEAD
<TITLEXXX Internet Administration System - Login</TITLE</HEAD
<BODY BGCOLOR=#FDBD49
<FORM METHOD=POST ACTION="http://XXXX/XXX/XXXX"
<INPUT TYPE=HIDDEN NAME=scr VALUE="login.cgi"
<CENTER
<P<BR<P
<BBefore you can access this function, you will need to login</B
<P
<BOperator ID:</B
<INPUT TYPE="TEXT" NAME="SEC_username" Size=10 VALUE=""
<P
<BPassword:</B
<INPUT TYPE="PASSWORD" NAME="SEC_password" Size=10 VALUE=""

<P<BR<P
<INPUT TYPE="HIDDEN" NAME="scriptname" VALUE="/cgi-bin/ias.cgi"
<INPUT TYPE="HIDDEN" NAME="parameters" VALUE="scr=menu_main%2ecgi"
<INPUT TYPE="HIDDEN" NAME="SEC_usertype" VALUE="operator"

<INPUT TYPE="SUBMIT" VALUE="LOGIN"
<INPUT TYPE="RESET" VALUE="Clear"
</CENTER

</FORM

</BODY
</HTML

Sub XXXXX()

'log into XXXXXXX.XXX

Dim a, b As Variant

a = InputBox("input your UserID")
b = InputBox("input your password")
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://XXXX/XXX/XXXX"

Do While IE.Busy And Not IE.readyState = 4:
Application.Wait (Now + TimeValue("0:00:02"))
DoEvents
Loop

IE.document.all("SEC_username").Value = a
IE.document.all("SEC_password").Value = b
Set ipf = IE.document.all.Item("cmd")
ipf.Click

End Sub

not sure if I put down the right button command to click it. Anyone can help?

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Looking for Excel site similar to "The Word MVP Site"	Doug	New Users to Excel	1	January 25th 09 12:46 PM
How to submit data from one sheet to another with a macro and butt	Matt Brown	Excel Programming	1	June 27th 07 09:02 PM
show the time I last saved my file just hovering a mouse on a butt	Rajarshi Shrestha	Excel Discussion (Misc queries)	0	April 7th 06 07:54 PM
How can I identify what cell was clicked on when I click on a butt	san jose native	Excel Programming	3	June 30th 05 02:11 PM
intellimouse gone dirty-boy; restore backspace on outer left butt.	Terminatrix	Excel Discussion (Misc queries)	1	February 15th 05 06:27 AM

Menu

About Us