这篇文章将为大家详细讲解有关怎么使用vbs脚本实现自动打字祝福与搞笑，小编觉得挺实用的，因此分享给大家做个参考，希望大家阅读完这篇文章后可以有所收获。
效果示范
</p><br/><p>貌似不能看，只能点进去看，好吧，，，</p><p><strong>思路</strong></p><p>目前这个脚本分成了4个板块的功能，想自己改的可以通过下面的讲解自己改内容，或者启动我原来没有启动的功能<br/>首先，把程序下载以后，拖到桌面上，右键用记事本打开，对！用记事本打开，vbs脚本不需要花里胡哨的编辑器云云，直接暴力记事本打开，查看源码</p><p><strong>1)开篇交互对话框</strong></p><pre>Dim a,cut,b,Str,flag flag=false cut=1 a=Inputbox("你相信这世界上存在圣诞老人吗？",,"相信") MsgBox "..." MsgBox "其实我就是圣诞老人" MsgBox "虽然我没有礼物给你" MsgBox "呜呜，你是不是生气啦" MsgBox "那我给你变个魔术好不好" a=Inputbox("要不要变魔术?",,"要") If a<>"要" Then MsgBox "呜呜，真的不给机会吗？" Do b=InputBox(Str+"试一下吧",,"不") Str=Str&"请" If b<>"不"Then flag=true Exit Do Else cut=cut+1 End If If cut=5 Then MsgBox "那好吧，再见！" Exit Do End If Loop Else flag=true End If</pre><p>Dim关键字用来声明变量，当然在vbs里变量不声明也可以用，但是退出那个块以后变量就释放掉了，所有好还是前面声明一下，之后的程序应该比较好看懂，有输入对话框，显示对话框，提示输入，inputbox的输入对话框第2个参数省略了，第3个参数是默认的输入框里的内容，这里面的素有双引号内的东西都可以自己改，在选择是否变魔术那里，选5次否，脚本退出</p><p><strong>2)打开记事本，念打油诗</strong></p><pre>If flag=true Then Set WS=WScript.CreateObject("WScript.Shell") WS.run("notepad"),3 WScript.Sleep 500 WS.AppActivate("notepad") WS.SendKeys "+" arr=Array("听","说","你","被","拐","卖","真","的","把","我","吓","坏","你","虽","从","小","痴","呆","却","对","社","会","无","害","谁","人","如","此","大","胆","竟","敢","拿","你","去","卖","我","真","替","他","担","心","卖","得","掉","才","怪","") f(arr) WScript.Sleep 3000 For i=0 To 90 WScript.Sleep 30 WS.SendKeys "{BS}" Next arr=Array("好","啦","好","啦","不","逗","你","了","") Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&str1&""")(Window.Close)" WS.Run(Clipboard) For i=0 To 8 WScript.Sleep 200 Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&arr(i)&""")(Window.Close)" WS.Run(Clipboard) WS.SendKeys"^v" Next WScript.Sleep 3000 For i=0 To 90 WScript.Sleep 30 WS.SendKeys "{BS}" Next</pre><p>以及f函数的实现</p><pre>Function f(a) Dim str1 Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&str1&""")(Window.Close)" WS.Run(Clipboard) For i=0 To 47 WScript.Sleep 200 Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&a(i)&""")(Window.Close)" WS.Run(Clipboard) WS.SendKeys"^v" If i>0 Then If(i Mod 6=0) Then WScript.Sleep 400 WS.SendKeys "{ENTER}" End If End IF Next End Function</pre><p>下载了vbs脚本以后就会发现，这一部分其实并没与启动，因为虽然这部分代码有，但是关键部分都被我注释掉了，如你所见'在vbs脚本中就是注释(大号字体标注），也就是英文的单引号，如果想启动，就把这一部分的注释全部去掉，这部分的原理就是把汉字数组的每个字依次传到剪贴板，然后偶模拟键盘Ctrl+V,由于频繁操作剪贴板，这部分执行可能会导致缺字打印（电脑缓不过来），之后进行模拟键盘的删除操作，把写好的打油诗删除，准备下面的英语正文。</p><p><strong>3）接着上面的记事本，写英文</strong></p><p>这是整个脚本的重点，写出像视频中的效果那样，一个字母一个字母敲的效果，先上一段代码：</p><pre>AutoTime=75 say(AutoTime) Function say(AutoTime) End Function</pre><p>什么？就这么点吗？当然不是！！！这部分的代码有上千上，内容就在function中间，当然你也看出这是个函数了，那我们的内容也是模拟键盘输入，所以，你觉得怎么搞这部分呢？<br/>用数组存字符串，然后模拟键盘输出吗？<br/>试过很多次了，都失败了，貌似只能一个一个敲<br/>然后，写一个字母的代码量，，，，大概是40个字母<br/>当然，不可能真的一个字一个字敲啊，为什么不写一个程序出来，专门写vb的模拟键盘输入代码呢？</p><p><strong>C++实现英文转vbs模拟键盘输入代码</strong></p><pre>#include<iostream> #include<fstream> using namespace std; int main() { ifstream ifile; ifile.open("D:\\in.txt"); ofstream ofile; ofile.open("D:\\out.txt"); char str[100]; while (ifile.getline(str, 100)) { if (str[0] == '\0') { ofile << "WS.SendKeys \"{ENTER}\"" << endl << endl<<endl; } else { for (int i(0); i < strlen(str); i++) { ofile << "WScript.Sleep AutoTime" << endl; ofile << "WS.SendKeys \"" << str[i] << "\"" << endl; } ofile << "WScript.Sleep 1000" << endl; ofile << "WS.SendKeys \"{ENTER}\"" << endl << endl << endl; } } ofile.close(); ifile.close(); return 0; }</pre><p>两个文件，in.txt，你要显示的英文，可以空行，可以逗号问好，但是，必须用英文输入法</p><p>对，就像这样，对吧，很容易，然后就会生成一个1k多行的out.txt<br/>把里面内容全选复制，然后放在function say 的中间，这一步就完成了<br/>AutoTime是每个字的间隔，可以自己定义，75效果就蛮好的</p><p><strong>4）祝福网页</strong></p><p>又是一个在脚本里没出现的功能，</p><pre>Function link() Set Seven = WScript.CreateObject("WScript.Shell") strDesktop = Seven.SpecialFolders("Desktop") set oShellLink = Seven.CreateShortcut(strDesktop & "\Titordong.url") oShellLink.TargetPath = "https://www.cnblogs.com/Titordong/" oShellLink.Save Set oShellLink=Nothing strDesktop = Seven.SpecialFolders(4) mypath=strDesktop&"\Titordong.url" Seven.run mypath End Function</pre><p>如果你有博客，或者你有自己写的网页，甚至你自己的qq空间也行，把链接复制，然后oShellLink.TargetPath = "https://www.cnblogs.com/Titordong/"里面的后面引号里替换，就ok<br/>效果就是可以再桌面建立一个快捷方式链接，然后自动打开你指向的这个链接，当然这个在程序里要调用的话，要在say（AutoTime）后面加一行link()</p><p>关于“怎么使用vbs脚本实现自动打字祝福与搞笑”这篇文章就分享到这里了，希望以上内容可以对大家有一定的帮助，使各位可以学到更多知识，如果觉得文章不错，请把它分享出去让更多的人看到。</p> <br> 本文题目：怎么使用vbs脚本实现自动打字祝福与搞笑-创新互联 <br> 标题网址：<a href="http://kswjz.com/article/codcgh.html">http://kswjz.com/article/codcgh.html</a> </div> <div class="view-qrocde cl"> <div class="m z"><img src="/Public/Home/images/ew.jpg"/></div> <div class="text"> <h6>扫二维码与项目经理沟通</h6> <p>我们在微信上24小时期待你的声音</p> <p>解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流</p> </div> </div> <div class="othernews cl"> <h3>其他资讯</h3> <ul> <li><a href="/article/gjcjcd.html">怎么学习Python语言</a></li><li><a href="/article/gjcjpc.html">原生AVCapture怎么在iOS中使用</a></li><li><a href="/article/gjcjpg.html">NodeJS如何使用云服务器存储上传文件</a></li><li><a href="/article/gjcjgi.html">Laravel6.0版本的新特性有哪些</a></li><li><a href="/article/gjcjpj.html">web开发中文件上传的实现方式有哪些</a></li> </ul> </div> </div> </div> <div class="sidebar"> <div class="tuijian"> <a href="#"> <h2 class="cl"><span>行业动态</span></h2> <h3>企业网站建设的重要性！</h3> <p>现在虽然是移动互联网时代，但企业网站依然重要，包含PC站点，移动站。可以说企业网站关系企业的未来发展和前途，尤其对中小企业更是如此，一些中小企业老板，对自己的名片很在乎，因为这是个门面。...</p> </a> </div> <div class="ser sidesub"> <h2>服务项目</h2> <ul class="ebox"> <li class="sub sub-1"> <div> <h3>网站建设</h3> <p></p> <a class="btn" href="/serve/website/">查看详情</a> </div> </li> <li class="sub sub-1"> <div> <h3>移动端/APP</h3> <p></p> <a class="btn" href="/serve/moblie/">查看详情</a> </div> </li> <li class="sub sub-1"> <div> <h3>微信/小程序</h3> <p></p> <a class="btn" href="/serve/small/">查看详情</a> </div> </li> <li class="sub sub-1"> <div> <h3>技术支持</h3> <p></p> <a class="btn" href="/serve/tech/">查看详情</a> </div> </li> <li class="sub sub-1"> <div> <h3>其它服务</h3> <p></p> <a class="btn" href="/serve/othe/">查看详情</a> </div> </li> <li class="sub sub-5"> <div> <h3>更多服务项目</h3> <p> <a>用我们的专业和诚信赢得您的信赖，从PC到移动互联网均有您想要的服务！</a></p> <a class="btn" href="/serve/">获取更多</a> </div> </li> </ul> </div> <div class="contact" id="fix"> <h2 class="cl"> <span>联系吧</span> <a href="https://map.baidu.com/" class="ditu" rel="nofollow" target="_blank">在百度地图上找到我们</a> </h2> <h3>电话：13518219792</h3> <p>如遇占线或暂未接听请拨：136xxx98888</p> <div class="qq"> <a href="//wpa.qq.com/msgrd?v=3&uin=244261566&site=qq&menu=yes" rel="nofollow" target="_blank">业务咨询</a> <a href="//wpa.qq.com/msgrd?v=3&uin=244261566&site=qq&menu=yes" rel="nofollow" target="_blank">技术咨询</a> <a href="//wpa.qq.com/msgrd?v=3&uin=244261566&site=qq&menu=yes" rel="nofollow" target="_blank">售后服务</a> </div> </div> </div> <script> //固定滚动 (function () { var oDiv = document.getElementById("fix"); var H = 120, iE6; var Y = oDiv; while (Y) { H += Y.offsetTop; Y = Y.offsetParent }; iE6 = window.ActiveXObject && !window.XMLHttpRequest; if (!iE6) { window.onscroll = function () { var s = document.body.scrollTop || document.documentElement.scrollTop; if (s > H) { oDiv.className = "contact fixed"; if (iE6) { oDiv.style.top = (s - H) + "px"; } } else { oDiv.className = "contact "; } }; } })(); </script> </div> <div class="footer"> <div class="wp"> <div class="wpss cl"> <dl class="about"> <dt>网站设计</dt> <dd><a href="http://www.dzwzjz.com/" target="_blank" title="达州网站设计">达州网站设计</a></dd><dd><a href="http://chengdu.cdxwcx.cn/wangzhan/" target="_blank" title="企业网站设计">企业网站设计</a></dd><dd><a href="http://www.cdxwcx.cn/sheji/" target="_blank" title="成都网站设计">成都网站设计</a></dd><dd><a href="http://www.kswcd.cn/" target="_blank" title="成都网站设计">成都网站设计</a></dd> </dl> <dl class="about"> <dt>网站制作</dt> <dd><a href="http://www.cdxtjz.com/" target="_blank" title="网站制作">网站制作</a></dd><dd><a href="http://www.cxjianzhan.com/mobile/" target="_blank" title="手机网站制作">手机网站制作</a></dd><dd><a href="http://chengdu.xwcx.net/mobile/" target="_blank" title="移动手机网站制作">移动手机网站制作</a></dd><dd><a href="http://m.cdcxhl.cn/dingzhi/" target="_blank" title="定制网站制作">定制网站制作</a></dd> </dl> <dl class="contact"> <dt>联系我们</dt> <dd>电话：13518219792</dd> <dd>邮箱：631063699@qq.com</dd> <dd>地址：成都青羊区锦天国际1002号</dd> <dd>网址：www.kswjz.com</dd> </dl> <dl class="about" style="margin-left:50px;width:235px;"> <dt>网站建设</dt> <dd><a href="http://chengdu.cdcxhl.com/" target="_blank" title="营销型网站建设">营销型网站建设</a></dd><dd><a href="http://www.cqcxhl.com/service/foreigntrade.html" target="_blank" title="重庆外贸网站建设">重庆外贸网站建设</a></dd><dd><a href="https://www.cdxwcx.com/city/wenjiang/" target="_blank" title="温江网站建设">温江网站建设</a></dd><dd><a href="http://www.kswjz.cn/" target="_blank" title="成都网站建设">成都网站建设</a></dd> </dl> <dl class="flow"> <dt></dt> <div class="ma cl"> <div class="m"> <img src="/Public/Home/images/ew.jpg" /> <p>微信二维码</p> </div> </div> </dl> </div> </div> <div class="footer-link wp"> <ul class="wpss cl"> <li class="fisrt">友情链接</li> <li><a href="https://www.cdxwcx.com/cloud/" title="云服务器" target="_blank">云服务器</a></li><li><a href="http://www.cdtuopan.cn/" title="成都木托盘" target="_blank">成都木托盘</a></li><li><a href="http://www.ty2auto.com/" title="添翼二手车鉴定" target="_blank">添翼二手车鉴定</a></li><li><a href="http://www.cxjianzhan.cn/" title="网站建设开发" target="_blank">网站建设开发</a></li><li><a href="http://seo.cdkjz.cn/tuiguang/" title="成都网站推广" target="_blank">成都网站推广</a></li><li><a href="http://www.scdazhu.cn/" title="大足网站建设" target="_blank">大足网站建设</a></li><li><a href="http://www.cxjianzhan.com/custom/" title="建站定制开发" target="_blank">建站定制开发</a></li><li><a href="https://www.cdxwcx.com/jifang/wenjiang.html" title="成都温江机房" target="_blank">成都温江机房</a></li><li><a href="http://www.cdhuace.com/led.html" title="LED显示屏厂家" target="_blank">LED显示屏厂家</a></li><li><a href="http://www.emts.com.cn/about/" title="德阳东方电机技改服务有限公司" target="_blank">德阳东方电机技改服务有限公司</a></li> </ul> </div> </div> <div class="bot-footer"> <div class="wp"> <p class="wpss"> <em>Copyright © 2002-2023 www.kswjz.com 快上网建站品牌 QQ：244261566 版权所有</em> <em>备案号：<a href="http://beian.miit.gov.cn/" rel="external nofollow">蜀ICP备19037934号</a></em> </p> <p class="wpss" style="line-height:30px !important;"> </p> </div> </div> <div class="footer-kefu"> <ul> <li class="qq"><a href="https://wpa.qq.com/msgrd?v=3&uin=244261566&site=qq&menu=yes"><em></em>在线咨询</a> </li> <li class="tel"><a href="tel:13518219792" target="_blank"><em></em>13518219792</a></li> <li class="wx"> <em></em> <div class="code"> <img src="/Public/Home/images/ew.jpg" /> <p>微信二维码</p> </div> </li> <li class="m"> <em></em> <div class="code"> <img src="/Public/Home/images/ew.jpg" /> <p>移动版官网</p> </div> </li> <li class="top"><em></em></li> </ul> </div> <script src="/Public/Home/js/all.js"></script> </body> </html> <script> $(".cont img").each(function(){ var src = $(this).attr("src"); //获取图片地址 var str=new RegExp("http"); var result=str.test(src); if(result==false){ var url = "https://www.cdcxhl.com"+src; //绝对路径 $(this).attr("src",url); } }); window.onload=function(){ document.oncontextmenu=function(){ return false; } } </script>
