根据QQ昵称关机重启的VB源码

yswqq2008

某日，我在论坛看到有人在论坛发的根据QQ昵称远程关机的软件，其接口是http://users.qzone.qq.com/fcg-bin/cgi_get_portrait.fcg?uins=你的QQ
然后，我就用VB写了个
源码，打包的程序在附件

软件截图

部分代码：

Private Sub Form_Load()
Appdisk = Trim(App.Path)
If Right(Appdisk, 1) <> "\" Then Appdisk = Appdisk & "\"
Text1.Text = ReadIniFile(Appdisk & "\set.ini", "CONFIG", "WangZhi")
Text2.Text = ReadIniFile(Appdisk & "\set.ini", "CONFIG", "Wait")
Check1.Value = Val(ReadIniFile(Appdisk & "\set.ini", "CONFIG", "Check"))
If Check1.Value = 1 Then Me.Hide
Check1.Value = 1
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call INIWrite("CONFIG", "WangZhi", Text1.Text, Appdisk & "\set.ini")  '提取源码的网址
Call INIWrite("CONFIG", "Wait", Text2.Text, Appdisk & "\set.ini")  '等待的时间
Call INIWrite("CONFIG", "Check", Check1.Value, Appdisk & "\set.ini")   '是否显示界面
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
KeyAscii = 8
Exit Sub
End If
If KeyAscii < 47 Or KeyAscii > 58 Then
    KeyAscii = 0
    Beep '声音
End If
End Sub

Private Sub Text2_LostFocus()
If Text2.Text = "" Then Text2.Text = "5"
End Sub

Private Sub Timer1_Timer()
Minute = Minute + 1
If Minute = Val(Text2.Text) Then
JiLu Time & "请求获取源码！"
Yuan = ReadinteFile("http://users.qzone.qq.com/fcg-bin/cgi_get_portrait.fcg?uins=" & Text1.Text)
'If InStr(Yuan, "关机") Then QuitSystemWin 0
'If InStr(Yuan, "重启") Then QuitSystemWin 1
If InStr(Yuan, "关机") Then MsgBox "关机"
If InStr(Yuan, "重启") Then MsgBox "重启"
'请修改上面的代码实现功能
Minute = 0
End If
End Sub

Public Function ReadinteFile(ByVal sUrl As String) As String
Dim xmlHTTP1 As Object
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.Open "get", sUrl, True
xmlHTTP1.send
While xmlHTTP1.readyState <> 4
DoEvents
Wend
ReadinteFile = xmlHTTP1.responseText
Set xmlHTTP1 = Nothing
End Function

Private Sub JiLu(MakStr As String)
On Error Resume Next
Dim F As String, H As Long
  F = Appdisk & "\运行记录.txt"
  H = FreeFile
  Open F For Append As #H
  Print #H, MakStr
  Close #H
End Sub


QQ昵称关机.zip (13.48 KB, 下载次数: 247)

2016-3-29 13:48 上传

点击文件名下载附件
源码

评分多了走屌丝通道。。。


有人说，看不懂是什么意思。
作用是：电脑上运行这个软件，首次打开输入你自己的QQ，然后设定个检测时间。
你可以通过手机QQ修改自己的QQ昵称实现控制电脑关机、重启。
比如：QQ 昵称为 关机，则电脑关机。
还有人不明白吗？？

2516270419

希望楼主的软件可以监视的更广一点，比如说电脑开着软件，然后设定好监视的QQ
但是电脑没有上QQ，手机上QQ了。这样通过网络可以远程关闭操作软件
更可以把手机当遥控用了，例如：晚上电脑看视频，不想下床关电脑，可以通过手机直接关闭
不知道这个意见有没有用，希望楼主可以采纳！

华丽的冒险

楼主提一个意见，希望可以添加到源码里
希望楼主的软件可以监视的更广一点，比如说电脑开着软件，然后设定好监视的QQ
但是电脑没有上QQ，手机上QQ了。这样通过网络可以远程关闭操作软件
更可以把手机当遥控用了，例如：晚上电脑看视频，不想下床关电脑，可以通过手机直接关闭
不知道这个意见有没有用，希望楼主可以采纳！

马山水

顶一顶，支持下

L丶不悔

没明白这个是干嘛的

落笔成殇

这个是干什么的？？？ 意思是上自己的qq就关机？

两种姿态

偶尔可以用用

562005433

不错哈，支持一下

Waylee

不错啊。支持源码

月夜青衣

一直想玩玩新鲜玩意，就是不会 弄，农民工 漂过，能 详细 解释下 功能么

梦入神机

没看明白，是用手机利用QQ远程关机、重启

caisege

这种东西还要忽悠点评分才给屌丝通道 让屌丝怎么活 业界良心