QQ昵称关机重启(ReShutDown)1.0 绿色免费版【附源码】

有时太匆忙没时间或者来不及关电脑，怎样远程控制将电脑关掉呢？不用想的太复杂，有这款QQ昵称关机重启(ReShutDown)就能做到了，它是网友自制的利用qq昵称来关机的工具，使用简单，反映快，能远程控制电脑关机重启！

QQ昵称关机重启(ReShutDown)怎么用

使用说明

输入qq号，然后用手机修改自己的qq昵称，如关机、重启等功能。

正在关机

QQ昵称关机重启(ReShutDown)功能介绍

电脑上运行这个软件，首次打开输入你自己的QQ，然后设定个检测时间。

你可以通过手机QQ修改自己的QQ昵称实现控制电脑关机、重启。

QQ昵称关机重启(ReShutDown)部分代码

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