求一个智能判断台式机与笔记本数字键盘灯开/关闭的AU3代码

qq4045728

求一个智能判断台式机与笔记本数字键盘灯开/关闭的AU3代码     NumLock

lixiaolong

回复 1# qq4045728

函 数 参 考
_WinAPI_GetKeyState
--------------------------------------------------------------------------------
检索指定虚拟键的状态.
_WinAPI_GetKeyState ( $vKey )

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_LegalCopyright=http://www.autoitx.com/ - lixiaolong
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <WinAPIEx.au3>

Global Const $VK_NUMLOCK = 0x90

While 1
        $msg = GUIGetMsg()
        _AlwaysNumLockON($VK_NUMLOCK)
WEnd

Func _AlwaysNumLockON($Key)
        Local $State = _WinAPI_GetKeyState($Key); Check NumLock ON,OFF
        If Not $State Then Send('{NUMLOCK ON}'); If Not $State Then = 如果数字键盘(NumLock)灯没开.
EndFunc   ;==>_AlwaysNumLockON

xms77

李小龙还是很厉害的说，Kongfu不知道，au3可以的

gzh888666

回复  qq4045728

函 数 参 考
_WinAPI_GetKeyState
--------------------------------------------- ...
lixiaolong 发表于 2011-10-23 16:42

最新版的AU3帮助里怎么搜不到_WinAPI_GetKeyState了？WinAPIExCHS.chm不更新了吗？

虫子樱桃

通过wmi检查计算机类型

$strComputer = "."

$objWMIService = ObjGet('winmgmts:{impersonationLevel=impersonate}!\\' & $strComputer & "\root\cimv2")
$colChassis = $objWMIService.ExecQuery("Select * from Win32_SystemEnclosure")
For $objChassis in $colChassis
For $strChassisType in $objChassis.ChassisTypes


if $strChassisType = 8 or $strChassisType = 9 or $strChassisType = 10 then msgbox(0, "", "laptop")
if $strChassisType = 3 or $strChassisType = 4 or $strChassisType = 5 or $strChassisType = 6 or $strChassisType = 7 then msgbox(0, "", "Desktop")

Next
next

lixiaolong

回复 4# gzh888666

我看的UDF 版本是 3.0.

这个是最新的UDF 版本是 3.5.
http://www.autoitx.com/forum.php ... ;highlight=WinAPIEx

Virtual-Key Codes (Windows):
http://msdn.microsoft.com/en-us/library/dd375731(v=VS.85).aspx

ylsfwb

学习学习班    ！！！！

yangysky

谢谢，学习了！