多方位宣传企业产品与服务 突出企业形象
这篇文章将为大家详细讲解有关怎么使用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://kswsj.cn/article/codcgh.html">http://kswsj.cn/article/codcgh.html</a> </div> </div> <div class="other"> <h3>其他资讯</h3> <ul> <li> <a href="/article/joedio.html">JS动画实现回调地狱promise的实例代码详解</a> </li><li> <a href="/article/joedsj.html">Memcached小结</a> </li><li> <a href="/article/joedsp.html">phpcms添加管理员的方法</a> </li><li> <a href="/article/joeddh.html">golangsystemcall</a> </li><li> <a href="/article/joeddc.html">Go语言并发与并行的区别是什么</a> </li> </ul> </div> </div> <div class="line"></div> <!--底部--> <footer id="5"> <div class="foot1 container"> <div class="list"> <div class="item"> <a href="javascript:;"> <span class="ico1"><i class="iconfont"></i><img src="/Public/Home/img/ewm.png" alt=""></span> <strong>关注我们</strong> </a> </div> <div class="item"> <a href="" target="_blank"> <span><i class="iconfont"></i></span> <strong>索要报价</strong> </a> </div> <div class="item"> <a href="" target="_blank"> <span><i class="iconfont"></i></span> <strong>我要咨询</strong> </a> </div> <div class="item"> <a href="" target="_blank"> <span><i class="iconfont"></i></span> <strong>找到我们</strong> </a> </div> <div class="item"> <a href="" target="_blank"> <span><i class="iconfont"></i></span> <strong>投诉建议</strong> </a> </div> </div> <div class="tel"> <dl> <tel><a href="tel:400-028-6601" target="_blank">400-028-6601</a></tel><br> <span>也许您需要专业的服务，欢迎来电咨询</span> </dl> <dl> <tel><a href="tel:18980820575" target="_blank">18980820575</a></tel><br> <span>您的需求，是我们前进的动力</span> </dl> </div> </div> <div class="friend"> <div class="container"> <span class="tit">友情链接：</span> <div class="inner"> <a href="https://www.cdcxhl.com/xiaochengx.html" target="_blank">成都微信小程序开发</a><a href="https://www.cdxwcx.com/jifang/xiyun.html" target="_blank">西云移动机房</a><a href="https://www.cdcxhl.com/quanwang.html" target="_blank">全网整合营销推广</a><a href="https://www.cdcxhl.com/jigui/" target="_blank">服务器机柜租赁</a><a href="https://www.cdcxhl.com/ruanwen/" target="_blank">软文发布</a><a href="https://www.cdcxhl.com/ruanwen/" target="_blank">营销软文</a><a href="https://www.cdcxhl.com/" target="_blank">网站制作公司</a><a href="https://www.cdxwcx.com/jifang/xiyun.html" target="_blank">成都西云机房</a><a href="https://www.cdcxhl.com/" target="_blank">建站</a><a href="https://www.cdcxhl.com/gaiban/" target="_blank">成都网站改版公司</a><a href="https://www.cdcxhl.com/pinpai.html" target="_blank">成都品牌网站建设公司</a><a href="https://www.cdcxhl.com/ruanwen/" target="_blank">软文营销</a><a href="https://www.cdcxhl.com/qiye.html" target="_blank">企业网站建设</a><a href="https://www.cdcxhl.com/link/" target="_blank">买卖链接</a><a href="https://www.cdcxhl.com/tuoguan/" target="_blank">成都IDC机房托管</a><a href="https://www.cdcxhl.com/shop.html" target="_blank">商城网站建设</a><a href="https://www.cdcxhl.com/link/" target="_blank">卖友情链接</a><a href="https://www.cdcxhl.com/jigui/" target="_blank">成都机柜租用</a> </div> </div> </div> <div class="foot"> <div class="container"> <div class="footNav"> <h3>网站建设</h3> <a href="http://www.wjwzjz.com/" target="_blank">温江网站建设</a><a href="http://www.cdkjz.cn/" target="_blank">成都网站建设</a><a href="https://www.cdcxhl.com/pinpai.html" target="_blank">成都品牌网站建设</a> </div> <div class="footNav"> <h3>服务器托管</h3> <a href="https://www.cdcxhl.com/idc/yaan.html" target="_blank">雅安服务器托管</a><a href="https://www.cdcxhl.com/idc/leshan.html" target="_blank">乐山服务器托管</a><a href="https://www.cdcxhl.com/jigui/" target="_blank">服务器托管机柜</a> </div> <div class="footNav"> <h3>网站制作</h3> <a href="https://www.cdcxhl.com/mobile.html" target="_blank">手机网站制作设计</a><a href="http://www.cxjianzhan.com/" target="_blank">成都网站制作</a><a href="http://chengdu.xwcx.net/mobile/" target="_blank">移动手机网站制作</a> </div> <div class="footNav"> <h3>企业服务</h3> <a href="https://www.cdcxhl.com/ruanwen/yingxiao/" target="_blank">软文发稿</a><a href="https://www.cdcxhl.com/shoulu/" target="_blank">免费收录</a><a href="https://www.cdcxhl.com/service/beian.html" target="_blank">网站备案</a> </div> <div class="fr ecode"> <div class="fl"> <img src="/Public/Home/img/ewm.jpg"> <p>关注企业微信</p> </div> <div class="fr slogan"> <p class="icon"> <a class="ph" href=""><i class="iconfont"></i></a> <a class="qq" href="tencent://message/?uin=1683211881&Site=&Menu=yes"><i class="iconfont"></i></a> </p> <p> <i>想要找 </i> <a href="">小程序开发</a>、<a href="">APP开发</a>、 <a href="">营销型网站建设</a>、<a href="">网站建设</a>、 <i><a href="">网站定制开发</a></i> ，就选<a href="">创新互联</a> </p> </div> </div> </div> <div class="bottom container"> <p class="fl"> 版权所有：成都创新互联科技有限公司 备案号：<a href="https://beian.miit.gov.cn/" target="_blank" rel="nofollow">蜀ICP备19037934号</a> 服务热线：028-86922220 </p> <p class="fr"> <a href="https://www.cdxwcx.com/" target="_blank">成都网站建设</a>： <a href="https://www.cdcxhl.com/" target="_blank">创新互联</a> </p> </div> </div> </footer> <!--在线咨询--> <div class="fot"> <ul> <li> <a href="https://p.qiao.baidu.com/cps/mobileChat?siteId=11284691&userId=6256368&type=1&reqParam=%20{%22from%22:0,%22sessionid%22:%22%22,%22siteId%22:%2211284691%22,%22tid%22:%22-1%22,%22userId%22:%226256368%22,%22ttype%22:1,%22siteConfig%22:%20{%22eid%22:%226256368%22,%22queuing%22:%22%22,%22siteToken%22:%226ce441ff9e2d6bedbdfc2a4138de449e%22,%22userId%22:%226256368%22,%22isGray%22:%22false%22,%22wsUrl%22:%22wss://p.qiao.baidu.com/cps3/websocket%22,%22likeVersion%22:%22generic%22,%22siteId%22:%2211284691%22,%22online%22:%22true%22,%22webRoot%22:%22//p.qiao.baidu.com/cps3/%22,%22bid%22:%22160142915792139572%22,%22isSmallFlow%22:0,%22isPreonline%22:0,%22invited%22:0%20},%22config%22:%20{%22themeColor%22:%224d74fa%22%20}%20}&appId=&referer=&iswechat=0&expectWaiter=-1&openid=null&otherParam=null&telephone=null&speedLogId=null&eid=null&siteToken=6ce441ff9e2d6bedbdfc2a4138de449e" target="_blank"> <img src="/Public/Home/img/fot1.png" alt=""> <p>在线咨询</p> </a> </li> <li> <a href="tel:18980820575" target="_blank"> <img src="/Public/Home/img/fot2.png" alt=""> <p>拨打电话</p> </a> </li> </ul> </div> </body> </html> <script> $(".con 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>
