日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當(dāng)前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

纯脚本创建桌面快捷方式

發(fā)布時間:2023/11/30 编程问答 30 豆豆
生活随笔 收集整理的這篇文章主要介紹了 纯脚本创建桌面快捷方式 小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
最近在看關(guān)于wmi的書,深深感覺wscript的危害之大。這里將書上提到的一些應(yīng)用的例程放上來,大家鑒賞一下,可

不要拿來做壞事喲。新建一個vbs腳本文件。鍵入下面的內(nèi)容

call testwmi()

function testwmi()
dim objShell

set objShell = WScript.CreateObject("WScript.Shell")
dim strDesktop

strDesktop = objShell.SpecialFolders("Desktop")


'now, we can create shortcuts on the desktop
'let's do Internet Explorer

dim objShortcut

set objShortcut= objShell.CreateShortcut(strDesktop & "\IE.lnk")

?

???? objShortcut.TargetPath = "iexplore.exe"

???? objShortcut.WindowStyle = 1

???? objShortcut.Hotkey = "CTRL+SHIFT+I"

???? objShortcut.Description = "Launch Internet Explorer"

???? objShortcut.WorkingDirectory = strDesktop

???? objShortcut.Save

'let's create a link to my home page

dim objURL
set objURL = objShell.CreateShortcut(strDesktop & "\webtrados.url")
objURL.TargetPath = "http://www.iwebtrados.com.cn/"
objURL.Save
end function

轉(zhuǎn)載于:https://www.cnblogs.com/webtrados/archive/2009/08/07/1541516.html

總結(jié)

以上是生活随笔為你收集整理的纯脚本创建桌面快捷方式的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯,歡迎將生活随笔推薦給好友。