VBS

VBS

编程就是透过问题看本质并且要不断地多练习、多尝试--尘风

VBS语法

• msgbox "Content","BoxType","BoxTitle":创建一个消息盒子

  • Content:设置消息盒子的内容
  • BoxType:设置消息盒子的类型，默认类型有1、2、...
  • BoxTitle:设置消息盒子的标题

• dim Value:声明一个变量(弱类型语言即自动识别所给数据的类型)

  • Value:声明变量，默认可有很多变量并且每个变量之间用逗号隔开

• inputbox("Content","BoxTitle")：创建一个输入框

  • Content:设置输入框的内容
  • BoxTitle:设置输入框的标题

VBS注意

VBS与BAT的编码格式相反，即VBS必须用ANSI(Windows的ASCII)以正常显示中文，否则显示乱码(鬼符)
VBS中执行py文件时需提前配好Python环境且指定其解释器来执行Python脚本文件（给定绝对路径），否则有可能因预装了Pycharm软件而用它打开而不是执行

VBS代码

• 消息盒子.vbs

msgbox "Hello World!"

msgbox "Hello World!","0","Test1"

msgbox "Hello World!","1","Test2" 

msgbox "Hello World!","2","Test3" 

msgbox "Hello World!","3","Test4"  

• 交互.vbs

dim name
name = inputbox("please input your name:","InputBox")
msgbox name,,"Your name is"

• 简单表白.vbs

msgbox "做我女朋友好吗",vbQuestion,"在吗"
msgbox ("房产写你名字")
msgbox ("家务全部我包")
msgbox ("我家猫后空翻")
dim j
do while j<1
Select Case msgbox("做我女朋友好吗",68,"请郑重的回答我")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop
msgbox("我就知道你会同意的，哈哈哈哈")

• 升级表白.vbs

Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url")
oShellLink.Save
se_key = (MsgBox("我喜欢你很久了，你可以做我女朋友吗 是=同意 否=拒绝 ",4,"我没有开玩笑！！！"))
If se_key=6 Then
MsgBox "谢谢你给了我这次机会，I Love You",64,"Love you"
seven.Run "D:\\Python3.10.11\\python.exe  heart.py"
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("我真的很喜欢你！求你了，别拒绝我，好吗？ 是=同意 否=拒绝",4,"别拒绝我，好吗？"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "谢谢你给了我这次机会，I Love You",,"Love you"
WScript.Sleep 500
seven.Run "D:\\Python3.10.11\\python.exe heart.py"
Else
MsgBox "唉，那 祝你能找到自己喜欢的人，若可回头 记住 我在你身后一直等你！ --爱你的人",64,"祝你幸福！！"
seven.Run "shutdown.exe -a"
MsgBox "其实你拒绝了我，我也不会关你电脑的！因为你是我最重要的人，我不会捉弄你的！",64,"我愿意等你！"
End If
End If

• heart.py

# -*- coding:utf-8 -*-

import turtle

import time

# 画心形圆弧

def hart_arc():

  for i in range(200):

    turtle.right(1)

    turtle.forward(2)

def move_pen_position(x, y):

  turtle.hideturtle()# 隐藏画笔

  turtle.up()# 提笔

  turtle.goto(x, y) # 移动画笔到指定起始坐标（窗口中心为0,0）

  turtle.down()# 下笔

  turtle.showturtle()# 显示画笔

# 初始化

turtle.setup(width=800, height=500)# 窗口大小

turtle.color('red', 'pink')# 画笔颜色

turtle.pensize(3)# 画笔粗细

turtle.speed(1000)# 描绘速度

# 初始化画笔起始坐标

move_pen_position(x=0,y=-180)# 移动画笔位置

turtle.left(140)# 向左旋转140度

turtle.begin_fill()# 标记背景填充位置

# 画心形直线（ 左下方 ）

turtle.forward(224)# 向前移动画笔，长度为224

# 画爱心圆弧

hart_arc()# 左侧圆弧

turtle.left(120)# 调整画笔角度

hart_arc()# 右侧圆弧

# 画心形直线（ 右下方 ）

turtle.forward(224)

turtle.end_fill()# 标记背景填充结束位置

# 点击窗口关闭程序

window = turtle.Screen()

window.exitonclick()

VBS资源

VBS优秀书籍
VBS表白代码
VBS操作注册表
VBS简单的入门
VBS函数大全参考
VB/VBS/VBA讲解
Python+VBScript让电脑说话
VBS百度百科
VBS百度经验
VBS51CTO
VBS教程总结
VBS基础教程
WScript.shell