VBScript简单应用实例
vbs代码大全
vbs代码大全VBScript（Visual Basic Scripting Edition）是一种微软公司开发的脚本语言，它是Visual Basic的一种简化版本，用于在Windows系统上执行脚本和自动化任务。
VBScript可以用于编写各种类型的脚本，包括系统管理、网页交互、数据处理等。
在本文中，我们将介绍一些常用的VBS代码，帮助您更好地理解和应用这门语言。
首先，我们来看一段简单的VBS代码，用于在Windows系统上显示一个消息框：```vbscript。
MsgBox "Hello, World!"```。
以上代码使用MsgBox函数来显示一个消息框，其中包含"Hello, World!"这个消息。
这是一个非常简单的示例，但它展示了VBS代码的基本语法和结构。
接下来，我们将介绍一些更复杂的VBS代码示例，以便更全面地了解这门语言的特性和用法。
在VBScript中，我们可以使用条件语句来根据不同的条件执行不同的代码块。
下面是一个使用条件语句的示例：```vbscript。
Dim num。
num = InputBox("请输入一个数字，")。
If IsNumeric(num) Then。
If num > 0 Then。
MsgBox "这是一个正数。
"ElseIf num < 0 Then。
MsgBox "这是一个负数。
"Else。
MsgBox "这是零。
"End If。
Else。
MsgBox "输入无效。
"End If。
```。
以上代码首先使用InputBox函数获取用户输入的数字，然后使用条件语句判断这个数字的正负和零。
这个示例展示了VBS代码中条件语句的使用方法，以及如何处理用户输入的数据。
除了条件语句，VBScript还支持循环结构，可以重复执行特定的代码块。
第三章 VBScript 基础应用
③运算符与表达式 运算就是对数据进行加工处理，运算关系可用一 些简洁的符号来描述，这些符号就称为运算符或 操作符，被运算的数称为操作数。由运算符和操 作数所构成的式子即为表达式。操作数可以是常 量、变量或函数，下面介绍VBScript所支持的各 种运算。
⒈数学运算 VBScript支持8种基本的数学运算，见下表：
VBScript的数据类型 3.2 VBScript的数据类型
VBScript只有一种数据类型，称为 Variant (变体型)，该种类型可根据使用方式和 需要，选择最恰当的子类型来存储数据。 在使用中可以根据需要自动转换数据类 型。Variant的子类型 Variant的子类型 Variant的子类型见下表
例如：假设online变量中存储有当前的在线人数，在ASP页面中，若要输出该在 线人数，则实现的语句代码为： <% response.write “在线人数为：”&online %>
⒊关系运算符 通常又称为比较运算，即比较两个表达式的大小关 系，其运算结果为逻辑型值。VBScript支持的关 系运算符有>、>=、<、<=、=、<>,分别代表 大于、大于等于、小于、小于等于、等于、不等 于运算。 ⒋逻辑运算 通常也称为布尔运算，常用来表达一些较复杂的逻 辑关系，运算结果仍为逻辑型值。Vbscript常用 的逻辑运算符主要有Not、And、or、Xor,分别代 表逻辑非、逻辑与、逻辑或、逻辑异或运算。
2.在网页中使用VBScript (1)在HTML中使用VBScript html 网 页 是 在 客 户 端 的 浏 览 器 上 执 行 的 ， 同 JavaScript一样，在网页中使用VBScript时，其脚 本代码必须放在<script>块中，其使用方法为： <script language=“vbscript”> ‘vbscript代码’ </Script>
vbs实例
1、VBS改写、追加文件Dim fso,openFileSet fso=CreateObject("Scripting.FileSystemObject")Set openFile=fso.OpenTextFile("C:\test.txt",2,True) '1表示只读，2表示可写，8表示追加openFile.Write "Hello World!"openFile.Close2、VBS读取文件ReadAll 读取全部Dim fso,openFileSet fso=CreateObject("Scripting.FileSystemObject")Set openFile=fso.OpenTextFile("C:\test.txt",1,True)MsgBox(openFile.ReadAll)3、VBS读取文件ReadLine 读取一行Dim fso,openFileSet fso=CreateObject("Scripting.FileSystemObject")Set openFile=fso.OpenTextFile("C:\test.txt",1,True)MsgBox(openFile.ReadLine())MsgBox(openFile.ReadLine()) '如果读取行数超过文件的行数，就会出错4、VBS读取文件Read 读取n个字符Dim fso,openFileSet fso=CreateObject("Scripting.FileSystemObject")Set openFile=fso.OpenTextFile("C:\test.txt",1,True)MsgBox(openFile.Read(2)) '如果超出了字符数，不会出错。
好玩的vbs代码
好玩的VBScript代码VBScript（Visual Basic Scripting Edition）是一种基于VB语言的脚本语言，它可以用来创建简单的Windows应用程序、网页脚本和系统管理脚本等。
VBScript 是一种通用的脚本语言，可以用来实现各种有趣的功能。
在本文中，我们将介绍一些好玩的VBScript代码，展示其强大的功能和娱乐价值。
1. 电脑妖怪第一个VBScript代码是创建一个电脑妖怪。
该代码将在电脑屏幕上创建一个随机移动的图形，并发出奇怪的声音。
Set wshShell = CreateObject("WScript.Shell")Set objShell = CreateObject("Shell.Application")Set objWMI = GetObject("winmgmts:\\.\root\cimv2")DowshShell.Run "mshta vbscript:CreateObject(""SAPI.SpVoice"").Speak(""Boo!"") (Close)"objShell.MinimizeAllobjShell.UndoMinimizeAllFor Each objDesktop in objWMI.InstancesOf("Win32_Desktop")objDesktop.SetWallpaper "C:\path\to\your\image.jpg"Nextwscript.sleep 100Loop通过运行该代码，将在桌面上创建一个随机移动的图形，并且屏幕上会突然发出吓人的声音。
这个代码可以用作恶作剧或者给你的朋友带来一些惊喜。
2. 无限弹窗第二个VBScript代码是创建一个无限弹窗的例子。
很好的VBS教程(带实例)
很好的VBS教程（带实例）推荐第一篇：讲一下VBScript。
主要面向菜鸟，懂得编程的朋友就不要浪费时间了，如果你想接触以下VBScript也可以。
但既然有编程基础推荐直接去找一些参考书来读。
会比较快。
什么是VBScript呢？VBScript的全称是：Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)。
正如其字面所透露的信息，VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。
我进一步解释一下，Microsoft Visual Basic是微软公司出品的一套可视化编程工具，语法基于Basic.脚本语言，就是不编译成二进制文件，直接由宿主(host)解释源代码并执行，简单点说就是你写的程序不需要编译成.exe，而是直接给用户发送.vbs 的源程序，用户就能执行了。
我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了，答案是：记事本(Notepad).我不是开玩笑，其实任何一种文本编辑器都可以用来开发VBS开发，只不过记事本是由系统自带的，比较好找而已. 尽管如此，我还是建议你去下载一个专业的文本编辑器，因为这些工具可以提供"语法高亮"等功能，更加方便开发，用哪一个随你喜好，我比较喜欢Edit Plus (2.10).OK，我们先来写一个VBScript程序热热身.REM 输入并回显你的名字'使用InputBox和Msgbox函数Dim name,msgmsg="请输入你的名字:"name=Inputbox(msg,"名称")Msgbox(name)把上面的程序清单输入到记事本里面，然后保存为以.vbs为扩展名的文件("保存类型"里面选择"所有文件").然后双击运行，观察运行结果. 注意:请自己输入程序清单，不要复制->粘贴!我来解释一下这个程序，第一行和第二行的开头分别是"REM"语句和" ' "，这两个东西的作用是相同的，表示本行是注释行，就是说这两行什么也不干,只是用来说明这段程序的功能，版权信息等等. 注释行是程序最重要的部分之一，尽管它不是必需的，但对于其他人阅读源代码，以及自己分析源代码是很有好处的. 好的习惯是在必要的地方加上清晰，简洁的注释。
vbs编程必背50个程序
VBS编程必背50个程序什么是VBS编程？VBS，全称为Visual Basic Scripting，是一种被广泛应用于Windows系统的脚本语言。
它基于Visual Basic，但语法更加简单且易于学习和使用。
VBS可以用于编写脚本文件，实现各种任务，如自动化任务、系统管理以及图形用户界面等。
为什么要掌握VBS编程？VBS编程是一种非常有用的技能，特别是对于那些需要在Windows环境中进行自动化和批量处理的人来说。
掌握VBS编程可以帮助你提高工作效率，简化重复的任务，并增加系统管理和故障排除的能力。
下面是50个VBS编程的示例程序：1. Hello WorldMsgBox "Hello World!"这个简单的程序会弹出一个对话框，显示“Hello World!”。
2. 计算器Dim num1, num2, resultnum1 = InputBox("请输入第一个数字:")num2 = InputBox("请输入第二个数字:")result = num1 + num2MsgBox "计算结果为：" & result这个程序会要求你输入两个数字，然后将它们相加并显示结果。
3. 遍历文件夹Set fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder("C:\Path\To\Folder")For Each file In folder.FilesMsgBox Next这个程序会遍历指定文件夹中的所有文件，并依次弹出每个文件名。
4. 创建文件Set fso = CreateObject("Scripting.FileSystemObject")Set file = fso.CreateTextFile("C:\Path\To\File.txt")file.WriteLine "Hello World!"file.Close这个程序会创建一个文本文件，并在其中写入“Hello World!”。
vbs调用子程序的例子
vbs调用子程序的例子在VBScript中，子程序是一段可以被重复调用的代码块。
子程序通常用于执行特定的任务，并可以接受参数进行定制化。
本文将介绍几个VBScript调用子程序的例子，旨在帮助初学者更好地理解和应用这一概念。
例子一：简单的子程序调用```vbscriptSub Greet()MsgBox "Hello, World!"End Sub' 调用子程序Call Greet```在上面的例子中，我们定义了一个名为Greet的子程序，并在其中使用MsgBox函数显示一个简单的问候语。
在主程序中，我们使用Call语句来调用Greet子程序，从而执行其中的代码。
例子二：带参数的子程序```vbscriptSub Greet(name)MsgBox "Hello, " & name & "!"End Sub' 调用子程序Call Greet("John")```在这个例子中，我们仍然定义了一个名为Greet的子程序，但是这次我们添加了一个参数name。
在子程序内部，我们使用了拼接字符串的方式来显示包含参数name的问候语。
在主程序中，我们调用Greet子程序，并将"John"作为参数传递给它。
例子三：子程序返回值```vbscriptFunction AddNumbers(a, b)AddNumbers = a + bEnd Function' 调用子程序result = AddNumbers(5, 10)MsgBox "结果为：" & result```这个例子展示了如何在子程序中返回一个值。
我们定义了一个名为AddNumbers的子程序，该子程序接受两个参数a和b，并返回它们的和。
在主程序中，我们调用AddNumbers子程序，并将返回的结果赋给result变量。
霍尼韦尔PKS VBScript语言应用实例精讲
2020 编程应用实例精讲2020/4/14目录应用实例一：简单联锁旁路按钮子图模版的编程实例应用实例二：带有安全操作级别确认的联锁旁路按钮子图模版的编程实例应用实例三：风扇转动编程实例应用实例四：移动门编程实例应用实例五：创建一个Dynamic shap可变色图形编程实例应用实例六：调色板编程实例应用实例七：通过VBScript打开其它应用程序编程实例应用实例八：通过VBScript控制Station的编程实例应用实例九：强制使一个画面显示在SafeView窗口的编程实例应用实例十：在运行时改变趋势图内容的编程实例PKS VBScript编程应用实例应用实例一：简单联锁旁路按钮子图模版的编程实例编程思路：1.创建一个联锁旁路按钮BYPASS并在其Script Data中设置Point变量<CM>，Parameter引脚使用<BP>2.弹出消息确认窗口并编写提示信息内容3.通过选择“Yes”或者“No”来执行联锁或者旁路功能4.通过变量数值变化更改按钮文本、颜色等状态使其更加形象化如下图1所示：图1Onclick事件程序如下：Sub BYPASS_onclickDim messageIF ME.DataValue(“CM.BP”) = 1 Thenmessage = msgbox(“确认要旁路吗？”,vbyesno,”CM”)IF message =VBYES ThenME.DataValue(“CM.BP”) = 0End IFElsemessage = msgbox(“确认要联锁吗？”,vbyesno,”CM”)IF message =VBYES ThenME.DataValue(“CM.BP”) = 1End IFEnd IFEnd Sub重点解析：1.如果要读取Script Data中的数据值，就要用到“ME.DataValue(“位号引脚”)“这样格式的语句2.“Msgbox“是VBSript语言中一种固定的功能性语句，其作用是在监控画面弹出一个对话框，可以是”Yes\No“、”OK\Cancel“等内容，当用户点击确认后可返回相应的状态以供程序使用一般的应用格式为：MsgBox(prompt[, buttons][, title][, helpfile, context])。
好玩的vbs代码
好玩的vbs代码VBScript（即Visual Basic Scripting Edition）是针对Microsoft Windows操作系统开发的一种脚本语言。
可以使用VBScript编写简单的窗体程序、交互式的动态网页以及实现许多有趣的小程序。
在这里，我们将分享一些有趣的VBScript代码，让你在工作之余放松一下，娱乐一下自己吧。
第一步："Hello, World!""Hello, world!"是编程语言初学者经常会编写的程序。
让我们来看一下用VBScript编写"Hello, world!"的代码。
```VBScriptMsgBox "Hello, world!"```在使用VBScript中，MsgBox是一个弹出式对话框，用于显示一条消息。
在这个代码中，我们使用了MsgBox，将"Hello, world!"作为消息显示出来。
这个程序的作用是打开一个窗口，显示一条消息，即"Hello, world!"。
第二步：翻转字符串这个程序可以将一个字符串翻转。
例如，如果我们输入"hello"，则输出"olleh"。
```VBScriptoriginalString = "hello"reversedString = StrReverse(originalString)MsgBox reversedString```在这个代码中，我们使用StrReverse函数翻转字符串。
该函数将输入的字符串反转，返回反转后的结果。
在这个程序中，我们将"hello"传递给该函数，并将结果返回给另一个变量。
最后，我们使用MsgBox弹出一个对话框，显示反转后的字符串。
第三步：随机数生成器这个程序可以生成1到100之间的随机数，并让用户猜测正确的数字。
VBScript操作Excel
VBScript操作ExcelVBScript操作Excel━━━━━━━━━━━━━━━━━以下是一些VBScript操作Excel的实例，比如如何通过VbS打开Excel，新建Excel、Sheet，删除Sheet，另存Excel文件，在指定的Sheet Cells中写入以及读取Sheet中usedRange中的内容。
'------------------------------' VBScript. Source File -- Created with SAPIEN Technologies PrimalScript. 4.1 ' NAME:Example1' AUTHOR: Weibin , cpic-ing' DATE : 2011-1-31' COMMENT: 打开Excel文件'------------------------------Dim xlsApp,xlsWorkBook,xlsSheetDim iRowCount,numAddSet xlsApp = CreateObject("Excel.Application") '创建Excel对象xlsApp.Visible = True 'true 为显示excel对象，false为不显示Set xlsWorkBook = xlsApp.Workbooks.Open ("d:\data.xls") '打开指定路径的Excel表格Set xlsSheet = xlsWorkBook.Sheets("sheet1") '选择指定Sheet1iRowCount = edRange.Rows.Count '获取sheet中有内容的Rowcount行数For iLoop = 2 To iRowCountnumAdd = xlsSheet.Cells(iLoop,1) '取Cells中的值MsgBox iLoop '显示第一列从第二行开始到iLoop行为止。
VBScript教程与参考
VBScript简介学习VBScript之前学习VBScript 之前，应具备HTML和CSS的知识，以保证你能够熟练地编写网页。
有关HTML 教程，CSS 教程，请参见HTML教程，CSS教程。
VBScript简介VBScript 是一种脚本语言，可以用于微软IE 浏览器的客户端脚本和微软IIS (Internet Information Service) 的服务器端脚本。
VBScript 是微软编程语言Visual Basic 家族中的一个成员。
如果你熟悉微软的Visual Basic 或者Visual Basic for Applications，你会很快就熟悉VBScript。
简单的VBScript 入门示例现在我们就写一个简单的VBScript 的例子。
<html><head><title>一个简单的VBScript代码示例</title></head><body><p>你会看到一个消息框，在此行文字显示之后弹出。
</p><script type="text/vbscript">MsgBox("Hello,World!")</script></body></html>演示示例在网页中插入VBSscript语句，应使用<script>。
<script> 这个tag 有个属性叫type，type="text/vbscript" 表示插入<script></script>其中的为VBScript语句。
<script type="text/vbscript">......</script>在参考别人的VBScript 代码时，你也许会看到<script>里写的不是type="text/vbscript"，而是language="vbscript"。
vbs编程实例
vbs编程实例电脑技术1、快速显示ipSet winsobj=CreateObject("MSWinsock.Winsock") '创建对象ip=winsobj.LocalIPMsgBox "你的ip是:"&ip2、创建一个新的文本文件，如果文件存在询问是否覆盖sub create_file '创建文件子程序Rem 在当前目录下创建"测试.txt"[若文件存在，则提示，覆盖/追加？]并写入一个字符串。
dim fso, f, filename, myvarfilename = "测试.txt"set fso = CreateObject("Scripting.FileSystemObject") '创建并返回一个对ActiveX 对象的引用。
if fso.FileExists(filename) then '判断文件是否存在myvar = msgbox("文件“" & filename & "”已存在，覆盖？", 1)if myvar = 2 thenexit subend ifend ifset f = fso.CreateTextFile(filename, true) '创建和打开文本文件，[第二个参数表示目标文件存在时是否覆盖，true：覆盖；false/忽略：不覆盖]f.Write("写入内容，")f.WriteLine("再写入内容——文件第一行,这是一个测试文件，并换行")f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）f.WriteLine("OK")f.Close() '关闭文件set f = nothingset fso = nothingend sub已测试通过3、登录sina邮箱Set Wshell=WScript.CreateObject("WScript.Shell")AppName="sina邮箱"Set ie7=WScript.CreateObject("InternetExplorer.Application")ie7.visible=Trueie7.navigate "/"While ie7.BusyWscript.Sleep 100wendie7.Document.free.u.value="邮箱名"'e7.myform.pass.value="邮箱登录密码"ie7.Document.free.psw.value="邮箱登录密码"ie7.Document.free.psw.focusWShell.SendKeys "~" ' 回车'Wscript.Sleep 50000 ' 根据自己的网速确定等待时间已测试通过4、自动登录163邮箱：Set Wshell=WScript.CreateObject("WScript.Shell")AppName="163邮箱"Set ie=WScript.CreateObject("InternetExplorer.Application")ie.visible=TrueFor i=1 To 1 Step 1ie.navigate ""While ie.BusyWscript.Sleep 100wendername.value="邮箱名"ie.Document.login163.password.value="邮箱登录密码"WShell.SendKeys "~" ' 回车Wscript.Sleep 10000 ' 根据自己的网速确定等待时间Wshell.SendKeys "^W" ' 关闭IE窗口。
简单的vbs代码
简单的vbs代码简单的vbs代码VBScript（Visual Basic Script）是一种基于VB的脚本语言，通常被用于Web开发和Windows管理。
它是一种轻量级的脚本语言，而且易于学习和编写。
这里我们会介绍一些简单的VBScript代码，这些代码可以帮助你更好的理解并掌握VBScript语言。
1. 一个简单的Hello World程序下面是一个使用vbs的简单程序。
``` MsgBox "Hello World" ```这段代码中，利用MsgBox函数来创建一个弹窗。
2. 创建一个函数函数是VBScript的一种基本类型，可以用来组合一组语句，以执行特定任务。
下面是一个例子：``` Function addNumbers(a, b) Dim c c = a + b addNumbers = c End FunctionMsgBox addNumbers(2, 2) ```这个函数将两个数字相加，并返回其结果。
3. 使用For循环创建一个计数器For循环是VBScript的一种重要组成部分，它用于执行循环任务。
以下是一个使用For循环的计数器程序的示例：``` For i = 1 To 10 MsgBox i Next ```这段代码会打开一个弹窗，显示从1到10的数字。
4. 使用If条件语句判断If语句可以根据不同的条件来执行不同的语句。
下面是一个例子：``` Dim count count = InputBox("请输入一个数字")If count > 5 Then MsgBox "这个数字大于5" Else MsgBox "这个数字小于或等于5" End If ```这段程序会创建一个输入框，让用户输入一个数字。
之后会根据用户输入的数字来执行相应的语句。
5. 创建一个对象VBScript是面向对象语言。
超完整的vbs代码
超完整的vbs代码1. Hello World 示例：MsgBox "Hello, World!"这是最简单的VBS脚本，用于显示一个消息框。
2. 创建文件：Dim fso, fileSet fso = CreateObject("Scripting.FileSystemObject") Set file = fso.CreateTextFile("example.txt", True) file.WriteLine "这是一个示例文件。
"file.CloseSet file = NothingSet fso = NothingMsgBox "文件创建成功！"3. 复制文件：Dim fso, sourceFile, destFileSet fso = CreateObject("Scripting.FileSystemObject") sourceFile = "C:\example.txt"destFile = "C:\example_copy.txt"If fso.FileExists(sourceFile) Thenfso.CopyFile sourceFile, destFileMsgBox "文件复制成功！"ElseMsgBox "源文件不存在。
"End IfSet fso = Nothing4. 删除文件：Dim fso, fileToDeleteSet fso = CreateObject("Scripting.FileSystemObject") fileToDelete = "C:\example.txt"If fso.FileExists(fileToDelete) Thenfso.DeleteFile fileToDeleteMsgBox "文件删除成功！"ElseMsgBox "文件不存在。
最新最全的VBS脚本应用超级范例大全
可以显示农历的VBS代码:<script language=vbscript>Function nl()'获取当前系统时间curTime = Now()Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)'星期名WeekName(0) = " * "WeekName(1) = "星期日"WeekName(2) = "星期一"WeekName(3) = "星期二"WeekName(4) = "星期三"WeekName(5) = "星期四"WeekName(6) = "星期五"WeekName(7) = "星期六"'天干名称TianGan(0) = "甲"TianGan(1) = "乙"TianGan(2) = "丙"TianGan(3) = "丁"TianGan(4) = "戊"TianGan(5) = "己"TianGan(6) = "庚"TianGan(7) = "辛"TianGan(8) = "壬"TianGan(9) = "癸"'地支名称DiZhi(0) = "子"DiZhi(1) = "丑"DiZhi(2) = "寅"DiZhi(3) = "卯"DiZhi(4) = "辰"DiZhi(5) = "巳"DiZhi(6) = "午"DiZhi(7) = "未"DiZhi(8) = "申"DiZhi(9) = "酉"DiZhi(10) = "戌"DiZhi(11) = "亥"'属相名称ShuXiang(0) = "鼠"ShuXiang(1) = "牛" ShuXiang(2) = "虎" ShuXiang(3) = "兔" ShuXiang(4) = "龙" ShuXiang(5) = "蛇" ShuXiang(6) = "马" ShuXiang(7) = "羊" ShuXiang(8) = "猴" ShuXiang(9) = "鸡" ShuXiang(10) = "狗" ShuXiang(11) = "猪" '农历日期名DayName(0) = "*" DayName(1) = "初一" DayName(2) = "初二" DayName(3) = "初三" DayName(4) = "初四" DayName(5) = "初五" DayName(6) = "初六" DayName(7) = "初七" DayName(8) = "初八" DayName(9) = "初九" DayName(10) = "初十" DayName(11) = "十一" DayName(12) = "十二" DayName(13) = "十三" DayName(14) = "十四" DayName(15) = "十五" DayName(16) = "十六" DayName(17) = "十七" DayName(18) = "十八" DayName(19) = "十九" DayName(20) = "二十" DayName(21) = "廿一" DayName(22) = "廿二" DayName(23) = "廿三" DayName(24) = "廿四" DayName(25) = "廿五" DayName(26) = "廿六" DayName(27) = "廿七" DayName(28) = "廿八" DayName(29) = "廿九" DayName(30) = "三十" '农历月份名MonName(0) = "*" MonName(1) = "正" MonName(2) = "二" MonName(3) = "三" MonName(4) = "四" MonName(5) = "五" MonName(6) = "六" MonName(7) = "七" MonName(8) = "八" MonName(9) = "九" MonName(10) = "十" MonName(11) = "十一" MonName(12) = "腊"'公历每月前面的天数MonthAdd(0) = 0 MonthAdd(1) = 31 MonthAdd(2) = 59 MonthAdd(3) = 90 MonthAdd(4) = 120 MonthAdd(5) = 151 MonthAdd(6) = 181 MonthAdd(7) = 212 MonthAdd(8) = 243 MonthAdd(9) = 273 MonthAdd(10) = 304 MonthAdd(11) = 334'农历数据NongliData(0) = 2635 NongliData(1) = 333387 NongliData(2) = 1701 NongliData(3) = 1748 NongliData(4) = 267701 NongliData(5) = 694 NongliData(6) = 2391 NongliData(7) = 133423 NongliData(8) = 1175 NongliData(9) = 396438 NongliData(10) = 3402 NongliData(11) = 3749 NongliData(12) = 331177 NongliData(13) = 1453 NongliData(14) = 694 NongliData(15) = 201326 NongliData(16) = 2350NongliData(18) = 3221 NongliData(19) = 3402 NongliData(20) = 400202 NongliData(21) = 2901 NongliData(22) = 1386 NongliData(23) = 267611 NongliData(24) = 605 NongliData(25) = 2349 NongliData(26) = 137515 NongliData(27) = 2709 NongliData(28) = 464533 NongliData(29) = 1738 NongliData(30) = 2901 NongliData(31) = 330421 NongliData(32) = 1242 NongliData(33) = 2651 NongliData(34) = 199255 NongliData(35) = 1323 NongliData(36) = 529706 NongliData(37) = 3733 NongliData(38) = 1706 NongliData(39) = 398762 NongliData(40) = 2741 NongliData(41) = 1206 NongliData(42) = 267438 NongliData(43) = 2647 NongliData(44) = 1318 NongliData(45) = 204070 NongliData(46) = 3477 NongliData(47) = 461653 NongliData(48) = 1386 NongliData(49) = 2413 NongliData(50) = 330077 NongliData(51) = 1197 NongliData(52) = 2637 NongliData(53) = 268877 NongliData(54) = 3365 NongliData(55) = 531109 NongliData(56) = 2900 NongliData(57) = 2922 NongliData(58) = 398042 NongliData(59) = 2395 NongliData(60) = 1179NongliData(62) = 2635NongliData(63) = 661067NongliData(64) = 1701NongliData(65) = 1748NongliData(66) = 398772NongliData(67) = 2742NongliData(68) = 2391NongliData(69) = 330031NongliData(70) = 1175NongliData(71) = 1611NongliData(72) = 200010NongliData(73) = 3749NongliData(74) = 527717NongliData(75) = 1452NongliData(76) = 2742NongliData(77) = 332397NongliData(78) = 2350NongliData(79) = 3222NongliData(80) = 268949NongliData(81) = 3402NongliData(82) = 3493NongliData(83) = 133973NongliData(84) = 1386NongliData(85) = 464219NongliData(86) = 605NongliData(87) = 2349NongliData(88) = 334123NongliData(89) = 2709NongliData(90) = 2890NongliData(91) = 267946NongliData(92) = 2773NongliData(93) = 592565NongliData(94) = 1210NongliData(95) = 2651NongliData(96) = 395863NongliData(97) = 1323NongliData(98) = 2707NongliData(99) = 265877'生成当前公历年、月、日 ==> GongliStr curYear = Year(curTime)curMonth = Month(curTime)curDay = Day(curTime)GongliStr = curYear & "年"If (curMonth < 10) ThenGongliStr = GongliStr & "0" & curMonth & "月"ElseGongliStr = GongliStr & curMonth & "月"End IfIf (curDay < 10) ThenGongliStr = GongliStr & "0" & curDay & "日"ElseGongliStr = GongliStr & curDay & "日"End If'生成当前公历星期 ==> WeekdayStrcurWeekday = Weekday(curTime)WeekdayStr = WeekName(curWeekday)'计算到初始时间1921年2月8日的天数：1921-2-8(正月初一)TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) / 4) + curDay + MonthAdd(curMonth - 1) - 38If ((curYear Mod 4) = 0 And curMonth > 2) ThenTheDate = TheDate + 1End If'计算农历天干、地支、月、日isEnd = 0m = 0DoIf (NongliData(m) < 4095) Thenk = 11Elsek = 12End Ifn = kDoIf (n < 0) ThenExit DoEnd If'获取NongliData(m)的第n个二进制位的值bit = NongliData(m)For i = 1 To n Step 1bit = Int(bit / 2)Nextbit = bit Mod 2If (TheDate <= 29 + bit) ThenisEnd = 1Exit DoEnd IfTheDate = TheDate - 29 - bitn = n - 1LoopIf (isEnd = 1) ThenExit DoEnd Ifm = m + 1LoopcurYear = 1921 + mcurMonth = k - n + 1curDay = TheDateIf (k = 12) ThenIf (curMonth = (Int(NongliData(m) / 65536) + 1)) ThencurMonth = 1 - curMonthElseIf (curMonth > (Int(NongliData(m) / 65536) + 1)) ThencurMonth = curMonth - 1End IfEnd If'生成农历天干、地支、属相 ==> NongliStrNongliStr = "农历" & TianGan(((curYear - 4) Mod 60) Mod 10) &DiZhi(((curYear - 4) Mod 60) Mod 12) & "年"NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod 60) Mod 12) & ")"'生成农历月、日 ==> NongliDayStrIf (curMonth < 1) ThenNongliDayStr = "闰" & MonName(-1 * curMonth)ElseNongliDayStr = MonName(curMonth)End IfNongliDayStr = NongliDayStr & "月"NongliDayStr = NongliDayStr & DayName(curDay)nl = NongliStr & NongliDayStrEnd Functionmsgbox nl</script>vbs实现显示系统调色板的代码:set ie = createobject("internetexplorer.application")ie.navigate "about:blank"do until ie.readystate = 4 : wscript.sleep 25 : loopset doc = ie.documentset body = doc.bodyset win = doc.parentwindowbody.innerhtml = "<OBJECT id=dlgCLASSID='clsid:3050f819-98b5-11cf-bb82-00aa00bdce0b'></OBJECT>"body.innertext = doc.getElementById("dlg").choosecolordlg win.clipboarddata.setdata "text", body.innertextie.quit用vbs实现zip功能的脚本:压缩：Function fZip(sSourceFolder,sTargetZIPFile)'This function will add all of the files in a source folder to a ZIP file 'using Windows' native folder ZIP capability.Dim oShellApp, oFSO, iErr, sErrSource, sErrDescriptionSet oShellApp = CreateObject("Shell.Application")Set oFSO = CreateObject("Scripting.FileSystemObject")'The source folder needs to have a \ on the EndIf Right(sSourceFolder,1) <> "\" Then sSourceFolder = sSourceFolder & "\" On Error Resume Next'If a target ZIP exists already, delete itIf oFSO.FileExists(sTargetZIPFile) Then oFSO.DeleteFile sTargetZIPFile,TrueiErr = Err.NumbersErrSource = Err.SourcesErrDescription = Err.DescriptionOn Error GoTo 0If iErr <> 0 ThenfZip = Array(iErr,sErrSource,sErrDescription)Exit FunctionEnd IfOn Error Resume Next'Write the fileheader for a blank zipfile.oFSO.OpenTextFile(sTargetZIPFile, 2, True).Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))iErr = Err.NumbersErrSource = Err.SourcesErrDescription = Err.DescriptionOn Error GoTo 0If iErr <> 0 ThenfZip = Array(iErr,sErrSource,sErrDescription)Exit FunctionEnd IfOn Error Resume Next'Start copying files into the zip from the source folder. Space(sTargetZIPFile).CopyHereSpace(sSourceFolder).ItemsiErr = Err.NumbersErrSource = Err.SourcesErrDescription = Err.DescriptionOn Error GoTo 0If iErr <> 0 ThenfZip = Array(iErr,sErrSource,sErrDescription)Exit FunctionEnd If'Because the copying occurs in a separate process, the script will just continue. Run a DO...LOOP to prevent the function'from exiting until the file is finished zipping.Do Until Space(sTargetZIPFile).Items.Count = Space(sSourceFolder).Items.CountWScript.Sleep 1500'如果不成功，增加一下秒数LoopfZip = Array(0,"","")End FunctionCall fZip ("C:\vbs","c:\vbs.zip")解压缩：Function fUnzip(sZipFile,sTargetFolder)'Create the Shell.Application objectDim oShellApp:Set oShellApp = CreateObject("Shell.Application")'Create the File System objectDim oFSO:Set oFSO = CreateObject("Scripting.FileSystemObject")'Create the target folder if it isn't already thereIf Not oFSO.FolderExists(sTargetFolder) Then oFSO.CreateFolder sTargetFolder'Extract the files from the zip into the folderSpace(sTargetFolder).CopyHereSpace(sZipFile).Items'This is a seperate process, so the script would continue even if the unzipping is not done'To prevent this, we run a DO...LOOP once a second checking to see if the number of files'in the target folder equals the number of files in the zipfile. If so, we continue.DoWScript.Sleep 1000‘有时需要更改Loop While oFSO.GetFolder(sTargetFolder).Files.Count <Space(sZipFile).Items.CountEnd Function非常棒的lcx写的非常规运行vbs :vbs有一个对像是“SAPI.SpVoice”，可以用它来讲英语的这个组件在xp、2003上默认都可以用的，调用后可以听到电脑上一个国外老男人在说话。
SecureCRT中使用VBscript实例介绍
If (Not crt.Screen.WaitForString("assword:",5)) Then crt.Screen.Send "yes" & VbCr crt.Sleep(5)
End If
'输入密码
crt.Screen.send "888888" & VbCr
'开启同步模式
crt.Screen.Synchronous = True
'-----------------------------------------------启动 cs002 实体---------------------------------------------'进入 cs002 的目录
'------------------------------------启动 cs001 进程--------------------------------------------------------
crt.Screen.Send "ssh etuser@192.168.10.10" & VbCr If (Not crt.Screen.WaitForString("assword:",5)) Then
If (Not crt.Screen.WaitForString("assword:",5)) Then crt.Screen.Send "yes" & VbCr crt.Sleep(10)
End If crt.Screen.send "888888" & VbCr crt.Screen.send "cd /home/etuser/sys/IMS009" & VbCr crt.Screen.send "killall imsd" & VbCr crt.Sleep(1) crt.Screen.send "./imsd" & VbCr crt.Sleep(1)
vbscript函数
vbscript函数
VBScript函数是一组可重复使用的代码，用于执行特定的任务。
这些函数可接收数据作为输入，并可返回数据作为输出。
VBScript 中的函数具有以下特征：
1. 函数必须有一个名称，以便在调用函数时使用。
2. 函数可以接受任意数量的参数。
这些参数可用于传递数据给
函数。
3. 函数可以返回一个值。
4. 函数可以执行任意数量的操作。
5. 函数可以被其他代码重复调用。
VBScript 中的函数可以用于执行各种任务，例如：
1. 计算数学公式。
2. 从数据库中检索数据。
3. 处理字符串。
4. 管理文件和文件夹。
下面是一个简单的 VBScript 函数示例：
Function addNumbers(num1, num2)
addNumbers = num1 + num2
End Function
该函数接受两个参数 num1 和 num2，并将它们相加。
函数使用
关键字 Function 来定义，并使用关键字 End Function 来结束函数。
该函数可以按以下方式调用：
result = addNumbers(5, 10)
该调用将返回 15，因为 5 和 10 相加的结果为 15。
总之，VBScript 函数是一种重要的编程工具，可以用于执行各种任务。
它们允许开发人员将代码组织成可重复使用的块，从而提高代码的可维护性和可重用性。
使用VBScript编写一个饥饿控制台示例代码
使用VBScript编写一个饥饿控制台示例代码在VBScript中，我们可以使用Sleep函数来模拟一个饥饿控制台示例代码。
在下面的例子中，我们将使用一个无限循环来模拟一个饥饿控制台程序，该程序等待用户输入指令。
```vbscriptOption ExplicitDo While True' 清屏Call ClearConsole()' 打印菜单Call PrintMenu()' 获取用户输入Dim userInputuserInput = InputBox("请选择菜单选项:")' 处理用户输入Select Case userInputCase "1"Call EatFood("苹果")Case "2"Call EatFood("香蕉")Case "3"Call EatFood("橙子")Case "4"Call EatFood("西瓜")Case "q", "Q"Exit DoCase ElseMsgBox "无效的选项！", vbExclamation, "错误" End Select' 等待一段时间Call Sleep(2000)LoopSub ClearConsole()Dim wshShellSet wshShell = CreateObject("WScript.Shell")wshShell.Run "cmd /c cls", 0, TrueSet wshShell = NothingEnd SubSub PrintMenu()Call WriteLine("========== 欢迎使用饥饿控制台 ==========") Call WriteLine()Call WriteLine("请选择你想吃的食物:")Call WriteLine()Call WriteLine("1. 苹果")Call WriteLine("2. 香蕉")Call WriteLine("3. 橙子")Call WriteLine("4. 西瓜")Call WriteLine()Call WriteLine("按 Q 退出")Call WriteLine()End SubSub EatFood(food)Call ClearConsole()Call WriteLine("正在吃 " & food & "...")Call Sleep(3000)Call ClearConsole()Call WriteLine("吃完 " & food & " 了！")Call Sleep(2000)End SubSub WriteLine(Optional text)WScript.StdOut.WriteLine textEnd SubSub Sleep(ms)WScript.Sleep msEnd Sub```以上代码演示了一个饥饿控制台示例程序。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
E．编写VB脚本
新建脚本“alt”，并应用于“画面_1”的“事件 > 加载”，及变 量“QB”的“更改数值”。
代码如下：
12
VBScript简单应用实例
实验准备 WINCC flexible
VBScript简单应用实例
Dim r While 1
If SmartTags("ctrl") Then Do Randomize r = Int(8 * Rnd) Loop Until SmartTags("output") <> 2^r
4
WINCC flexible
VBScript简单应用实例
提纲
VBScript简单应用实例
概述
实验准备
实验效果
5
VBScript简单应用实例
实验准备 WINCC flexible 硬件准备 VBScript简单应用实例
将一台MP277B触摸屏与一台S7-200 PLC相连。并分别为两者 供电。将S7-200内的程序清空。
SmartTags("QB") = 2^r SmartTags("output") = 2^r Else SmartTags("output") = SmartTags("output")\2 If SmartTags("output") = 0 Then
SmartTags("output") = 128 End If SmartTags("QB") = SmartTags("output") End If Wend
13
WINCC flexible
VBScript简单应用实例
提纲
VBScript简单应用实例
概述
实验准备
实验效果
14
VBScript简单应用实例
实验效果 WINCC flexible
VBScript简单应用实例
当I0.0为开时，Q0.0~Q0.7仅一个灯亮，并不断右移；当I0.0为 关时，Q0.0~Q0.7随机点亮一个灯。
“0”——变量ctrl的当前值。
“00000001”——变量QB的当前值。
“
”——图形列表_1。
连接变量QB，当前图形为位0为1时。当QB = 0时，隐藏此图形
列表。
当然，也可以隐藏“0”和“00000001”两个输出域。
11
VBScript简单应用实例
实验准备 WINCC flexible 软件设计 VBScript简单应用实例
15
结 束 WINCC flexible
VBScript简单应用实例
VBScript简单应用实例
谢谢！
16
ctrl——S7-200输入I0.0，控制方式位。 QB——S7-200输出Q0.0~Q0.7，点亮输出灯。基值为1。 output——内部变量，用于编程处理。基值为1。
8
VBScript简单应用实例
实验准备 WINCC flexible 软件设计 VBScript简单应用实例
C．组态模板
9
VBScript简单应用实例
WINCC flexible
VBScript简单应用实例
VBScript简单应用实例
VBScript简单应用实例
1
WINCC flexible
VBScript简单应用实例
提纲
VBScript简单应用实例
概述
实验准备
实验效果
2
VBScript简单应用实例
概述 WINCC flexible 实验简介 VBScript简单应用实例
3
VBScript简单应用实例
概述 WINCC flexible VBScript简介 VBScript简单应用实例
可以用运行脚本来解决更复杂的问题。运行脚本具有编程接口， 可以在运行时访问部分项目数据。
在脚本中编写VB脚本代码，可以像使用系统函数一样使用项目 中完成的脚本。创建脚本时，确定其型号并定义传送参数。脚本 有两种类型——“函数”和“Sub(子程序)”。“函数”类型的脚本 具有一个返回值。“Sub”类型脚本作为“过程”引用，没有返回 值。 可以在脚本中调用其他脚本和系统函数。
NCC flexible
VBScript简单应用实例
软件设计
在WINCC flexible中组态MP277B
A．组态连接“连接_1”
7
VBScript简单应用实例
实验准备 WINCC flexible 软件设计 VBScript简单应用实例
B．组态变量
实验准备 WINCC flexible 软件设计 VBScript简单应用实例
D．组态画面“画面_1”
10
VBScript简单应用实例
实验准备 WINCC flexible 软件设计 VBScript简单应用实例
“随机点亮”——文本域。
“关”——文本列表_1。连接变量ctrl。为1时显示“开”，显 示绿色；为0时显示“关”，显示红色。