始终不断重复出现?
我重新运行一下 register.bat 后,再重新打开,不会出现。
可是第二天开机又出现了
我是搞自动开机,开机运行 vbs文件 ,vbs文件的内容是打开金字塔,出现登录界面后用api的PostMessage发送ENter指令
开机也是如此,用API的PostMessage发送关闭指令,出现退出软件提示窗口后再发送enter
那说明你的盘符总是在不断变化
盘符变化?
老大看下我的代码:
开机启动金字塔
Wscript.sleep 15000
Set WshShell=WScript.CreateObject("WScript.Shell")
Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l"
Wrap.Register "user32.dll","PostMessage","i=llls","f=s", "r=l"
WshShell.Run("D:\Weisof~1\WinStock.exe")
WScript.Sleep 10000
WindowHandle = Wrap.FindWindow(vbnullstring, "欢迎使用金字塔")
wrap.PostMessage windowhandle, &H100, &HD,0
wrap.PostMessage windowhandle, &H101, &HD,0
WScript.Sleep 10000
WshShell.run "rundll32.exe user32.dll,LockWorkStation" '锁屏
关机前 关闭金字塔
Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l"
Wrap.Register "user32.dll","PostMessage","i=llls","f=s", "r=l"
WindowHandle = Wrap.FindWindow(vbnullstring, "金字塔决策交易系统 - [动态显示牌]")
dd = wrap.Postmessage(windowhandle,&H10,0,0)
wscript.sleep 3000
WindowHandle1 = Wrap.FindWindow(vbnullstring, "金字塔")
wrap.PostMessage windowhandle1, &H100, &HD,0
wrap.PostMessage windowhandle1, &H101, &HD,0
注意观察SETTING目录下的OPTION.INI文件,注意LastSoftPath这行数据的变化
找到问题了。
我是以这种方法打开金字塔 WshShell.Run("D:\Weisof~1\WinStock.exe")
LastSoftPath记录的是D:\Weisof~1\
而有时候我手动打开金字塔, LastSoftPath记录的是D:\Weisof Stock\
所以就有了上面的提示