Dim delayer
Set delayer = CreateObject("WScript.Shell")
WScript.sleep 10000
delayer.Run "C:\Users\Administrator\Desktop\融合.lnk", 1, FALSE
Set delayer = Nothing
WScript.quit
原创博客，转载请标明出处：https://www.geekapp.cn/archives/581.html
Dim delayer
Set delayer = CreateObject("WScript.Shell")
WScript.sleep 10000
delayer.Run "C:\Users\Administrator\Desktop\融合.lnk", 1, FALSE
Set delayer = Nothing
WScript.quit