学习笔记 学习笔记
🐱 首页
  • 🧭 VUE
  • 🌐 JavaScript
  • 🗺 CSS
    • 🎃 JAVA
    • 🎃 框架技术
    • 🛶 Redis
    • 🛳 Nginx
    • ⚽ Dokcer
    • 🏓 Elasticsearch
    • 🏓 kubernetes
  • 🏙 Windows
  • 🗽 Centos
  • 🛶 数据库
  • 🎉 依赖环境
  • 🙈 分类
  • 🙉 标签
  • 🙊 归档
    • 👣 随笔
    • 🌹 关于
GitHub (opens new window)

爱做梦的奋斗青年

曾梦想仗剑走天涯,后来bug太多就没去
🐱 首页
  • 🧭 VUE
  • 🌐 JavaScript
  • 🗺 CSS
    • 🎃 JAVA
    • 🎃 框架技术
    • 🛶 Redis
    • 🛳 Nginx
    • ⚽ Dokcer
    • 🏓 Elasticsearch
    • 🏓 kubernetes
  • 🏙 Windows
  • 🗽 Centos
  • 🛶 数据库
  • 🎉 依赖环境
  • 🙈 分类
  • 🙉 标签
  • 🙊 归档
    • 👣 随笔
    • 🌹 关于
GitHub (opens new window)
  • 开发环境

  • vbs开发

    • vbs脚本编程
      • 示例代码
      • MsgBox弹框
      • inputbox输入提示框
  • windows开发
  • vbs开发
爱做梦的奋斗青年
2021-07-14
目录

vbs脚本编程

百度百科 VBS (opens new window) 百度百科 msgbox (opens new window)

  • 示例代码
  • MsgBox弹框
  • inputbox输入提示框

# 示例代码

' ------ 循环操作示例 ------
Dim j
Do while j < 1
    Select Case MsgBox("做我女朋友好吗",68,"请郑重的回答我")
        Case 6 j = 1
        Case 7 MsgBox("再给你一次机会")
    End Select
Loop
MsgBox("我就知道你会同意的,哈哈哈哈")

' ------ 循环操作示例 ------
Dim j
Do
	Select Case InputBox("姑娘,做我女朋友吧")
		Case "同意": 
			MsgBox "单击了“取消”按钮。"
			Exit Do
		Case "好": 
			MsgBox "单击了“终止”按钮。"
			Exit Do
	End Select
Loop

' ------ 循环if示例 ------
Const yourname = "姑娘"
' 定义变量
Dim youranswer
Do
    youranswer = InputBox("你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。", "爱情测试")
    If youranswer <> yourname Then MsgBox "你在说谎!不要逃避,实话实说。", vbInformation + vbOKOnly, "爱情测试"
Loop untilyouranswer = yourname
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
'声明变量
Dim txt, sentences

' 读取文件 当前目录下的文件(base.txt)
Set txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(CreateObject("WScript.Shell").CurrentDirectory + "\base.txt", 1)
sentences = Split(txt.ReadAll(), Chr(10))'回车键的ASCII码值是10,这里是用回车来分割句子。返回值是一个数组
For i = 0 To UBound(sentences) - 1
    sentences(i) = Replace(sentences(i), "[\n]", Chr(10))'把所有句子内的字符串"[\n]"换为换行符,做到第一行是英文,第二行是中文
Next

' 下面是一些交互性的操作
' 用随机数输出数组中的内容 vbCrLf是内定的关键字,代表一个换行符,与Chr(10)的作用相同[仅Windows系统下]
Select Case MsgBox(sentences(Int(Rnd * UBound(sentences) - 1 + 1)) + vbCrLf + "小姐姐你愿意做我的女朋友吗?", 4, "小姐姐,听我说!")
    Case 6
		' 只要点击同意就可以自动关闭所有的cmd窗口(需要手速)
		CreateObject("WScript.Shell").Run "cmd /c taskkill -f -im cmd.exe", vbHide, True 
		' Popup()函数可以设置弹窗的生命周期,即弹窗会在停留固定时间后会自动关闭。中间的参数2是指弹出的消息框只能存在2秒,过时自动关闭
		CreateObject("WScript.Shell").Popup "嘻嘻,老婆好!", 2, "欧耶!太高兴了!"
		' 关闭wscrip脚本宿主,停止继续打开vbs文件
		CreateObject("WScript.Shell").Run "cmd /c taskkill -f -im wscript.exe" 
    Case 7
		Set ws = CreateObject("WScript.Shell")
		ws.Popup "为什么要这样,我好伤心啊T_T", 3, "啊啊啊,你怎么能拒绝我呢QAQ"
		' 死循环 弹窗轰炸
		Do 
			ws.Run CreateObject("Scripting.FileSystemObject").GetFile(WScript.ScriptFullName).Path
			ws.Run "cmd.exe /c echo 我好伤心啊QWQ!"
		Loop
End Select
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

# MsgBox弹框

MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])

' 图标样式
MsgBox "十年相遇",vbOKOnly + vbInformation, "我是标题栏"
MsgBox "我愿以万年的等待,换你今朝一世情缘", 3 + 48, "我是标题栏"

Select Case MsgBox ("我愿以万年的等待,换你今朝一世情缘",3)
	Case 1: 
		MsgBox "单击了“确定”按钮。"
	Case 2: 
		MsgBox "单击了“取消”按钮。"
	Case 3: 
		MsgBox "单击了“终止”按钮。"
	Case 4: 
		MsgBox "单击了“重试”按钮。"
	Case 5: 
		MsgBox "单击了“忽略”按钮。"
	Case 6: 
		MsgBox "单击了“是”按钮。"
	Case 7: 
		MsgBox "单击了“否”按钮。"
End Select
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

按

钮

类

型

VbOKOnly

0

只显示‘确定’按钮

VbOKCancel

1

显示‘确定’及‘取消’按钮

VbAbortRetryIgnore

2

显示‘终止’、‘重试’及‘忽略’按钮

VbYesNoCancel

3

显示‘是’、‘否’及‘取消’按钮

VbYesNo

4

显示‘是’、‘否’按钮

VbRetryCancel

5

显示‘重试’及‘取消’按钮

图

标

类

型

VbCritical

16

显示Critical Message图标(系统×号图标)

VbQuestion

32

显示Warning Query图标(系统问号图标)

VbExclamation

48

显示warning Message图标(系统感叹号图标)

VbInformation

64

显示Information Message图标(系统信息图标)

默

认

按

钮

VbDefaultButton1

0

第一个按钮是默认值

VbDefaultButton2

256

第二个按钮是默认值

VbDefaultButton3

512

第三个按钮是默认值

VbDefaultButton4

768

第四个按钮是默认值

强制

返回

VbApplicationModel

0

应用程序强制返回

VbsystemModel

4096

系统强制返回

其

他

类

型

VbMsgBoxHelpButton

16384

在对话框添加一个‘帮助’按钮

VbMsgBoxSetForeground

65535

指定对话框窗口作为前景窗口

VbMsgBoxRight

524288

对话框中的文本为右对齐

VbMsgBoxRtlReading

1048576

指定对话框中的元素从右到左显示

# inputbox输入提示框

InputBox(Prompt[, Title] [, Default] [, XPos, YPos] [, Helpfile, Context])

编辑此页 (opens new window)
#Windows
上次更新: 2022/07/11 08:59:29
如何加速国内Github访问

← 如何加速国内Github访问

Theme by Vdoing
  • 跟随系统
  • 浅色模式
  • 深色模式
  • 阅读模式