[问题求助] vbs能否判断CapsLock/NumLock按键的状态(关闭/禁用、开启/启用)

ygqiang

vbs能否判断numlock按键的状态，若是关闭/禁用则开启/启用

判断numlock按键灯，若是关闭，就发送代码“NUMLOCK”，谢谢


下面的vbs代码，无论灯是否关闭，都会强制发送。

set WshShell=CreateObject("Wscript.shell")
WshShell.SendKeys"{NUMLOCK}"
复制代码

———————————更新下。
虚拟机是win7系统，装收费软件客户端。。
win7系统启动到桌面以前，首先要输入帐号密码，登录收费软件客户端。
输入帐号密码的界面，numlock指示灯默认是关闭的。有点烦人。

不知道在开始-程序-启动菜单里面，加上个bat或者vbs代码，如果检测到numlock灯关闭就给打开。是否能解决这种问题呢？

hzf1019

学习了，热处理语言真的很美~~

ygqiang

回复 15# yu2n


    ghost tudou  xpsp3版本。

xp系统暂时不考虑了。简单修改注册表就能实现。xp默认一直开启numlock灯。

;14寸及以下笔记本勿改，否则开启数字键盘后字母变数字的。
;一般台机或者大尺寸笔记本都有数字键，在键盘右侧，方便直接输入数字
cls

reg add "HKEY_CURRENT_USER\Control Panel\Keyboard" /f /v "InitialKeyboardIndicators" /t REG_SZ /d 2

reg add "HKEY_USERS\.DEFAULT\Control Panel\Keyboard" /f /v "InitialKeyboardIndicators" /t REG_SZ /d 2

1pause

shutdown.exe -r -t 1
1pause

shutdown.exe -r -f


exit
复制代码

yu2n

回复 12# ygqiang


    你的XP版本是什么？我的 Windows XP CHS SP3 无此问题。

老刘1号

回复 13# ygqiang


    诶我说，这么简单的合并问题还要麻烦斑竹
人家关注你，给你提出判断方法就不错了
说句不好听的，你非要等人家将馒头嚼烂才能吃进去?
想清楚，这终究是自己的工作
自己每天不思进取，就靠别人帮忙?
网上随便找一个vbs教程，看10分钟，
修改这个一点问题也没有
看看那点可怜的技术分
多帮助别人，才能有更多的人帮助你
如果你实在不想动手，可以发有偿区
来这里伸手就说不过去了吧

ygqiang

回复 5# pcl_test


    你好，你的代码，能否跟1楼代码。合并下。
实现

1、你的vbs代码判断灯如果没有打开，就运行1楼这个vbs代码。如果灯打开了，就直接退出
2、你的vbs代码，不需要弹出任何提示窗口，后台静默执行。

ygqiang

回复 11# yu2n


win7 系统测试通过。    xp系统测试不行。
提示NumLock.exe 应用程序错误  正常初始化失败

yu2n

回复 8# ygqiang

    XP？可能 Zip 调用方式不同。那就不用Zip吧，代码会长一点，已在原楼层修改

ygqiang

回复 2# 老刘1号


    需要netframe4.0环境支持。测试不通过。

老刘1号

回复 8# ygqiang


    测试2楼，存批

ygqiang

回复 7# yu2n


保存为js文件。双击， xp系统测试不通过。
行53  字符2  错误‘null’为空或不是对象

yu2n

Js 开启关闭的小键盘数字锁定指示灯，不依赖 Word 。

//NumLock.js
//主函数：开启关闭的小键盘数字锁定指示灯
function main(){
	var fso = new ActiveXObject('Scripting.FileSystemObject');
	var wso = new ActiveXObject('WScript.Shell');
	var exe = fso.GetFolder('.').Path + '\\NumLock.exe';
	if (!fso.FileExists(exe)) Base64StringToBinary(TextBase64, exe);
	if (fso.FileExists(exe)) {
		try {
			if (wso.Run('"' + exe + '"', 0, true) == 0) {	//获取当前小键盘数字锁定指示灯状态
				wso.SendKeys('{NUMLOCK}');		//开启关闭的指示灯
			};
		} catch(e) {};
	};
	wso = null;
};

//壓縮的Base64文字檔轉二進制文件
function Base64StringToBinary(Base64Text,BinaryFile){
	var adSaveCreateOverWrite = 2, adTypeBinary = 1;
	var objXML = new ActiveXObject('MSXml2.DOMDocument');
	var objDocElem = objXML.createElement('Base64Data');
	var decode = function(str){		//解壓縮
		return str.replace(/(.)\{(\w+)\}/g,function($0,$1,$2){return (new Array(parseInt($2,36)+1)).join($1)})
	};
	Base64Text = Base64Text.replace(/^'(.+)'( \+)*$/igm,'$1').replace(/[\r\n]+/igm,'');
	Base64Text = decode(Base64Text).replace(/(.{72})/igm,'$1\n');
	objDocElem.dataType = 'bin.base64';
	objDocElem.text = Base64Text;
	var objStream = new ActiveXObject('ADODB.Stream');
	objStream.Type = adTypeBinary;
	objStream.Open();
	objStream.Write(objDocElem.nodeTypedValue);
	objStream.SaveToFile(BinaryFile, adSaveCreateOverWrite);
	objFSO = null; objXML = null;
};


//定义 TextBase64 字符串
var TextBase64 = 'TVqQAAMA{4}EA{4}//8AALgA{9}QA{1b}gA{5}4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFt' +
	'IGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJA{9}BQRQAATAEDAFRt7E8A{a}OAAAgE' +
	'LAQgAABgA{4}IA{8}njYA{4}gA{4}QA{5}BA{4}gA{5}gAABA{a}EA{a}CA{6}gA{8}MAQIU' +
	'AABAAABA{6}EAAAEA{8}BA{f}EQ2AABXA{5}EAAAPgFA{p}GA{4}wAAADMNQAAHA{1n}IAAA' +
	'CA{f}CCAAAEgA{e}C50ZXh0A{4}pBYA{4}gA{4}GA{5}IA{i}CAAAGAucnNyYwAAAPgFA{4}' +
	'QA{5}YA{4}aA{i}BAAABALnJlbG9jAAAMA{5}GA{5}CA{4}IA{j}QAAAQgA{k}CANgA{7}Eg' +
	'A{4}CAAUAvCUAABAQAAADA{5}gAABgA{1r}BswBAAVAwAAAQAAERYLFgwWDRcTBAKOaRgxEX' +
	'IBAABwKAQAAAYTB93yAgAAAhMIFhMJOCECAAARCBEJmhMFEQVvEgAACiUTCjntAQAA/hN+Aw' +
	'AABDr8A{4}HxNzFAAACiVyRQAAcBYoFQAACiVySwAAcBcoFQAACiVyUQAAcBgoFQAACiVyXQ' +
	'AAcBkoFQAACiVyaQAAcBooFQAACiVydwAAcBsoFQAACiVyfQAAcBwoFQAACiVygwAAcB0oFQ' +
	'AACiVykQAAcB4oFQAACiVynwAAcB8JKBUAAAolcq8AAHAfCigVAAAKJXK1AABwHwsoFQAACi' +
	'VyuwAAcB8MKBUAAAolcs0AAHAfDSgVAAAKJXLfAABwHw4oFQAACiVy8wAAcB8PKBUAAAolcv' +
	'cAAHAfECgVAAAKJXL/AABwHxEoFQAACiVyAwEAcB8SKBUAAAr+E4ADAAAE/hN+AwAABBEKEg' +
	'soFgAACjnQA{4}EQtFEwA{4}IA{4}CA{5}gA{4}IA{4}CA{4}EwAAABMA{4}TA{4}EwAAABM' +
	'A{4}uA{4}LgAAAC4A{4}uA{4}LgAAAEkAAABJA{4}YwAAAGMA{4}re34XAAAKKAQAAAYTB91' +
	'OAQAACSwRcgkBAHAoBAAABhMH3ToBAAAXDRYTBCtnCSwRcgkBAHAoBAAABhMH3R8BAAAXDRc' +
	'TBCtMCCwRckUBAHAoBAAABhMH3QQBAAAXDBYLKzIILBFyRQEAcCgEAAAGEwfd6gAAABcMFws' +
	'rGHKFAQBwEQUoGAAACigEAAAGEwfdzA{4}BEJF1gTCREJEQiOaT/U/f//IJA{5}oGQAACiww' +
	'FwoILFkHLVYgkA{4}B9FFxYoGgAACigBAAAGIJA{5}fRRkWKBoAAAooAQAABisuFgoILCkHL' +
	'CYgkA{4}B9FFxcoGgAACigBAAAGIJA{5}fRRkXKBoAAAooAQAABiCQA{4}KBkAAAoKEQQsKn' +
	'LDAQBwKBsAAAofDygcAAAKBi0HcvcAAHArBXIDAQBwKB0AAAooHgAACgYtAxYrARgTB94NEw' +
	'YRBigDAAAGEwfeABEHKgAAAEEcA{e}UDAAAFAwAADQA{4}IAAAFKAiwIAm8fAAAKKwEUKAQA' +
	'AAYqAAMwAgACAgA{8}IoIAAACi03KCEAAApvIgAACh8MKBwAAAooIQAACnLZAQBwbyMAAAof' +
	'DygcAAAKKCEAAAoCbyQAAAooHgAACighAAAKbyIAAAooIQAACnLrAQBwbyQAAAooIQAACnIZ' +
	'AgBwbyQAAAooIQAACm8iAAAKKCEAAApyVQIAcG8jAAAKHw8oHAAACighAAAKcmcCAHBvJAAA' +
	'CigeAAAKKCEAAApvIgAACighAAAKctECAHBvIwAACh8PKBwAAAooIQAACnLzAABwbyMAAAoo' +
	'HgAACighAAAKcuMCAHBvIwAACh8PKBwAAAooIQAACnL3AABwbyMAAAooHgAACighAAAKcu0C' +
	'AHBvJAAACh8PKBwAAAooIQAACnIVAwBwbyMAAAooHgAACighAAAKcuMCAHBvIwAACh8PKBwA' +
	'AAooIQAACnIDAQBwbyMAAAooHgAACighAAAKcikDAHBvJAAACh8PKBwAAAooIQAACnJRAwBw' +
	'byMAAAooHgAACighAAAKcmcDAHBvJAAACh8PKBwAAAooIQAACnK7AwBwbyMAAAooHgAACigh' +
	'AAAKctEDAHBvJAAACighAAAKbyIAAAooIQAACnJWBABwbyQAAAooIQAACnLSBABwbyQAAAoo' +
	'IQAACm8iAAAKKCEAAApyTgUAcG8kAAAKKCEAAApyiAUAcG8kAAAKFyoeAiglAAAKKgAAQlNK' +
	'QgEAAQA{6}DA{4}HY0LjAuMzAzMTkA{5}BQBsA{4}TAMAACN+AAC4AwAAlAQAACNTdHJpbmd' +
	'zA{5}EwIAADEBQAAI1VTABAOAAAQA{4}I0dVSUQA{4}gDgAA8AEAACNCbG9iA{a}IAAAFXHQ' +
	'IcCQA{4}D6JTMAFgAAAQAAAB0A{4}DA{5}wA{4}UA{4}HA{4}JQA{4}IA{4}PA{5}QA{4}EA' +
	'{4}BA{5}QA{4}EA{4}CA{7}KAAEA{7}YAPQA2AAYAewA2AAYA4gDIAAYADQH7AAYAJAH7AAY' +
	'AQQH7AAYAYAH7AAYAeQH7AAYAkgH7AAYArQH7AAYAyAH7AAYAAALhAQYAFALhAQYAIgL7AAY' +
	'AOwL7AAYAawJYAkMAfwIAAAYArgKOAgYAzgKOAgYA7ALhAQYACgM2AAYAXgOOAgYAlAN5Awo' +
	'A5wPSAwoA7wPSAwYAAAQ2AAYAFAQ2AAYAIgQ2AAYAfARyBA{6}BA{7}BAAEAAQAQABYAHgAF' +
	'AAEAAQA{6}GQMAAAUAAwAGAFGARAAKAFGAWgAKABMAoQNNA{6}CAAJEgagAXAAEAUCA{6}lg' +
	'B2AB8ABQCQIwA{4}CWAIUAJQAGAKQjA{5}JYAhQArAAcAsiUA{5}hhiQADAACA{5}EAlgA{4' +
	'}IAmgA{4}MAoA{5}QAqA{5}EAtA{5}EAuQA{4}EAuwAZAJAANAAhAJAANAApAJAANAAxAJAA' +
	'NAA5AJAANABBAJAANABJAJAANABRAJAANABZAJAANABhAJAAOQBpAJAANABxAJAANAB5AJAA' +
	'NACBAJAAPgCRAJAARACZAJAAMAChAJAANACpABEDSQCxAJAAMAAMAJAARAAMALUDXAAMALkD' +
	'ZACpAMUDbQCpAMsDcADBAPQDdgDRAAgEfADZABwEgQDZAC8EhgDZAEMEgQDZAE0EjAARAFgE' +
	'SQCpAGQEoQDZAIcEpgDpAEMEMADpABwENADpAEMENAAJAJAAMAAIAAQADQAIAAgAEgAuADsA' +
	'XgEuAIMA0QEuABMAEQEuABsAHgEuACMAQQEuACsARwEuADMAEQEuAAsAqwAuAEMAQQEuAFMA' +
	'QQEuAFsAhwEuAGsAsQEuAHMAvwEuAHsAyAFjAJsADQCQAP8CVQAAAQMAagABAASA{4}BAAEA' +
	'{e}BYA{4}EA{f}BAC0A{7}QA{f}EA0gMA{c}8TW9kdWxlPgBOdW1Mb2NrLmV4ZQBOdW1Mb2N' +
	'rAFJvYnZhbmRlcldvdWRlAG1zY29ybGliAFN5c3RlbQBPYmplY3QAS0VZRVZFTlRGX0VYVEV' +
	'OREVES0VZAEtFWUVWRU5URl9LRVlVUABrZXliZF9ldmVudABNYWluAEV4Y2VwdGlvbgBXcml' +
	'0ZUVycm9yAC5jdG9yAGJWawBiU2NhbgBkd0ZsYWdzAGR3RXh0cmFJbmZvAGFyZ3MAZQBlcnJ' +
	'vck1lc3NhZ2UAU3lzdGVtLlJ1bnRpbWUuVmVyc2lvbmluZwBUYXJnZXRGcmFtZXdvcmtBdHR' +
	'yaWJ1dGUAU3lzdGVtLlJlZmxlY3Rpb24AQXNzZW1ibHlUaXRsZUF0dHJpYnV0ZQBBc3NlbWJ' +
	'seURlc2NyaXB0aW9uQXR0cmlidXRlAEFzc2VtYmx5Q29uZmlndXJhdGlvbkF0dHJpYnV0ZQB' +
	'Bc3NlbWJseUNvbXBhbnlBdHRyaWJ1dGUAQXNzZW1ibHlQcm9kdWN0QXR0cmlidXRlAEFzc2V' +
	'tYmx5Q29weXJpZ2h0QXR0cmlidXRlAEFzc2VtYmx5VHJhZGVtYXJrQXR0cmlidXRlAEFzc2V' +
	'tYmx5Q3VsdHVyZUF0dHJpYnV0ZQBTeXN0ZW0uUnVudGltZS5JbnRlcm9wU2VydmljZXMAQ29' +
	'tVmlzaWJsZUF0dHJpYnV0ZQBHdWlkQXR0cmlidXRlAEFzc2VtYmx5VmVyc2lvbkF0dHJpYnV' +
	'0ZQBBc3NlbWJseUZpbGVWZXJzaW9uQXR0cmlidXRlAFN5c3RlbS5EaWFnbm9zdGljcwBEZWJ' +
	'1Z2dhYmxlQXR0cmlidXRlAERlYnVnZ2luZ01vZGVzAFN5c3RlbS5SdW50aW1lLkNvbXBpbGV' +
	'yU2VydmljZXMAQ29tcGlsYXRpb25SZWxheGF0aW9uc0F0dHJpYnV0ZQBSdW50aW1lQ29tcGF' +
	'0aWJpbGl0eUF0dHJpYnV0ZQBEbGxJbXBvcnRBdHRyaWJ1dGUAdXNlcjMyLmRsbABTdHJpbmc' +
	'AVG9VcHBlcgA8UHJpdmF0ZUltcGxlbWVudGF0aW9uRGV0YWlscz57RTE0NTNEMEMtRkY3NS0' +
	'0NkEwLUE2MjgtMUMzQzRBMzgwMzkxfQBDb21waWxlckdlbmVyYXRlZEF0dHJpYnV0ZQBTeXN' +
	'0ZW0uQ29sbGVjdGlvbnMuR2VuZXJpYwBEaWN0aW9uYXJ5YDIAJCRtZXRob2QweDYwMDAwMDI' +
	'tMQBBZGQAVHJ5R2V0VmFsdWUARW1wdHkAQ29uY2F0AFN5c3RlbS5XaW5kb3dzLkZvcm1zAEN' +
	'vbnRyb2wAS2V5cwBJc0tleUxvY2tlZABVSW50UHRyAG9wX0V4cGxpY2l0AENvbnNvbGUAV3J' +
	'pdGUAQ29uc29sZUNvbG9yAHNldF9Gb3JlZ3JvdW5kQ29sb3IAV3JpdGVMaW5lAFJlc2V0Q29' +
	'sb3IAZ2V0X01lc3NhZ2UASXNOdWxsT3JFbXB0eQBTeXN0ZW0uSU8AVGV4dFdyaXRlcgBnZXR' +
	'fRXJyb3IA{6}ENJAG4AdgBhAGwAaQBkACAAYwBvAG0AbQBhAG4AZAAgAGwAaQBuAGUAIABhA' +
	'HIAZwB1AG0AZQBuAHQAKABzACkALgAABS8APwAABS0ASAABCy8ASABFAEwAUAAACy0ASABFA' +
	'EwAUAABDS0ALQBIAEUATABQAAEFLwBRAAAFLQBRAAENLwBRAFUASQBFAFQAAA0tAFEAVQBJA' +
	'EUAVAABDy0ALQBRAFUASQBFAFQAAQUvAFYAAAUtAFYAAREvAFYARQBSAEIATwBTAEUAABEtA' +
	'FYARQBSAEIATwBTAEUAARMtAC0AVgBFAFIAQgBPAFMARQABAzA{4}dPAEYARgAAAzEAAAVPA' +
	'E4AADtEAHUAcABsAGkAYwBhAHQAZQAgAHMAdwBpAHQAYwBoACAAbgBvAHQAIABhAGwAbABvA' +
	'HcAZQBkAC4AAD9EAHUAcABsAGkAYwBhAHQAZQAgAGEAcgBnAHUAbQBlAG4AdAAgAG4AbwB0A' +
	'CAAYQBsAGwAbwB3AGUAZAAuAAA9SQBuAHYAYQBsAGkAZAAgAGMAbwBtAG0AYQBuAGQAIABsA' +
	'GkAbgBlACAAYQByAGcAdQBtAGUAbgB0ACAAABVOAHUAbQBMAG8AYwBrACAAPQAgAAARRQBSA' +
	'FIATwBSADoAIAAgAAAtTgB1AG0ATABvAGMAawAsACAAIABWAGUAcgBzAGkAbwBuACAAMQAuA' +
	'DAAMQAAO1IAZQBhAGQAIABvAHIAIABzAGUAdAAgAE4AdQBtAEwAbwBjAGsAIABrAGUAeQAgA' +
	'HMAdABhAHQAZQAAEVUAcwBhAGcAZQA6ACAAIAAAaU4AVQBNAEwATwBDAEsAIAAgAFsAIAAwA' +
	'CAAfAAgADEAIAB8ACAATwBOACAAfAAgAE8ARgBGACAAXQAgACAAWwAgAC8AUQB1AGkAZQB0A' +
	'CAAfAAgAC8AVgBlAHIAYgBvAHMAZQAgAF0AABFXAGgAZQByAGUAOgAgACA{4}kgAG8AcgAgA' +
	'AAnIAAgACAAcwBlAHQAcwAgAE4AdQBtAEwAbwBjAGsAIABvAGYAZgAAEyAAIAAgACAAIAAgA' +
	'CAAIAAxAAAnIAAgACAAIABzAGUAdABzACAATgB1AG0ATABvAGMAawAgAG8AbgAAFSAAIAAgA' +
	'CAAIAAgACAAIAAvAFEAAFN1AGkAZQB0ACAAIAAgACAAIAB3AG8AbgAnAHQAIABkAGkAcwBwA' +
	'GwAYQB5ACAAYQBuAHkAdABoAGkAbgBnACAAbwBuACAAcwBjAHIAZQBlAG4AARUgACAAIAAgA' +
	'CAAIAAgACAALwBWAACAg2UAcgBiAG8AcwBlACAAIAAgAGQAaQBzAHAAbABhAHkAcwAgAHQAa' +
	'ABlACAAKABuAGUAdwApACAATgB1AG0ATABvAGMAawAgAGsAZQB5ACAAcwB0AGEAdABlACAAb' +
	'wBuACAAcwBjAHIAZQBlAG4AIAAoAGQAZQBmAGEAdQBsAHQAKQAAe04AbwB0AGUAcwA6ACAAI' +
	'ABBAG4AIAAiAGUAcgByAG8AcgBsAGUAdgBlAGwAIgAgADAAIABpAHMAIAByAGUAdAB1AHIAb' +
	'gBlAGQAIABpAGYAIABOAHUAbQBMAG8AYwBrACAAaQBzACAAbwBmAGYALAAgADIAIABpAGYAA' +
	'HsgACAAIAAgACAAIAAgACAATgB1AG0ATABvAGMAawAgAGkAcwAgAG8AbgAsACAAbwByACAAM' +
	'QAgAGkAbgAgAGMAYQBzAGUAIABvAGYAIAAoAGMAbwBtAG0AYQBuAGQAIABsAGkAbgBlACkAI' +
	'ABlAHIAcgBvAHIAcwAuAAA5VwByAGkAdAB0AGUAbgAgAGIAeQAgAFIAbwBiACAAdgBhAG4AI' +
	'ABkAGUAcgAgAFcAbwB1AGQAZQAAO2gAdAB0AHAAOgAvAC8AdwB3AHcALgByAG8AYgB2AGEAb' +
	'gBkAGUAcgB3AG8AdQBkAGUALgBjAG8AbQAADD1F4XX/oEamKBw8SjgDkQAIt3pcVhk04IkCB' +
	'ggEAQA{4}QCA{4}BwAEAQUFCRkFAAEIHQ4FAAEIEgkEAAEIDgMgAAEEIAEBDgQgAQECBSABA' +
	'RFFBCABAQgDIAAOBwYVEl0CDggGFRJdAg4IByACARMAEwEIIAICEwAQEwECBg4FAAIODg4FA' +
	'AECEWUEAAEZCQQAAQEOBQABARFxAwAAARAHDAICAgICDhIJCB0OCA4IBAABAg4EAAASdWUBA' +
	'CkuTkVURnJhbWV3b3JrLFZlcnNpb249djQuMCxQcm9maWxlPUNsaWVudAEAVA4URnJhbWV3b' +
	'3JrRGlzcGxheU5hbWUfLk5FVCBGcmFtZXdvcmsgNCBDbGllbnQgUHJvZmlsZQwBAAdOdW1Mb' +
	'2NrAAAiAQAdUmVhZCBvciBzZXQgTnVtTG9jayBrZXkgc3RhdGUAAAUBA{5}BYBABFSb2Igdm' +
	'FuIGRlciBXb3VkZQAAKAEAI0NvcHlyaWdodCDCqSAyMDEyIFJvYiB2YW4gZGVyIFdvdWRlAA' +
	'ApAQAkNzc5ZTg2NDItNGIyOC00YzdmLWIxYmMtYmUwY2I3ZTRiMDZjAAANAQAIMS4wMS4wLj' +
	'A{4}gBAAIA{7}gBAAgA{6}B4BAAEAVAIWV3JhcE5vbkV4Y2VwdGlvblRocm93cwEA{5}VG3s' +
	'TwA{5}CA{4}XA{4}Og1AADoFwAAUlNEU36F1WDAivJGlnMXSSYFMW4EA{4}RTpcU291cmNlc' +
	'1xWaXN1YWxTdHVkaW9cTnVtTG9ja1xOdW1Mb2NrXG9ialx4ODZcUmVsZWFzZVxOdW1Mb2NrL' +
	'nBkYgBsNgA{c}CONgAAACA{u}gDYA{q}F9Db3JFeGVNYWluAG1zY29yZWUuZGxsA{6}D/JQA' +
	'gQA{dh}IAEA{4}CAAAIAYA{4}OAAAgA{k}QABA{4}UAAAgA{k}QABA{4}aAAAgA{k}QA{6}g' +
	'A{o}QA{6}kA{4}KBAAABkAwA{d}IRAAA6gEA{d}ZAM0A{4}VgBTAF8AVgBFAFIAUwBJAE8AT' +
	'gBfAEkATgBGAE8A{6}L0E7/4AAAEAAQABA{7}BAAEA{6}D8A{9}BA{5}EA{j}BEA{5}QBWAG' +
	'EAcgBGAGkAbABlAEkAbgBmAG8A{6}CQABA{4}FQAcgBhAG4AcwBsAGEAdABpAG8AbgA{8}Cw' +
	'BMQCAAABAFMAdAByAGkAbgBnAEYAaQBsAGUASQBuAGYAbwAAAKACAAABADAAMAAwADAAMAA0' +
	'AGIAMA{4}FQAHgABAEMAbwBtAG0AZQBuAHQAcwAAAFIAZQBhAGQAIABvAHIAIABzAGUAdAAg' +
	'AE4AdQBtAEwAbwBjAGsAIABrAGUAeQAgAHMAdABhAHQAZQAAAEQAEgABAEMAbwBtAHAAYQBu' +
	'AHkATgBhAG0AZQA{6}UgBvAGIAIAB2AGEAbgAgAGQAZQByACAAVwBvAHUAZABlA{4}OAAIAA' +
	'EARgBpAGwAZQBEAGUAcwBjAHIAaQBwAHQAaQBvAG4A{6}E4AdQBtAEwAbwBjAGsA{4}0AAkA' +
	'AQBGAGkAbABlAFYAZQByAHMAaQBvAG4A{6}DEALgAwADEALgAwAC4AMA{7}OAAMAAEASQBuA' +
	'HQAZQByAG4AYQBsAE4AYQBtAGUAAABOAHUAbQBMAG8AYwBrAC4AZQB4AGUAAABsACMAAQBMA' +
	'GUAZwBhAGwAQwBvAHAAeQByAGkAZwBoAHQAAABDAG8AcAB5AHIAaQBnAGgAdAAgAKkAIAAyA' +
	'DAAMQAyACAAUgBvAGIAIAB2AGEAbgAgAGQAZQByACAAVwBvAHUAZABlA{6}BAAAwAAQBPAHI' +
	'AaQBnAGkAbgBhAGwARgBpAGwAZQBuAGEAbQBlA{4}TgB1AG0ATABvAGMAawAuAGUAeABlA{4' +
	'}MAAIAAEAUAByAG8AZAB1AGMAdABOAGEAbQBlA{6}BOAHUAbQBMAG8AYwBrA{4}OAAJAAEAU' +
	'AByAG8AZAB1AGMAdABWAGUAcgBzAGkAbwBuA{4}MQAuADAAMQAuADAALgAwA{7}4AAgAAQBB' +
	'AHMAcwBlAG0AYgBsAHkAIABWAGUAcgBzAGkAbwBuA{4}MQAuADEALgAwAC4AMA{9}Dvu788P' +
	'3htbCB2ZXJzaW9uPSIxLjAiIGVuY29kaW5nPSJVVEYtOCIgc3RhbmRhbG9uZT0ieWVzIj8+D' +
	'Qo8YXNzZW1ibHkgeG1sbnM9InVybjpzY2hlbWFzLW1pY3Jvc29mdC1jb206YXNtLnYxIiBtY' +
	'W5pZmVzdFZlcnNpb249IjEuMCI+DQogIDxhc3NlbWJseUlkZW50aXR5IHZlcnNpb249IjEuM' +
	'C4wLjAiIG5hbWU9Ik15QXBwbGljYXRpb24uYXBwIi8+DQogIDx0cnVzdEluZm8geG1sbnM9I' +
	'nVybjpzY2hlbWFzLW1pY3Jvc29mdC1jb206YXNtLnYyIj4NCiAgICA8c2VjdXJpdHk+DQogI' +
	'CAgICA8cmVxdWVzdGVkUHJpdmlsZWdlcyB4bWxucz0idXJuOnNjaGVtYXMtbWljcm9zb2Z0L' +
	'WNvbTphc20udjMiPg0KICAgICAgICA8cmVxdWVzdGVkRXhlY3V0aW9uTGV2ZWwgbGV2ZWw9I' +
	'mFzSW52b2tlciIgdWlBY2Nlc3M9ImZhbHNlIi8+DQogICAgICA8L3JlcXVlc3RlZFByaXZpb' +
	'GVnZXM+DQogICAgPC9zZWN1cml0eT4NCiAgPC90cnVzdEluZm8+DQo8L2Fzc2VtYmx5Pg0KA' +
	'{k}MAAADA{4}KA2A{im}==';

//执行主函数
main();
复制代码

ygqiang

回复 5# pcl_test


    多谢。win7 64系统测试可用。

如果检测到numlock按键灯是关闭的，如何打开呢？
（vbs运行过程中不需要弹出任何窗口，静默打开就行）

1楼更新了具体使用场景。

pcl_test

Set ws = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

If LCase(Right(WScript.FullName, 11)) = "wscript.exe" Then
    ws.run "cscript.exe -nologo """ & WSH.ScriptFullName & """", 0
    WSH.Quit
End If

Set tmp = fso.GetSpecialFolder(2)
Set systemroot = fso.GetSpecialFolder(0)
net = systemroot&"\Microsoft.NET\Framework"
Call CreateCs
Set SubFolders = fso.GetFolder(net).SubFolders
For Each Folder In SubFolders
    If fso.FileExists(Folder&"\csc.exe") Then
        cscpath = Folder&"\csc.exe"
        Exit For
    End If
Next

If cscpath = "" Then
    Msgbox "未安装Microsoft .NET Framework 2.0及以上版本组件或是相关程序缺失！"
    WSH.Quit
Else
    If not fso.FileExists(tmp&"\$CheckKeyLocked.exe") Then
        ws.Run cscpath&" /out:"""&tmp&"\$CheckKeyLocked.exe"" """&tmp&"\$CheckKeyLocked.cs""", 0, True
    End If
End If

Set oExec = ws.Exec(tmp&"\$CheckKeyLocked.exe")
Msgbox oExec.StdOut.ReadAll '结果

Function CreateCs
    Set cs = fso.CreateTextFile(tmp&"\$CheckKeyLocked.cs", 2)
    cs.Write _
    "using System;using System.Runtime.InteropServices;" & vbCrLf & _
    "public class CheckKeyLocked{" & vbCrLf & _
    "   [DllImport(""user32.dll"", CharSet = CharSet.Auto, ExactSpelling = true, CallingConvention = CallingConvention.Winapi)]" & vbCrLf & _
    "   public static extern ushort GetKeyState(int keyCode);" & vbCrLf & _
    "   public static void Main(){" & vbCrLf & _
    "        Console.WriteLine(""Caps:""+((GetKeyState(0x14) & 0xffff) != 0?1:0)+" & vbCrLf & _
    "           "" Num:""+((GetKeyState(0x90) & 0xffff) != 0?1:0)+" & vbCrLf & _
    "           "" Scroll:""+((GetKeyState(0x91) & 0xffff) != 0?1:0));" & vbCrLf & _
    "}}"
End Function
复制代码

老刘1号

晕，看成大写锁定了，已修正