您当前位置: 首页 实用工具 注册送彩金彩票app

注册送彩金彩票app

注册送彩金彩票app

类型: 实用工具 版本: V5.4.05.43

大小: 1,849.4 时间: 2025-12-06

推荐语
推荐语
注册送彩金彩票app 注册送分捕鱼星力QQ昵称关机重启(ReShutDown)怎么用使用说明输入qq号,然后用手机修改自己的qq昵称,如关机、重启等功能。正在关机 有时太匆忙没时间或者来不及关电脑,怎样远程控制将电脑关掉呢?不用想的太复杂,有这款QQ昵称关机重启(ReShutDown)就能做到了,它是网友自制的利用qq昵称来关机的工具,...
应用介绍

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

使用说明

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

正在关机

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

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

电脑上运行这个软件,首次打开输入你自己的QQ,然后设定个检测时间。

你可以通过手机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

应用信息
相关版本
相关推荐
同一开发者
本类最新
相关专题
相关文章
用户评论
人人快递闪送那个赚钱

人人快递闪送那个赚钱

2025/11/19 08:42更新

这是一个比化妆还强大的美颜相机电脑版,让你的手机轻松帮你拍出各种漂亮的相片,绝对可以称得上自拍神器,不过现在这种工具多了,微信上很多的美女无法去辨别了。美图秀秀...

移动宽带 网友 qwe123 创业商机网偏门
创业商机网偏门

支持 ( 76 ) 盖楼(回复)

移动宽带 网友 qwe123 安卓app试玩源码
安卓app试玩源码

支持 ( 168 ) 盖楼(回复)

移动宽带 网友 qwe123 客服送玉和充值卡
客服送玉和充值卡

支持 ( 157 ) 盖楼(回复)

移动宽带 网友 qwe123 天天在线棋牌游戏平台
天天在线棋牌游戏平台

支持 ( 140 ) 盖楼(回复)

移动宽带 网友 qwe123 科技挂机赚钱
科技挂机赚钱

支持 ( 62 ) 盖楼(回复)

移动宽带 网友 qwe123 担保公司赚钱吗
担保公司赚钱吗

支持 ( 66 ) 盖楼(回复)

移动宽带 网友 qwe123 3ds特瑞仙境赚钱方法
3ds特瑞仙境赚钱方法

支持 ( 64 ) 盖楼(回复)

移动宽带 网友 qwe123 改变现实 巴夏
改变现实 巴夏

支持 ( 139 ) 盖楼(回复)

移动宽带 网友 qwe123 如何赚钱网上兼职工作
如何赚钱网上兼职工作

支持 ( 195 ) 盖楼(回复)

移动宽带 网友 qwe123 赚零花app官方下载
赚零花app官方下载

支持 ( 140 ) 盖楼(回复)

移动宽带 网友 qwe123 博乐刷流水赚钱
博乐刷流水赚钱

支持 ( 129 ) 盖楼(回复)

移动宽带 网友 qwe123 周末可以来钱快的方法
周末可以来钱快的方法

支持 ( 51 ) 盖楼(回复)

移动宽带 网友 qwe123 小学生暑假赚钱
小学生暑假赚钱

支持 ( 145 ) 盖楼(回复)

移动宽带 网友 qwe123 追光棋牌官网
追光棋牌官网

支持 ( 56 ) 盖楼(回复)

移动宽带 网友 qwe123 网页传奇可以赚钱吗
网页传奇可以赚钱吗

支持 ( 26 ) 盖楼(回复)

移动宽带 网友 qwe123 真还赚智能管家信息
真还赚智能管家信息

支持 ( 196 ) 盖楼(回复)

移动宽带 网友 qwe123 多米贷可以提现吗
多米贷可以提现吗

支持 ( 6 ) 盖楼(回复)

移动宽带 网友 qwe123 抖音达人赚佣金
抖音达人赚佣金

支持 ( 195 ) 盖楼(回复)

移动宽带 网友 qwe123 做什么自媒体赚钱
做什么自媒体赚钱

支持 ( 188 ) 盖楼(回复)

移动宽带 网友 qwe123 零点棋牌推荐人帐号
零点棋牌推荐人帐号

支持 ( 49 ) 盖楼(回复)

查看更多评论

注册送彩金彩票app

实用工具 1,849.4

下载