• 企业400电话
  • 网络优化推广
  • AI电话机器人
  • 呼叫中心
  • 全 部 栏 目

    网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    使用vbs脚本实现自动打字祝福与搞笑实现代码
    POST TIME:2021-10-18 11:33

    概述

    听说抖音上流行一种用代码做程序表白的东西,,,,
    当然我也不是要表白,,,,
    但是好像蛮有意思的,,,,
    于是,又学了一下vbs脚本,做了几个很不错的祝福脚本,不懂代码的可以直接戳传送门下载,但是想自己改内容的话,下面有讲

    效果示范

    iframe height=498 width=510 src='http://player.youku.com/embed/XMzk4Nzk4NDE5Ng==' frameborder=0 'allowfullscreen'>

    貌似不能看,只能点进去看,好吧,,,

    思路

    目前这个脚本分成了4个板块的功能,想自己改的可以通过下面的讲解自己改内容,或者启动我原来没有启动的功能
    首先,把程序下载以后,拖到桌面上,右键用记事本打开,对!用记事本打开,vbs脚本不需要花里胡哨的编辑器云云,直接暴力记事本打开,查看源码

    1)开篇交互对话框

     

    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

    Dim关键字用来声明变量,当然在vbs里变量不声明也可以用,但是退出那个块以后变量就释放掉了,所有最好还是前面声明一下,之后的程序应该比较好看懂,有输入对话框,显示对话框,提示输入,inputbox的输入对话框第2个参数省略了,第3个参数是默认的输入框里的内容,这里面的素有双引号内的东西都可以自己改,在选择是否变魔术那里,选5次否,脚本退出

    2)打开记事本,念打油诗

    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 

    以及f函数的实现

    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

    下载了vbs脚本以后就会发现,这一部分其实并没与启动,因为虽然这部分代码有,但是关键部分都被我注释掉了,如你所见'在vbs脚本中就是注释(大号字体标注),也就是英文的单引号,如果想启动,就把这一部分的注释全部去掉,这部分的原理就是把汉字数组的每个字依次传到剪贴板,然后偶模拟键盘Ctrl+V,由于频繁操作剪贴板,这部分执行可能会导致缺字打印(电脑缓不过来),之后进行模拟键盘的删除操作,把写好的打油诗删除,准备下面的英语正文。

    3)接着上面的记事本,写英文

    这是整个脚本的重点,写出像视频中的效果那样,一个字母一个字母敲的效果,先上一段代码: 

    AutoTime=75
    say(AutoTime)
    
    Function say(AutoTime)
    End Function

    什么?就这么点吗?当然不是!!!这部分的代码有上千上,内容就在function中间,当然你也看出这是个函数了,那我们的内容也是模拟键盘输入,所以,你觉得怎么搞这部分呢?
    用数组存字符串,然后模拟键盘输出吗?
    试过很多次了,都失败了,貌似只能一个一个敲
    然后,写一个字母的代码量,,,,大概是40个字母
    当然,不可能真的一个字一个字敲啊,为什么不写一个程序出来,专门写vb的模拟键盘输入代码呢?

    C++实现英文转vbs模拟键盘输入代码

    #includeiostream>
    #includefstream>
    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  endlendl;
        }
        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;
    }

    两个文件,in.txt,你要显示的英文,可以空行,可以逗号问好,但是,必须用英文输入法

    对,就像这样,对吧,很容易,然后就会生成一个1k多行的out.txt
    把里面内容全选复制,然后放在function say 的中间,这一步就完成了
    AutoTime是每个字的间隔,可以自己定义,75效果就蛮好的

    4)祝福网页

    又是一个在脚本里没出现的功能,

    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

    如果你有博客,或者你有自己写的网页,甚至你自己的qq空间也行,把链接复制,然后oShellLink.TargetPath = "https://www.cnblogs.com/Titordong/"里面的后面引号里替换,就ok
    效果就是可以再桌面建立一个快捷方式链接,然后自动打开你指向的这个链接,当然这个在程序里要调用的话,要在say(AutoTime)后面加一行link()

    后记

    vbs脚本功能很强(好像之前说过),切记每行只能有一个语句哦!而且,用英文输入法写,包括代码,也包括英文的祝福搞笑,至于为什么不用中文,,,键盘上也没有中文按键啊~

    上一篇:VBS一键配置VOIP脚本代码
    下一篇:VBS批量重命名文件并且操作前备份原有文件
  • 相关文章
  • 

    关于我们 | 付款方式 | 荣誉资质 | 业务提交 | 代理合作


    © 2016-2020 巨人网络通讯

    时间:9:00-21:00 (节假日不休)

    地址:江苏信息产业基地11号楼四层

    《增值电信业务经营许可证》 苏B2-20120278

    X

    截屏,微信识别二维码

    微信号:veteran88

    (点击微信号复制,添加好友)

     打开微信