大智慧F10新旧共用
-
相关简介:大智慧F10新旧共用 新版大智慧 F10 不知道怎么下载,好像旧版5.999可以下载的,所以查看了文件夹,让他们共用吧: 如图,但得稍微做点技术处理,干脆直接上vbs代码:@启动旧版@启动新版vbs同理制作,我这用的好好的,大家可以试试 C/C++ Code 复制内容到剪贴板 setfso=CreateObject( Scripting.FileSystemObject ) Setws=WScript.CreateObject( wscript.shell ) if fso.fol
-
文章来源:股海网作者:股海网发布时间: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