㈠ 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里的數據來修改這些參數；二是利用動態塊，然後方法同一。請教紅字部分如何實現，謝謝。