Running a web query when there is a user name and password

[rca]

Hi Everyone!

I'm trying to run a web query from a website that requires a user name and password.

Is it possible to do such a thing when the website has a user name and password?

Thank you,
Rachel

 

[Legacy 98055]

Joe.

I could not find any method or property in SHDocVw that would allow the user to directly maximize the window.

msvec

If you cannot find a way to do this, use the API. It will work for sure.


See this link for more constants you may use with the ShowWindow API function.

<table border="1" bgcolor="White"><caption ALIGN=left><font size="2" face=Courier New>Example VBA Code:</FONT></caption><tr><td><font size="2" face=Courier New>  <font color="#0000A0">Private</font> <font color="#0000A0">Declare</font> <font color="#0000A0">Function</font> ShowWindow <font color="#0000A0">Lib</font> "user32" ( _
       <font color="#0000A0">ByVal</font> hwnd <font color="#0000A0">As</font> Long, <font color="#0000A0">ByVal</font> nCmdShow <font color="#0000A0">As</font> Long) <font color="#0000A0">As</font> <font color="#0000A0">Long</font>
  
  <font color="#0000A0">Private</font> <font color="#0000A0">Const</font> SW_MAXIMIZE = 3
  
  <font color="#0000A0">Sub</font> Example()
       <font color="#0000A0">Dim</font> ie <font color="#0000A0">As</font> <font color="#0000A0">Object</font>
      
       <font color="#0000A0">Set</font> ie = CreateObject("InternetExplorer.Application")
       ie.Visible = True
      
       ShowWindow ie.hwnd, SW_MAXIMIZE
  
  <font color="#0000A0">End</font> <font color="#0000A0">Sub</font>
</FONT></td></tr></table>

Tom

 

[Joe Was]

I did not check the WindowState code with Web Open, which works on other windows, if the application opens in its own window.

But do know that this works:


Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'Standard module code, like: Module1.
'Maximize opened window!

Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2

Sub myMrExcel()
'Standard module code, like: Module1.
'Open Mr Excel in Explorer window.
Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "http://www.MrExcel.com"
Do
If ie.readystate = 4 Then
ie.Visible = False
Exit Do
Else
DoEvents
End If
Loop

'Maximize opened window!
apiShowWindow ie.hwnd, SW_MAXIMIZE

'MsgBox "Done"
ie.Visible = True

End Sub


Edit; P. S: Just checked the code below with a web open and you are right it does not work with a web open:

Application.Wait (Now + TimeValue("0:00:02"))
ActiveWindow.WindowState = xlMaximized

But, the API call in the code above the failed code, for the WindowState, does work!

 

[hung2k]

Thank you for the useful posts here,

I used the same approach to login a page, but then i my page, I got an HTML page with 2 frames, the right hand side page is the one I need to extract data from.

But I don't know how I could reach to the content of that page.

Any hint?

Thanks
Hung

 

[ichbinich]

This is a very old discussion but i have the same problem and im searching the whole day about it already
i try to run a web query from this site
https://secure-wms.com/PresentationTier/LoginForm.aspx?3pl={5878fc58-e1b7-4f52-b587-d4d9a77a6666}
it have a user and password
i dont know how to read html to be able to use the vba code that ppl post online for this site
any1 can help me ?

 

[ichbinich]

any1 can help me ?

This is a very old discussion but i have the same problem and im searching the whole day about it already
i try to run a web query from this site
https://secure-wms.com/PresentationTier/LoginForm.aspx?3pl={5878fc58-e1b7-4f52-b587-d4d9a77a6666}
it have a user and password
i dont know how to read html to be able to use the vba code that ppl post online for this site
any1 can help me ?