Jump to content

Webpage status check


Recommended Posts

Hey all, i'm trying to use the IE udf to determine the status of my online banking.  Basically I'm trying to bring up the login page and use that as part of my check.

I'm using beta 3.3.9 with the newest IE udf from 3/13.

So this is the code I have.... (very small at this point and time)

#include <ie.au3>

$URL = "https://secure.ambankiowa.com/pbi_pbi1961/pbi1961.ashx?Rt=073917641&LogonBy=Connect3&PRMAccess=Portfolio"

Local $oIE = _IECreate($URL)
MsgBox(1,"Error",@EXTENDED)

Exit

The problem is, _IELoadWait never returns.  It eventually times out.  Now, I read something about it possibly being XML related, but I'm not quite sure.

Any ideas would be appreciated.

Link to comment
Share on other sites

Hey,

This is working for me on IE9 and latest official release of autoit.

#include <ie.au3>

$URL = "https://secure.ambankiowa.com/pbi_pbi1961/pbi1961.ashx?Rt=073917641&LogonBy=Connect3&PRMAccess=Portfolio"

Local $oIE = _IECreate($URL, -1, -1, 1)
if $oIE <> 0 then 
 msgbox(1,"Info", "Page loaded successfully!")
else
 msgbox(1,"Info", "Error loading webpage. Error code "& @error)
endif

Does it work for you as well?

Edited by Neutro
Link to comment
Share on other sites

Huh... I have IE9 too. Now, I should say too that I am on a 64 bit version of Win 7, but running the 32 bit version of AutoIT.

When I run the script I get this warning:
--> IE.au3 T3.0-0 Warning from function _IEAttach, $_IEStatus_NoMatch

but it just sits and does nothing.

>"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /beta /ErrorStdOut /in "U:\My Documents\Projects\autoit\Online Banking Verification\test.au3" /UserParams    
+>07:54:43 Starting AutoIt3Wrapper v.2.1.0.8    Environment(Language:0409  Keyboard:00000409  OS:WIN_7/Service Pack 1  CPU:X64 OS:X64)
>Running AU3Check (3.3.9.4)  from:C:\Program Files (x86)\AutoIt3\beta
+>07:54:44 AU3Check ended.rc:0
>Running:(3.3.9.4):C:\Program Files (x86)\AutoIt3\beta\autoit3.exe "U:\My Documents\Projects\autoit\Online Banking Verification\test.au3"    
--> IE.au3 T3.0-0 Warning from function _IEAttach, $_IEStatus_NoMatch

 
Just don't know why it's returning $_IEStatus_NoMatch

Link to comment
Share on other sites

I ran the code in your basenote without trouble on

1) Windows 7, 32bit, IE 10, AutoIt 3.3.9.4 and the T3.0-0 version of IE.au3

2) Windows 7, 64bit, IE 8, AutoIt 3.3.9.4 and the T3.0-0 version of IE.au3

(it ran and returned quickly).

I don't have the specific config you have and I can't guess what your trouble might be.  Perhaps an intermittent problem with the website?

Dale

Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y

Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Link to comment
Share on other sites

I tend to use this for checking the status of webpages as it can get you the status text and status code (eg, 404 not found, 401 Not authorised, etc)

ConsoleWrite("Checking Bank: " & _GetURLStatus("https://secure.ambankiowa.com/pbi_pbi1961/pbi1961.ashx?Rt=073917641&LogonBy=Connect3&PRMAccess=Portfolio") & :@CRLF)
 
Func _GetURLStatus($inURL)
 
   Local $val = ""
 
   Local $objHTTP = ObjCreate("MSXML2.ServerXMLHTTP.6.0")
   $objHTTP.Open("GET", $inURL, false)
 
   ; Uncomment next 4 lines if using a proxy server
   ;Local $proxyserver  = "" ; add proxy server name
   ;Local $proxyport  = "" ; add proxy server port
   ;Local $ProxyExceptions = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyOverride") ; get any proxy exceptions
   ;$objHTTP.setProxy("2", $proxyserver & ":" & $proxyport, $ProxyExceptions)
  
   $objHTTP.Send(" ")
 
   ; Check the status code of the request
   If $objHTTP.status = "200" Then
    $val = $objHTTP.statusText
   Else
    $val = $objHTTP.statustext & " (" & $objHTTP.status & ")"
   EndIf
 
   Return $val
 
EndFunc
 
 

NiVZ

Edited by NiVZ
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...