下载此文档

关机代码.doc


文档分类:IT计算机 | 页数:约8页 举报非法文档有奖
1/8
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/8 下载此文档
文档列表 文档介绍
http://hi./xzmhenry/blog/item/://zhidao./question/      2个text      mand      2个timer   其他属性根据自己喜欢再设计PublicaAsInteger,mand1_Click() a= b= Ifa>23Orb>59ThenMsgBox("输入有误,请重新输入") =True ="你要关机的时间是"&a&"时"&b&"分"mand2_Click() EndEndSubPrivateSubForm_Load() ="确定" ="停止" ="时" ="分" ="关机时间为:" ="等待......" ="" ="" =False =True =1000 =1000EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger) IfKeyAscii=8ThenExitSub IfKeyAscii>57OrKeyAscii<48ThenKeyAscii=0EndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger) IfKeyAscii=8ThenExitSub IfKeyAscii>57OrKeyAscii<48ThenKeyAscii=0EndSubPrivateSubTimer1_Timer() <= =-200 IfHour(Time)=aAndMinute(Time)=bThen =False Shell("c:\windows\system32\") EndIfEndSubPrivateSubTimer2_Timer() Print"现在时间是:"&TimeEndSub关于本程序问题:网友评论:1网友:天涯2008-04-0417:17这个代码怎么不能关机啊!我的邮箱请回复:millionhome@ 2xzmhenry2008-04-1517:36你再仔细查一下编码看应该没问题的我有同学现在也在用这个饿你看下是不是Shell("c:\windows\system32\")你的系统的盘符看下是不是C盘看 VB编写定时关机2007年06月15日星期五12:50'其中声明API放在模块中了,有需要的可以留言给我,mand1_Click()     =""OrFenZhon

关机代码 来自淘豆网www.taodocs.com转载请标明出处.

相关文档 更多>>
非法内容举报中心
文档信息
  • 页数8
  • 收藏数0 收藏
  • 顶次数0
  • 上传人wxc6688
  • 文件大小67 KB
  • 时间2020-02-27