1。运行一个程序《记事本程序》
2。激活《记事本程序》窗口为最前面
3。利用VBS的 多功能弹窗
4。2句合为一句用(:)冒号
5。输出内容!
运行环境:分辨率:1440×900 色深:32位 操作系统:Windows XP 按键精灵版本:7.00.3730
@兄弟工程师01 2009/3/23
Beep //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// // 运行外部程序[记事本]检测脚本 // //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// VBS Dim obj , i , t VBS i = 0 VBS set obj=CreateObject("WScript.Shell") //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// VBSCall RunApp("notepad.exe") Delay 2000 While i < 3 VBS i = i + 1 //《激活窗口为最前面①》 If obj.AppActivate ("未定标题 - 记事本") Or obj.AppActivate ("无标题 - 记事本") SayExpression "运行记事本成功! (输入内容 "&i&" 次)" KeyPress 13 1 Delay 1000 Else //《显示信息①》 VBS t="Sorry !"&vbCrLf&vbCrLf VBS t=t&"[ 记事本 ]没有被运行或者被提前关闭,检测运行结束。"&vbCrLf&vbCrLf VBSCall obj.Popup(t&"5 秒后自动关闭 !",5,"按鍵自检脚本:",16) Gosub 【脚本停止】 EndIf EndWhile //《激活窗口为最前面②》 VBS obj.AppActivate ("未定标题 - 记事本") : obj.AppActivate ("无标题 - 记事本") SayString 等待 1 秒,自动关闭记事本! Delay 1000 //《关闭[ 记事本 ]》 KeyDown 18 1 KeyPress 115 1 KeyUp 18 1 Delay 500 //《[ 记事本 ]不保存》 KeyPress 78 1 Delay 500 //《显示信息②》 VBS t="你好,[ 记事本 ]运行很成功。^o^ "&vbCrLf&vbCrLf VBSCall obj.Popup(t&"3 秒后自动关闭 !",3,"按鍵自检脚本:",64) EndScript //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓// Sub 【脚本停止】 KeyUp 18 1 EndScript Return 【脚本停止】
按键精灵读取文本代码并执行
按键精灵 运行外置
按键精灵 命令行 启动 源程序
按键精灵调用外部程序
windows 按键精灵 源码
按键精灵源码
按键精灵qme文件源码
按键精灵+运行外部vbs
按键精灵调用外部api
按键精灵qme
按键精灵后台例程
按键精灵例程
运行按键精灵
q语言+运行程序
按键精灵打包资源