浣跨敤VBS鍒涘缓蹇嵎鏂瑰紡鐨勪唬鐮? target= |
|
本文标签：VBS鍒涘缓蹇嵎鏂瑰紡 鍦ㄧ綉鍚х淮鎶よ繃绋嬩腑缁忓父瑕佸彂閫佹闈㈠揩鎹锋柟寮忥紝鏈変粈涔堟壒澶勭悊鐨勬柟寮忚兘渚挎嵎鍙戦�佹闈㈠揩鎹锋柟寮忓憿锛屽氨鎷挎垜杩欒竟缃戝惂steam涓嬪彂涓轰緥缁欏ぇ瀹朵竴涓弬鑰冿紝濡傛灉瑕佷娇鐢ㄧ洿鎺ュ鍒朵笅闈唬鐮佹敼涓嬪叿浣撳弬鏁板氨琛屼簡銆備唬鐮佸涓嬶細
@echo off
::璁剧疆绋嬪簭鎴栨枃浠剁殑璺緞锛堝繀閫夛級
set Program=D:Program FilesMicrovirtMEmuMEmu.exe
::璁剧疆鍚姩鍙傛暟锛堝彲閫夛級
set Arguments=
::璁剧疆蹇嵎鏂瑰紡鍚嶇О锛堝繀閫夛級
set LnkName=test
::璁剧疆绋嬪簭鐨勫伐浣滆矾寰勶紝涓�鑸负绋嬪簭涓荤洰褰曪紝姝ら」鑻ョ暀绌猴紝鑴氭湰灏嗚嚜琛屽垎鏋愯矾寰?
set WorkDir=
::璁剧疆蹇嵎鏂瑰紡鏄剧ず鐨勮鏄庯紙鍙�夛級
set Desc=
if not defined WorkDir call:GetWorkDir "%Program%"
(echo Set WshShell=CreateObject("WScript.Shell"^)
echo strDesKtop=WshShell.SpecialFolders("DesKtop"^)
echo Set oShellLink=WshShell.CreateShortcut(strDesKtop^&"\%LnkName%.lnk"^)
echo oShellLink.TargetPath="%Program%"
echo oShellLink.Arguments="%Arguments%"
echo oShellLink.WorkingDirectory="%WorkDir%"
echo oShellLink.WindowStyle=1
echo oShellLink.Description="%Desc%"
echo oShellLink.Save)>makelnk.vbs
echo 妗岄潰蹇嵎鏂瑰紡鍒涘缓鎴愬姛锛?
makelnk.vbs
del /f /q makelnk.vbs
exit
goto :eof
:GetWorkDir
set WorkDir=%'dp1
set WorkDir=%WorkDir:',-1%
goto :eof
VBS: 绗?涓槸妗岄潰涓婂垱寤哄揩鎹锋柟寮忕殑搴旂敤鑼冧緥
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'鐗规畩鏂囦欢澶光�滄闈⑩�?
set oShellLink = WshShell.CreateShortcut(strDesktop & "璁＄畻鍣?lnk")
oShellLink.TargetPath = "C:WindowsSystem32Calc.exe" : '鐩爣
oShellLink.WindowStyle = 3 :'鍙傛暟1榛樿绐楀彛婵�娲伙紝鍙傛暟3鏈�澶у寲婵�娲伙紝鍙傛暟7鏈�灏忓寲
oShellLink.Hotkey = "Ctrl+Alt+C" : '蹇嵎閿?
oShellLink.IconLocation = "C:WindowsSystem32Calc.exe" : '鍥炬爣
oShellLink.Description = "绯荤粺榛樿璁＄畻鍣? : '澶囨敞
oShellLink.WorkingDirectory = strDesktop : '璧峰浣嶇疆
oShellLink.Save : '鍒涘缓淇濆瓨蹇嵎鏂瑰紡
绗?涓槸鑷畾涔夌洰褰曚綅缃笂鍒涘缓蹇嵎鏂瑰紡鐨勫簲鐢ㄨ寖渚?/p>
Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("C:Documents and SettingsAdministrator璁＄畻鍣ㄨ皟璇?lnk")
oShellLink.IconLocation = "C:Documents and SettingsAdministratorCalc.exe" : '鍥炬爣
oShellLink.TargetPath = "C:Documents and SettingsAdministratorCalc.exe" : '鐩爣
oShellLink.WorkingDirectory = "C:Documents and SettingsAdministrator" : '璧峰浣嶇疆
oShellLink.Hotkey = "Ctrl+Alt+C" : '蹇嵎閿?
oShellLink.WindowStyle = 3 :'杩愯鏂瑰紡锛屽弬鏁?榛樿绐楀彛婵�娲伙紝鍙傛暟3鏈�澶у寲婵�娲伙紝鍙傛暟7鏈�灏忓寲
oShellLink.Description = "绯荤粺榛樿璁＄畻鍣? : '澶囨敞
oShellLink.Save : '鍒涘缓淇濆瓨蹇嵎鏂瑰紡
浠ヤ笅鍐呭鍙﹀瓨涓?XXX.js 涔熸槸bat涓粡甯歌皟鐢ㄧ殑vbs
var fso = new ActiveXObject("Scripting.FileSystemObject");
var shl = WScript.CreateObject("WScript.Shell");
var oUrl = shl.CreateShortcut("C:Documents and SettingsAdministratorFavorites\娓告垙鑿滃崟.lnk");
oUrl.TargetPath = "E:\nbmsclient\BarClientView.exe";
oUrl.IconLocation = "E:\nbmsclient\BarClientView.exe";
oUrl.WorkingDirectory = "E:\nbmsclient";
oUrl.Save();
鍙互澧炲姞鍙垽鏂郴缁熸澘鏈殑锛?/p>
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "xxx绯荤粺.lnk")
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.folderExists("C:\Program Files (x86)") Then '閫氳繃鐩綍鏉ュ垽鏂槸32浣嶈繕鏄?4浣嶆搷浣滅郴缁?
oShellLink.TargetPath = "C:Program Files (x86)GoogleChromeApplicationchrome.exe" '鐩爣
oShellLink.WorkingDirectory = "C:Program Files (x86)GoogleChromeApplication" '璧峰浣嶇疆
Else
oShellLink.TargetPath = "C:Program FilesGoogleChromeApplicationchrome.exe"
oShellLink.WorkingDirectory = "C:Program FilesGoogleChromeApplication"
End If
oShellLink.Arguments = "http://192.168.0.1:8080/xxx/" '杩愯鍙傛暟
oShellLink.WindowStyle = 1 '鍙傛暟1榛樿绐楀彛婵�娲伙紝鍙傛暟3鏈�澶у寲婵�娲伙紝鍙傛暟7鏈�灏忓寲
oShellLink.Hotkey = "" '蹇嵎閿?
oShellLink.IconLocation = "C:Program FilesChromeStandaloneSetupfavicon.ico" '鍥炬爣
oShellLink.Description = ""
oShellLink.Save '鍒涘缓淇濆瓨蹇嵎鏂瑰紡
鏀寔甯﹀弬鏁扮殑
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") '鑾峰彇妗岄潰璺緞
set oShellLink = WshShell.CreateShortcut(strDesktop & "鑵捐QQ.lnk") '蹇嵎鏂瑰紡灏嗚淇濆瓨鍒扮殑瀹屽叏璺緞
oShellLink.TargetPath = "http://www.hao123.com/" '蹇嵎鏂瑰紡閲岀殑鈥滅洰鏍団�?
oShellLink.Arguments = "/鍙傛暟1 /鍙傛暟2" '鈥滅洰鏍団�濈殑杩愯鍙傛暟,鏃犲弬鏁版椂锛岀洿鎺?""
oShellLink.WindowStyle = 1 '蹇嵎鏂瑰紡閲岀殑鈥滆繍琛屾柟寮忊�?
oShellLink.Hotkey = "Ctrl+Alt+e" '蹇嵎鏂瑰紡閲岀殑鈥滃揩鎹烽敭鈥?
oShellLink.IconLocation = "C:Program FilesTencentqq.exe, 0" '蹇嵎鏂瑰紡鐨勫浘鏍?
oShellLink.Description = "鑵捐QQ" '蹇嵎鏂瑰紡閲岀殑鈥滃娉ㄢ�?
oShellLink.WorkingDirectory = "C:Program FilesTencent" '蹇嵎鏂瑰紡閲岀殑鈥滆捣濮嬩綅缃�?
oShellLink.Save '浣跨敤浠ヤ笂鐨勮缃垱寤哄揩鎹锋柟寮?/pre>
涓嬮潰鏄叾浠栫綉鍙嬬殑琛ュ厖 鍒╃敤VBS鍒涘缓蹇嵎鏂瑰紡璇︾粏璇存槑
|
