Vbs是基于Visual Basic的脚本语言,简单方便,不需要下载编译器,也不需要配置环境。只能使用windows特定的记事本开发。
右键单击新建文本文档-粘贴代码-另存为“XXX . VBS”-保存-双击以运行。
下面是代码。
1.代码中最简单的一行
MsgBox你这个猪头!’
当然可以多写几行其他有趣的文字。程序逐行运行。
2.四环素恶搞
最后一个代码点“确认”结束后,执行结束,不管是想要整个人还是不够,我们都可以添加死循环。按下确认和关闭按钮后,再次弹出窗口,这样循环就不会正确关闭了。
道
Msgbox你这个猪头!’
循环(音乐)
那么,如何关闭呢?只有“打开作业管理器”(快捷键Ctrl Alt Delete)才能在w进程冰上右键找到并结束作业。Windows7系统w位于“过程”中,而windows10系统w位于“详细信息”中。
w流程结束
3.武汉大学英语保守从1到武汉大学,封闭方法如上
set s=CreateObject(')。
I=0
道
S.speak i .
I=i 1
循环(音乐)
4.无限制刷新(小心使用!)刷新很难打开任务管理器,可以强制退出
set ws=createobject(' w;)。
道
Ws.sendkeys '{f5} '
循环(音乐)
5.QQ为了骚扰朋友,一直发信息。
打开QQ,正确地写下朋友的注释。代码中的“料理鸡”被你的朋友注释代替,数字“30”被你想发送的次数代替,复制你要发送的信息,双击VBS执行。
On Error Goto 0
Dim wsh、ye
set wsh=create object(' w;)。
For I=1到30
W 100
w(“蔬菜鸡”)
W ' v '
W '%s '
next
w
骚扰 QQ朋友
6.告白代码
其中使用了定时终止,但以后会取消。
set Seven=ws CRI(' ws CRI;)。
str desktop=seven . special folders(' all users desktop ')
set oshellink=seven . create shortcut(str desktop ' \ seven . URL ')
操作系统
Se_key=(MsgBox('我喜欢你很久了,可以做我女朋友吗?是=同意否=拒绝”,4、“不是开玩笑!”))
If se_key=6 Then
MsgBox '谢谢你给我这个机会,I Love You '64,' Love You '
Else
-s-t 600’
Agn=(MsgBox('我真的很喜欢你!拜托,别拒绝我,好吗?是=同意否=拒绝”,4、“不要拒绝我,好吗?”))
If agn=6 Then
-a '
MsgBox '谢谢你给我这个机会,I love you 'love you '
WScri 500
Else
' MsgBox '唉,希望你能找到喜欢的人。回头看,记住我在你后面等你!“爱你的人”,64,“祝你幸福!”
-a '
“MsgBox”其实你拒绝了我,我也不会关掉你的电脑!因为你是我最重要的人,我不会取笑你!' 64,'我想等你!' '
End If
End If
关闭延迟
7.妹妹密码
只有重新回答设定的名称,循环才会结束
Const title='爱情测试'
Const yourname='小y '
' Const question='你最喜欢的人是谁?请在下面的框中输入他(她)的名字。' '
' Const info='你在说谎!别跑,实话实说。' '
Const scend='如果你说了你的心,就向他告白。'
Dim youranswer
道
Youranswer=inputbox (question,title)
if your answer your name then msgbox info、VB information vbokonly和title
Loop until youranswer=yourname
Msgbox scend、VB information vbokonly和title
这些都是编程的初级小程序,是不是很有趣?
来源网络,删除侵权联系人