大小:299.6M 语言: 繁体中文
类型:教育学习 系统:macOS





有时太匆忙没时间或者来不及关电脑,怎样远程控制将电脑关掉呢?不用想的太复杂,有这款QQ昵称关机重启(ReShutDown)就能做到了,它是网友自制的利用qq昵称来关机的工具,使用简单,反映快,能远程控制电脑关机重启!
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
使用说明
输入qq号,然后用手机修改自己的qq昵称,如关机、重启等功能。

正在关机

电脑上运行这个软件,首次打开输入你自己的QQ,然后设定个检测时间。2020教师节黑板报内容资料-2020年教师节黑板报图片大全简单漂亮
你可以通过手机QQ修改自己的QQ昵称实现控制电脑关机、重启。
热门评论
最新评论