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

雀魂麻将役牌 pg麻将胡了游戏声音有时太匆忙没时间或者来不及关电脑，怎样远程控制将电脑关掉呢？不用想的太复杂，有这款QQ昵称关机重启(ReShutDown)就能做到了，它是网友自制的利用qq昵称来关机的工具，使用简单，反映快，能远程控制电脑关机重启！ QQ昵称关机重启(ReShutDown)怎么用使用说明输入qq号，然后用手机修改自...

有时太匆忙没时间或者来不及关电脑，怎样远程控制将电脑关掉呢？不用想的太复杂，有这款QQ昵称关机重启(ReShutDown)就能做到了，它是网友自制的利用qq昵称来关机的工具，使用简单，反映快，能远程控制电脑关机重启！

QQ昵称关机重启(ReShutDown)怎么用

使用说明

输入qq号，然后用手机修改自己的qq昵称，如关机、重启等功能。

正在关机

QQ昵称关机重启(ReShutDown)功能介绍

电脑上运行这个软件，首次打开输入你自己的QQ，然后设定个检测时间。神宠大乱斗手游下载-神宠大乱斗手游1.0 安卓手机版

你可以通过手机QQ修改自己的QQ昵称实现控制电脑关机、重启。

QQ昵称关机重启(ReShutDown)部分代码

PrivateSubForm_Load()

Appdisk=Trim(App.Path)

IfRight(Appdisk,1)<>""ThenAppdisk=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"))

IfCheck1.Value=1ThenMe.Hide

Check1.Value=1

EndSub

PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)

CallINIWrite("CONFIG","WangZhi",Text1.Text,Appdisk&"set.ini") '提取源码的网址

CallINIWrite("CONFIG","Wait",Text2.Text,Appdisk&"set.ini") '等待的时间

CallINIWrite("CONFIG","Check",Check1.Value,Appdisk&"set.ini") '是否显示界面

EndSub

PrivateSubText2_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=8Then

KeyAscii=8

ExitSub

EndIf

IfKeyAscii<47OrKeyAscii>58Then

  KeyAscii=0

  Beep'声音

EndIf

EndSub

PrivateSubText2_LostFocus()

IfText2.Text=""ThenText2.Text="5"

EndSub

PrivateSubTimer1_Timer()

Minute=Minute+1

IfMinute=Val(Text2.Text)Then

JiLuTime&"请求获取源码！"

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

'IfInStr(Yuan,"关机")ThenQuitSystemWin0

'IfInStr(Yuan,"重启")ThenQuitSystemWin1

IfInStr(Yuan,"关机")ThenMsgBox"关机"

IfInStr(Yuan,"重启")ThenMsgBox"重启"

'请修改上面的代码实现功能

Minute=0

EndIf

EndSub

PublicFunctionReadinteFile(ByValsUrlAsString)AsString

DimxmlHTTP1AsObject

SetxmlHTTP1=CreateObject("Microsoft.XMLHTTP")

xmlHTTP1.Open"get",sUrl,True

xmlHTTP1.send

WhilexmlHTTP1.readyState<>4

DoEvents

Wend

ReadinteFile=xmlHTTP1.responseText

SetxmlHTTP1=Nothing

EndFunction

PrivateSubJiLu(MakStrAsString)

OnErrorResumeNext

DimFAsString,HAsLong

 F=Appdisk&"运行记录.txt"

 H=FreeFile

 OpenFForAppendAs#H

 Print#H,MakStr

 Close#H

EndSub