回复 2楼 bczgvip
怎么详细点啊
*******其他代码
Services.ExecQueryAsync mwmiSink, "SELECT * FROM Win32_Service where DisplayName='CCAgent'"
while i=true 'i是在OnObjectReady里面给赋值为true的
doevents
wend
******其他的代码了
然后Private Sub mwmiSink_OnObjectReady(ByVal objWbemObject As ISWbemObject, ByVal objWbemAsyncContext As ISWbemNamedValueSet)这个函数不是如果有返回的ISWbemObject就会顺序的读取吗,但是在执行完ExecQueryAsync后,没有返回ISWbemObject时,有其他程序又执行了ExecQueryAsync之类的查询的东西,然后OnObjectReady就没反应了
我就用了一个mwmiSink_OnObjectReady这个事件,其他事件没有写啊