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:
00815588
Views:
8
>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 ).
censored.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform