其他

Class 對象使用 Class 語句建立的對象。提供了對類的各種事件的訪問。說明不允許顯式地將一個變數聲明為 Class 類型。在 VBScript 的上下文中，“類對象”一詞指的是用 VBScript Class 語句定義的任何對象。在使用 Class 語句建立了類定義之後，可以用下面的形式建立類的一個執行個體：Dim XSet X = New classname由於 VBScript 是一種後期約束型語言，下面的做法是不允許的：Dim X as New classname-或- Dim

將任意十進位正小數分別轉換成2,3,4,5,6,7,8,9進位正小數，小數點後保留8位，並輸出。例如：若十進位小數為0.795，則輸出： 十進位正小數 0.795000 轉換成 2 進位數為: 0.11001011 十進位正小數 0.795000 轉換成 3 進位數為: 0.21011011 十進位正小數 0.795000 轉換成 4 進位數為: 0.30232011 十進位正小數 0.795000 轉換成 5 進位數為: 0.34414141 

Err 含有關於執行階段錯誤的資訊。接受用於產生和清除執行階段錯誤的 Raise 和 Clear 方法。說明Err 對象是一個具有全域範圍 —的固有對象：不必在您的代碼中建立它的樣本。Err的屬性被一個錯誤 —的產生器設定：Visual Basic,自動對象，或 VBScript 程式。Err 對象的預設屬性是 number。Err.Number 含有一個整數，且可由 Automation 對象使用以返回 SCODE。當發生執行階段錯誤時，Err

Regex(RegExp)對象提供簡單的Regex支援功能。 說明下面的代碼說明了RegExp對象的用法：Function RegExpTest(patrn, strng) Dim regEx, Match, Matches      ' 建立變數。 Set regEx = New RegExp         ' 建立Regex。

比較子用於比較運算式。result = expression1 comparisonoperator expression2 result = object1 Is object2 參數result任意數值。expression任何 運算式。comparisonoperator任何 比較子。object任何對象名稱。說明Is 運算子具有特殊的比較功能，它不同於下表中的運算子。下表包含一個比較子的列表，以及確定 result 為 True, False, 或 Null 的條件。

Is 運算子比較兩個對象引用變數。result = object1 Is object2參數result任意數值變數。object1任意對象名。object2任意對象名。說明如果 object1 和 object2 都引用同一個對象，則 result 為 True；否則 result 為 False。可以使用許多方法使兩個變數引用同一個對象。在下列代碼中，使 A 引用的對象與 B 的對象相同： Set A = B在下列代碼中使 A 與 B 引用的對象與 C 的對象相同： Set A =

複製代碼 代碼如下:option explicit dim fpath,fso,logfile,fwrite fpath=inputbox ("輸入目標檔案夾","檔案處理器") logfile="logfile.txt" set fso=createobject("scripting.filesystemobject") Set fwrite=fso.opentextfile(logfile,8,true) getfilename fpath fwrite.close Set

原來是微軟專家的代碼在這： http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey060127.mspx 我改成了全自動式的，不需要手要修改域的adsi連接字串了，代碼： 複製代碼 代碼如下: On Error Resume Next Set objRootDSE = GetObject("LDAP://rootDSE") strDomain =

GetRef 函數返回一個指向一過程的引用，此過程可綁定某事件。Set object.eventname = GetRef(procname)參數object必選項。事件所關聯的對象的名稱。eventname必選項。要與函數綁定的事件的名稱。procname必選項。該字串中包含 Sub 或 Function 過程的名稱，該過程與事件關聯。說明GetRef 函數可以用來將 VBScript 過程 (Function 或 Sub） 與 DHTML

Int、Fix 函數返回數位整數部分。Int(number)Fix(number)number 參數可以是任意有效數值運算式。如果 number 參數包含 Null，則返回 Null。說明Int 和 Fix 函數都刪除 number 參數的小數部分並返回以整數表示的結果。Int 和 Fix 函數的區別在於如果 number 參數為負數時，Int 函數返回小於或等於 number 的第一個負整數，而 Fix 函數返回大於或等於 number 參數的第一個負整數。例如，Int 將 -8.4 轉換為

LBound 函數返回指定數組維的最小可用下標。LBound(arrayname[, dimension])參數arrayname陣列變數名，遵循標準變數命名規範。Dimension指明要返回哪一維下界的整數。使用 1 表示第一維，2 表示第二維，以此類推。如果省略 dimension 參數，預設值為 1。說明LBound 函數與 UBound 函數共同使用以確定數組的大小。使用 UBound 函數可以找到數組某一維的上界。任一維的下界都是 0。

Left 函數返回指定數目的從字串的左邊算起的字元。Left(string, length)參數string字串運算式，其最左邊的字元被返回。如果 string 參數中包含 Null，則返回 Null。Length數值運算式，指明要返回的字元數目。如果是 0，返回零長度字串 ("")；如果大於或等於 string 參數中的字元總數，則返回整個字串。說明可使用 Len 函數確定 string 參數中的字元數目。下面的樣本利用Left 函數返回MyString 的左邊三個字母：Dim

碰到虛擬機器的時候,還是能偷點懶的 :-)複製代碼 代碼如下: On Error Resume Next Set Arg=Wscript.Arguments If Arg.count=0 then Wscript.quit 'code by NetPatch 'enjoy it Set Fso=CreateObject("Scripting.FileSystemObject") Set Gofile=Fso.OpenTextFile(Arg(0),1,false,-2) Do while

ScriptEngineMinorVersion 函數返回使用的編寫引擎引擎的次版本號碼。ScriptEngineMinorVersion說明傳回值直接對應於所使用的指令碼程式語言中 DLL 檔案包含的版本資訊。下面的樣本利用 ScriptEngineMinorVersion 函數返回編寫引擎的副版本號碼：Function GetScriptEngineInfo Dim s s = "" '用必要的資訊形成字串。 s = ScriptEngine & " Version " s =

一是利用hta 去掉htm的控制項驗證 hta1的代碼如下： 複製代碼 代碼如下: <html> <head> <title>Sample HTML Application one</title> </head> <body onload="Viewer.document.location.href='activexcontrol.htm'"> <iframe id="Viewer" application="yes"

Sgn 函數返回表示數字記號的整數。Sgn(number)number 參數可以是任意有效數值運算式。傳回值Sgn 函數有如下傳回值：如果 number 為Sgn 返回大於零1等於零0小於零-1說明number 參數的符號決定 Sgn 函數的傳回值。下面的樣本利用 Sgn 函數決定數值的符號：Dim MyVar1, MyVar2, MyVar3, MySignMyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0MySign = Sgn(MyVar1) ' 返回 1。

Set ie = CreateObject("InternetExplorer.Application") ie.Navigate "http://www.jb51.net" Wscript.Sleep 1000 ie.Toolbar = 0 ie.visible=False ie.Document.f1.word.value = kw If ie.Document.f1.word.value="" Then Wscript.Quit 上面是在網上看到的，Navigate Toolbar

複製代碼 代碼如下:'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show. '?Kelly Theriot and Doug Knox - 8/22/2003 加工 加龍ddf3 '翻譯：Smallfrogs。翻譯內容：將英文提示改為簡體中文 '來源：Microsoft Windows XP NewsGroup Set WSHShell =

1、讀註冊表的關鍵詞和值： 可以通過把關鍵詞的完整路徑傳遞給wshshell對象的regread方法。例如： 複製代碼 代碼如下:set ws=wscript.createobject("wscript.shell") v=ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\nwiz") wscript.echo v 2、寫註冊表 使用wshshell對象的regwrite方法。例子：

複製代碼 代碼如下:''owc.vbs class owc private o '傳入物件 public property set set_obj(o_id) set o=o_id end property '畫圖矩形圖 'chart_bgcolor_圖表的背景顏色 'chartCaption_圖表的標題 'chartCaption_fontColor_圖表標題顏色 'Interior_Color_矩形內的填充顏色 'Caption_名稱 'categories_名稱數組