QQ昵稱關(guān)機(jī)重啟(ReShutDown)1.0 綠色免費(fèi)版【附源碼】

有時(shí)太匆忙沒時(shí)間或者來不及關(guān)電腦，怎樣遠(yuǎn)程控制將電腦關(guān)掉呢？不用想的太復(fù)雜，有這款QQ昵稱關(guān)機(jī)重啟(ReShutDown)就能做到了，它是網(wǎng)友自制的利用qq昵稱來關(guān)機(jī)的工具，使用簡單，反映快，能遠(yuǎn)程控制電腦關(guān)機(jī)重啟！

QQ昵稱關(guān)機(jī)重啟(ReShutDown)怎么用

使用說明

輸入qq號(hào)，然后用手機(jī)修改自己的qq昵稱，如關(guān)機(jī)、重啟等功能。

正在關(guān)機(jī)

QQ昵稱關(guān)機(jī)重啟(ReShutDown)功能介紹

電腦上運(yùn)行這個(gè)軟件，首次打開輸入你自己的QQ，然后設(shè)定個(gè)檢測時(shí)間。

你可以通過手機(jī)QQ修改自己的QQ昵稱實(shí)現(xiàn)控制電腦關(guān)機(jī)、重啟。

QQ昵稱關(guān)機(jī)重啟(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")  '提取源碼的網(wǎng)址

Call INIWrite("CONFIG", "Wait", Text2.Text, Appdisk & "\set.ini")  '等待的時(shí)間

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 & "請(qǐng)求獲取源碼！"

Yuan = ReadinteFile("http://users.qzone.qq.com/fcg-bin/cgi_get_portrait.fcg?uins=" & Text1.Text)

'If InStr(Yuan, "關(guān)機(jī)") Then QuitSystemWin 0

'If InStr(Yuan, "重啟") Then QuitSystemWin 1

If InStr(Yuan, "關(guān)機(jī)") Then MsgBox "關(guān)機(jī)"

If InStr(Yuan, "重啟") Then MsgBox "重啟"

'請(qǐng)修改上面的代碼實(shí)現(xiàn)功能

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 & "\運(yùn)行記錄.txt"

  H = FreeFile

  Open F For Append As #H

  Print #H, MakStr

  Close #H

End Sub