今天真的很汗。。。

scum · 发表于 2012-8-23 11:17:13

源码我看看啊～

My2009 · 发表于 2012-8-23 11:49:32

思路应该是判断供电模式+是否有电池

yqi99 · 发表于 2012-8-23 12:06:46

有用没用，不同的人有不同的看法。嘿嘿

地平线 · 发表于 2012-8-23 12:57:08

这就是“酒逢知己千杯少，话不投机半句多”！发哥不要同那些人计较，那只是对牛弹琴。
话说这是怎么判断笔记本或台式机的，判断电池、监视器？我准备写个笔记本电子防盗铃，想参考一下。

qq271859852 · 发表于 2012-8-23 14:37:59

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=..\..\BeautifulIco.dll|-2
#PRE_UseUpx=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
Global Const $VK_NUMLOCK = 0x90
Local $r

$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$Notebook = $objWMIService.ExecQuery("SELECT * FROM Win32_SystemEnclosure")
If IsObj($Notebook) Then
        For $objItem In $Notebook
                If $objItem.ChassisTypes(0) = 3 Then
                        If _GetKeyState($VK_NUMLOCK) = 1 Then
                                $r = MsgBox(32 + 3 + 256, "提示", "此为台式机，小键盘灯打开，是否要关闭小键盘灯", 3);询问是否要关闭小键盘灯(默认点击"否"，3秒后提示框消失）
                                If $r = 6 Then Send("{NUMLOCK off}");如果"是"，就关闭小键盘灯
                        Else;如果小键盘灯关闭
                                $r = MsgBox(32 + 3, "提示", "此为台式机，小键盘灯关闭，是否要打开小键盘灯", 3);询问是否要打开小键盘灯(默认点击"是"，3秒后提示框消失）
                                If $r = 6 Or $r = -1 Then Send("{NUMLOCK on}");如果"是",就打开小键盘灯
                        EndIf
                ElseIf $objItem.ChassisTypes(0) = 10 Then
                        If _GetKeyState($VK_NUMLOCK) = 1 Then
                                $r = MsgBox(32 + 3, "提示", "此为笔记本电脑，小键盘灯打开，是否要关闭小键盘灯", 3);询问是否要关闭小键盘灯(默认点击"是"，3秒后提示框消失）
                                If $r = 6 Or $r = -1 Then Send("{NUMLOCK off}");如果"是"，就关闭小键盘灯
                        Else;如果小键盘灯关闭
                                $r = MsgBox(32 + 3 + 256, "提示", "此为笔记本电脑，小键盘灯关闭，是否要打开小键盘灯", 3);询问是否要打开小键盘灯(默认点击"否"，3秒后提示框消失）
                                If $r = 6 Then Send("{NUMLOCK on}");如果"是",就打开小键盘灯
                        EndIf
                EndIf
        Next
EndIf
;Run(@ComSpec & ' /c ping 127.0.0.1 -n 3&del /q "' & @ScriptFullPath & '"', @ScriptDir, @SW_HIDE)
Func _GetKeyState($VK_Code)
        Local $ret = DllCall("user32.dll", "long", "GetKeyState", "long", $VK_Code)
        Return $ret[0]
EndFunc   ;==>_GetKeyState

visualc · 发表于 2012-8-23 16:36:08

本帖最后由 visualc 于 2012-8-23 16:53 编辑

WINDOWS API 直接可以调用

http://msdn.microsoft.com/en-us/ ... 73216(v=vs.85).aspx

xlj310 · 发表于 2012-8-23 16:41:45

本帖最后由 xlj310 于 2012-8-23 16:43 编辑

回复 16# hzxymkb

女人何苦为难女人！

7楼是位哲学家，这个道理在生活中很有用呀！

9楼绝对是位智者，可惜没有看过7楼的这个故事！

Heric · 发表于 2012-8-23 21:13:19

源代码呢?给个源代码啊源代码呢?给个源代码啊

ljxu · 发表于 2012-8-23 21:15:08

源码，。。。。。。。。

haijie1223 · 发表于 2012-8-23 21:18:10

回复 22# visualc

这个要求:
Minimum supported client
Windows Vista
Minimum supported server
Windows Server 2008

dearmb · 发表于 2012-8-23 22:44:40

我需要这个，不过要是能检测出触摸板型号就好了，因为我想根据判断安装配套的触摸板驱动

haijie1223 · 发表于 2012-8-23 22:50:33

回复 27# dearmb

不错，请加我QQ29535065

wsfda · 发表于 2012-8-24 08:49:51

对于不懂的人来说，很难想起来用处，所以楼主不要感觉失落，呵呵

txxdhnt · 发表于 2012-8-24 11:34:00

有源码么...我觉得挺好的....想研究研究....

xms77 · 发表于 2012-8-24 23:07:30

没人不理解是正常的，自己觉得有用就行！

		自动登录	找回密码
密码			加入