Good Morning,
I've tried to do this, all to no avail. So i'm wondering if perhaps you can assist me. I'm making a database for Electronic Mortgage transfers, but it needs to be able to log into a website. Therein lies the problem, I cannot get the data i have hardcoded to a button to actually get into the object on the page. The Page is and it's an essential part of the database. If you could assist me then this would help me out tremendously. Here's what i have so far.
Reference "Microsoft Internet Controls"
Dim IE As Object
Dim Org_ID As Object
Dim U_ID As Object
Dim PW As Object
Dim eTime As Single
Dim tTime As Single
Dim WshShell As Object
Set IE = New SHDocVw.InternetExplorer
IE.Visible = True
IE.navigate "
tTime = Timer
Do While IE.Busy Or eTime > (tTime + 15)
eTime = Timer
Loop
*********Here's where my problem lies i assume.*********
Set ORG_ID = IE.form1.Org_ID 'Name of object on webpage
Set U_ID = IE.form1.U_ID 'Name of object on webpage
Set PW = IE.form1.Passwd ' Name of object on webpage
Log.Value = "1000124"
U_ID.value = "u184970"
PW.Value = "password"
IE.form1.submit
If i'm missing something, or if you look at the source code of the site and notice something i dont, please post. This is driving me mad because it works on other sites. Any help would be greatly appreciated.
I've tried to do this, all to no avail. So i'm wondering if perhaps you can assist me. I'm making a database for Electronic Mortgage transfers, but it needs to be able to log into a website. Therein lies the problem, I cannot get the data i have hardcoded to a button to actually get into the object on the page. The Page is and it's an essential part of the database. If you could assist me then this would help me out tremendously. Here's what i have so far.
Reference "Microsoft Internet Controls"
Dim IE As Object
Dim Org_ID As Object
Dim U_ID As Object
Dim PW As Object
Dim eTime As Single
Dim tTime As Single
Dim WshShell As Object
Set IE = New SHDocVw.InternetExplorer
IE.Visible = True
IE.navigate "
tTime = Timer
Do While IE.Busy Or eTime > (tTime + 15)
eTime = Timer
Loop
*********Here's where my problem lies i assume.*********
Set ORG_ID = IE.form1.Org_ID 'Name of object on webpage
Set U_ID = IE.form1.U_ID 'Name of object on webpage
Set PW = IE.form1.Passwd ' Name of object on webpage
Log.Value = "1000124"
U_ID.value = "u184970"
PW.Value = "password"
IE.form1.submit
If i'm missing something, or if you look at the source code of the site and notice something i dont, please post. This is driving me mad because it works on other sites. Any help would be greatly appreciated.