Can anybody give me a working script

[codex]

I have been trying to run the script posted at various threads and guess what, none of them seem to work. I do not know what did i do wrong. Can anybody give me a working script?
thanks in advance.
codex

 

[Silly Man]

codex the one in the wac-02-46 thread works just fine .. and how to run it is mentioned multiple times in it.

http://boards.immigration.com/showthread.php?s=&threadid=64266&goto=lastpost

 

[485486]

Is these any scanner written by C++??

I do not like VB script
Is these any scanner written by C++??

Thanks

485486

 

[codex]

SM hope you can help me on this

SM,
I get a problem in the line i have made bold:
InStr(pageText, "Application Type: I485") is always zero. My doubt is that PostData does not work. Let me know if I have to set up anything.
I am using a IE 5.0 and do not use a proxy server.
thanks
codex.




Do
statusURL = "https://egov.immigration.gov/graphics/cris/jsps/caseStat.jsp"
Dim PostData() As Byte
PostData = "appReceiptNum=" & in_wac & "&Submit=Search"
PostData = StrConv(PostData, vbFromUnicode)
Headers = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
in_browser.Navigate statusURL, 0, "", PostData, Headers
WaitTillReady in_browser
If in_browser.Document.Location <> statusURL Then
RestartBrowser in_browser
Else
pageText = in_browser.Document.documentElement.innerText
If InStr(pageText, "Servlet Exception") > 0 Then
RestartBrowser in_browser
in_browser.Refresh
WaitTillReady in_browser
Else
If InStr(pageText, "Application Type: I485") > 0 Then
If InStr(pageText, "This case has been approved") > 0 Then

 

[Silly Man]

codex without looking too deep into it, I am running IE6, it's a free download, do you wanna try it with that?

Regards C++, I think there's a java version by kashmir, and long back button wrote one in C++ but u gotta ask him for that.

 

[codex]

Thanks for your help SM. Will try using IE6.