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


VBS瀹氭椂鎵цidea绋嬪簭鐨凾estng鏂囦欢鐨勬柟娉? target=

鑳屾櫙:

Windows鐜cmd鍛戒护琛屾墽琛孴estNG鏂囦欢锛屼細鎶ヤ竴浜沯ar鍖呰矾寰勯棶棰橈紝鎵�浠ユ敼鐢╲bs鎵撳紑idea绋嬪簭鐨勯�氳繃鐐瑰嚮蹇嵎閿墽琛宼estng.xml鏂囦欢銆?/p>

vbs浠ｇ爜濡備笅锛?/p> 

'绗竴閮ㄥ垎锛氬畾涔夊彉閲?
Dim RunTime
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'绗簩閮ㄥ垎锛氳緭鍏ョ瓑寰呯殑鍒嗛挓鏁?榛樿锛?80鍒嗛挓)锛岀瓑寰呯粨鏉熷悗锛屼細鎵ц绗笁閮ㄥ垎
RunTime = InputBox("Please enter how long to execute:", "Time(鍗曚綅锛歁inutes)", 180)
WScript.Sleep (RunTime*1000*60)
 
'绗笁閮ㄥ垎锛氭墦寮�idea锛屽苟婵�娲籭dea绐楀彛(涓昏鏄负浜嗚幏鍙栫劍鐐癸紝鍚﹀垯蹇嵎閿棤娉曟墽琛?
WshShell.Run "IDEA.lnk"
WScript.Sleep 60000
WshShell.AppActivate "UITest"
 
'绗洓閮ㄥ垎锛氶�氳繃蹇嵎閿甋hift+F10锛屾墽琛宼estng
WScript.Sleep 1000
WshShell.SendKeys "+{F10}"
WScript.Sleep 1000
WScript.Quit

娉?锛歷bs鎵ц绋嬪簭锛屼繚瀛樻牸寮廇NSI锛屽惁鍒欎腑鏂囨爣棰樻樉绀轰负涔辩爜銆?/p>

娉?锛歷bs鎵ц绋嬪簭锛岀▼搴忕殑瀹夎璺緞涓嶈兘鏈夌┖鏍硷紝鎵�浠ュ彲浠ュ缓涓�涓揩鎹锋柟寮忔斁鍒皏bs鍚屼竴涓洰褰曚笅鎵ц鍗冲彲銆?/p>

娉?锛氭縺娲籭dea搴旂敤绐楀彛姝ラ锛岄渶瑕佺‘淇濆悕绉版纭?涓嶇敤鍐欏叏鏍囬鍚嶇О锛屽彧鍐欏墠鍑犱釜瀛楃鍗冲彲)

娉?锛氱‘淇濇墦寮�鐨刬dea锛岄粯璁ゆ槸閫夋嫨鐨則estng.xml

 濡備綍鏌ョ湅vbs鏄惁鍦ㄥ悗鍙拌繍琛?/p>

鍒版杩欑瘒鍏充簬VBS瀹氭椂鎵цidea绋嬪簭鐨凾estng鏂囦欢鐨勬柟娉曠殑鏂囩珷灏变粙缁嶅埌杩欎簡,鏇村鐩稿叧VBS瀹氭椂鎵цidea鍐呭璇锋悳绱㈣剼鏈箣瀹朵互鍓嶇殑鏂囩珷鎴栫户缁祻瑙堜笅闈㈢殑鐩稿叧鏂囩珷甯屾湜澶у浠ュ悗澶氬鏀寔鑴氭湰涔嬪锛?/p>