Handle Popup window using VbScript

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Handle Popup window using VbScript

Logged in as: Guest

arrSession:exec spGetSession 2,2,56227

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Handle Popup window using VbScript
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Handle Popup window using VbScript - 2/1/2008 3:09:33 AM

bengalurege

Posts: 0
Score: 0
Joined: 2/1/2008
Status: offline

I have very simple requirement. I am opening a intranet website using Vbscript. This website brings up a Login popup soon after the page is loaded. Now my requirement is to key in the Login and password details and click on "OK" button. Please assist me in achieving this.

This is how my "website.vbs" looks.

'Script starts here

Option Explicit
Dim objIE, objShell, strText, intConstants, strTitle, intAns, objExplorer
Dim strScriptName, strScriptPath, strScriptFolder, strExcelPath
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "<Websiteaddress>"
objExplorer.ToolBar = 1
objExplorer.Visible = 1
objExplorer.StatusBar = 1
objExplorer.Width = 1000
objExplorer.Height = 700
objExplorer.Left = 0
objExplorer.Top = 0

'dont know how to proceed further after the popup apears

Note: this is not a Vbscript generated Popup

Thank you in advance

Post #: 1

RE: Handle Popup window using VbScript - 2/7/2008 11:00:31 PM

TomRiddle

Posts: 188
Score: 4
Joined: 2/7/2008
Status: offline

This is a simple password challenge page.
Might be able to use this instead?

<% 
dim strTitle
strTitle = "Bouncer" 
%>

<h2>Bouncer</h2>
<%
'Simple codeword bouncer 
codeword = "secret"
IF len(Request.Form("form_codeword"))=0 THEN
%>
<BR>
<CENTER><FONT SIZE=5><B>What's the secret codeword?</B></FONT></CENTER>
<FORM METHOD="POST" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<CENTER><INPUT TYPE="PASSWORD" NAME="form_codeword" SIZE=15></CENTER>
<CENTER><INPUT TYPE="SUBMIT" VALUE="Enter"></CENTER>
</FORM>
<%
 ELSE
 IF NOT Request.Form("form_codeword") = codeword THEN
%>
 <BR>
 <CENTER><FONT SIZE=5><B>Get lost!</B></FONT></CENTER>
 <CENTER><A HREF="<%=Request.ServerVariables("SCRIPT_NAME")%>">Come back</A> when you got the real codeword!!</CENTER>
<%
 ELSE
%>

<%
Dim Item
%>

Hello visitor from <%= Request.ServerVariables("REMOTE_ADDR") %>! Your
browser identifies itself as <%= Request.ServerVariables("HTTP_USER_AGENT") %>.
<BR>
<BR>

<TABLE BORDER=2>
<TR>
<TD><span class="text_SUP"><B>Server Variable</B></TD>
<TD><span class="text_SUP"><B>Value</B></TD>
</TR>
<% For Each Item In Request.ServerVariables %> 
<TR>
<TD><span class="text_SUP"><%= Item %></TD>
<TD><span class="text_SUP"><%= Request.ServerVariables(Item) %>&nbsp;</TD>
</TR>
<% Next %>
</TABLE>

<%
END IF
END IF
%>

(in reply to bengalurege)

Post #: 2

RE: Handle Popup window using VbScript - 2/7/2008 11:21:11 PM

ehvbs

Posts: 2173
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi bengalurege,

have a look at

http://www.visualbasicscript.com/fb.aspx?m=56252

Good luck!

ehvbs

(in reply to TomRiddle)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Handle Popup window using VbScript

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts