
类型: 办公效率 版本: V6.0
大小: 172.1 时间: 2025-12-14





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

正在关机

PrivateSubForm_Load()tiktok赚钱项目qq
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昵称实现控制电脑关机、重启。
有时太匆忙没时间或者来不及关电脑,怎样远程控制将电脑关掉呢?不用想的太复杂,有这款QQ昵称关机重启(ReShutDown)就能做到了,它是网友自制的利用qq昵称来关机的工具,使用简单,反映快,能远程控制电脑关机重启!
发布大额优惠券的软件怎么赚钱的
1,208.1M
其实在很多时候就有人希望当君主,穿上华丽的衣服,虽然现实中大家不太可能,但是只需要来下载上古卷轴5尤利卡君主套装mod,就能让你在游戏中获得闪亮的君主装备,感觉...
百度理财如何提现
405.9M
渣渣传奇是一款非常好玩的经典热血rpg格斗手游。游戏画风很复古,延续了经典战法道三职业,玩家可以选择自己喜欢的角色进行战斗。炫酷的技能,强大的战斗系统,带你走进...
福州兼职招聘发传单
883.6M
手机在现在带来的好处是显而易见的,但是也给很多的家长带来了担忧,那就是孩子有了手机是不是忘记了学习,或者是误入了歧途?担心是没有用的,那就给你的孩子手机上安装家...
惠汪省钱怎么赚钱
629.9M
小鸟观映app是一款专为喜欢看电影的朋友开发的手机软件,具有在线预约电影院等功能,人气电影院,在线挑选影片,想看什么电影都可以!小鸟观映app介绍小鸟观映——国...
在家里如何赚钱的方法
627.1M
全能词典app是一款英语词典翻译软件,该软件操作简单,简单输入英语或是中文一秒翻译,减少一页页翻阅词典花费的时间,快速帮你解决难题。全能词典app简介:这是一款...
吉林棋牌打麻将
1,992.5M
沃卡回收是一款可以回收各种购物卡、加油卡、话费卡的平台,如果你手中有闲置或用不上的各种卡券,都可以来沃卡回收平台进行回收,非常靠谱,直接转换成现金或等值的物品,...
223小游戏赚钱
1,781.6M
一款在豪宅里面找到逃离黑暗的游戏,很多的时候就是这样需要玩家来逃离黑暗来努力,不管是什么样的恐怖在等待着玩家,这里你会看到一个超级大的恐怖猪头,这里一切都是充满...
救济金10元棋牌50提现
1,799.8M
小明连点器app是一款手机自动点击工具,支持模拟点击、模糊滑动、定时静音和图片点击等功能,操作简单无需root,适用于视频观看、小说翻页等多种场景,帮助用户解放...
兼职钢琴老师招聘
999.3M
现在电梯事故多发,对于生产厂商而言,一定要把握好质量这一关哦!东坡小编今天为大家带来这款助友U3ERP_电梯生产多用户版,希望能够对各位用户有所帮助哦!助友U3...
快手怎么卖东西挣钱
1,953.2M
泰剧迷免费版是一款专门追泰剧的播放软件,软件内有着所有最新最经典的泰剧,第一时间更新,让你体验真正的泰剧风格,免费观看所有泰剧,感兴趣的小伙伴快来东坡下载吧!泰...
好赚钱的阅读
1,309.4M
销售小票打印专家软件一款功能非常强大的软件,能够打印各种市面上的小票,更为关键的是支持POS58热敏打印机,不但操作简单,而且内存小又是免费的!销售小票打印专家...
在币圈怎么赚100万
1,411.0M
像拥有一个自己喜欢的二次元老婆形象吗?想自己制作一个二次元美女老婆吗?二次元老婆生成器帮助你快速实现愿望,软件支持大家自己动手AI制图,大家可以按照自己的喜欢和...
棋牌赢话费游戏下载
276.3M
瑞达教育app是一款考前在线备考软件;此款软件提供了各方面的课程内容,在线直接上课学习;还有精品名师编写图书,不同半型设计,一对一辅导,尽在瑞达教育!瑞达教育a...
怎么样可以做网络赚钱
1,577.7M
你的修仙之路在哪款手机游戏上面开启了,直接的可以幻侠修仙苹果版,这里你可以带着你的修仙伴侣开始你不一样的征途,心动的话,你可以直接的开始启动吧!幻侠修仙游戏介绍...
兼职女名称
83.8M
本系统是为LED电子显示屏、等离子大屏、电视墙、投影机等设计开发的专用软件。功能强大,操作方便,简单易学、性能稳定、可靠性高。可在WIN98、WIN2000、W...
大富豪游戏能赚钱吗
2025/12/02 11:29
博乐棋牌赚钱
2025/12/04 01:20
无人深空如何快速赚钱
2025/11/27 12:01
兼职工资比全职还高
2025/11/24 11:39
有没有日赚50的兼职
2025/11/30 04:55
红包扫雷群主能赚多少
2025/12/01 01:29
绘本馆赚钱么
2025/11/28 19:27
手机赚钱无需下载
2025/11/29 06:35
炒股一年赚400万
2025/11/30 17:48
哪个网络游戏能赚钱
2025/12/01 14:05
亲朋棋牌游戏大厅
2025/11/17 12:16
股票要怎样做才能赚钱吗
2025/11/28 21:48
小投资生意项目大全
2025/11/22 01:05
可以挣钱的小游戏不用看广告
2025/11/19 23:09
兼职招聘app
2025/11/24 10:13
兼职招聘app
2025/11/24 10:13更新
跑酷足球游戏是一款最新的足球体育类游戏,游戏以足球和跑酷的玩法融合打造,玩家在游戏中将真实体验到左右躲避,攻击、传球、射球等玩法,让玩家享受最好玩的足球游戏!跑...
支持 ( 10 ) 盖楼(回复)
支持 ( 103 ) 盖楼(回复)
支持 ( 41 ) 盖楼(回复)
支持 ( 195 ) 盖楼(回复)
支持 ( 109 ) 盖楼(回复)
支持 ( 28 ) 盖楼(回复)
支持 ( 195 ) 盖楼(回复)
支持 ( 101 ) 盖楼(回复)
支持 ( 151 ) 盖楼(回复)
支持 ( 79 ) 盖楼(回复)
支持 ( 181 ) 盖楼(回复)
支持 ( 119 ) 盖楼(回复)
支持 ( 57 ) 盖楼(回复)
支持 ( 22 ) 盖楼(回复)
支持 ( 121 ) 盖楼(回复)
支持 ( 195 ) 盖楼(回复)
支持 ( 57 ) 盖楼(回复)
支持 ( 174 ) 盖楼(回复)
支持 ( 51 ) 盖楼(回复)
支持 ( 145 ) 盖楼(回复)