软件开发培训班 >> 编程开发 >> VbScript


鏁欎綘鐢╲bs瀹炵幇寰俊鑷姩鍙戦�佹秷鎭姛鑳? target=

鍓嶈█

鏈�杩戝鐢佃剳鎴栨墜鏈鸿嚜鍔ㄨ繘琛屾煇浜涙搷浣滃緢鎰熷叴瓒ｏ紝浜庢槸鍘荤湅浜嗕竴涓嬫湁鍏虫墜鏈虹數鑴戝井淇¤嚜鍔ㄥ洖澶嶆秷鎭浉鍏崇殑涓滆タ锛屽彂鐜板緢澶氭伓鎼炰唬鐮佷笉浠呭彲浠ラ�氳繃瀹炵幇鐥呮瘨鐨勬柟寮忥紝鍚屾椂鐢╲b灏卞彲浠ュ疄鐜颁竴涓父瑙佺殑鎭舵悶鑴氭湰銆?/p>

1銆佸井淇¤嚜鍔ㄥ洖澶嶆秷鎭?/h2>

寰俊锛屼綔涓烘棩鍓嶆渶鐑渶鐏殑绀句氦杞欢锛屽簲璇ユ槸瀹跺柣鎴锋檽鐨勪簡锛屽勾杞讳汉锛岃�佷汉鐢氳嚦灏忓閮藉湪鐢ㄦ墜鏈虹帺寰俊锛屽浜庝笂鐝棌鏉ヨ鐢ㄧ殑鏈�澶氱殑鍙兘鏄井淇＄數鑴戠増锛屾垜浠瘡澶╅兘鍦ㄦ墜宸ヨ緭鍏ュ彂閫佹垨鑰呭洖澶嶅悇绫诲井淇℃秷鎭紝闅惧厤浼氶亣鍒颁竴浜涙儏鍐垫垜浠渶瑕佺數鑴戣嚜鍔ㄥ府鎴戜滑鍚戞寚瀹氫汉鍙戦�佹秷鎭紝鑰屽埄鐢╳indows涓殑vbs鐨勮剼鏈垜浠氨鍙互瀹炵幇锛屾垜浠鍏堜簡瑙ｄ竴涓媣bs銆?/p>

vbs锛屽叏绉癕icrosoft Visual Basic Script Edition锛屾槸寰蒋寮�鍙戠殑涓�涓熀浜嶸isual Basic鐨勮剼鏈瑷�锛屽彲浠ュ湪windows涓婄洿鎺ユ墦寮�銆?/p>

鍦╲bs涓垜浠彲浠ラ�氳繃sendkeys杞绘澗鐨勬ā鎷熷彂閫佸悇绫绘寜閿拰鏂囧瓧锛屼絾鏄洿鎺ュ彂閫佷腑鏂囧瓧绗︿細涔辩爜锛屾墍浠ユ垜浠渶瑕佸厛灏嗗緟鍙戦�佺殑涓枃瀛楃鏀惧叆鍓垏鏉跨劧鍚庡啀浠庡壀鍒囨澘鍙栧嚭鍐呭鍙戦�侊紝鍦╟md涓垜浠彲浠ラ�氳繃绠￠亾杩炴帴echo鍜宑lip.exe鏉ュ皢鍐呭鏀惧叆鍓垏鏉匡紝

echo 娴嬭瘯 | clip.exe
鍦╟md鍛戒护琛岀獥鍙ｄ腑杈撳叆浠ヤ笂鍛戒护锛屼綘浼氬彂鐜扳�滄祴璇曗�濊繖涓や釜瀛楃琚斁鍏ヤ簡鍓垏鏉匡紝鍦╲bs涓垜浠彧闇�瑕佽皟鐢ㄨ繖涓懡浠ゅ氨鍙互瀹炵幇灏嗗唴瀹规斁鍒板壀鍒囨澘鐨勬搷浣?
ws.Run "cmd.exe /c echo 娴嬭瘯 | clip.exe", 0, True
鐜板湪鎴戜滑娓呮濡傛灉鍙戦�佹秷鎭紝涔熺煡閬撳浣曞彂閫佷腑鏂囦簡锛屼絾鏄鍚戝井淇″彂閫佹秷鎭垜浠繕闇�瑕佺煡閬撴�庝箞鍦ㄤ换鎰忕晫闈笅鍞ら啋寰俊锛屼竴鑸殑搴旂敤鎴戜滑鍙互閫氳繃appActivate鏉ユ縺娲荤獥鍙ｏ紝褰撶劧鎴戜滑涔熷彲浠ラ�氳繃蹇嵎閿潵鍞ら啋鏌愪釜杞欢鎴栨墽琛岀壒瀹氱殑鎿嶄綔锛屾瘮濡傚湪寰俊涓垜浠彲浠ラ�氳繃Ctrl+Alt+W鏉ュ敜閱掑井淇★紝鐢–trl+F鏉ュ敜閱掓煡鎵惧ソ鍙嬪姛鑳姐�?

閫氳繃蹇嵎閿敜閱掑井淇℃柟寮忓彂閫佹秷鎭渶缁堢殑浠ｇ爜锛?/p> 

Dim name,Msg,num    '瀹氫箟鍙橀噺骞跺垎閰嶅唴瀛?    
 'Inputbox()鍑芥暟杩涜杈撳叆   
name=Inputbox("璇疯緭鍏ヤ綘瑕佺粰璋佸彂閫佹秷鎭?)
Msg=Inputbox("璇疯緭鍏ヤ綘鍙戦�佹秷鎭殑鍐呭")
num=Inputbox("璇疯緭鍏ラ噸澶嶅彂閫佸灏戞娑堟伅")
set ws=wscript.createobject("wscript.shell")'鍒涘缓Windows鐨剆hell瀵硅薄鎵撳紑shell绐楀彛
'鍦╓indows鐨剆hell绐楀彛鎵цcmd.exe /c echo " & Name & " | clip.exe"灏唍ame澶嶅埗鍒板壀鍒囨澘涓?
ws.Run "cmd.exe /c echo " & Name & " | clip.exe",0,True
ws.Run "mshta javascript:window.execScript('window.close','vbs')",0,True
ws.sendKeys "^%w"  '閫氳繃Ctrl+Alt+W蹇嵎閿墦寮�寰俊
wscript.sleep 500
ws.sendKeys "^f"    '鎵цctrl + F蹇嵎閿湪寰俊绐楀彛鍞ら啋鎼滅储鍔熻兘
wscript.sleep 500
ws.sendKeys "^v" '绮樿创瑕佹悳绱㈢殑name
wscript.sleep 500
ws.sendKeys "{ENTER}"   '鎸夐敭鐩樼殑enter閿紝杩涘叆瑕佸彂閫佹秷鎭殑name鑱旂郴浜虹獥鍙?
wscript.sleep 500
'鍦╓indows鐨剆hell绐楀彛鎵цcmd.exe /c echo " & Name & " | clip.exe"灏嗗彂閫佺殑娑堟伅鍐呭澶嶅埗鍒板壀鍒囨澘涓?
ws.Run "cmd.exe /c echo " & Msg & " | clip.exe",0,True  
wscript.sleep 500
for i=1 to num  '寰幆鍙戦�乶um娆?
ws.sendKeys "^v"   '绮樿创瑕佸彂閫佺殑msg娑堟伅鍐呭
wscript.sleep 500
ws.sendKeys "{ENTER}"  '鎸塭nter閿繘琛屽彂閫?
next

閫氳繃鎵цWeChat.exe鍞ら啋寰俊鏂瑰紡鍙戦�佹秷鎭渶缁堢殑浠ｇ爜锛?/p> 

dim program1,name,Msg  '瀹氫箟鍙橀噺骞跺垎閰嶅唴瀛?
'Inputbox()鍑芥暟杩涜杈撳叆
name=Inputbox("璇疯緭鍏ヤ綘瑕佺粰璋佸彂閫佹秷鎭?)    
Msg=Inputbox("璇疯緭鍏ヤ綘鍙戦�佹秷鎭殑鍐呭")
num=Inputbox("璇疯緭鍏ラ噸澶嶅彂閫佸灏戞娑堟伅")
'program1琛ㄧずWeChat.exe鐨勪綅缃?
'program1="D:other-systemsWeChatWeChat.exe"
'program1="D:other-systemsQQBinQQ.exe"
program1=Inputbox("璇疯緭鍏eChat.exe鎴朡Q.exe鐨勫瓨鍌ㄤ綅缃?)
set wshshell=CreateObject("wscript.shell")  '鍒涘缓Windows鐨剆hell瀵硅薄鎵撳紑shell绐楀彛
'鍦╓indows鐨剆hell绐楀彛鎵цcmd.exe /c echo " & Name & " | clip.exe"灏唍ame澶嶅埗鍒板壀鍒囨澘涓?
wshshell.Run "cmd.exe /c echo " & Name & " | clip.exe",0,True
wshshell.Run "mshta javascript:window.execScript('window.close','vbs')",0,True
'閫氳繃缁濆璺緞鐨勬柟寮忔墦寮�寰俊绐楀彛
set oexec=wshshell.exec(program1)
wscript.sleep 500  '鍋滅暀500姣
wshshell.sendKeys "^f" '鎵цctrl + F蹇嵎閿湪寰俊绐楀彛鍞ら啋鎼滅储鍔熻兘
wscript.sleep 500  
wshshell.sendKeys "^v"  '绮樿创瑕佹悳绱㈢殑name
wscript.sleep 500
wshshell.sendKeys "{ENTER}"  '鎸夐敭鐩樼殑enter閿紝杩涘叆瑕佸彂閫佹秷鎭殑name鑱旂郴浜虹獥鍙?
wscript.sleep 500
'鍦╓indows鐨剆hell绐楀彛鎵цcmd.exe /c echo " & Name & " | clip.exe"灏嗗彂閫佺殑娑堟伅鍐呭澶嶅埗鍒板壀鍒囨澘涓?
wshshell.Run "cmd.exe /c echo " & Msg & " | clip.exe",0,True
wscript.sleep 500
for i=1 to num   '寰幆鍙戦�乶um娆?
wshshell.sendKeys "^v"  '绮樿创瑕佸彂閫佺殑msg娑堟伅鍐呭
wscript.sleep 500
wshshell.sendKeys "{ENTER}"    '鎸塭nter閿繘琛屽彂閫?
next
wscript.quit

褰撶劧闄や簡鍙互缁欏井淇″彂閫佹秷鎭紝涔熷彲浠q鍙戦�佹秷鎭?鍩烘湰鎬濇兂灏辨槸閫氳繃鎸夐敭鐩樼殑鍚勭蹇嵎閿疄鐜板鍒剁矘璐翠互鍙婃悳绱㈣仈绯讳汉鐨勫姛鑳斤紝閫氳繃鎸塭nter閿繘琛屽彂閫?/p>

2銆乿bs鑴氭湰杩愯鏂瑰紡

濡傛灉浣犵殑鐢佃剳涓婃病鏈夊畨瑁呬换浣曠紪杈戝櫒娌℃湁鍏崇郴锛岀敤鐢佃剳鑷甫鐨勮浜嬫湰灏卞彲浠ョ紪鍐欒剼鏈紝鍙抽敭->鏂板缓->鏂囨湰鏂囨 。锛屽湪鏂板缓鐨勬枃鏈枃妗ｉ噷缂栧啓vbs鑴氭湰锛屽啓瀹屼互鍚庨噸鍛藉悕锛屽皢鍚庣紑鏀逛负.vbs,鍑虹幇浠ヤ笅鎻愮ず锛岄�夋嫨鏄�?/p>

鍙屽嚮灏卞彲浠ヨ繍琛寁bs鑴氭湰鍟︺�?/p>

鎬荤粨

鍒版杩欑瘒鍏充簬鏁欎綘鐢╲bs瀹炵幇寰俊鑷姩鍙戦�佹秷鎭姛鑳界殑鏂囩珷灏变粙缁嶅埌杩欎簡,鏇村鐩稿叧vbs寰俊鑷姩鍙戦�佹秷鎭唴瀹硅鎼滅储鑴氭湰涔嬪浠ュ墠鐨勬枃绔犳垨缁х画娴忚涓嬮潰鐨勭浉鍏虫枃绔犲笇鏈涘ぇ瀹朵互鍚庡澶氭敮鎸佽剼鏈箣瀹讹紒