AutoIT寫的禁止QQ運(yùn)行的程序代碼
更新時(shí)間：2008年06月15日 21:31:36 作者：
autoit的東西，確實(shí)不錯(cuò)，推薦大家學(xué)習(xí)之，最近沒時(shí)間，稍后我們一起學(xué)習(xí)
if ProcessExists("qq.exe") then
$QQPID = ProcessExists("qq.exe")
ProcessClose ($QQPID)
endif
===============================================================
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colMonitoredProcesses = objWMIService.ExecNotificationQuery("select * from __instancecreationevent within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
strPrs = LCase(objLatestProcess.TargetInstance.Name)
If InStr(strPrs,"qq") <> "0" Then
objLatestProcess.TargetInstance.Terminate
End If
Set objLatestProcess = Nothing
Loop
$QQPID = ProcessExists("qq.exe")
ProcessClose ($QQPID)
endif
===============================================================
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colMonitoredProcesses = objWMIService.ExecNotificationQuery("select * from __instancecreationevent within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
strPrs = LCase(objLatestProcess.TargetInstance.Name)
If InStr(strPrs,"qq") <> "0" Then
objLatestProcess.TargetInstance.Terminate
End If
Set objLatestProcess = Nothing
Loop
相關(guān)文章
顯示以一個(gè)輸入框以供用戶輸入數(shù)據(jù)。InputBox ( "標(biāo)題", "提示信息" [, "默認(rèn)數(shù)據(jù)" [, "密碼字符" [, 寬度, 高度 [, 左邊, 上邊 [, 超時(shí)時(shí)間]]]]] )2008-06-06
功 能：更改個(gè)人文件夾的位置 原 理：找到注冊(cè)表中的相應(yīng)位置，顯示出來(lái)，并通過(guò)修改對(duì)應(yīng)的鍵值來(lái)指定路徑。 注意事項(xiàng)：本程序不移動(dòng)文件夾，只是指定路徑；修改完成后，請(qǐng)馬上重新啟動(dòng)。2008-07-07
命令行參數(shù) AutoIt 腳本程序可通過(guò)命令行調(diào)用，當(dāng)我們傳遞命令行參數(shù)到腳本中的時(shí)候會(huì)有一個(gè)特殊的數(shù)組 $CmdLine 保存相關(guān)數(shù)據(jù)。2008-06-06
autoit的東西，確實(shí)不錯(cuò)，推薦大家學(xué)習(xí)之，最近沒時(shí)間，稍后我們一起學(xué)習(xí)2008-06-06
所謂函數(shù)是指可在腳本中調(diào)用并實(shí)現(xiàn)特定“功能”的代碼片段。在 AutoIt 中有兩種函數(shù)，包括 內(nèi)建函數(shù) 和 自定義函數(shù)。2008-06-06
使用AutoIT實(shí)現(xiàn)自動(dòng)登錄/退出客戶端軟件，刪除日志
最近在測(cè)試新版客戶端時(shí)發(fā)現(xiàn)，會(huì)不定時(shí)的出現(xiàn)登錄失敗，提示信息是“連接登錄服務(wù)器失敗...”。經(jīng)過(guò)一番嘗試，發(fā)現(xiàn)在安裝客戶端后登錄，錯(cuò)誤出現(xiàn)的幾率較高。2009-03-03
最近在用AU3開發(fā)一款用來(lái)調(diào)用飛信發(fā)送短信的小東東 飛信是個(gè)很好的東西,可惜用的人少,很多不厚道的同學(xué)注冊(cè)之后就不再登錄了.2008-09-09
AutoIt 腳本可創(chuàng)建（由窗口及其控件組成的）簡(jiǎn)單的圖形用戶界面（GUI）。2008-06-06
HotKeySet 設(shè)置一個(gè)可調(diào)用某用戶函數(shù)的熱鍵。2008-06-06
來(lái)自小A的源碼，其實(shí)用到的全部是AU3自帶的UDF，非常有學(xué)習(xí)的意義！功能：獲取外網(wǎng)IP并將IP發(fā)送到配置文件中定義的郵箱2012-05-05