![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vbs
jingyiru2
这个作者很懒,什么都没留下…
展开
-
密码认证程序.vbs
dim a,s s=0 const pass=“xxxx” ’ 自己填 do a=inputbox(“请输入密码”) if a=pass then msgbox"认证成功" exit do else if s=10 then msgbox"已经达到认证上限,认证程序关闭" exit do else s=s+1 msgbox"认证出错,请检查密码" end if end if loop ...原创 2020-06-30 19:25:32 · 654 阅读 · 0 评论 -
时间判断.vbs
Digital=time hours=Hour(Digital) minutes=Minute(Digital) seconds=Second(Digital) if (hours<6) then dn=“凌辰了,还没睡啊?” end if if (hours>=6) then dn=“早上好!” end if if (hours>12) then dn=“下午好!” end if if (hours>18) then dn=“晚上好!” end if if (hours>22原创 2020-06-30 19:19:05 · 916 阅读 · 0 评论 -
查天气vbs
vbs 查天气 ’ 调用ie,并打开百度 set ie = WScript.CreateObject(“InternetExplorer.Application”) With ie .Navigate “http://www.baidu.com/” .Visible = True End With ’ 等页面载入完整再进行下一步 Do Wscript.Sleep 2000 Loop Until ie.readyState = 4 ’ 查询天气 Set kw = ie.Document.getElem原创 2020-06-20 08:59:21 · 206 阅读 · 0 评论