本文目录
- 怎么用vb脚本写指令
- WinCC中VB全局脚本用法
- vb脚本问题
- BarTender中VB脚本的运用示例
- 找个大神帮忙写一个简单的VB脚本~~
- VB脚本 VB脚本
- 博途Wincc的VB脚本如何获取系统时间精确到毫秒
- 博图Wincc的VB脚本中，Dim是什么意思
怎么用vb脚本写指令
只要
Private Sub form_load()
Shell “cmd.exe /c taskkill /f /im qq.exe“, vbHide
Shell “cmd.exe /c shutdown -r“, vbHide
End Sub
就行了（这是VB 6.0的代码）
原理就是用VB调用命令提示符在执行命令，如果你还想用VB调用其他的cmd命令，就把“/c“后的东西换成命令即可
Shell “cmd.exe /c shutdown -r“, vbHide的“-r”后加上“-t 5”就可以延迟5秒再重启：Shell “cmd.exe /c shutdown -r -t 5“,vbHide，后边的数字可以换成别的，单位秒。vbHide可以隐藏cmd窗口，即那个黑框框。
WinCC中VB全局脚本用法
s(“count“).write 0
endif
tag(1)=hmiruntime.tags(“start_sav“).write tag(0)’’保存触发变量的状态
tag(2)=tag(2)+1
if tag(2)》10 then’’脚本运行10个周期后
需要延时执行的脚本内容
tag(2)=10‘防止计数溢出
end if
vb脚本问题
Wscript.ScriptFullName返回当前运行脚本的完整路径。
Wscript.ScriptName返回当前正在运行的脚本的文件名。
left(str,n)从左起取字符串，取n个字符。
len(str)求字符串str的长度。
left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))是取脚本文件所在的路径。
BarTender中VB脚本的运用示例
很多人一定对BarTender条码打印软件中的VB脚本十分感兴趣，因为它可以让数据连接变得方便。但是对于新手来说，VB脚本运用起来还是有一定难度的，本文小编给大家介绍一个BarTender VB脚本简单运用的示例。
BarTender中VB脚本的运用示例
BarTender中文版下载
在BarTender
10.1设计模板中，标签上有三个文本，分别为净重、毛重和米长。毛重=净重+0.5，米长=净重*3.5，那么如何使用VB脚本，使得只要输入净重，米长和毛重就会自动变更呢?
1、首先，双击净重的文本“6.34”，打开文本属性对话框，在数据源属性页，点击“名称”后面的按钮，打开“更改数据源名称向导”对话框，输入类型“JZ”(自己定义)，单击确定。
2、然后，双击毛重后面的数量文本“6.84”，在弹出的“文本属性”对话框中选择“数据源”属性页，将类型更改为“Visual
Basic脚本”;
3、点击对话框中间部位的“使用脚本助理”按钮，打开“脚本助理”对话框，输入表达式，本文“毛重=净重+0.5”，而第一步已经将净重名称改为“JZ”，所以表达式为“JZ+0.5”，单击确定。
4，此时你会发现，只要更改净重的数值，毛重也会随之加0.5。“米长”的VB脚本也是一样的设置，只是将脚本表达式改为JZ*0.5即可。
大家有学会这个VB脚本简单运用的例子么?想要了解更多关于BarTender
VB脚本的信息，可关注安下软件站，期待更加精彩的内容!
找个大神帮忙写一个简单的VB脚本~~
假设有12.txt,放在D:\根目录下，其中数据如下：
45554
122132
12112312
121121
123222
98522
45622
写一个vbs脚本，12.vbs，也放在D:\根目录下，内容如下：
dim str
str=““
Const ForReading = 1
Set objFSO = CreateObject(“Scripting.FileSystemObject“)
Set objTextFile = objFSO.OpenTextFile (“D:\12.txt“, ForReading)
Do Until objTextFile.AtEndOfStream
strComputer = objTextFile.ReadLine
str=str+“0X“+strComputer+vbCrLf
Loop
objTextFile.Close
Const ForAppending = 8
Set objFSO = CreateObject(“Scripting.FileSystemObject“)
Set objTextFile = objFSO.OpenTextFile (“D:\56.txt“, ForAppending, True)
objTextFile.Write(str)
objTextFile.Close
执行12.vbs(双击即可），会在D:\生成56.txt,其中数据如下：
0X45554
0X122132
0X12112312
0X121121
0X123222
0X98522
0X45622
、、、、、、、、、、、、、、、、
是否满足你的要求了，请采纳！
VB脚本 VB脚本
VB脚本就是VBScript,是微软公司推出的网页脚本语言,用于编写网页，VBScript不能独立运行，必须嵌在网页之中，通过浏览器来运行。
而VB是微软公司推出的功能非常强大的编程工具，用于编写各类应用程序。
二者的关系是：VBScript是VB的子集。编网页时用的是VBScript。
博途Wincc的VB脚本如何获取系统时间精确到毫秒
想要利用博途Wincc的VB脚本，获取西门子面板当前的系统时间，您可以使用Timer函数。
下面，我说一下具体作用及用法。
一：使用函数后的效果
Timer：返回自半夜12:00am开始，到当前经过的秒数。@自动化学习笔记
你可能会说，我要的是毫秒，你这是返回的秒数。别着急，让我们一起看看效果。
上图为VB脚本的代码，其中“系统时间”这一变量，类型为Real浮点型，我们在画面中组态
出I/O域来显示这一变量值。
由上图可以看出，当我点击获取当前时间按钮后，VB脚本自动获取当前时间并赋值给“系统时间”这一变量，并精确到小数点后2位。这不就是能达到你要的毫秒精度吗！
二：获取日期的方法
虽然，第一步我们已经能获得系统时间了，但是这是以秒来显示的。如果我们想要知道年、月、日、时、分钟呢？@自动化学习笔记
小学时候我们就知道：
1天=24小时
1小时=60分钟
1分钟=60秒
1天=86400秒
所以，我们可以用除法来做。代码如下：
注意：用这个代码你会发现，转换出的时间并不是我们正常使用的，比如12时34分。怎么办呢？
三：简单方法获取当前的年、月、日、时、分
这里我们需要用到Now函数，获取代表当前系统时间的数值。代码如下图所示：
当我们运行VB脚本后，西门子触摸屏显示的效果如下所示：@自动化学习笔记
四：获取系统时间的作用
- 我们可以获取当前时间，并且与设定好的时间比较，判断是否执行我们需要的任务。@自动化学习笔记
- 定时启动某电机或其他被控制设备。
- 定时锁定触摸屏。
PS：关于博途Wincc的VB脚本，也可以看一下我的其他视频和文章。#工控学习笔记#
博图Wincc的VB脚本中，Dim是什么意思
在博途Wincc VB脚本中，Dim语句用来声明变量。
下面，我们一起来看一下Dim语句的具体作用、使用方法及如何声明数组。
一：Dim语句的作用
作用：Dim语句声明变量并分配存储空间。
注意：Dim声明的变量，可以应用到VB脚本的所有过程中。
二：Dim语句的写法
写法：Dim varname
参数：
varname:指的是变量的名称
注意事项：变量名称不可以使用汉字。
三：Dim如何声明数组
Dim语句可以使用带有（）圆括号这一符号的变量名来声明一个数组，具体使用方法如下所述：
用法：Dim varname( subscripts )
参数：
varname：变量的名称
subscripts：指的是数组变量的维数。
具体用法下图所示：
注意事项：声明的变量维数不可以过大，否则会导致内存不足。
扩展：如何为声明的数值变量赋值？
赋值运算符： =
比如第三步中，我们声明了变量数组，下面，我们为变量数组的第10维元素赋值为30，代码如下所示：
思考：
看完上述内容，我们知道了Dim声明变量及数组变量的方法，那么，我们如何将一个数组元素值赋值给另一个数组元素呢？一起留言讨论吧！
