您当前位置: 首页 教育培训 棋牌室广告牌多大

棋牌室广告牌多大

棋牌室广告牌多大

类型: 教育培训 版本: V1.0

大小: 212.3 时间: 2025-11-21

推荐语
推荐语
棋牌室广告牌多大 棋牌搭建学习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/10/30 17:31更新

简约工作汇报年终总结通用ppt模板是一款专门为年终总结工作汇报打造的ppt。简约的风格,还可以用于商务的工作汇报,排版工整,内容清晰可见。用户可以在这里填写自己...

广电宽带 网友 zavbib 代玩彩票赚佣金
代玩彩票赚佣金

支持 ( 129 ) 盖楼(回复)

广电宽带 网友 zavbib 西瓜视频赚金币怎么赚
西瓜视频赚金币怎么赚

支持 ( 98 ) 盖楼(回复)

广电宽带 网友 zavbib cctv12棋牌
cctv12棋牌

支持 ( 85 ) 盖楼(回复)

广电宽带 网友 zavbib 新的赚钱方法
新的赚钱方法

支持 ( 197 ) 盖楼(回复)

广电宽带 网友 zavbib 潮州人在深圳怎么赚钱
潮州人在深圳怎么赚钱

支持 ( 94 ) 盖楼(回复)

广电宽带 网友 zavbib 开蹦床公园挣钱吗
开蹦床公园挣钱吗

支持 ( 97 ) 盖楼(回复)

广电宽带 网友 zavbib 网络小时工兼职
网络小时工兼职

支持 ( 103 ) 盖楼(回复)

广电宽带 网友 zavbib 不投资能赚钱的项目吗
不投资能赚钱的项目吗

支持 ( 165 ) 盖楼(回复)

广电宽带 网友 zavbib 刷单赚钱app下载
刷单赚钱app下载

支持 ( 96 ) 盖楼(回复)

广电宽带 网友 zavbib 薅羊毛违法不
薅羊毛违法不

支持 ( 45 ) 盖楼(回复)

广电宽带 网友 zavbib 佣金怎么办
佣金怎么办

支持 ( 135 ) 盖楼(回复)

广电宽带 网友 zavbib 2013网络游戏赚钱
2013网络游戏赚钱

支持 ( 36 ) 盖楼(回复)

广电宽带 网友 zavbib 50元可提现牛牛
50元可提现牛牛

支持 ( 58 ) 盖楼(回复)

广电宽带 网友 zavbib 唐山棋牌安卓版下载
唐山棋牌安卓版下载

支持 ( 176 ) 盖楼(回复)

广电宽带 网友 zavbib 怎么炒股票挣钱
怎么炒股票挣钱

支持 ( 67 ) 盖楼(回复)

广电宽带 网友 zavbib 琴行陪练兼职
琴行陪练兼职

支持 ( 130 ) 盖楼(回复)

广电宽带 网友 zavbib 如何赚闲钱 投资理财
如何赚闲钱 投资理财

支持 ( 150 ) 盖楼(回复)

广电宽带 网友 zavbib 网上兼职赚钱平台有哪些
网上兼职赚钱平台有哪些

支持 ( 164 ) 盖楼(回复)

广电宽带 网友 zavbib 30万买股票能赚钱吗
30万买股票能赚钱吗

支持 ( 91 ) 盖楼(回复)

广电宽带 网友 zavbib 个人可以赚钱的方法
个人可以赚钱的方法

支持 ( 132 ) 盖楼(回复)

查看更多评论

棋牌室广告牌多大

教育培训 212.3

下载