AutoIT's program code that prohibits QQ running

if ProcessExists("") then 
                $QQPID = ProcessExists("")
                ProcessClose ($QQPID)
        endif


===============================================================
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colMonitoredProcesses = ("select * from __instancecreationevent within 1 where TargetInstance isa 'Win32_Process'")
i = 0
Do While i = 0
        Set objLatestProcess = 
        strPrs = LCase()
        If InStr(strPrs,"qq") <> "0" Then
                
        End If
        Set objLatestProcess = Nothing
Loop