Question

能否用VB写一个判断QQ是否在线的

Answer 1

Private Sub Command1_Click()
Dim a() As String
Dim b As Integer
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objProcess In colProcessList
    b = b + 1
    ReDim Preserve a(b)
    a(b) = objProcess.Name
    If a(b) = "QQ.exe" Then s = s + 1
    'Print a(b)
Next
    Print "共计"; b; "个进程；其中QQ进程"; s; "个！"
End Sub

只能看打开了几个QQ进程。没登陆也算的

Answer 2

QQ在线就是在线啊，会员好像可以看是不是隐身吧

Answer 3

判断他人QQ是否在线只能依靠腾讯api接口！目前并没有相关接口！所以无解！！