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
EndFunc   ;==>_GetKeyState




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

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

WINDOWS API 直接可以调用


http://msdn.microsoft.com/en-us/library/windows/desktop/aa373216(v=vs.85).aspx

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

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

回复 16# hzxymkb

女人何苦为难女人!{:face (411):}

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

没人不理解是正常的,自己觉得有用就行!
页: 1 [2] 3
查看完整版本: 今天真的很汗。。。