变态重口极致另类在线-波多久久夜色精品国产-波多野结衣在线观看一区-波多野结衣在线观看一区二区-污污的网站免费阅读-污污视频网址

東坡下載:內(nèi)容最豐富最安全的下載站!

幫助|文件類型庫|最新更新|下載分類|排行榜

開關定時系統(tǒng)增強磁盤工具安裝制作內(nèi)存工具卸載清除備份恢復系統(tǒng)其它桌面工具CPU相關虛擬機

首頁系統(tǒng)工具開關定時 → QQ昵稱關機重啟(ReShutDown) 1.0 綠色免費版【附源碼】

QQ昵稱關機重啟(ReShutDown)

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

  • 大小:16KB
  • 語言:中文
  • 平臺:WinAll
  • 更新:2016-03-29 14:40
  • 等級:
  • 類型:開關定時
  • 網(wǎng)站:http://www.astro-tech.com.cn
  • 授權:免費軟件
  • 廠商:
  • 產(chǎn)地:國產(chǎn)軟件
好用好玩 50%(0)
坑爹 坑爹 50%(0)
軟件介紹軟件截圖相關軟件軟件教程網(wǎng)友評論下載地址

有時太匆忙沒時間或者來不及關電腦,怎樣遠程控制將電腦關掉呢?不用想的太復雜,有這款QQ昵稱關機重啟(ReShutDown)就能做到了,它是網(wǎng)友自制的利用qq昵稱來關機的工具,使用簡單,反映快,能遠程控制電腦關機重啟!

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

使用說明

輸入qq號,然后用手機修改自己的qq昵稱,如關機、重啟等功能。

正在關機

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

電腦上運行這個軟件,首次打開輸入你自己的QQ,然后設定個檢測時間。

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

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")  '提取源碼的網(wǎng)址

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 "重啟"

'請修改上面的代碼實現(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 & "\運行記錄.txt"

  H = FreeFile

  Open F For Append As #H

  Print #H, MakStr

  Close #H

End Sub

PC官方
安卓官方手機版
IOS官方手機版

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

下載地址

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

熱門評論
最新評論
發(fā)表評論 查看所有評論(0)
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數(shù): 0/500 (您的評論需要經(jīng)過審核才能顯示)

編輯推薦

報錯

請簡要描述您遇到的錯誤,我們將盡快予以修正。

轉帖到論壇
輪壇轉帖HTML方式

輪壇轉帖UBB方式

主站蜘蛛池模板: 欧美成人另类人妖 | 黄免费观看 | 亚洲欧美精品一区天堂久久 | 天天狠天天透天天伊人 | 欧美成人在线免费 | 午夜性刺激在线观看视频 | 男人把女人下部桶爽的视频 | 久久久高清日本道免费观看 | 99九九精品 | 欧美性生交xxxxx久久久 | 久久成人国产精品青青 | 一级做a爰片久久毛片人呢 一级做a爰片久久毛片免费看 | xx视频在线永久免费观看 | 国产一区欧美 | 免看一级a一片成人123 | 久爱视频www在线播放 | 99在线观看巨臀大臀视频 | 成人午夜激情 | 久久不卡一区二区三区 | 东京道区二区三区 | 男女www视频| 亚洲成人高清 | 色迷迷网免费站视频在线观看 | 久久久www免费人成看片 | 国产欧美日韩中文久久 | 日日摸夜夜添夜夜添影院视频 | 欧美在线视频你懂的 | 日韩欧美一区二区不卡看片 | 手机在线精品视频 | 亚洲成人伦理 | 欧美激情综合色综合啪啪五月 | 久久青草国产精品一区 | 成人动漫在线看 | 亚洲天堂精品在线观看 | 久久久精品视频直接观看 | 国产精品自产拍在线观看 | 中文字幕日韩精品在线 | 波多野结衣久久精品免费播放 | 日韩中文字幕在线 | 久色视频在线 | 欧美日韩免费一区二区三区 |