vbs怎么使一个窗口置顶？

HZZC

当我打开SECURECRT时，会弹出这个试用信息的弹窗。程序启动的时间不一定，所以这个这个弹窗出现的时间是不确定的，而我希望这个弹窗出现后立马进行点击按钮的操作。
现在就是有2个问题，第一个是 如何不断地检测这个弹窗是否出现，第二个就是怎么把这个窗口置顶，并点击这个窗口上的按钮。



Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
Wscript.sleep 1000
WshShell.AppActivate oExec.ProcessID
WshShell.SendKeys "{right}"
WshShell.SendKeys "{right}"
WshShell.sendkeys "{enter}"

这个AppActivate并不能让窗口置顶，或者让焦点在这个窗口上，有时程序运行慢了，后面的按键动作就会在其他程序上执行

zhanglei1371

用ahk实现更好吧，或者au3亦可轻松实现

温柔的笑

取到窗口句柄按钮id应该可以实现

liuzhh

看一看，瞧一瞧

b0y

vbs不知道 写个exe 启动后检测窗口。出现了就取按钮ID并点击

JuncoJet

VBS需要DynamicWrapper搭配的
VB不需要，建议VB来写

VBS这么写

[Visual Basic] 纯文本查看 复制代码

set w=CreateObject("DynamicWrapper")
w.Register "user32","FindWindowA","i=ss","f=s","r=l"
w.Register "user32","SetForegroundWindow","i=l","f=s"
h = w.FindWindow("Notepad", vbNullString)
w.SetForegroundWindow h

VB6这么写

[Visual Basic] 纯文本查看 复制代码

Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
    h = FindWindow("Notepad", vbNullString)
    SetForegroundWindow h
End Sub