VBS如何获得窗口句柄

bluesmile979 2007-01-29 10:36:42

最近任务要求写一段VBS程序经过一定的处理之后打开一个IE窗口。

当第二次执行这段VBS程序的时候，如果先前（第一次执行）的窗口没有被关闭需要在先前的窗口中打开。

这里就需要得到打开IE窗口的句柄，不知道该如何获得，高人指点一下啊。

...全文

2564 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

bluesmile979 2007-02-08

打赏
举报

我也觉得上面那么些应该好用，可惜不好用，可能别的什么地方出问题了。哎

孟子E章 2007-02-07

打赏
举报

目前只能做到这样的情况

<input type=button onclick="vbs:openWin" value=open>
<script language="vbscript">
dim win
dim a
Set win = Nothing
sub openWin()

If win Is Nothing Then
set win=window.open("about:blank")
win.document.body.innerHTML="First New"
else
If win.closed Then
set win=window.open("about:blank")
win.document.body.innerHTML="New"
Else
win.focus
win.document.body.innerHTML="Exists"
End If
end if

end sub

</script>

dh20156 2007-02-07

打赏
举报

OPEN的时候指定窗口名称就可以了：
<script language="vbscript">
window.open "http://community.csdn.net/Expert/topic/5324/5324568.xml?temp=.9649622","csdn"
</script>

cloudgamer 2007-02-07

打赏
举报

帮顶

孟子E章 2007-02-07

打赏
举报

.Write " option='toolbar=yes,location=yes,status=yes,menubar=yes,scrollbars=yes,resizable=yes,width='+window.screen.width +',height='+window.screen.height" & vbcrlf

bluesmile979 2007-02-07

打赏
举报

谢谢楼上的朋友，给了我启发，下面的代码基本可用，但是全屏的一段代码没会直接写，能不能教教我应该怎么写，现在用replace做的，哈直接用'width='+window.screen.width不好用，这块儿参数怎么做成比较好啊

Private Sub main()

Dim objNetwork

Dim portal_url

Dim user

Dim idForPassword

Dim password

Dim IE

portal_url = "url"

Set objNetwork = WScript.CreateObject("WScript.Network")

user = objNetwork.UserName

idForPassword = convertToArabia(user)

password = makePassword(idForPassword)

set IE=WScript.CreateObject("InternetExplorer.Application","event")

IE.navigate "about:blank"

with IE.document
.Write "<html>" & vbcrlf
.Write "<head>" & vbcrlf
.Write "<title>ƒiƒŒƒbƒWƒ|[ƒ^ƒ‹‚ÉÚ‘±’†</title>" & vbcrlf

.Write "<SCRIPT LANGUAGE='VBScript'>" & vbcrlf
.Write "Sub ReSize()" & vbcrlf
.Write " moveTo 0,0" & vbcrlf
.Write " resizeTo window.screen.width,window.screen.height" & vbcrlf
.Write "End Sub" & vbcrlf
.Write "</SCRIPT>" & vbcrlf
.Write "<SCRIPT LANGUAGE='JavaScript'>" & vbcrlf
.Write "function openSubmitWindow(){" & vbcrlf
.Write " option='toolbar=yes,location=yes,status=yes,menubar=yes,scrollbars=yes,resizable=yes,width=window.screen.width,height=window.screen.height'" & vbcrlf
.Write " option=option.replace('window.screen.width',window.screen.width)" & vbcrlf
.Write " option=option.replace('window.screen.height',window.screen.height)" & vbcrlf
.Write " window.open('about:blank','PortalLogin',option)" & vbcrlf
.Write "}" & vbcrlf
.Write "</SCRIPT>" & vbcrlf
.Write "</head>" & vbcrlf

.Write "<body onLoad='ReSize()'>" & vbcrlf
.Write "ƒiƒŒƒbƒWƒ|[ƒ^ƒ‹‚ÉÚ‘±‚ðŽŽ‚Ý‚Ä‚¢‚Ü‚·cc" & vbcrlf
.write "<form name=login target=PortalLogin id=login action="+portal_url+" method=POST onsubmit=openSubmitWindow() >" & vbcrlf
.write "<input type=hidden name=userid value='"+user+"'>" & vbcrlf
.write "<input type=hidden name=password value="+password+"><br>" & vbcrlf
.write "<input type=submit id=submitb name=submitb visible=false><br>" & vbcrlf
.write "</form>" & vbcrlf
.write "</body>" & vbcrlf
.write "</html>"
end with

IE.document.login.submitb.click()
IE.quit()

Set ObjNetwork = Nothing
Set IE = Nothing

End Sub

bluesmile979 2007-01-31

打赏
举报

bluesmile979 2007-01-30

打赏
举报

bluesmile979 2007-01-29

打赏
举报

稍微有一点出入。

您的程序是在一个网页里面，网页不关闭的话可以通过win对象来控制被打开的窗口。我需要的功能是类似于点击open按钮后（这里会新开个窗口），关闭您这段程序所在网页之后，再打开您这段程序所在网页，再点击open按钮，这是要求这是要求在原来开的那个窗口里面显示您的计算结果。

我的程序要求是做一个VBS程序（*.vbs文件），双击执行这个文件之后，打开一个IE窗口，在里面显示一个结果。到这里程序执行完毕，推出程序（*.vbs文件）。

当我第二次执行这个VBS程序（*.vbs文件）的时候，需要判断是否存在一个被我这个程序打开过的窗口，如果存在，那么在先前那个窗口里面显示结果，如果不存在，新开窗口打开结果。

这里面因为中间VBS程序退出了，所以可能需要类似hook一类的技术才能拿到窗口句柄，不知道有没有办法，比如通过窗口标题，进程ID之类的。

超级大笨狼 2007-01-29

打赏
举报

<button onclick="vbs:openWin">open</button>
<input type="hidden" id="hhh" value="0">
<script language="vbscript">
dim win
dim a
sub openWin()
hhh.value=int(hhh.value)+1
if isobject(win) then
win.document.body.innerHTML=win.opener.document.getElementById("hhh").value +1
else
set win=window.open("about:blank")
win.document.body.innerHTML =win.opener.document.getElementById("hhh").value +1
end if
end sub

</script>