1,開機(windows運行)時間:(By Gooker)
$time = DllCall("kernel32.dll","int","GetTickCount")
MsgBox(0,0,$time[0]) ;$time[0]是window運行時間的毫秒數(shù)
2,根據(jù)文件擴展名取得相關(guān)圖標(By 辣椒龍)
以txt文件為例。
1.找HKEY_CLASSES_ROOT\.txt下的默認鍵，值是“txtfile”。
2.找HKEY_CLASSES_ROOT\txtfile\DefaultIcon下的默認值，值是“%SystemRoot%\system32\shell32.dll,-152”。
逗號前是文件名（也可以是exe文件等），后是位置（正值為順序號，負值為索引號）。
3,設置Combo內(nèi)內(nèi)容為不可更改(樣式)(By chasedream)
GUICtrlCreateCombo("", 32, 45, 145, 25,$SS_BLACKFRAME)
4,判斷大寫鍵盤燈亮還是滅(By Gooker)
$result = DllCall("user32.dll","Int","GetKeyState","int",20)
If @error = 1 Then
MsgBox(0,"錯誤","函數(shù)調(diào)用失敗") ;基本上不會的 :)
Exit
Else
If $result[0] = 1 Then
MsgBox(0,"大寫鍵盤燈狀態(tài)","亮")
Else
MsgBox(0,"大寫鍵盤燈狀態(tài)","滅")
EndIf
EndIf
5,調(diào)用迅雷下載(By thesnow)
$obj=ObjCreate("ThunderAgent.Agent")
;$obj.Addtask("下載地址", "另存文件名", "保存目錄","任務注釋","引用地址","開始模式", "只從原始地址下載","從原始地址下載線程數(shù)") ;添加下載任務
;說明一下,開始模式只能為1(立即)/0(手動)/-1,只從原始地址下載請設置為真或者假(True/False)(1/0)
$obj.AddTask("http://www.autoit.net.cn/autoitv3/3.2.5.5.1.exe","X.EXE","C:\TDOWNLOAD","3.2.5.5.1","dddd",1,1,10);添加下載任務
$obj.CommitTasks(1) ;提交任務.
6,查CPU溫度(WMI)(By zcbenz)
Dim $temp = ""
While 1
$objWMIService = ObjGet("winmgmts:\\.\root\WMI")
$colItems = $objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature")
$temp = ""
For $objItem in $colItems
$temp &= "CurrentTemperature: " & ($objItem.CurrentTemperature - 2732) / 10 & "°C" & @LF
Next
ToolTip(StringTrimRight($temp,1),100,0)
$objWMIService = 0
Sleep(5000)
WEnd
7,調(diào)用放大鏡的功能(By zcbenz)
Global $SRCCOPY = 0x00CC0020
Global $leave = 0
HotKeySet("{PAUSE}","leave")
SplashTextOn ( "AU3MAG", "" , 100 , 100 , 0, 0, 1 )
$MyhWnd = WinGetHandle("AU3MAG")
While Not $leave
Sleep(25)
MAG()
WEnd
Func MAG()
$MyHDC = DLLCall("user32.dll","int","GetDC","hwnd",$MyhWnd)
If @error Then Return
$DeskHDC = DLLCall("user32.dll","int","GetDC","hwnd",0)
If Not @error Then
$xy = MouseGetPos()
If Not @error Then
$l = $xy[0]-10
$t = $xy[1]-10
DLLCall("gdi32.dll","int","StretchBlt","int",$MyHDC[0],"int",0,"int",0,"int",100,"int",100,"int",$DeskHDC[0],"int", $l,"int",$t,"int",20,"int",20,"long",$SRCCOPY)
EndIf
DLLCall("user32.dll","int","ReleaseDC","int",$DeskHDC[0],"hwnd",0)
EndIf
DLLCall("user32.dll","int","ReleaseDC","int",$MyHDC[0],"hwnd",$MyhWnd)
EndFunc
Func leave()
$leave = 1
EndFunc
7,打開我的電腦,定位到C盤(By 辣椒龍)
Run(@WindowsDir & "\explorer.exe /e, /select,C:\")
8,限制input框為數(shù)字和數(shù)量限制(By dyljf & 20ysbb)
$Input1 = GUICtrlCreateInput("", 95, 205, 129, 21,$ES_NUMBER)
GUICtrlSetLimit(-1, 9)
9,強制刷新組策略和注冊表 (By redapple)
xp/2003命令
gpupdate /force
2k命令
secedit /refreshpolicy machine_policy /enforce
10,獲得進程路徑 (By sanhen)
Func Processpath($iPID)
Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID)
If $aProc[0] = 0 Then Return SetError(1, 0, '')
Local $vStruct = DllStructCreate('int[1024]')
DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0)
Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048)
If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '')
Return $aReturn[3]
EndFunc
