新聞速報

        

2019年1月8日 星期二

批次檔 建立程式捷徑

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\TeamViewer.lnk""):b.TargetPath=""%~dp0TeamViewer.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")




mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\TeamViewer 10.lnk""):b.TargetPath=""%~dp0TeamViewer.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")&SET E=完成!&GOTO MSGBOX
張貼者： 於

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)