VBS Shell.Application涓璖hellExecute鐨勪娇鐢ㄦ柟娉曡�﹁�? target=

鏈�杩戝湪椤圭洰涓�鍋剁劧鐢ㄥ埌浜嗕娇鐢╒BS璋冪敤“shell.application”涓�鐨凷hellExecute鏂规硶銆傚湪鐧惧害鎼滅储涓�鍦堝悗鍙戠幇寰堥毦鎵惧埌鍏充簬杩欎釜鏂规硶鐨勮�︾粏鐨勪腑鏂囨暀绋嬨�傛渶鍚庢槸鍦ㄥ井杞�鐨勫畼鏂规枃� 。涓�鎵嶆壘鍒颁簡杩欎釜鎸囦护鐨勮�︾粏鑻辨枃鏁欑▼銆傜幇灏嗚�ユ柟娉曠殑璇︾粏鎻忚堪鐢ㄤ腑鏂囧垎浜�缁欏悇浣嶇爜鍙嬨�?/p>

棣栧厛锛孷BS涓�璋冪敤璇ユ柟娉曞彲浠ョ敤Set Shell=CreateObject("Shell.Application")鏉ュ垱寤哄�硅薄銆傝�ユ柟娉曠殑鍛戒护鏍煎紡濡備笅锛�

Shell.ShellExecute "鎵ц�屽懡浠ゆ垨鏂囦欢鐨勫悕绉�", "鎵ц�屽懡浠ょ殑闄勫姞鍙傛�?quot;, "鎵ц�屽懡浠ゆ垨鏂囦欢鎵�鍦ㄧ洰褰曠殑缁濆�硅矾寰�", "鎿嶄綔", 绐楀彛鏄剧ず绫诲瀷

鍏蜂綋瑙ｉ噴濡備笅锛?/p>

1.鎵ц�屽懡浠ゆ垨鏂囦欢鐨勫悕绉帮細灏辨槸鎮ㄨ�佹墽琛岀殑鍛戒护鎴栧�勭悊鏂囦欢鐨勫悕绉般�備緥濡傛偍鎯虫墦寮�涓�涓猚md鎸囦护绐楀彛锛岄偅涔堣繖涓�鍚嶇О灏辨槸cmd.exe銆?/p>

2.鎵ц�屽懡浠ょ殑闄勫姞鍙傛暟锛氬�傛灉鎮ㄦ墽琛岀殑鍛戒护鏄�闇�瑕佸弬鏁扮殑锛屽垯鍙�浠ュ皢杩欎簺鍙傛暟濉�鍐欏湪杩欓噷銆?/p>

3.鎵ц�屽懡浠ゆ垨鏂囦欢鎵�鍦ㄧ洰褰曠殑缁濆�硅矾寰勶細濉�鍐欐偍瑕佹墽琛岀殑鍛戒护鏂囦欢鎴栬�佸�勭悊鐨勬枃浠剁殑瀛樺偍璺�寰勩�傚�傛灉鏄�绌哄垯榛樿�や负褰撳墠璺�寰勩�?/p>

4.鎿嶄綔锛氭湰鍙傛暟鏈夊叚椤硅�惧畾鍊煎彲渚涢�夋嫨銆?/p>

璁惧畾鍊?/td>	涓�鏂囨剰鎬?/td>	鎻忚堪
edit	缂栬緫	浣跨敤瀵瑰簲鐨勭紪杈戝櫒鎵撳紑绗�涓�涓�鍙傛暟涓�杈撳叆鐨勬枃浠朵互瀵瑰叾缂栬緫銆?/td>
find	鏌ユ壘	鍦ㄧ��涓変釜鍙傛暟鎸囧畾鐨勭洰褰曚笅鏌ユ壘绗�涓�涓�鍙傛暟鎸囧畾鐨勬枃浠躲�?/td>
open	鎵撳紑	杩愯�岀��涓�涓�鍙傛暟涓�鎸囧畾鐨勬枃浠躲�傚�傛灉璇ユ枃浠朵笉鏄�涓�涓�鍙�鎵ц�屾枃浠讹紝鍒欑敤鐩稿簲鐨勫彲浠ユ墦寮�璇ユ枃浠剁殑杞�浠舵墦寮�瀹冦�?/td>
print	鎵撳嵃	鎵撳嵃绗�涓�涓�鍙傛暟涓�鎸囧畾鐨勬枃浠躲�?/td>
properties	灞炴�?/td>	鍒楀嚭绗�涓�涓�鍙傛暟涓�鎸囧畾鏂囦欢鐨勬墍鏈夊睘鎬с�?/td>
runas	浠ョ�＄悊鍛樿处鎴疯繍琛�	浠ョ�＄悊鍛樿处鎴疯繍琛岀��涓�涓�鍙傛暟鎸囧畾鐨勭▼搴忋�傜敤鎴疯处鎴风�＄悊绯荤粺锛圲AC锛変細鎻愮ず鐢ㄦ埛纭�璁ょ▼搴忎互鏇撮珮鐨勬潈闄愯繍琛屾垨瑕佹眰鐢ㄦ埛杈撳叆绠＄悊鍛樿处鎴风殑鍑�璇併�?/td>

5.绐楀彛鏄剧ず绫诲瀷锛氳繖涓�鍙傛暟鐢ㄤ簬璁惧畾鍦ㄦ墽琛岀��涓�涓�鍙傛暟涓�鎸囧畾鐨勭▼搴忔椂锛屼互浣曠�嶆柟寮忔墦寮�绋嬪簭绐楀彛銆傝繖鏄�涓�涓�鐢ㄦ暟瀛楄〃绀轰笉鍚岃�惧畾鍊肩殑鍙傛暟銆傚叿浣撳唴瀹瑰�備笅锛�

搴旂敤瀹炰緥锛氭湰渚嬪瓙鏄�浣跨敤ShellExecute鏂规硶璋冪敤“C:WindowsSystem32cmd.exe”鎺у埗鍙扮▼搴忔潵娣诲姞鐢ㄦ埛銆傜敤鎴峰悕绉颁负username,瀵嗙爜涓簆assword銆備互绠＄悊鍛樿处鎴疯繍琛屻�?/p>

Set Shell=CreateObject("Shell.Application")
Shell.ShellExecute "cmd.exe", "/k net user username password /add", "C:WindowsSystem32", "runas", 1

Shell.ShellExecute 鏂规硶瀹樻柟璧勬枡

瀵规寚瀹氭枃浠舵墽琛屾寚瀹氭搷浣溿�?/p>

璇�娉�
JScript锛?/p>

JavaScript

iRetVal = Shell.ShellExecute(
聽 sFile,
聽 [ vArguments ],
聽 [ vDirectory ],
聽 [ vOperation ],
聽 [ vShow ]
);

VBScript锛?/p>

iRetVal = Shell.ShellExecute( _
聽 sFile, _
聽 [ ByVal vArguments ], _
聽 [ ByVal vDirectory ], _
聽 [ ByVal vOperation ], _
聽 [ ByVal vShow ] _
)

VB锛?/p>

Shell.ShellExecute( _
聽 ByVal sFile As BSTR, _
聽 [ ByVal vArguments As Variant ], _
聽 [ ByVal vDirectory As Variant ], _
聽 [ ByVal vOperation As Variant ], _
聽 [ ByVal vShow As Variant ] _
) As Integer

鍙傛暟

sFile [in]

绫诲瀷锛?nbsp;BSTR

涓�涓?nbsp;瀛楃�︿�?nbsp;锛屽叾涓�鍖呭�?nbsp;ShellExecute 灏嗗�瑰叾鎵ц�?nbsp;vOperation 鎸囧畾鐨勬搷浣滅殑鏂囦欢鐨勫悕绉般�?/p>

vArguments [in锛?鍙�閫塢

绫诲瀷锛?nbsp;Variant

鍖呭惈鎿嶄綔鐨勫弬鏁板�肩殑瀛楃�︿覆銆?/p>

vDirectory [in锛?鍙�閫塢

绫诲瀷锛?nbsp;Variant

鍖呭惈 sFile 鎸囧畾鐨勬枃浠剁殑鐩�褰曠殑瀹屽叏闄愬畾璺�寰勩�?濡傛灉鏈�鎸囧畾姝ゅ弬鏁帮紝鍒欎娇鐢ㄥ綋鍓嶅伐浣滅洰褰曘�?/p>

vOperation [in锛?鍙�閫塢

绫诲瀷锛?nbsp;Variant

瑕佹墽琛岀殑鎿嶄綔銆?姝ゅ�艰�剧疆涓烘枃浠舵敮鎸佺殑璋撹瘝瀛楃�︿覆涔嬩竴銆?鏈夊叧璋撹瘝鐨勮�ㄨ�猴紝璇峰弬闃?ldquo;澶囨敞”閮ㄥ垎銆?濡傛灉鏈�鎸囧畾姝ゅ弬鏁帮紝鍒欐墽琛岄粯璁ゆ搷浣溿�?/p>

vShow [in锛?鍙�閫塢

绫诲瀷锛?nbsp;Variant

鏈�鍒濆簲濡備綍鏄剧ず搴旂敤绋嬪簭绐楀彛鐨勫缓璁�銆?搴旂敤绋嬪簭鍙�浠ュ拷鐣ユ�ゅ缓璁�銆?姝ゅ弬鏁扮殑鍙栧�煎彲涓轰笅鍒楀�间箣涓�锛?濡傛灉鏈�鎸囧畾姝ゅ弬鏁帮紝鍒欏簲鐢ㄧ▼搴忎娇鐢ㄥ叾榛樿�ゅ�笺�?/p>

鍊?/th>	鍚�涔�
0	浣跨敤闅愯棌绐楀彛鎵撳紑搴旂敤绋嬪簭銆?/td>
1	浣跨敤鏅�閫氱獥鍙ｆ墦寮�搴旂敤绋嬪簭銆?濡傛灉绐楀彛鏈�灏忓寲鎴栨渶澶у寲锛岀郴缁熶細灏嗗叾杩樺師涓哄叾鍘熷�嬪ぇ灏忓拰浣嶇疆銆?/td>
2	浣跨敤鏈�灏忓寲绐楀彛鎵撳紑搴旂敤绋嬪簭銆?/td>
3	浣跨敤鏈�澶у寲绐楀彛鎵撳紑搴旂敤绋嬪簭銆?/td>
4 官方整顿网盘限速！网友齐刷刷@百度网盘 windows 7下硬盘安装黑苹果Mac OS X图文教程 富士胶片推出LTO Ultrium 9数字磁带，最大可存储45TB数据 有人喊你投资5G基站别信 中兴通讯回应这是诈骗	浣跨敤鍏剁獥鍙ｆ墦寮�鍏舵渶鏂板ぇ灏忓拰浣嶇疆鐨勫簲鐢ㄧ▼搴忋�?娲诲姩绐楀彛淇濇寔娲诲姩鐘舵�併�?/td>
5	鎵撳紑搴旂敤绋嬪簭锛屽叾绐楀彛鐨勫綋鍓嶅ぇ灏忓拰浣嶇疆銆?/td>
7	浣跨敤鏈�灏忓寲绐楀彛鎵撳紑搴旂敤绋嬪簭銆?娲诲姩绐楀彛淇濇寔娲诲姩鐘舵�併�?/td>
10	鎵撳紑搴旂敤绋嬪簭锛屽叾绐楀彛澶勪簬搴旂敤绋嬪簭鎸囧畾鐨勯粯璁ょ姸鎬併�?/td>

娉ㄨВ

姝ゆ柟娉曠瓑鏁堜簬鍚�鍔ㄤ笌鏂囦欢蹇�鎹疯彍鍗曞叧鑱旂殑鍛戒护涔嬩竴銆?姣忎釜鍛戒护鐢辫皳璇嶅瓧绗︿覆琛ㄧず銆?鏀�鎸佺殑璋撹瘝闆嗗洜鏂囦欢鑰屽紓銆?鏈�甯告敮鎸佺殑璋撹瘝鏄?ldquo;open”锛岃繖閫氬父鏄�榛樿�よ皳璇嶃�?鍏朵粬璋撹瘝鍙�鑳戒粎鏀�鎸佹煇浜涚被鍨嬬殑鏂囦欢銆?鏈夊叧 Shell 璋撹瘝鐨勮繘涓�姝ヨ�ㄨ�猴紝璇峰弬闃?nbsp;鍚�鍔ㄥ簲鐢ㄧ▼搴� 鎴?nbsp;鎵╁睍蹇�鎹疯彍鍗曘�?/p>

姝ゆ柟娉曠洰鍓嶅湪 Microsoft Visual Basic涓�涓嶅彲鐢ㄣ�?/p>

绀轰緥

浠ヤ笅绀轰緥婕旂ず濡備綍浣跨敤 ShellExecute 鎵撳紑璁颁簨鏈�銆?JScript鍜?VBScript 鐨勪娇鐢ㄦ儏鍐垫樉绀恒�?/p>

JScript锛?/p>

function ShellExecuteJS()
{
    var objShell = new ActiveXObject("Shell.Application");
    objShell.ShellExecute("notepad.exe", "", "", "open", 1);
}

VBScript锛?/p>

Function ShellExecuteVB()
    Dim objShell
    Set objShell = CreateObject("Shell.Application")
    Call objShell.ShellExecute("notepad.exe", "", "", "open", 1)
End Function

瑕佹眰

鎯充簡瑙ｆ洿澶氱殑鏈嬪弸鍙�浠ュ埌寰�杞�瀹樻柟鏌ョ�?/p>

https://learn.microsoft.com/zh-cn/windows/win32/shell/shell-shellexecute

鍒版�よ繖绡囧叧浜嶸BS Shell.Application涓璖hellExecute鐨勪娇鐢ㄦ柟娉曡�﹁В鐨勬枃绔犲氨浠嬬粛鍒拌繖浜�,鏇村�氱浉鍏硋bs Shell.ShellExecute 鏂规硶鍐呭�硅�锋悳绱㈣剼鏈�涔嬪�朵互鍓嶇殑鏂囩珷鎴栫户缁�娴忚�堜笅闈㈢殑鐩稿叧鏂囩珷甯屾湜澶у�朵互鍚庡�氬�氭敮鎸佽剼鏈�涔嬪�讹�?/p>