其他

這篇日誌完全是看了一篇日誌後的啟發，原文為：邪惡的eval和new Function。 很少使用new Array的方式來定義數組，沒想到new Array有這麼一個妙用，通過new

以前有介紹如何使用命令列調用系統的關機對話方塊： 具體方法：開始／運行： 複製代碼 代碼如下: rundll32.exe shell32.dll #60 但是，上述方法會存在一問題，XP下無法正常使用該方法進行關機（感謝網友沐燁 發現該問題）。問題原因可能是：正常情況下，關機對話方塊是有explorer.exe調用，直接使用rundll32調用時無法觸發相關命令。 既然使用explorer.exe調用可以，我們可以嘗試使用指令碼來實現。實現原理： 啟用explorer.exe 按ALT＋F4

This script demonstrates how to save information to a xml file with the use of MSXML. The example xml file is used for the photo album on the site. 複製代碼 代碼如下: '***************************************************************** '** Script:

複製代碼 代碼如下: '***************************************************************** '** Script: getxmlelement.vbs '** Version: 1.0 '** Created: 1/8/2009 10:58PM '** Author: Adriaan Westra '** E-mail: '** Purpose / Comments: '** Get an element from a xml

怎麼用VBS類比滑鼠左鍵單擊、左鍵雙擊、按右鍵？…… 網上搜到的答案普遍是VBS無法實現，或者是要用第三方COM（ActiveX？）組件。我對第三方組件是很反感的，使用第三方組件毫無可移植性可言，因為別人的系統中不一定註冊了這個組件。我的建議是，盡量不要在VBS代碼中調用第三方組件，除非你的程式只是寫來自己用。（順便說一下，也盡量不要用不靠譜的Sendkeys方法，原因不解釋） 好了，廢話就說這麼多，現在說說用VBS控制滑鼠的方法。我以前寫過一篇《VBS調用Windows

RootFolder 屬性返回一個 Folder 對象，表示指定磁碟機的根資料夾。唯讀。object.RootFolder object 應為 Drive 對象的名稱。說明使用返回的 Folder 對象，可以訪問指定磁碟機包含的所有檔案和檔案夾。下面例子舉例說明如何使用 RootFolder 屬性：Function ShowRootFolder(drvspec) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject")

SerialNumber 屬性返回十進位序號，用於唯一標識一個磁碟卷。object.SerialNumber object 應為 Drive 對象的名稱。說明可以使用 SerialNumber 屬性以確保在抽取式媒體磁碟機中插入正確的磁碟。以下代碼舉例說明如何使用 SerialNumber 屬性：Function ShowDriveInfo(drvpath) Dim fso, d, s, t Set fso =

ShortPath 屬性返回按照 8.3 命名規範轉換的短路徑名。object.ShortPath object 應為 File 或 Folder 對象的名稱。說明以下代碼舉例說明如何使用 ShortName 屬性：Function ShowShortPath(filespec) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(filespec)

這些頁包含的資訊其目的是提供一個關於Regex的通用介紹。 儘管試圖讓每個主題的內容都比較獨立，但這些主題所包含的大部分資訊都依賴於對前面所介紹的特性或概念的理解。因此，建議您順序地仔細閱讀這些主題，以便最全面地瞭解這些材料。“Regex簡介”包括下述各個主題：Regex早期起源使用RegexRegex文法建立Regex優先權順序一般字元特殊字元非列印字元字元匹配限定符定位器選擇與編組後向引用

字元匹配句點 (.) 匹配一個字串中任何單個的列印或非列印字元，除了分行符號 (\n) 之外。下面的 Visual Basic Scripting Edition Regex可以匹配 'aac'、'abc'、'acc'、'adc'如此等等，同樣也可以匹配 'a1c'、'a2c'、a-c'以及 a#c'： /a.c/等價的 VBScript Regex為："a.c"如果試圖匹配一個包含檔案名稱的字串，其中句點 (.) 是輸入字串的一部分，則可以在Regex中的句點前面加上一個反斜線 (\)

Microsoft Visual Basic Scripting Edition 是程式開發語言 Visual Basic 家族的最新成員，它將靈活的 Script 應用於更廣泛的領域，包括 Microsoft Internet Explorer 中的 Web 客戶機 Script 和 Microsoft Internet Information Server 中的 Web 服務器 Script。 　　易學易用　　如果您已瞭解 Visual Basic 或 Visual Basic for

Microsoft Visual Basic Scripting Edition 是程式開發語言 Visual Basic 家族的最新成員，它將靈活的 Script 應用於更廣泛的領域，包括 Microsoft Internet Explorer 中的 Web 客戶機 Script 和 Microsoft Internet Information Server 中的 Web 服務器 Script。 易學易用如果您已瞭解 Visual Basic 或 Visual Basic for

什麼是變數？變數是一種使用方便的預留位置，用於引用電腦記憶體位址，該地址可以儲存 Script 運行時可更改的程式資訊。例如，可以建立一個名為 ClickCount 的變數來儲存使用者單擊 Web 頁面上某個對象的次數。使用變數並不需要瞭解變數在電腦記憶體中的地址，只要通過變數名引用變數就可以查看或更改變數的值。在 VBScript 中只有一個基礎資料型別 (Elementary Data Type)，即 Variant，因此所有變數的資料類型都是

VB教程 > 第七課使用條件陳述式 控製程序執行使用條件陳述式和迴圈語句可以控制 Script 的流程。使用條件陳述式可以編寫進行判斷和重複操作的 VBScript 代碼。在 VBScript 中可使用以下條件陳述式： · If...Then...Else 語句 · select Case 語句 使用 If...Then...Else 進行判斷If...Then...Else 語句用於計算條件是否為 True 或

複製代碼 代碼如下:'Hardware_Info.vbs v1.1 BY: fastslzOn Error Resume NextDim WMI,WS,FsoSet WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")Set cOSs = WMI.ExecQuery("Select * from Win32_OperatingSystem")For Each oOS in

WriteBlankLines 方法在 TextStream 檔案中寫入指定數目的新行字元。object.WriteBlankLines(lines)參數object必選項。應為 TextStream 對象的名稱。lines必選項。要向檔案寫入的新行字元數目。說明下面例子舉例說明如何使用 WriteBlankLines 方法: Function WriteBlankLinesToFile Const ForReading = 1, ForWriting = 2 Dim fso, f

晚上在 QQ 上看到暱稱為“亂碼”的好友回答了搜搜問問裡一個問題： 在VBS中有辦法定義位元組數組嗎？ 在VBS中有辦法定義位元組數組嗎？就是位元組子類型數組（VarType是8209的那種）注意不是VB！ 但是回答實在是不堪入目，連別人問什麼都沒搞懂，而且那人居然還滿意，真不知道他在想什麼。 閑來沒事，我來簡單回答一下。首先要搞清楚別人在問什麼，VBS 是弱類型指令碼語言，只有一種資料類型，稱為 Variant，但是 Variant

AtEndOfStream 屬性如果檔案指標位於 TextStream 檔案末，則返回 True；否則如果不為唯讀則返回 False。object.AtEndOfStreamobject 應為 TextStream 對象的名稱。說明AtEndOfStream 屬性僅應用於以唯讀方式開啟的 TextStream 檔案，否則會出現錯誤。下列代碼舉例說明如何使用 AtEndOfStream 屬性：Function ReadEntireFile(filespec) Const ForReading =

昨天寫《QWERTY密碼：加密與解密》的時候，為了得到26個字母的字串，寫了這樣一個 For Next 迴圈： 複製代碼 代碼如下: 'Author: Demon 'Website: http://demon.tw 'Date: 2012/2/10 For i = 65 To (i + 25) s = s & Chr(i) Next WScript.Echo s 運行後卻發現沒有字串輸出，覺得很奇怪，於是簡單修改了一下： 複製代碼 代碼如下: 'Author: Demon 'Website:

那天跟別人聊到 Y2K38 問題，於是想到一個惡作劇：用 VBS 把系統的時間修改到2038年1月19日3時14分07秒之後，這樣某些依賴於 Unix 時間戳記的程式就會出問題。那麼怎樣用 VBS 修改系統的時間呢？ 最簡單也是最沒有技術含量的方法就是調用 cmd 的 date 和 time 命令： 複製代碼 代碼如下: 'Author: Demon 'Website: http://demon.tw 'Date : 2011/4/27 Dim WshShell Set WshShell =