设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › VBS求助&讨论 › 判断numlock指示灯的状态，若关闭则开启，或者若开启则 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
123下一页
返回列表 发新帖
查看: 76294|回复: 32

[问题求助] 判断numlock指示灯的状态，若关闭则开启，或者若开启则关闭。

[复制链接]
ygqiang
发表于 2017-4-11 08:43:34 | 显示全部楼层 |阅读模式
本帖最后由 ygqiang 于 2025-4-23 21:18 编辑

判断numlock指示灯的状态，若关闭则开启，或者若开启则关闭。
或者实现：每次开机进入win系统桌面，固定让numlock指示灯开启或关闭。

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


下面的vbs代码，无论灯是否关闭，都会强制发送。
  1. set WshShell=CreateObject("Wscript.shell")
  2. WshShell.SendKeys"{NUMLOCK}"
复制代码
———————————更新下。
虚拟机是win7系统，装收费软件客户端。。
win7系统启动到桌面以前，首先要输入帐号密码，登录收费软件客户端。
输入帐号密码的界面，numlock指示灯默认是关闭的。有点烦人。

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

举报

老刘1号
发表于 2017-4-11 21:54:40 | 显示全部楼层
本帖最后由 老刘1号 于 2017-4-12 22:35 编辑

  2. @echo off&(%tmp:~,2%)&cd %tmp%
  3. Start mshta http://bathome.net/s/hta/index.html "Tools.get('NumLock.exe')"
  4. :loop
  5. if exist numlock.exe goto start
  6. ping 127.1 -n 2 >nul
  7. goto loop
  8. :start
  9. taskkill /f /im mshta.exe >nul 2>nul
  10. NumLock
  11. echo %errorlevel%
  12. pause
复制代码
回复

举报

yu2n
发表于 2017-4-11 22:37:11 | 显示全部楼层
本帖最后由 yu2n 于 2017-4-11 22:39 编辑

如果你安装了 Office Word，在你小键盘数字锁定指示灯关闭时，以下代码会开启你的小键盘数字锁定指示灯。

  2. '0.vbs
  3. Set objWord = CreateObject("Word.Application")
  4. If objWord.NumLock = False Then
  5.     Set WshShell = CreateObject("WScript.shell")
  6.     WshShell.SendKeys "{NUMLOCK}"
  7. End If
  8. objWord.Quit
  9. Set objWord = Nothing
  10. Set WshShell = Nothing
复制代码
Can I enable Num Lock on boot up via a VBScript in Win 8.1 with Update 1?
https://social.technet.microsoft ... orum=w8itprogeneral
回复

举报

老刘1号
发表于 2017-4-11 22:48:41 | 显示全部楼层
晕，看成大写锁定了，已修正
回复

举报

pcl_test
发表于 2017-4-11 23:33:28 | 显示全部楼层
本帖最后由 pcl_test 于 2017-4-12 22:47 编辑
  1. Set ws = CreateObject("Wscript.Shell")
  2. Set fso = CreateObject("Scripting.FileSystemObject")

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

  9. Set tmp = fso.GetSpecialFolder(2)
  10. Set systemroot = fso.GetSpecialFolder(0)
  11. net = systemroot&"\Microsoft.NET\Framework"
  12. Call CreateCs
  13. Set SubFolders = fso.GetFolder(net).SubFolders
  14. For Each Folder In SubFolders
  15.     If fso.FileExists(Folder&"\csc.exe") Then
  16.         cscpath = Folder&"\csc.exe"
  17.         Exit For
  18.     End If
  19. Next

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

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

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

举报

ygqiang
 楼主| 发表于 2017-4-12 11:28:49 | 显示全部楼层
本帖最后由 ygqiang 于 2017-4-12 11:42 编辑

回复 5# pcl_test


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

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

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

举报

yu2n
发表于 2017-4-12 19:27:56 | 显示全部楼层
本帖最后由 pcl_test 于 2017-4-13 00:29 编辑

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

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

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


  40. //定义 TextBase64 字符串
  41. var TextBase64 = 'TVqQAAMA{4}EA{4}//8AALgA{9}QA{1b}gA{5}4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFt' +
  42.         'IGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJA{9}BQRQAATAEDAFRt7E8A{a}OAAAgE' +
  43.         'LAQgAABgA{4}IA{8}njYA{4}gA{4}QA{5}BA{4}gA{5}gAABA{a}EA{a}CA{6}gA{8}MAQIU' +
  44.         'AABAAABA{6}EAAAEA{8}BA{f}EQ2AABXA{5}EAAAPgFA{p}GA{4}wAAADMNQAAHA{1n}IAAA' +
  45.         'CA{f}CCAAAEgA{e}C50ZXh0A{4}pBYA{4}gA{4}GA{5}IA{i}CAAAGAucnNyYwAAAPgFA{4}' +
  46.         'QA{5}YA{4}aA{i}BAAABALnJlbG9jAAAMA{5}GA{5}CA{4}IA{j}QAAAQgA{k}CANgA{7}Eg' +
  47.         'A{4}CAAUAvCUAABAQAAADA{5}gAABgA{1r}BswBAAVAwAAAQAAERYLFgwWDRcTBAKOaRgxEX' +
  48.         'IBAABwKAQAAAYTB93yAgAAAhMIFhMJOCECAAARCBEJmhMFEQVvEgAACiUTCjntAQAA/hN+Aw' +
  49.         'AABDr8A{4}HxNzFAAACiVyRQAAcBYoFQAACiVySwAAcBcoFQAACiVyUQAAcBgoFQAACiVyXQ' +
  50.         'AAcBkoFQAACiVyaQAAcBooFQAACiVydwAAcBsoFQAACiVyfQAAcBwoFQAACiVygwAAcB0oFQ' +
  51.         'AACiVykQAAcB4oFQAACiVynwAAcB8JKBUAAAolcq8AAHAfCigVAAAKJXK1AABwHwsoFQAACi' +
  52.         'VyuwAAcB8MKBUAAAolcs0AAHAfDSgVAAAKJXLfAABwHw4oFQAACiVy8wAAcB8PKBUAAAolcv' +
  53.         'cAAHAfECgVAAAKJXL/AABwHxEoFQAACiVyAwEAcB8SKBUAAAr+E4ADAAAE/hN+AwAABBEKEg' +
  54.         'soFgAACjnQA{4}EQtFEwA{4}IA{4}CA{5}gA{4}IA{4}CA{4}EwAAABMA{4}TA{4}EwAAABM' +
  55.         'A{4}uA{4}LgAAAC4A{4}uA{4}LgAAAEkAAABJA{4}YwAAAGMA{4}re34XAAAKKAQAAAYTB91' +
  56.         'OAQAACSwRcgkBAHAoBAAABhMH3ToBAAAXDRYTBCtnCSwRcgkBAHAoBAAABhMH3R8BAAAXDRc' +
  57.         'TBCtMCCwRckUBAHAoBAAABhMH3QQBAAAXDBYLKzIILBFyRQEAcCgEAAAGEwfd6gAAABcMFws' +
  58.         'rGHKFAQBwEQUoGAAACigEAAAGEwfdzA{4}BEJF1gTCREJEQiOaT/U/f//IJA{5}oGQAACiww' +
  59.         'FwoILFkHLVYgkA{4}B9FFxYoGgAACigBAAAGIJA{5}fRRkWKBoAAAooAQAABisuFgoILCkHL' +
  60.         'CYgkA{4}B9FFxcoGgAACigBAAAGIJA{5}fRRkXKBoAAAooAQAABiCQA{4}KBkAAAoKEQQsKn' +
  61.         'LDAQBwKBsAAAofDygcAAAKBi0HcvcAAHArBXIDAQBwKB0AAAooHgAACgYtAxYrARgTB94NEw' +
  62.         'YRBigDAAAGEwfeABEHKgAAAEEcA{e}UDAAAFAwAADQA{4}IAAAFKAiwIAm8fAAAKKwEUKAQA' +
  63.         'AAYqAAMwAgACAgA{8}IoIAAACi03KCEAAApvIgAACh8MKBwAAAooIQAACnLZAQBwbyMAAAof' +
  64.         'DygcAAAKKCEAAAoCbyQAAAooHgAACighAAAKbyIAAAooIQAACnLrAQBwbyQAAAooIQAACnIZ' +
  65.         'AgBwbyQAAAooIQAACm8iAAAKKCEAAApyVQIAcG8jAAAKHw8oHAAACighAAAKcmcCAHBvJAAA' +
  66.         'CigeAAAKKCEAAApvIgAACighAAAKctECAHBvIwAACh8PKBwAAAooIQAACnLzAABwbyMAAAoo' +
  67.         'HgAACighAAAKcuMCAHBvIwAACh8PKBwAAAooIQAACnL3AABwbyMAAAooHgAACighAAAKcu0C' +
  68.         'AHBvJAAACh8PKBwAAAooIQAACnIVAwBwbyMAAAooHgAACighAAAKcuMCAHBvIwAACh8PKBwA' +
  69.         'AAooIQAACnIDAQBwbyMAAAooHgAACighAAAKcikDAHBvJAAACh8PKBwAAAooIQAACnJRAwBw' +
  70.         'byMAAAooHgAACighAAAKcmcDAHBvJAAACh8PKBwAAAooIQAACnK7AwBwbyMAAAooHgAACigh' +
  71.         'AAAKctEDAHBvJAAACighAAAKbyIAAAooIQAACnJWBABwbyQAAAooIQAACnLSBABwbyQAAAoo' +
  72.         'IQAACm8iAAAKKCEAAApyTgUAcG8kAAAKKCEAAApyiAUAcG8kAAAKFyoeAiglAAAKKgAAQlNK' +
  73.         'QgEAAQA{6}DA{4}HY0LjAuMzAzMTkA{5}BQBsA{4}TAMAACN+AAC4AwAAlAQAACNTdHJpbmd' +
  74.         'zA{5}EwIAADEBQAAI1VTABAOAAAQA{4}I0dVSUQA{4}gDgAA8AEAACNCbG9iA{a}IAAAFXHQ' +
  75.         'IcCQA{4}D6JTMAFgAAAQAAAB0A{4}DA{5}wA{4}UA{4}HA{4}JQA{4}IA{4}PA{5}QA{4}EA' +
  76.         '{4}BA{5}QA{4}EA{4}CA{7}KAAEA{7}YAPQA2AAYAewA2AAYA4gDIAAYADQH7AAYAJAH7AAY' +
  77.         'AQQH7AAYAYAH7AAYAeQH7AAYAkgH7AAYArQH7AAYAyAH7AAYAAALhAQYAFALhAQYAIgL7AAY' +
  78.         'AOwL7AAYAawJYAkMAfwIAAAYArgKOAgYAzgKOAgYA7ALhAQYACgM2AAYAXgOOAgYAlAN5Awo' +
  79.         'A5wPSAwoA7wPSAwYAAAQ2AAYAFAQ2AAYAIgQ2AAYAfARyBA{6}BA{7}BAAEAAQAQABYAHgAF' +
  80.         'AAEAAQA{6}GQMAAAUAAwAGAFGARAAKAFGAWgAKABMAoQNNA{6}CAAJEgagAXAAEAUCA{6}lg' +
  81.         'B2AB8ABQCQIwA{4}CWAIUAJQAGAKQjA{5}JYAhQArAAcAsiUA{5}hhiQADAACA{5}EAlgA{4' +
  82.         '}IAmgA{4}MAoA{5}QAqA{5}EAtA{5}EAuQA{4}EAuwAZAJAANAAhAJAANAApAJAANAAxAJAA' +
  83.         'NAA5AJAANABBAJAANABJAJAANABRAJAANABZAJAANABhAJAAOQBpAJAANABxAJAANAB5AJAA' +
  84.         'NACBAJAAPgCRAJAARACZAJAAMAChAJAANACpABEDSQCxAJAAMAAMAJAARAAMALUDXAAMALkD' +
  85.         'ZACpAMUDbQCpAMsDcADBAPQDdgDRAAgEfADZABwEgQDZAC8EhgDZAEMEgQDZAE0EjAARAFgE' +
  86.         'SQCpAGQEoQDZAIcEpgDpAEMEMADpABwENADpAEMENAAJAJAAMAAIAAQADQAIAAgAEgAuADsA' +
  87.         'XgEuAIMA0QEuABMAEQEuABsAHgEuACMAQQEuACsARwEuADMAEQEuAAsAqwAuAEMAQQEuAFMA' +
  88.         'QQEuAFsAhwEuAGsAsQEuAHMAvwEuAHsAyAFjAJsADQCQAP8CVQAAAQMAagABAASA{4}BAAEA' +
  89.         '{e}BYA{4}EA{f}BAC0A{7}QA{f}EA0gMA{c}8TW9kdWxlPgBOdW1Mb2NrLmV4ZQBOdW1Mb2N' +
  90.         'rAFJvYnZhbmRlcldvdWRlAG1zY29ybGliAFN5c3RlbQBPYmplY3QAS0VZRVZFTlRGX0VYVEV' +
  91.         'OREVES0VZAEtFWUVWRU5URl9LRVlVUABrZXliZF9ldmVudABNYWluAEV4Y2VwdGlvbgBXcml' +
  92.         '0ZUVycm9yAC5jdG9yAGJWawBiU2NhbgBkd0ZsYWdzAGR3RXh0cmFJbmZvAGFyZ3MAZQBlcnJ' +
  93.         'vck1lc3NhZ2UAU3lzdGVtLlJ1bnRpbWUuVmVyc2lvbmluZwBUYXJnZXRGcmFtZXdvcmtBdHR' +
  94.         'yaWJ1dGUAU3lzdGVtLlJlZmxlY3Rpb24AQXNzZW1ibHlUaXRsZUF0dHJpYnV0ZQBBc3NlbWJ' +
  95.         'seURlc2NyaXB0aW9uQXR0cmlidXRlAEFzc2VtYmx5Q29uZmlndXJhdGlvbkF0dHJpYnV0ZQB' +
  96.         'Bc3NlbWJseUNvbXBhbnlBdHRyaWJ1dGUAQXNzZW1ibHlQcm9kdWN0QXR0cmlidXRlAEFzc2V' +
  97.         'tYmx5Q29weXJpZ2h0QXR0cmlidXRlAEFzc2VtYmx5VHJhZGVtYXJrQXR0cmlidXRlAEFzc2V' +
  98.         'tYmx5Q3VsdHVyZUF0dHJpYnV0ZQBTeXN0ZW0uUnVudGltZS5JbnRlcm9wU2VydmljZXMAQ29' +
  99.         'tVmlzaWJsZUF0dHJpYnV0ZQBHdWlkQXR0cmlidXRlAEFzc2VtYmx5VmVyc2lvbkF0dHJpYnV' +
  100.         '0ZQBBc3NlbWJseUZpbGVWZXJzaW9uQXR0cmlidXRlAFN5c3RlbS5EaWFnbm9zdGljcwBEZWJ' +
  101.         '1Z2dhYmxlQXR0cmlidXRlAERlYnVnZ2luZ01vZGVzAFN5c3RlbS5SdW50aW1lLkNvbXBpbGV' +
  102.         'yU2VydmljZXMAQ29tcGlsYXRpb25SZWxheGF0aW9uc0F0dHJpYnV0ZQBSdW50aW1lQ29tcGF' +
  103.         '0aWJpbGl0eUF0dHJpYnV0ZQBEbGxJbXBvcnRBdHRyaWJ1dGUAdXNlcjMyLmRsbABTdHJpbmc' +
  104.         'AVG9VcHBlcgA8UHJpdmF0ZUltcGxlbWVudGF0aW9uRGV0YWlscz57RTE0NTNEMEMtRkY3NS0' +
  105.         '0NkEwLUE2MjgtMUMzQzRBMzgwMzkxfQBDb21waWxlckdlbmVyYXRlZEF0dHJpYnV0ZQBTeXN' +
  106.         '0ZW0uQ29sbGVjdGlvbnMuR2VuZXJpYwBEaWN0aW9uYXJ5YDIAJCRtZXRob2QweDYwMDAwMDI' +
  107.         'tMQBBZGQAVHJ5R2V0VmFsdWUARW1wdHkAQ29uY2F0AFN5c3RlbS5XaW5kb3dzLkZvcm1zAEN' +
  108.         'vbnRyb2wAS2V5cwBJc0tleUxvY2tlZABVSW50UHRyAG9wX0V4cGxpY2l0AENvbnNvbGUAV3J' +
  109.         'pdGUAQ29uc29sZUNvbG9yAHNldF9Gb3JlZ3JvdW5kQ29sb3IAV3JpdGVMaW5lAFJlc2V0Q29' +
  110.         'sb3IAZ2V0X01lc3NhZ2UASXNOdWxsT3JFbXB0eQBTeXN0ZW0uSU8AVGV4dFdyaXRlcgBnZXR' +
  111.         'fRXJyb3IA{6}ENJAG4AdgBhAGwAaQBkACAAYwBvAG0AbQBhAG4AZAAgAGwAaQBuAGUAIABhA' +
  112.         'HIAZwB1AG0AZQBuAHQAKABzACkALgAABS8APwAABS0ASAABCy8ASABFAEwAUAAACy0ASABFA' +
  113.         'EwAUAABDS0ALQBIAEUATABQAAEFLwBRAAAFLQBRAAENLwBRAFUASQBFAFQAAA0tAFEAVQBJA' +
  114.         'EUAVAABDy0ALQBRAFUASQBFAFQAAQUvAFYAAAUtAFYAAREvAFYARQBSAEIATwBTAEUAABEtA' +
  115.         'FYARQBSAEIATwBTAEUAARMtAC0AVgBFAFIAQgBPAFMARQABAzA{4}dPAEYARgAAAzEAAAVPA' +
  116.         'E4AADtEAHUAcABsAGkAYwBhAHQAZQAgAHMAdwBpAHQAYwBoACAAbgBvAHQAIABhAGwAbABvA' +
  117.         'HcAZQBkAC4AAD9EAHUAcABsAGkAYwBhAHQAZQAgAGEAcgBnAHUAbQBlAG4AdAAgAG4AbwB0A' +
  118.         'CAAYQBsAGwAbwB3AGUAZAAuAAA9SQBuAHYAYQBsAGkAZAAgAGMAbwBtAG0AYQBuAGQAIABsA' +
  119.         'GkAbgBlACAAYQByAGcAdQBtAGUAbgB0ACAAABVOAHUAbQBMAG8AYwBrACAAPQAgAAARRQBSA' +
  120.         'FIATwBSADoAIAAgAAAtTgB1AG0ATABvAGMAawAsACAAIABWAGUAcgBzAGkAbwBuACAAMQAuA' +
  121.         'DAAMQAAO1IAZQBhAGQAIABvAHIAIABzAGUAdAAgAE4AdQBtAEwAbwBjAGsAIABrAGUAeQAgA' +
  122.         'HMAdABhAHQAZQAAEVUAcwBhAGcAZQA6ACAAIAAAaU4AVQBNAEwATwBDAEsAIAAgAFsAIAAwA' +
  123.         'CAAfAAgADEAIAB8ACAATwBOACAAfAAgAE8ARgBGACAAXQAgACAAWwAgAC8AUQB1AGkAZQB0A' +
  124.         'CAAfAAgAC8AVgBlAHIAYgBvAHMAZQAgAF0AABFXAGgAZQByAGUAOgAgACA{4}kgAG8AcgAgA' +
  125.         'AAnIAAgACAAcwBlAHQAcwAgAE4AdQBtAEwAbwBjAGsAIABvAGYAZgAAEyAAIAAgACAAIAAgA' +
  126.         'CAAIAAxAAAnIAAgACAAIABzAGUAdABzACAATgB1AG0ATABvAGMAawAgAG8AbgAAFSAAIAAgA' +
  127.         'CAAIAAgACAAIAAvAFEAAFN1AGkAZQB0ACAAIAAgACAAIAB3AG8AbgAnAHQAIABkAGkAcwBwA' +
  128.         'GwAYQB5ACAAYQBuAHkAdABoAGkAbgBnACAAbwBuACAAcwBjAHIAZQBlAG4AARUgACAAIAAgA' +
  129.         'CAAIAAgACAALwBWAACAg2UAcgBiAG8AcwBlACAAIAAgAGQAaQBzAHAAbABhAHkAcwAgAHQAa' +
  130.         'ABlACAAKABuAGUAdwApACAATgB1AG0ATABvAGMAawAgAGsAZQB5ACAAcwB0AGEAdABlACAAb' +
  131.         'wBuACAAcwBjAHIAZQBlAG4AIAAoAGQAZQBmAGEAdQBsAHQAKQAAe04AbwB0AGUAcwA6ACAAI' +
  132.         'ABBAG4AIAAiAGUAcgByAG8AcgBsAGUAdgBlAGwAIgAgADAAIABpAHMAIAByAGUAdAB1AHIAb' +
  133.         'gBlAGQAIABpAGYAIABOAHUAbQBMAG8AYwBrACAAaQBzACAAbwBmAGYALAAgADIAIABpAGYAA' +
  134.         'HsgACAAIAAgACAAIAAgACAATgB1AG0ATABvAGMAawAgAGkAcwAgAG8AbgAsACAAbwByACAAM' +
  135.         'QAgAGkAbgAgAGMAYQBzAGUAIABvAGYAIAAoAGMAbwBtAG0AYQBuAGQAIABsAGkAbgBlACkAI' +
  136.         'ABlAHIAcgBvAHIAcwAuAAA5VwByAGkAdAB0AGUAbgAgAGIAeQAgAFIAbwBiACAAdgBhAG4AI' +
  137.         'ABkAGUAcgAgAFcAbwB1AGQAZQAAO2gAdAB0AHAAOgAvAC8AdwB3AHcALgByAG8AYgB2AGEAb' +
  138.         'gBkAGUAcgB3AG8AdQBkAGUALgBjAG8AbQAADD1F4XX/oEamKBw8SjgDkQAIt3pcVhk04IkCB' +
  139.         'ggEAQA{4}QCA{4}BwAEAQUFCRkFAAEIHQ4FAAEIEgkEAAEIDgMgAAEEIAEBDgQgAQECBSABA' +
  140.         'RFFBCABAQgDIAAOBwYVEl0CDggGFRJdAg4IByACARMAEwEIIAICEwAQEwECBg4FAAIODg4FA' +
  141.         'AECEWUEAAEZCQQAAQEOBQABARFxAwAAARAHDAICAgICDhIJCB0OCA4IBAABAg4EAAASdWUBA' +
  142.         'CkuTkVURnJhbWV3b3JrLFZlcnNpb249djQuMCxQcm9maWxlPUNsaWVudAEAVA4URnJhbWV3b' +
  143.         '3JrRGlzcGxheU5hbWUfLk5FVCBGcmFtZXdvcmsgNCBDbGllbnQgUHJvZmlsZQwBAAdOdW1Mb' +
  144.         '2NrAAAiAQAdUmVhZCBvciBzZXQgTnVtTG9jayBrZXkgc3RhdGUAAAUBA{5}BYBABFSb2Igdm' +
  145.         'FuIGRlciBXb3VkZQAAKAEAI0NvcHlyaWdodCDCqSAyMDEyIFJvYiB2YW4gZGVyIFdvdWRlAA' +
  146.         'ApAQAkNzc5ZTg2NDItNGIyOC00YzdmLWIxYmMtYmUwY2I3ZTRiMDZjAAANAQAIMS4wMS4wLj' +
  147.         'A{4}gBAAIA{7}gBAAgA{6}B4BAAEAVAIWV3JhcE5vbkV4Y2VwdGlvblRocm93cwEA{5}VG3s' +
  148.         'TwA{5}CA{4}XA{4}Og1AADoFwAAUlNEU36F1WDAivJGlnMXSSYFMW4EA{4}RTpcU291cmNlc' +
  149.         '1xWaXN1YWxTdHVkaW9cTnVtTG9ja1xOdW1Mb2NrXG9ialx4ODZcUmVsZWFzZVxOdW1Mb2NrL' +
  150.         'nBkYgBsNgA{c}CONgAAACA{u}gDYA{q}F9Db3JFeGVNYWluAG1zY29yZWUuZGxsA{6}D/JQA' +
  151.         'gQA{dh}IAEA{4}CAAAIAYA{4}OAAAgA{k}QABA{4}UAAAgA{k}QABA{4}aAAAgA{k}QA{6}g' +
  152.         'A{o}QA{6}kA{4}KBAAABkAwA{d}IRAAA6gEA{d}ZAM0A{4}VgBTAF8AVgBFAFIAUwBJAE8AT' +
  153.         'gBfAEkATgBGAE8A{6}L0E7/4AAAEAAQABA{7}BAAEA{6}D8A{9}BA{5}EA{j}BEA{5}QBWAG' +
  154.         'EAcgBGAGkAbABlAEkAbgBmAG8A{6}CQABA{4}FQAcgBhAG4AcwBsAGEAdABpAG8AbgA{8}Cw' +
  155.         'BMQCAAABAFMAdAByAGkAbgBnAEYAaQBsAGUASQBuAGYAbwAAAKACAAABADAAMAAwADAAMAA0' +
  156.         'AGIAMA{4}FQAHgABAEMAbwBtAG0AZQBuAHQAcwAAAFIAZQBhAGQAIABvAHIAIABzAGUAdAAg' +
  157.         'AE4AdQBtAEwAbwBjAGsAIABrAGUAeQAgAHMAdABhAHQAZQAAAEQAEgABAEMAbwBtAHAAYQBu' +
  158.         'AHkATgBhAG0AZQA{6}UgBvAGIAIAB2AGEAbgAgAGQAZQByACAAVwBvAHUAZABlA{4}OAAIAA' +
  159.         'EARgBpAGwAZQBEAGUAcwBjAHIAaQBwAHQAaQBvAG4A{6}E4AdQBtAEwAbwBjAGsA{4}0AAkA' +
  160.         'AQBGAGkAbABlAFYAZQByAHMAaQBvAG4A{6}DEALgAwADEALgAwAC4AMA{7}OAAMAAEASQBuA' +
  161.         'HQAZQByAG4AYQBsAE4AYQBtAGUAAABOAHUAbQBMAG8AYwBrAC4AZQB4AGUAAABsACMAAQBMA' +
  162.         'GUAZwBhAGwAQwBvAHAAeQByAGkAZwBoAHQAAABDAG8AcAB5AHIAaQBnAGgAdAAgAKkAIAAyA' +
  163.         'DAAMQAyACAAUgBvAGIAIAB2AGEAbgAgAGQAZQByACAAVwBvAHUAZABlA{6}BAAAwAAQBPAHI' +
  164.         'AaQBnAGkAbgBhAGwARgBpAGwAZQBuAGEAbQBlA{4}TgB1AG0ATABvAGMAawAuAGUAeABlA{4' +
  165.         '}MAAIAAEAUAByAG8AZAB1AGMAdABOAGEAbQBlA{6}BOAHUAbQBMAG8AYwBrA{4}OAAJAAEAU' +
  166.         'AByAG8AZAB1AGMAdABWAGUAcgBzAGkAbwBuA{4}MQAuADAAMQAuADAALgAwA{7}4AAgAAQBB' +
  167.         'AHMAcwBlAG0AYgBsAHkAIABWAGUAcgBzAGkAbwBuA{4}MQAuADEALgAwAC4AMA{9}Dvu788P' +
  168.         '3htbCB2ZXJzaW9uPSIxLjAiIGVuY29kaW5nPSJVVEYtOCIgc3RhbmRhbG9uZT0ieWVzIj8+D' +
  169.         'Qo8YXNzZW1ibHkgeG1sbnM9InVybjpzY2hlbWFzLW1pY3Jvc29mdC1jb206YXNtLnYxIiBtY' +
  170.         'W5pZmVzdFZlcnNpb249IjEuMCI+DQogIDxhc3NlbWJseUlkZW50aXR5IHZlcnNpb249IjEuM' +
  171.         'C4wLjAiIG5hbWU9Ik15QXBwbGljYXRpb24uYXBwIi8+DQogIDx0cnVzdEluZm8geG1sbnM9I' +
  172.         'nVybjpzY2hlbWFzLW1pY3Jvc29mdC1jb206YXNtLnYyIj4NCiAgICA8c2VjdXJpdHk+DQogI' +
  173.         'CAgICA8cmVxdWVzdGVkUHJpdmlsZWdlcyB4bWxucz0idXJuOnNjaGVtYXMtbWljcm9zb2Z0L' +
  174.         'WNvbTphc20udjMiPg0KICAgICAgICA8cmVxdWVzdGVkRXhlY3V0aW9uTGV2ZWwgbGV2ZWw9I' +
  175.         'mFzSW52b2tlciIgdWlBY2Nlc3M9ImZhbHNlIi8+DQogICAgICA8L3JlcXVlc3RlZFByaXZpb' +
  176.         'GVnZXM+DQogICAgPC9zZWN1cml0eT4NCiAgPC90cnVzdEluZm8+DQo8L2Fzc2VtYmx5Pg0KA' +
  177.         '{k}MAAADA{4}KA2A{im}==';

  179. //执行主函数
  180. main();
复制代码
回复

举报

ygqiang
 楼主| 发表于 2017-4-12 19:40:41 | 显示全部楼层
回复 7# yu2n


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

举报

老刘1号
发表于 2017-4-12 22:34:43 | 显示全部楼层
回复 8# ygqiang


    测试2楼，存批
回复

举报

ygqiang
 楼主| 发表于 2017-4-12 23:21:42 | 显示全部楼层
回复 2# 老刘1号


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

举报

yu2n
发表于 2017-4-13 00:05:37 | 显示全部楼层
本帖最后由 pcl_test 于 2017-4-13 00:32 编辑

回复 8# ygqiang

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

举报

ygqiang
 楼主| 发表于 2017-4-13 10:06:58 | 显示全部楼层
回复 11# yu2n


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

举报

ygqiang
 楼主| 发表于 2017-4-13 10:44:36 | 显示全部楼层
本帖最后由 ygqiang 于 2017-4-13 10:47 编辑

回复 5# pcl_test


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

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

举报

老刘1号
发表于 2017-4-13 12:53:29 | 显示全部楼层
本帖最后由 老刘1号 于 2017-4-13 12:55 编辑

回复 13# ygqiang


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

举报

yu2n
发表于 2017-4-13 19:23:59 | 显示全部楼层
回复 12# ygqiang


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

举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 20:42 , Processed in 0.022601 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表