VBScript缂栧啓Windows闃叉閿佸睆鑴氭湰绋嬪簭 |
鑳屾櫙浠嬬粛鏈変簺鍏徃鍑轰簬瀹夊叏鍜屼繚瀵嗗伐浣滆�冭檻锛屼細閫氳繃 Windows 缁勭瓥鐣ュ己鍒舵墍鏈夊姙鍏數鑴戝湪鏃犳搷浣滅殑鎯呭喌涓?5 鍒嗛挓鎴栬�?10 鍒嗛挓鑷姩閿佸睆锛岄伩鍏嶆棤鍏充汉澹湅鍒颁笉璇ョ湅鐨勫唴瀹广�備綔涓虹▼搴忓憳锛屽崄鍒嗗弽鎰熻繖绉嶄竴鍒�鍒囩殑鏂规锛屼竴鏉ュ緢瀹规槗鎵撴柇鎬濊矾锛屾瘮濡傛鍦ㄥ啓浠ｇ爜鎴栬�呭悜鍒汉灞曠ず鏃讹紝绐佺劧閿佸睆浜嗗氨鎸烘伓蹇冪殑锛涗簩鏉ユ瘡娆￠攣灞忓悗閮借杈撳叆瀵嗙爜锛岃繖绠�鐩村氨鏄氮璐圭敓鍛斤紝涓嶈兘蹇嶏紒 涓轰簡瑙ｅ喅杩欎釜闂锛屾垜浠彲浠ョ紪鍐欎竴涓畝鍗曠殑 vbs 鑴氭湰锛屽湪閿佸睆鍛ㄦ湡鍐呮ā鎷熸寜閿搷浣滐紝浠庤�岄伩鍏?Windows 妗岄潰琚攣灞忋�備箣鎵�浠ヤ娇鐢?vbs 鑴氭湰锛岃�屼笉鏄?Python銆丣avaScript 绛夋洿娴佽鐨勯珮绾ц瑷�锛屼富瑕佹槸鍥犱负杩欎釜绋嬪簭鐨勯渶姹傜壒鍒畝鍗曪紝鑰屼笖 vbs 鑴氭湰鍙互鍦?Windows 绯荤粺涓洿鎺ヨ繍琛岋紝涓嶉渶瑕佸畨瑁呬换浣曚緷璧栥�?/p> 鑴氭湰绋嬪簭涓嬮潰缁欏嚭涓や釜鑴氭湰锛屼綘鍙互灏嗗畠浠懡鍚嶄负 never_lock.vbs 鏂囦欢锛堝厛鍦?Windows 绯荤粺鏂板缓涓�涓?txt 鏂囨湰鏂囦欢锛岀矘璐翠唬鐮侊紝鐒跺悗淇敼鏂囦欢鍚嶏級銆?/p> 澶嶆潅鐗堟湰Set ws=Wscript.CreateObject("Wscript.Shell")
If ws.expandenvironmentstrings("%strikkeyflag%")=("on")Then
wscript.echo("Screen Never Lockout")
ws.Environment("user").Item("strikkeyflag")="off"
set mi=getobject("winmgmts:win32_process").instances_
for each p in mi
if ucase(p.name)=ucase("wscript.exe")then
p.terminate
End If
Next
wscript.quit
Else
wscript.echo("Screen Never Lockout")
ws.Environment("user").Item("strikkeyflag")="on"
do
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys"{ScrollLock}"
wscript.sleep(280000) 'ms
Loop
end if
绠�鍗曠増鏈?/h3>
'鍏堝畾涔変竴涓猄hell瀵硅薄
Set WshShell = WScript.CreateObject("WScript.Shell")
'璁剧疆鎴愭闇�瑕佹帴缁殑鏃堕棿
do
'璁剧疆鎴愭瘮灞忎繚鏃堕棿鐭偣灏卞彲浠?
WScript.Sleep 60000 '1min 60000ms
WshShell.SendKeys "{ScrollLock}"
loop
鍦?Windows 绯荤粺涓弻鍑?never_lock.vbs 鑴氭湰锛屽嵆鍙繍琛屻�?/p> 濡傞渶鍋滄鑴氭湰锛屽彲浠ユ寜 Ctrl + Shift + Esc 閿墦寮�浠诲姟绠＄悊鍣紝鎵惧埌 Microsoft ® Windows Based Script Host锛岀粨鏉熶换鍔″嵆鍙�?/p> 宸ヤ綔鍘熺悊浣犲簲璇ュ凡缁忕寽鍒帮紝never_lock.vbs 鑴氭湰鐨勫伐浣滃師鐞嗗氨鏄�氳繃瀹氭椂鎸変竴娆?Scroll Lock 閿紝璁╃郴缁熻涓轰竴鐩存湁浜轰负鎿嶄綔锛屽彧瑕佸畾鏃舵椂闂村湪閿佸睆鍛ㄦ湡浠ュ唴锛屽氨鍙互杈惧埌閬垮厤閿佸睆鐨勬晥鏋溿�?/p> Scroll Lock 鍗?ldquo;婊氬姩閿佸畾閿?rdquo;锛屾槸涓�涓幇瀛樹簬澶ч儴鍒嗛敭鐩樹笂鐨勬寜閿紝閫氬父闄勬湁涓�涓寚绀烘寜閿紑鍏虫儏鍐电殑鐏彿銆傝繖涓寜閿浘缁忕敤鏉ラ攣瀹氭墍鏈夎蒋浠剁殑婊氬姩鍔熻兘锛屼絾宸蹭笉涓虹幇浠婂ぇ閮ㄥ垎杞欢鎵�浣跨敤銆傚洜涓鸿繖涓寜閿凡缁忎笉甯哥敤锛屾墍浠ラ儴鍒嗛敭鐩橈紙渚嬪绗旇鏈級宸茬粡绉婚櫎浜嗚繖涓敭銆備笉杩囩郴缁熻繕鏄繚鐣欎簡 Scroll Lock 鎸夐敭鐨勫畾涔夛紝鍥犳鎴戜滑鍙互鍊熷姪杩欎釜娌′粈涔堢敤鐨勬寜閿畬鎴愰槻姝㈤攣灞忕殑鍔熻兘锛屼笉浼氬绯荤粺閫犳垚浠讳綍褰卞搷銆?/p> 浠ヤ笂灏辨槸VBScript缂栧啓Windows闃叉閿佸睆鑴氭湰绋嬪簭鐨勮缁嗗唴瀹癸紝鏇村鍏充簬windows闃查攣灞廣BScript鑴氭湰鐨勮祫鏂欒鍏虫敞鑴氭湰涔嬪鍏跺畠鐩稿叧鏂囩珷锛?/p> |
