VBS怎么让被激活的窗口得焦点(位于前台)

wsh.AppActivate "http://192.168.1.33/ - 物流工程系统 - Windows Internet Explorer" ' 引号中填浏览器最上面的标题

'激活指定标题的窗口，但只在任务栏闪烁，不是当前窗口，没有焦点。

'在此次加上发送一个enter按键,就行了

wsh.SendKeys "{ENTER}"

假设第行文本框 名textbox1" , 面增减按钮控件名SpinButton1"

加代码即

Private Sub SpinButton1_SpinDown()

‘设置限0

If Shapes("textbox1").TextFrame.TextRange >0 Then

Shapes("textbox1").TextFrame.TextRange = Shapes("textbox1").TextFrame.TextRange - 1

End If

End Sub

Private Sub SpinButton1_SpinUp()

’需要设置限100

If Shapes("textbox1").TextFrame.TextRange <100 Then

Shapes("textbox1").TextFrame.TextRange = Shapes("textbox1").TextFrame.TextRange + 1

End If

End Sub

其余类似

用显示数字文本框文本框控件假设名textbox1则代码 Shapes("textbox1").TextFrame.TextRange

需要换 textbox1.value

问题在这里！！

WshShell.AppActivate "Untitled - Notepad"

你是英文版的 *** 作系统啊？？

Untitled - Notepad

这个就是你窗口的标题！你要保证没有写错!区分大小写的！

还有你可以考虑只写"Untitled"只要是窗口标题的前几个字母就行了！这样就可以了！

我试过了是可以的！！

还有，要把sleep 1000时间缩短，50就够了！！

你等了两秒，把窗口激活了，再等一秒什么意思，应在在激活窗口后，尽快发送键值！！

---