谢谢分享，顶一下。

感謝分享

给力，谢谢

威利古德

64位有吗？

谢谢分享

不错的软件 14寸笔记本数字键盘的福音

目前的这些工具，不能完美地解决笔记本带小键盘的这种类型。
需要的效果是，带右侧小键盘的笔记本，运行之后，Numlock亮起来。


        

最好是根据笔记本触模屏来判断    有则是笔记本，  没有则是台式机

都是很好的工具 谢谢各位

这个工具几乎能检测键盘有没有损坏。

之前收藏的，好像也不错。


AutoNumLock.zip (1.91 KB, 下载次数: 55)

2021-9-6 23:43 上传

点击文件名下载附件
下载积分: 无忧币 -2

ku588 发表于 2021-9-6 15:57
这个说的倒是，如果pecmd有内置此功能，那PE下就没必要再单独搞这样的工具了

PECMD能解决，我就不会在这个上面花时间了，写这个工具，我也是在自己的PE里遇到了这样的问题，没有解决，才自己写的。

444742627 发表于 2021-9-6 13:43
一般PE下没有WMI组件哦！集成WMI会多出几十兆

这个说的倒是，如果pecmd有内置此功能，那PE下就没必要再单独搞这样的工具了

坏坏小生 发表于 2021-9-6 13:47
我也来一个,源码公开

Function FF_WINMAIN(ByVal hInstance As HINSTANCE) As Long '程序入口函数

我就是用的这个API ，检测有没有电池来判断的。估计电池拔了的笔记本是被识别为台式机！

我也来一个,源码公开

Function FF_WINMAIN(ByVal hInstance As HINSTANCE) As Long '程序入口函数
   Dim a As SYSTEM_POWER_STATUS
           GetSystemPowerStatus(@a)
   if a.BatteryFlag = 128 Or a.BatteryFlag = 255 Then
      '是台式机,打开键灯
       SetLight(VK_NUMLOCK ,True )
   Else
      '是笔记本,关闭键盘灯
      SetLight(VK_NUMLOCK ,False)
   End if
   Function = True  
End Function
Sub SetLight(i as Long ,bState As BOOL)
   Dim keyState(256) As UByte
   GetKeyboardState(@keyState(0))
   if ((bState And Not (keyState(i) And 1)) Or (Not bState And (keyState(i) And 1))) Then
      keybd_event(i ,&H45 ,KEYEVENTF_EXTENDEDKEY Or 0 ,0)
      keybd_event(i ,&H45 ,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP ,0)
   End if
End Sub

欢迎在PE下测试,该程序为32位EXE
小键盘灯.7z (10.51 KB, 下载次数: 37)

2021-9-6 13:43 上传

点击文件名下载附件
下载积分: 无忧币 -2

ku588 发表于 2021-9-6 13:19
如果用在PE的话可以用这个批处理试试：用在正常系统需要pecmd！
补充说明：尚未在PE下验证是否通用，有兴 ...

一般PE下没有WMI组件哦！集成WMI会多出几十兆

如果用在PE的话可以用这个批处理试试：用在正常系统需要pecmd！
补充说明：尚未在PE下验证是否通用，有兴趣的朋友可以一试！

@echo off
for /f "tokens=2 delims=={}" %%a in ('wmic PATH Win32_SystemEnclosure get ChassisTypes /value') do (
    if %%a==3 (
        goto Desktop
    ) else (
        if %%a==4 (
            goto Desktop
        ) else (
            if %%a==8 (
                goto NoteBook
            ) else (
                if %%a==9 (
                    goto NoteBook
                ) else (
                    if %%a==10 (
                        goto NoteBook
                    )
                )
            )
        )
    )
)
:Desktop
echo 当前电脑为 台式机
pecmd NUMK 1
goto End
:NoteBook
echo 当前电脑为 笔记本电脑
pecmd NUMK 0
goto End
:End

有点意思的小工具

2012andyle113 发表于 2021-9-6 11:47
我这10下面点了，没有任何反应，也没看见什么进程

开灯或关灯后，自动结束，你看不到的

我这10下面点了，没有任何反应，也没看见什么进程

smalldimple 发表于 2021-9-6 09:03
在我的win10上运行后没有任何显示呢？

只是后台 开灯关灯  ，没有任何显示的，如果你是台式机，把Num Lock灯关了，运行软件，这是灯会亮。

好工具，感谢。

在我的win10上运行后没有任何显示呢？

正好我的无线键盘看不到灯状态，要是同时显示大小写就好了

好像收藏过这样的工具。

顶一下居士，不错的好工具。。。

感谢分享

支持下，如果测试没缺陷的话应该是个还不错的工具

顶贴