有時太匆忙沒時間或者來不及關電腦,怎樣遠程控制將電腦關掉呢?不用想的太復雜,有這款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
- PC官方版
- 安卓官方手機版
- IOS官方手機版