Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Java Script and VFP
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00815394
Message ID:
00815840
Views:
9
Hi Houston,

I've tried your suggestion but I keep getting a 'Server not found' error when it opens the login popup window

Thanks,
Arriyel

>>It's in the AESDirect website. I'm trying to find a way of automating the file upload process but there is so much JAVA scripts used for links and buttons that I can't use the internetexplorer.application object. I still have no Idea how to bypass the logon screen from IIS (I think).
>>
>>Anyway, here's the URL: https://www.aesdirect.gov to the site. The login is under log in/AESDirect. I can't give you the user name and password but I can post the HTML source for the page if you like.
>
>Actually you probably can use IE automation.
Local oIE as InternetExplorer.Application
>Declare Integer Sleep In Win32api Integer
>oIE = CreateObject( "InternetExplorer.Application" )
>oIE.Silent = .T.
>oIE.Visible = .T.
>oIE.Navigate( "https://www.aesdirect.gov/enter.html" )
>fWait( oIE )
>
>* ... use Windows Script Host (WSH) SendKeys to enter the User ID and Password into the resulting dialog box.
>
>fWait( oIE )
>
>* .. invoke download. If this is via a link, then you could use something like:
>oInputs = oIE.Document.all.tags("INPUT")
>*- In the following 28 is an arbitrary number that corresponds to a particular
>*- link that needs to be Clicked.
>*- Change the number, then use the mouse or keyboard to select the following
>*- code (from the ? to the end of the line) - then Right Mouse, Execute Selection.
>*- Repeat this until you spot the link that you are after.
>*--- ? oInputs.item(28).outerHTML
>oInputs.item(28).Click()
>fWait( oIE )
>
>* ... etc.
>
>Return .T.
>
>*********************
>Function fWait( oIE )
>*********************
>	#If .F. Then
>		Local oIe as InternetExplorer.Application
>	#Endif
>	Do While oIE.Busy ;
>		Or oIE.Document.readyState # "complete"
>		?? "."
>		Sleep(500)
>	EndDo
>	Return .T.
>	EndFunc	&& fWait( oIE ).
Speak using soft and sweet words in case you have to eat them later.
Previous
Reply
Map
View

Click here to load this message in the networking platform