大智慧F10新旧共用

阅读作者：股海网时间 2017-06-03 大智慧软件

大智慧F10新旧共用

新版大智慧 F10 不知道怎么下载，好像旧版5.999可以下载的，所以查看了文件夹，让他们共用吧：

如图，但得稍微做点技术处理，干脆直接上vbs代码：@启动旧版@启动新版vbs同理制作，我这用的好好的，大家可以试试

C/C++ Code复制内容到剪贴板

set fso=CreateObject("Scripting.FileSystemObject")
Set ws=WScript.CreateObject("wscript.shell")
if fso.folderexists("DATA\SZ") and (not fso.folderexists("DATA\SZnse")) then
fso.movefolder "DATA\SZ", "DATA\SZnse"
WScript.Sleep 60
end if
if fso.folderexists("DATA\SH") and (not fso.folderexists("DATA\SHase")) then
fso.movefolder "DATA\SH", "DATA\SHase"
WScript.Sleep 60
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CURRENTPATH = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
if (FSO.folderexists("DATA\SZnse") AND NOT FSO.folderexists("DATA\SZ")) AND (FSO.folderexists("DATA\SHase") AND NOT FSO.folderexists("DATA\SH")) then
ws.CurrentDirectory=CURRENTPATH & "\internet\"
ws.Run "hypmain.exe"
end if
Set fso=NoThing
Set ws=NoThing
Wscript.Quit

大智慧F10新旧共用