Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Automate logon
Message
 
 
To
25/03/2009 12:09:59
General information
Forum:
Internet
Category:
Other
Title:
Miscellaneous
Thread ID:
01391329
Message ID:
01391425
Views:
36
This was from the working code. I think there could be some modifications of the code above you can try, I saw this question discussed here before, I'll search a bit later.

>Hi Naomi
>
>I tried this but
>
> loIE.DOCUMENT.FORMS
>
>gives me Member DOCUMENT does not evaluate to an object.
>
>Also I get two Internet explorer windows. One with the URL I have connected to and one blank.
>
>Any thoughts .
>
>Nick
>
>
>>VFP code
>>
>>
>>loIE = CREATEOBJECT("internetexplorer.application")
>>loIE.VISIBLE = .T.
>>loIE.NAVIGATE(URL address)
>>
>>DO WHILE (loIE.Busy OR loIE.ReadyState <> 4)
>>	DOEVENTS
>>ENDDO
>>
>>SetForegroundWindow( loIE.HWND )
>>
>>TRY
>>	WITH loIE.DOCUMENT.FORMS("LogonForm")
>>		.UserName.VALUE = lcUserName
>>		.PASSWORD.VALUE = lcPassword
>>		.Submit.CLICK()
>>	ENDWITH
>>
>>	DO WHILE (loIE.Busy OR loIE.ReadyState <> 4)
>>		DOEVENTS
>>	ENDDO
>>
>>	loIE.NAVIGATE(Another URL with query string parameters)
>>
>>	DO WHILE (loIE.Busy OR loIE.ReadyState <> 4)
>>		DOEVENTS
>>	ENDDO
>>
>>	WITH loIE.DOCUMENT.FORMS(Form Name)
>>		.MEMBERXMEMBER_NO.VALUE = tcPolicy
>>		.Search.CLICK()
>>	ENDWITH
>>
>>	DO WHILE (loIE.Busy OR loIE.ReadyState <> 4)
>>		DOEVENTS
>>	ENDDO
>>
>>CATCH
>>	ErrorMsg("Error loading website, try again")
>>ENDTRY
>>
>>>Hi
>>>
>>> I want to automate a logon and logoff to a web site that I can leave ro run as some sort of scheduled task every 10 or so minutes.
>>>
>>>The purpose is to be regularly checking that the web site is working and allowing logons and alert me if there is an issue.
>>>
>>>Any ideas on the simplest way to achieve this. .Net , foxpro or some package ?
>>>
>>>TIA
>>>
>>>
>>>Nick Mason
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform