鍦ㄧ數鑴戜笂瀹炵幇寰俊澶氬紑鐨勬妧宸ф暀绋? target= |
|
本文标签：鐢佃剳寰俊澶氬紑,寰俊澶氬紑 闇�姹傚垎鏋?/h2>寰俊鏄垜浠棩甯哥敓娲讳腑蹇呬笉鍙皯鐨勭ぞ浜よ蒋浠讹紝寰堝浜轰笉姝㈡湁涓�涓井淇★紝浣嗛�氬父浼氶潰涓翠竴涓棶棰橈紝鍦ㄧ數鑴戜笂鍙兘鍚屾椂鎵撳紑涓�涓井淇★紝浠婂ぉ鎴戦棽鏉ユ棤浜嬶紝鍐欎簡涓�涓湪鐢佃剳涓婂彲浠ュ井淇″寮�鐨勮剼鏈紝鏈�鍒濅娇鐢ㄧ殑鏄?code>bat鑴氭湰锛屼絾
瀹炵幇鎬濊矾
鍏蜂綋浠ｇ爜' 鎵撳紑寰俊鐨勬暟閲?
dim count
' 寰俊搴旂敤绋嬪簭鍦板潃
dim src
' wsh鑴氭湰缁堢
dim wsh
' fso璇诲彇鏂囦欢淇℃伅
dim fso
' 璁剧疆wsh鑴氭湰缁堢
set wsh = WScript.CreateObject("WScript.Shell")
' 璁剧疆fso鏉ヨ鍙栨枃浠?
Set fso = CreateObject("Scripting.FileSystemObject")
' 璋冪敤鍑芥暟鎵撳紑杈撳叆妗?
Call GetCount()
' 瀹氫箟涓�涓嚱鏁扮敤鏉ユ墦寮�杈撳叆妗嗗脊绐?
Sub GetCount()
' 鑾峰彇鎵撳紑鐨勫井淇℃暟閲忥紝榛樿鎵撳紑涓や釜
count = inputbox("璇疯緭鍏ュ井淇″寮�鏁伴噺","寰俊澶氬紑",2)
' 鍒ゆ柇鏄惁杈撳叆鍐呭
if count = "" Then
' 濡傛灉鐐瑰嚮鍙栨秷锛岀洿鎺ラ��鍑哄嚱鏁?
if IsEmpty(count) Then
WScript.quit
else
' 濡傛灉鐐瑰嚮纭畾鍒欐彁绀鸿緭鍏ユ暟閲?
msgbox("璇疯緭鍏ユ墦寮�寰俊鐨勬暟閲?)
Call GetCount()
end If
end If
' 鑾峰彇寰俊鍙墽琛屾枃浠跺湴鍧�锛岄粯璁ゆ槸鎴戞湰鏈虹殑寰俊搴旂敤绋嬪簭鍦板潃
src = inputbox("璇疯緭鍏ュ井淇＄▼搴忓湴鍧�","寰俊绋嬪簭鍦板潃","E:WeChatWeChat.exe")
' 鍒ゆ柇鏄惁杈撳叆寰俊绋嬪簭鍦板潃
if src = "" Then
' 濡傛灉鐐瑰嚮鍙栨秷锛岀洿鎺ラ��鍑哄嚱鏁?
if IsEmpty(src) Then
WScript.quit
else
' 濡傛灉鐐瑰嚮纭畾鍒欐彁绀鸿緭鍏ュ井淇＄▼搴忓湴鍧�
msgbox("璇疯緭鍏ュ井淇″彲鎵ц鏂囦欢鍦板潃")
Call GetCount()
end If
end If
if count > 7 Then
msgbox("鏈�澶氭墦寮�7涓井淇?)
Call GetCount()
elseif count < 0 Then
msgbox("鏈�灏戞墦寮�1涓井淇?)
Call GetCount()
end If
' 妫�鏌ユ枃浠惰矾寰勬槸鍚﹀瓨鍦?
if Not fso.FileExists(src) Then
msgbox("鎸囧畾鐨勫井淇″惎鍔ㄧ▼搴忎笉瀛樺湪")
Call GetCount()
end If
dim runStatus
For i = 1 to count
runStatus = wsh.Run(src)
If runStatus <> 0 Then
msgbox("绋嬪簭鍑虹幇寮傚父")
Exit Sub
End If
Next
Set wsh = NoThing
End Sub
鏈�鍚庡皢浠ｇ爜淇濆瓨鍦ㄦ闈紝骞跺皢鍚庣紑淇敼涓?code>.vbs锛屽弻鍑诲氨鍙互鐩存帴杩愯鍟?/p> 鏀惰幏
缁撹杩欎篃鏄垜绗竴娆″涔?code>vbs锛屽苟鍋氫簡杩欎箞涓�涓?code>灏忓伐鍏?/code>锛岃偗瀹氫細鏈夊緢澶氬湴鏂逛笉澶熻鑼冿紝鐢氳嚦濡傛灉鏈夐敊璇笇鏈涗綘鍙互鎸囧嚭锛屽浜嗭紝杩欎釜涓滆タ鏄熀浜庡井杞殑锛屾墍浠ュ彧鑳藉湪 浠ヤ笂灏辨槸鍦ㄧ數鑴戜笂瀹炵幇寰俊澶氬紑鐨勬妧宸ф暀绋嬬殑璇︾粏鍐呭锛岀浉鍏虫枃绔狅紒 |
