hi
i connect to a web page with this code:
Private Sub mnuCOLLEGAMENTO_Click()
Dim TheBrowser As Object, I As Integer, orario As Date
Set TheBrowser = CreateObject("InternetExplorer.Application")
With TheBrowser
.Visible = True
.Navigate ("http://www.dir*****.com")
End With
end Sub
then, how can i do to fill PASSWORD field and USER field?
thanks
have look
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "http://cry*************** " Then
WebBrowser1.Document.All("Username").Value = user.Text
WebBrowser1.Document.All("Password").Value = pass.Text
or
http://www.daniweb.com/software-development/visual-basic-4-5-6/threads/420359/web-login
Nothing to do
here is htlm page :
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 //EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE">
<TITLE> Identificazione </TITLE>
</HEAD>
<body bgcolor="#E6E0AC" text="#A6230B">
<basefont size=3 face="Times, Times New Roman">
<br><br>
<center>
<A href="http://www.directa.com" target="_blank">
<IMG src="logo.png" alt="Logo Directa" border="0"></a>
<br><br>
<BR>
<FORM ACTION="/trading/collegc_3" METHOD="POST">
<TABLE BORDER=4 ALIGN=CENTER>
<TR><TD>User : </TD>
<TD><INPUT NAME="USER" TYPE="TEXT" VALUE="" SIZE=15 MAXLENGTH="5"> </TD> </TR>
<TR><TD>Password : </TD>
<TD><INPUT NAME="PASSW" TYPE="password" VALUE="" SIZE=15 MAXLENGTH="15"> </TD> </TR>
</TABLE>
<BR>
<HR><BR>
<TABLE ALIGN=CENTER><tr><td>
<INPUT TYPE="submit" VALUE="OK">
<!--<INPUT NAME="IMG" TYPE="image" value="OK" src="/natale2.gif">-->
<input type="hidden" name=FUNZI value=HHTM>
<input type="hidden" name="xxxchg" value="x"></td></tr>
</TABLE>
</FORM>
<HR>
<br><br>
<A href="http://www.ibm.com/uk/en/" target="_blank">
<IMG src="ebim_sc.gif" alt="Logo IBM">
</a>
</center>
</BODY>
</HTML>
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.