AutoIt wrote the ban on QQ running program code _AUTOIT

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