vbs脚本实现搞笑代码vbs实现自动打字祝福(耗子尾汁)
系列文章分类
C#专栏、VBS专栏、JAVA 专栏、IDEA 专栏
vbs脚本实现搞笑代码&vbs实现自动打字祝福
- 前言
- 一、vbs淦对话框
- 二、vbs淦打油诗
- 三、vbs淦函数
- 四、vbs淦英文
- 五、vbs淦C+实现模拟键盘功能
- 六、六六大顺祝福
- 总结
前言
年轻人 不讲武德
一、vbs淦对话框
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=trueExit Do Else cut=cut+1End If If cut=5 Then MsgBox "那好吧,再见!"Exit Do End IfLoop
Else flag=true
End If
二、vbs淦打油诗
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 90WScript.Sleep 30WS.SendKeys "{BS}"
Next
arr=Array("好","啦","好","啦","不","逗","你","了","")
Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&str1&""")(Window.Close)"
WS.Run(Clipboard)For i=0 To 8WScript.Sleep 200Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&arr(i)&""")(Window.Close)"WS.Run(Clipboard)WS.SendKeys"^v"Next
WScript.Sleep 3000
For i=0 To 90WScript.Sleep 30WS.SendKeys "{BS}"
Next
三、vbs淦函数
Function f(a)Dim str1Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&str1&""")(Window.Close)"WS.Run(Clipboard)For i=0 To 47WScript.Sleep 200Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&a(i)&""")(Window.Close)"WS.Run(Clipboard)WS.SendKeys"^v"If i>0 ThenIf(i Mod 6=0) ThenWScript.Sleep 400WS.SendKeys "{ENTER}"End IfEnd IFNext
End Function
四、vbs淦英文
AutoTime=75
say(AutoTime)Function say(AutoTime)
End Function
五、vbs淦C+实现模拟键盘功能
#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;
}
六、六六大顺祝福
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
总结
1、上面的代码注意不要用中文!!! 2、可以复制,vbs脚本很强大,使用需谨慎!!!
vbs脚本实现搞笑代码vbs实现自动打字祝福(耗子尾汁)相关推荐
- 这段代码不讲武德,劝你耗子尾汁
来源:公众号[鱼鹰谈单片机] 作者:鱼鹰Osprey ID :emOsprey 动态数组??? 不知道你是否听说过 C99 有一个动态数组的特性,也就是说,数组大小可以根据需要动态的变化. 我们都 ...
- 希望PAT耗子尾汁:1014 福尔摩斯的约会 (20分)——22行代码AC
立志用更少的代码做更高效的表达 Pat乙级最优化代码+题解+分析汇总-->传送门 大侦探福尔摩斯接到一张奇怪的字条:我们约会吧! 3485djDkxh4hhGE 2984akDfkkkkggEd ...
- VBS脚本常用经典代码收集
在网上查找资料的时候发现好多经典的vbs代码,收集起来也为了以后学习. VBS脚本用途很多: 1. 计算 2. 处理文件和文件夹 3. 管理Windows 4. 处理Word, Excel, Powe ...
- Linux上类似vbs脚本,VBS脚本常用经典代码收集
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 在网上查找资料的时候发现好多经典的vbs代码,收集起来也为了以后学习. VBS播放音乐 Dim wmp Set wmp = CreateObject(&q ...
- 新同事不讲“码”德,这并发代码写得太野了,请耗子尾汁~
这份笔记太赞了!!!里面代码太野了... 先看这几个大厂招聘需求... 这份笔记足以支撑你面试过程中所有的「高并发编程」问题!!! 笔记介绍: 该笔记集合了「JUC同步锁.CAS.AQS.门闩/篱笆. ...
- VBS脚本病毒总结与分析
赞赏码 & 联系方式 & 个人闲话 这篇文章其实是我的结课论文,整个病毒分析的课上完感觉就对VBS病毒有点兴趣,期末也就写这个当大作业了,PE病毒实在烧脑只能说声打扰了.这门课其实也和 ...
- 用C#执行vbs脚本文件
最近Windows服务器自动备份占用磁盘快满了,之前的解决的方法是编写vbs脚本自动压缩备份文件,需要在windows设置计划任务来执行,最近发现计划任务执行失败了,还得重新登录windows重启计划 ...
- 【web安全学习篇1】VBS脚本基础编写总结
[web安全学习篇1]VBS脚本基础编写总结 VBS初始及变量 常量 注释与数学运算 布尔类型 if判断 select语句实现多条件循环 循环结构 循环嵌套 数组的定义与应用 定义二维数组及应用 初识 ...
- 用VBS脚本模拟键盘操作
用VBS脚本模拟键盘操作 背景 制作VBS脚本 保存下面的VBS程序代码到Txt文件中 根据自己的实际清空修改下列代码中的内容. 修改txt文件后缀为vbs 在计算机的CMD窗口中运行此脚本 后记,关 ...
最新文章
- 强大的原生DOM选择器querySelector和querySelectorAll
- NSArray 简单细说
- VB.NET(2005)中关于dll调用的错误信息(转)
- windows 搭建kms服务器激活_自建KMS激活服务器的两种方法
- c语言建立队列(顺序队列、循化队列和链式队列)
- 反思供应链项目:实践出真知 多反思提升效率的方法
- 多媒体文件格式之TS
- Inception(Pytorch实现)
- 注意力公式步骤每一步的含义,总共三步
- 博弈——NimSG函数函数(hdu1848)
- linux下mysql单机主从配置,Linux下MySQL互为主从配置
- linux用户管理和群界面怎么打开,Linux命令行界面下的用户和组的管理
- 变形 圆形_板换角孔变形计圆形变身流线形
- 国联安 德盛 新基金 申购免手续费 产品好 利润高
- 格雷码转二进制c语言程序,systemC构建格雷码和二进制的转换
- 定性分析与定量分析的异同及优缺点
- 一次微信公众号分享功能总结
- python表白代码,照片隐藏表白话语
- DO、DTO、BO、VO、POJO等各种O浅学(总结)
- arthas的监控java性能
热门文章
- MySQL SUBSTRING_INDEX() 函数
- php配置email支持_linux php mail 函数smtp电子邮件服务器配置
- pose graph 说的很清晰的一篇文章
- String去掉空格的方法
- opencv摄像头速度慢_为什么在Ubuntu中Python OpenCV摄像头的读取速度比Windows慢?
- 自动驾驶汽车行驶风险评估方法综述
- 精通java的拼写段子_[慎入]已经笑晕!只有程序员才懂的10个段子-Go语言中文社区...
- 关于AndroidTv端的小白理解
- echarts-----树状图(基础参数)
- 你真的了解Android系统启动流程吗?深入理解Flutter动画原理,讲的明明白白!