I
Irvin Amoraal
I have some code that posts three text files to a remote server, emulating a
form post. It then calls a PHP to execute. This page processes the text
files.
I want to do this without the browser being visible. I know how to make the
browser window hidden ... my problem is that the folder requires the
user/pass permission. With the brwoser window visible, the authentication
window pops up, I enter the user/pass, and the PHP page does it's thing.
Success! But when I make it hidden, I have no way of being authenticated.
Is there a way to pass along my user/pass to get my PHP page to execute?
[Code:]
----------------------------------------------------------------------------
----
' simulate the click of a button on the pageSub page_Click(DestURL, Action)
Dim Flags As Long Dim TargetFrame As String Dim PostData()
As Byte Dim Headers As String Dim IE: Set IE =
CreateObject("InternetExplorer.Application") Flags = 0
TargetFrame = "" 'PostData = "action=process" PostData =
Action ' VB creates a Unicode string by default so we need
to ' convert it back to Single byte character set. PostData
= StrConv(PostData, vbFromUnicode) Headers = "Content-Type:
application/x-www-form-urlencoded" & _ vbCrLf IE.Navigate
DestURL, Flags, TargetFrame, PostData, Headers End Sub
form post. It then calls a PHP to execute. This page processes the text
files.
I want to do this without the browser being visible. I know how to make the
browser window hidden ... my problem is that the folder requires the
user/pass permission. With the brwoser window visible, the authentication
window pops up, I enter the user/pass, and the PHP page does it's thing.
Success! But when I make it hidden, I have no way of being authenticated.
Is there a way to pass along my user/pass to get my PHP page to execute?
[Code:]
----------------------------------------------------------------------------
----
' simulate the click of a button on the pageSub page_Click(DestURL, Action)
Dim Flags As Long Dim TargetFrame As String Dim PostData()
As Byte Dim Headers As String Dim IE: Set IE =
CreateObject("InternetExplorer.Application") Flags = 0
TargetFrame = "" 'PostData = "action=process" PostData =
Action ' VB creates a Unicode string by default so we need
to ' convert it back to Single byte character set. PostData
= StrConv(PostData, vbFromUnicode) Headers = "Content-Type:
application/x-www-form-urlencoded" & _ vbCrLf IE.Navigate
DestURL, Flags, TargetFrame, PostData, Headers End Sub