Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Automate logon
Message
From
25/03/2009 12:17:01
 
General information
Forum:
Internet
Category:
Other
Title:
Miscellaneous
Thread ID:
01391329
Message ID:
01391427
Views:
38
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform