天干天干天啪啪夜爽爽99,夜色福利视频,日本久久精品一区

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

QQ昵稱關機重啟(ReShutDown)1.0 綠色免費版【附源碼】

相關軟件

綠色關機軟件(Switch Off)2.3.0.1 免費版

QQ提取出來的屏幕截圖工具snapshot1.0 最新版

自由棋王QQ象棋助手 V1.6 免費版

反恐精英CS1.5 007作弊器，可過浩方，QQ等無盾牌房間

強制進入qq空間2018內存版

電腦定時關機v1.3.2注冊機

QQ昵稱關機重啟(ReShutDown)怎么用

QQ昵稱關機重啟(ReShutDown)功能介紹

QQ昵稱關機重啟(ReShutDown)部分代碼

QQ昵稱關機重啟(ReShutDown)截圖

QQ昵稱關機重啟(ReShutDown) 1.0 綠色免費版【附源碼】

擴展閱讀

本類最新軟件

本類軟件推薦