㈠ VB脚本代码大全 谁发给来
1.数值型函数：
abs(num): 返回绝对值
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负
hex(num): 返回十六进制值 直接表示：&Hxx 最大8位
oct(num): 返回八进制值 直接表示：&Oxx 最大8位
sqr(num): 返回平方根 num>0
int(num): 取整 int(99.8)=99; int(-99.2)=100
fix(num): 取整 fix(99.8)=99; fix(-99.2)=99
round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2
log(num): 取以e为底的对数 num>0
exp(n): 取e的n次幂 通常用 num^n
sin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num)
2.字符串函数：
len(str)：计算字符串长度 中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串
注：默认值：起始字符 1；替代次数 不限；比较方法 区分大小写（0）
InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串 可选参数需同时选 返回起始位置
InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串 返回起始位置
space(n)：构造n个空格的字符串
string(n,str)：构造由n个str第一个字符组成的字符串
StrReverse(str)：反转字符串
split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组 可选参数需同时选
3.数据类型转换函数：
Cint(str)：转换正数 True -1；False 0；日期 距离1899/12/31天数；时间 上午段 0；下午段 1；
Cstr(str)：日期 输出格式 yyyy/mm/dd；时间 输出格式 Am/Pm hh:mm:ss
Clng(str)：与Cin()类似
Cbool(num)：num不为零 True；反之 False
Cdate(str)：转换日期格式 0：#Am 12:00:00#；正数 距离1899/12/31天数的日期；浮点数 日期＋小数时间
Cbyte(num)：num<255 转换为字节
Csng(str)：转换为单精度数值
Cdbl(str)：转换为双精度数值
Ccur(str)：转换为现金格式
4.时间函数：
date：取系统当前日期
time：取系统当前时间
now：取系统当前时间及日期值 Datetime类型
timer：取当前时间距离零点秒值，计时器，可计算时间差
DateAdd(间隔单位,间隔值,日期)：推算相邻日期
DateDiff(间隔单位,日期一,日期二)：计算时间差 日期二-日期一
Datepart(间隔单位,日期)：计算日期的间隔单位值
Dateserial(date)：输出日期值（按序列计算）
Timeserial(time)：输出时间值（按序列计算）
Datevalue(datetime)：取出字符串中日期值
Timevalue(datetime)：取出字符串中时间值
weekday(date)：计算星期几
MonthName(date)：输出月分名
year(datetime)：截取年份
month(datetime)：截取月份
day(datetime)：截取日
hour(datetime)：截取小时
minute(datetime)：截取分钟
second(datetime)：截取秒
5.其它函数：
Array(unit,..)：动态生成数组
Asc(str)：输出字符串第一个字符的ASCII码
Chr(asc)：转换ASCII为字符 Enter：Chr(13)&Chr(10)
Filter(数组名称,关键字符串,[,包含][,比较方法])：
将字符串数组中含有关键字符串的元素存成新的数组（默认） [包含]为false则取不包含的元素
oin(ArrayName)：将数组中元素连成字符串
Ubound(ArrayName[,维数])：取得数组相应维数的上界
Lbound(ArrayName[,维数])：取得数组相应维数的下界 一般为0
Randmize n：启动随机数种子
Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数
取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A) 条件（B>A）
子程序和自定义函数
Sub StrSubName Function StrFunName(arg[1],..)
子程序体 函数体
Exit Sub 中途跳出 Exit Function 中途跳出
End Sub StrFunName＝value 返回值
End Function
[call] StrSubName 引用子程序 Var=StrFunName(arg[1],..) 引用函数
㈡ vb 脚本 传递参数的问题
参数
外部传递的命令行参数吗？
可以用 Command$ 接收
vbs 脚本的话接收参数是
dim args
set args = wscript.arguments
msgbox args.count '显示传递参数的总数
msgbox args(0) '第一个参数
㈢ 使用VB脚本代码编写程序
代码如下，代码源文件和图片附件里面也有。
<form>
<div><td><input type=text style="width:200px; height:25px;" name="incontent" value=""> <input type=submit name="submit" value="搜索">
</td></div>
<div>
<td>
<input type=radio name="search" value="bd">网络
<input type=radio name="search" value="yh">Yahoo
<input type=radio name="search" value="sg">搜狗
</td>
</div>
</form>
<%
'网络 http://www..com/s?wd=
'搜狗 http://www.sogou.com/sogou?query=
'Yahoo https://search.yahoo.com/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p=test&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1
dim nr,ss
ss= Request.QueryString("search")
nr= Request.QueryString("incontent")
if ss="bd"then
response.redirect("http://www..com/s?wd="&nr)
elseif ss="yh" then
response.redirect("https://search.yahoo.com/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p="&nr&"&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1")
elseif ss="sg"then
response.redirect("http://www.sogou.com/sogou?query="&nr)
ss= Request.QueryString("search")=""
response.redirect("index.asp")
end if
%>
㈣ 怎么用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窗口，即那个黑框框。
㈤ 用vb.net编程实现参数化求助
参数化是指把模型里的属性、可以设置的地方使用参数替代来完成参数化的。
这个要具体看你编写什么样子的程序。
㈥ 推荐一个VB运行脚本的方法
VB所需要的所有代码只能写在程序源码中.
要实现你说的功能,只能借用VBS
VB不是解释性的编程语言.VB程序源代码都是被编译成机械码后才成EXE文件的.
所以VB编译好的程序没有运行代码的函数.
如果不怕麻烦,就把所有代码的处理程序写到VB中.
要不就利用VBS脚本中的execute函数,在VBS中执行execute(a),则字符串a会被当程序执行.比如在VBS中:
a="Msgbox(now)"
execute (a)
的执行结果等于Msgbox(now)的结果.
把你要处理的代码以字符串(记得换行!)的形式存在a中,再在VBS中执行
execute(a)
即可.
㈦ 制作vb脚本
简单点的可以绑定他的mac地址
但是mac
可以被指定 最好就是绑定他的硬盘序列号啦
如果限制时间还要有个网络校时功能 不然他该系统时间就可以用啦 ，网络时间可以从任意网站获得
㈧ QTP参数化的作用
QTP是自动化工具 ，
数据表和随机数参数化是让机子自动跑脚本。
主要优点
Mercury QuickTest Professional 甚至可以使新测试人员在几分钟内提高效率。您只需通过按“记录”按钮，并使用执行典型业务流程的应用程序即可创建测试脚本。系统使用简明的英文语句和屏幕抓图来自动记录业务流程中的每个步骤。用户可以在关键字视图中轻松修改、删除或重新安排测试步骤。
QuickTest Professional 可以自动引入检查点，以验证应用程序的属性和功能，例如验证输出或检查链接有效性。对于关键字视图中的每个步骤，活动屏幕均准确显示测试中应用程序处理此步骤的方式。您也可以为任何对象添加几种类型的检查点，以便验证组件是否按预期运行（只需在活动屏幕中单击此对象即可）。
然后，可以在产品介绍（具有 Excel 所有功能的集成电子表格）中输入测试数据，以便在不需要编程的情况下处理数据集和创建多个测试迭代，从而扩大测试案例范围。您可以键入数据，或从数据库、电子表格或文本文件导入数据。
高级测试人员可以在专家视图中查看和编辑自己的测试脚本，该视图显示 QuickTest Professional 自动生成的基于业界标准的内在 VB 脚本。专家视图中进行的任何变动自动与关键字视图同步。
一旦测试人员运行了脚本，TestFusion 报告显示测试运行的所有方面：高级结果概述，准确指出应用程序故障位置的可扩展树视图，使用的测试数据，突出显示任何差异的应用程序屏幕抓图，以及每个通过和未通过检查点的详细说明。通过使用 Mercury TestDirector 合并 TestFusion 报告，您可以在整个 QA 和开发团队中共享报告。
QuickTest Professional 也加快了更新流程。当测试中应用程序出现变动（例如“登录”按钮重命名为“登入”）时，您可以对共享对象库进行一次更新，然后此更新将传播到所有引用该对象的脚本。您可以将测试脚本发布到 Mercury TestDirector，使其他 QA 团队成员可以重复使用您的测试脚本，从而消除了重复工作。
QuickTest Professional 支持所有常用环境的功能测试，包括 Windows、Web、.Net、Visual Basic、ActiveX、Java、SAP、Siebel、Oracle、PeopleSoft 和终端模拟器。目前为防止系统加载插件过多导致系统负载过重，在系统中只支持3个常用环境插件。
QTP8.0带出了自动化测试革命的一个新名词：关键字驱动。
QTP自身又带有数据表支持数据驱动的测试，数据驱动使得自动化测试代码复用率显着提高，E测工作室自动化测试专家认为一段自动化测试脚本想要收回成本至少要被运行6次以上，数据驱动即提高了自动化测试收益。
㈨ vb里的随机数参数化是什么意思
就是要指定随机数的产生范围
㈩ 请教vb/vba如何访问、修改参数化设计中的参数
我想达到的目的是，有一些列标准的变压器，只是各个零件的尺寸 数量不同，通过电磁计算（在excel中完成）得出各个零件的尺寸，然后输出BOM（这个已经在excel里通过vba完成）和绘制图纸，绘制图纸是通过首先绘制一套标准的图纸，然后通过excel里面的各个零件的尺寸等来修改这套标准的图纸来达到每个容量的变压器的图纸（由于一些原因，需要1：1画），我想到两种方法，一是autocad2011的参数化绘图功能，给各零件尺寸定义为形如d1、d2、d3等参数，后通过编程方法连接excel里的数据来修改这些参数；二是利用动态块，然后方法同一。请教红字部分如何实现，谢谢。