这样如果电脑忘了关的话 可以通过手机端登陆QQ 使电脑端的QQ被迫下线 然后自动关机 达到手机远程控制电脑关机的目的

让电脑关机很简单，shell就行了，问题在于QQ下线了程序怎么知道，要对QQ进行监控还是QQ关闭时会给系统一个消息呢？QQ关了360肯定知道，那么系统应该也知道，从这个方面应该可以，但对消息管理一知半解，不能给予解答，不好意思，也希望高手指导下，关注ing......

我给个自己想到思路。

1、QQ图标，在托盘区不能隐藏。
2、启动程序，捕捉托盘区的图像，然后寻找QQ图像的位置，也可以到这里要求人为输入。然后再寻找位置。
寻找位置靠点的颜色来。在QQ在线的情况下寻找，不能有消息的情况下。
3、QQ设置为图标不闪烁。因为闪烁时无法通过QQ图标来判断是否掉。
4、使用定时器，每隔多久时间，就读取一个这个图标，查颜色，判断是否是灰色的，是，就掉线了， 倒计时关机

这是笨方法，采用的是 按键精灵 的思路。

高级操作方法，应该是直接到QQ的内存空间里搜索QQ的状态。然后再判断是否在线还是掉线，未登录等等情况。这个我不会。
一个版本的QQ，状态保存在内存里应该是有固定位置或规律的。
这个就要靠你自己努力了，。

不用考虑如此复杂吧？

Private Sub Form_Load()
    Timer1.Interval = 5000 '第五秒钟检测一次QQ状态
End Sub

Private Sub Timer1_Timer()
    WebBrowser1.Navigate "http://wpa. '中间的8是QQ号码
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If InStr(LCase(URL), "online.gif") = 0 Then
        MsgBox "QQ已经离线，在这里写入强制关机代码。" 
    End If
End Sub

四楼的方法好！！！

没想到QQ提供在网上查看是否在线的方法.

发散性思维不行.

最后问个问题,如果是因为断网造成的掉线,怎么检测????
..........

因为断网造成的掉线,上面的代码同样有效啊。
网络断开后，WebBrowser1将会是出错页。那么InStr(LCase(URL), "online.gif") 的值肯定为 0 呀。

不说也罢   好厉害哦   

四楼的代码好像已经无效了

高手  好点子！