东坡下载:内容最丰富最安全的下载站!

帮助|文件类型库|最新更新|下载分类|排行榜

开关定时系统增强磁盘工具安装制作内存工具卸载清除备份恢复系统其它桌面工具CPU相关虚拟机

首页系统工具开关定时 → QQ昵称关机重启(ReShutDown) 1.0 绿色免费版【附源码】

QQ昵称关机重启(ReShutDown)

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

  • 大小:16KB
  • 语言:中文
  • 平台:WinAll
  • 更新:2016-03-29 14:40
  • 等级:
  • 类型:开关定时
  • 网站:http://www.uzzf.com
  • 授权:免费软件
  • 厂商:
  • 产地:国产软件
好用好玩 50%(0)
坑爹 坑爹 50%(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

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

QQ昵称关机重启(ReShutDown)截图

下载地址

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

热门评论
最新评论
昵称:
表情: 高兴 可 汗 我不要 害羞 好 下下下 送花 屎 亲亲
字数: 0/500 (您的评论需要经过审核才能显示)

编辑推荐

报错

请简要描述您遇到的错误,我们将尽快予以修正。

转帖到论坛
轮坛转帖HTML方式

轮坛转帖UBB方式