中国DOS联盟

请教VBS sendkey问题
因为应用程序异常，会跳出错误窗口，窗口title是“SAP_ERPRoute.exe - Common Language Runtime 侦错服务"，此时只须按下<Enter>键，程序可以继续运作，所以写了以下VBS，设定windows 工作排程，5分钟执行1次，可以暂时解决程序异常问题。但是后来发现，当程序未出现错误时，每5分钟执行的windows 工作排程，会自动按下当时 Active的窗口，若是记事本打开且Active时，会被按下 <Enter>，等同跳行，若是鼠标停在关机，虽然没按 Click , 若5分钟时间一到，会被关机。以下 VBS script不是有指定窗口Title "SAP_ERPRoute.exe - Common Language Runtime 侦错服务"，应该只会针对该Title按下 <Enter>,哪里写错了，请教大家，谢谢!

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "SAP_ERPRoute.exe - Common Language Runtime 侦错服务"
WshShell.SendKeys "{ENTER}"

[ Last edited by pdanniel66 on 2010-1-9 at 17:24 ]

使用if 似乎可以 work，但想要记录Log, Wscript.Echo " SAP_ERPRoute.exe - Common Language Runtime 侦错服务active" > 999.txt 语法似乎错误，如下所示，请帮忙! Thanks!

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "SAP_ERPRoute.exe - Common Language Runtime 侦错服务"
if WshShell.appactivate("SAP_ERPRoute.exe - Common Language Runtime 侦错服务") = true Then
wscript.sleep 3000
WshShell.SendKeys "{ENTER}"
Wscript.Echo " SAP_ERPRoute.exe - Common Language Runtime 侦错服务active" > 999.txt
End If

vbs_enter.bat

dir D:\scripts\TEST\20100106_vbs_enter\writeoutput.txt || echo SAP-MQ Error Log Start Here > D:\scripts\TEST\20100106_vbs_enter\writeoutput.txt
cscript /Nologo D:\scripts\TEST\20100106_vbs_enter\vbs_en_20100109_v2.vbs
cscript /Nologo D:\scripts\TEST\20100106_vbs_enter\vbs_en_20100109_v3.vbs

vbs_en_20100109_v2.vbs as below:

Dim WshShell
Const ForAppending = 8
Set WshShell=WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("D:\scripts\TEST\20100106_vbs_enter\writeoutput.txt", ForAppending)
objFile.WriteLine "Error Log -- Date: " & Now() & vbCrLf
WshShell.AppActivate "SAP_ERPRoute.exe - Common Language Runtime 侦错服务"
if WshShell.appactivate("SAP_ERPRoute.exe - Common Language Runtime 侦错服务") = true Then
objFile.WriteLine "SAP_ERPRoute.exe - Common Language Runtime 侦错服务" & Now()
objFile.WriteLine vbCrLf
objFile.Close
wscript.sleep 3000
WshShell.SendKeys "{ENTER}"
'Wscript.Echo "test123.txt active" > 999.txt
End If


vbs_en_20100109_v3.vbs as below :
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "SAP_ERPRoute.exe - Common Language Runtime 侦错服务"
if WshShell.appactivate("SAP_ERPRoute.exe - Common Language Runtime 侦错服务") = true Then
wscript.sleep 3000
WshShell.SendKeys "{ENTER}"
'Wscript.Echo "test123.txt active" > 999.txt
End If

[ Last edited by pdanniel66 on 2010-1-9 at 19:38 ]

start_batch.vbs

Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(5000)
Wsh.Run "D:\scripts\TEST\20100106_vbs_enter\vbs_Enter_v1.bat",false,false
Set Wsh=NoThing
WScript.quit