VBS

Posted 2023-06-02 zhr-cf-fc

VBS

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

VBS代码

• 消息盒子.vbs

\'msgbox "Content","BoxType(0,1,2,3)","BoxTitle"

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 Value1,Value2……ValueN
\'inputbox("Content","Title")
\'ANSI

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操作excel宏求帮助!

我不懂vbs求大神帮忙写一个vbs代码，功能是操作excel宏，这个宏的主要代码是
Sub Macro1()
'
' Macro1 Macro
'
'
Rows("1:19").Select
Selection.Copy
Range("A21").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Rows("1:20").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
我想在不打开excel的情况是执行这个代码而且要excel中的内容有变化这个可以么？就是想要一个可执行文件，一点击这个文件excel中的内容就按照上边的宏变化！不打开excel

哥们，这个我有一个间接地方法可以实现，就看你能不能听懂了。
1.你拿到的代码肯定是咋microsoft visual basic下的模块1上看到的，那么你双击这个界面的sheet1，看右边的代码窗口，有个“通用”的下拉框，选择“worksheet”，在“声明”下拉框选择“Worksheet_SelectionChange”，然后会生成一段代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
你在第一行和第三行之间复制你的代码，但是你的代码的第6行到倒数第二行，那么就得到了这个：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows("1:19").Select
Selection.Copy
Range("A21").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Rows("1:20").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
保持该excel，原来的代码无所谓，删不删都没事。
然后新建一个text文件，写入：
Set oexcel=CreateObject("excel.application")
oexcel.Visible=false
Set workbook=oexcel.Workbooks.Open ("c:\1.xlsm") '这是那个excel文件的绝对路径，最好保持为xlsm格式，带宏的嘛
workbook.Worksheets(1).cells(1,1).select
set workbook=nothing
oexcel.quit
set oexcel=nothing
保持该text文件，修改后缀为vbs，双击.
注意，该代码只对第一个sheet叶有效果。 参考技术A 可以再后台打开，执行完毕后 自动保存关闭！追问

怎么在后台打开呢？不清楚啊！您能具体说下么？