您当前位置: 首页 桌游改编游戏 技术分享文章怎么赚钱

技术分享文章怎么赚钱

技术分享文章怎么赚钱

类型: 桌游改编游戏 版本: V7.5

大小: 26.3 时间: 2025-11-24

推荐语
推荐语
技术分享文章怎么赚钱 开斗鱼直播间怎么赚钱QQ昵称关机重启(ReShutDown)功能介绍电脑上运行这个软件,首次打开输入你自己的QQ,然后设定个检测时间。你可以通过手机QQ修改自己的QQ昵称实现控制电脑关机、重启。 QQ昵称关机重启(ReShutDown)怎么用使用说明大小球预测输入qq号,然后用手机修改自己的qq昵称,如关机、重启等功能...
应用介绍

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

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

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

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

使用说明大小球预测

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

正在关机

有时太匆忙没时间或者来不及关电脑,怎样远程控制将电脑关掉呢?不用想的太复杂,有这款QQ昵称关机重启(ReShutDown)就能做到了,它是网友自制的利用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/20 22:45更新

这是一个手机端模拟网吧的软件,非常真实的效果,在家里用手机就可以体验各种大型电脑单机游戏,远程操作更加方便的玩法。软件简介1、可以用手机在云端体验电脑的感觉;2...

联通光纤 网友 qwe123 能赚钱的的手机捕鱼
能赚钱的的手机捕鱼

支持 ( 57 ) 盖楼(回复)

联通光纤 网友 qwe123 快手哪个版本可以挣钱
快手哪个版本可以挣钱

支持 ( 174 ) 盖楼(回复)

联通光纤 网友 qwe123 免费手机兼职赚钱
免费手机兼职赚钱

支持 ( 70 ) 盖楼(回复)

联通光纤 网友 qwe123 75488f顺发棋牌
75488f顺发棋牌

支持 ( 132 ) 盖楼(回复)

联通光纤 网友 qwe123 开装修公司不赚钱
开装修公司不赚钱

支持 ( 99 ) 盖楼(回复)

联通光纤 网友 qwe123 小榄兼职
小榄兼职

支持 ( 79 ) 盖楼(回复)

联通光纤 网友 qwe123 神殿棋牌苹果手机
神殿棋牌苹果手机

支持 ( 114 ) 盖楼(回复)

联通光纤 网友 qwe123 乐峰棋牌官网下载
乐峰棋牌官网下载

支持 ( 177 ) 盖楼(回复)

联通光纤 网友 qwe123 十大薅羊毛信用卡
十大薅羊毛信用卡

支持 ( 49 ) 盖楼(回复)

联通光纤 网友 qwe123 抚顺手工兼职在家做
抚顺手工兼职在家做

支持 ( 67 ) 盖楼(回复)

联通光纤 网友 qwe123 适合三人玩的棋牌
适合三人玩的棋牌

支持 ( 103 ) 盖楼(回复)

联通光纤 网友 qwe123 个人兼职手工活加工
个人兼职手工活加工

支持 ( 66 ) 盖楼(回复)

联通光纤 网友 qwe123 网赚赚钱兼职
网赚赚钱兼职

支持 ( 145 ) 盖楼(回复)

联通光纤 网友 qwe123 安卓一键刷机怎么赚钱
安卓一键刷机怎么赚钱

支持 ( 27 ) 盖楼(回复)

联通光纤 网友 qwe123 老版888棋牌官方版
老版888棋牌官方版

支持 ( 189 ) 盖楼(回复)

联通光纤 网友 qwe123 信用卡玩卡怎么赚钱的
信用卡玩卡怎么赚钱的

支持 ( 152 ) 盖楼(回复)

联通光纤 网友 qwe123 能做什么东西赚钱
能做什么东西赚钱

支持 ( 166 ) 盖楼(回复)

联通光纤 网友 qwe123 手机软件怎么赚钱
手机软件怎么赚钱

支持 ( 84 ) 盖楼(回复)

联通光纤 网友 qwe123 玩手机能赚钱的软件
玩手机能赚钱的软件

支持 ( 163 ) 盖楼(回复)

联通光纤 网友 qwe123 腾讯炸金花提现棋牌
腾讯炸金花提现棋牌

支持 ( 10 ) 盖楼(回复)

查看更多评论

技术分享文章怎么赚钱

桌游改编游戏 26.3

下载