大智慧F10新旧共用无病毒

软件简介

大智慧F10新旧共用

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

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

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

1. set?fso=CreateObject("Scripting.FileSystemObject") ??
2. ?Set?ws=WScript.CreateObject("wscript.shell") ??
3. ?????if?fso.folderexists("DATA\SZ")?and?(not?fso.folderexists("DATA\SZnse"))?then? ??
4. ?????????fso.movefolder?"DATA\SZ",?"DATA\SZnse"??
5. ?????????WScript.Sleep?60 ??
6. ?????end?if? ??
7. ??
8. ?????if?fso.folderexists("DATA\SH")?and?(not?fso.folderexists("DATA\SHase"))?then? ??
9. ?????????fso.movefolder?"DATA\SH",?"DATA\SHase"??
10. ?????????WScript.Sleep?60 ??
11. ?????end?if? ??
12. ?''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ??
13. ?CURRENTPATH?=?createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path ??
14. ?????if?(FSO.folderexists("DATA\SZnse")?AND?NOT?FSO.folderexists("DATA\SZ"))?AND?(FSO.folderexists("DATA\SHase")?AND?NOT?FSO.folderexists("DATA\SH"))?then ??
15. ?????????ws.CurrentDirectory=CURRENTPATH?&?"\internet\" ?
16. ?????????ws.Run?"hypmain.exe" ??
17. ?????end?if??
18. ??
19. ?Set?fso=NoThing? ??
20. ?Set?ws=NoThing ??
21. ?Wscript.Quit ??

说明