其他

在大部分情況下，Msxml2.XMLHTTP 能夠很好地完成工作，因為它是有緩衝的。比如，我們用 Msxml2.XMLHTTP 發送 HTTP POST 請求類比登陸了某個網站，它會把登陸時的 Cookie 和 Session 緩衝下來，當我們想擷取網站的資料時直接 HTTP GET 就行了，不需要人工發送 Cookie 和 Session。 但是，在有些時候，緩衝會給我們造成麻煩。比如我們要寫一個 VBS

複製代碼 代碼如下: set wsh = createobject("wscript.shell") wscript.sleep 15 * 60 * 1000 wsh.run "shutdown /s /t 0" 雙擊運行，居然彈出個錯誤對話方塊 複製代碼 代碼如下: Line: 1 Char: 1 Error: Wrong number of arguments or invalid property assignment: ‘wsh' Code: 800A01C2 Source:

其實 MSDN 的 VBScript 文檔中關於 Function 和 Sub 語句的部分提到過 Default 關鍵字： 複製代碼 代碼如下: Default Used only with the Public keyword in a Class block to indicate that the Function procedure is the default method for the class. An error occurs if more than one Default

複製代碼 代碼如下: title="WinRaR破譯(目前只做了破譯數字)" set WshShell = CreateObject("WScript.Shell" ) set fso = CreateObject("scripting.filesystemobject") Function input()

在測試目錄寫了一個簡單的referer.php，代碼如下 複製代碼 代碼如下: <?php if (!isset($_SERVER["HTTP_REFERER"])) echo "No Referer"; else echo $_SERVER["HTTP_REFERER"]; ?> 如果直接點擊上面的連結，那麼頁面會顯示referer頁面的連結。 複製代碼 代碼如下: Set http = CreateObject("msxml2.xmlhttp") http.open "GET"

pack.vbs 用來打包檔案夾, 根目錄為檔案所在目錄. 複製代碼 代碼如下: Dim n, ws, fsoX, thePath Set ws = CreateObject("WScript.Shell") Set fsoX = CreateObject("Scripting.FileSystemObject") thePath = ws.Exec("cmd /c cd").StdOut.ReadAll() & "\" i = InStr(thePath, Chr(13)) thePath =

壓縮代碼: 複製代碼 代碼如下: Zip "D:\test.iso", "D:\test.zip" Zip "D:\test", "D:\test.zip" Msgbox "OK" Sub Zip(ByVal mySourceDir, ByVal myZipFile) Set fso = CreateObject("Scripting.FileSystemObject") If fso.GetExtensionName(myZipFile) <> "zip" Then Exit

既然Python可以計算2的100次方，那麼我就要用VBS實現。不過這個效率嘛，計算2的10000次方Python用了0.009013秒，VBS用了120.9805秒，不是一個等級的，我就不多說什麼了。 直接上代碼： 複製代碼 代碼如下: 'Date: 2010/10/27 'Author: Demon 'QQ: 380401911 'E-mail: still.demon@gmail.com begin = Timer n = 1 For i = 1 To 100 n =

曾經遇到這樣的情況,在資料庫的Meeting表中有PublishTime (DateTime,8)欄位,用來儲存一個開會時間,在存入時由於要指明開會具體時間,故格式為yyyy-mm-dd hh:mm:ss,而我們查詢時是通過yyyy-mm-dd來進行的,即查詢某一天的所有會議資訊,這樣如果通過select * from Meeting where PublishTime=@PublishTime (參數@Publis

複製代碼 代碼如下: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colFiles = objWMIService. _ ExecQuery("Select * from CIM_DataFile where Extension = 'mp3'") For

do.vbs複製代碼 代碼如下:'BY Coo_boi If WScript.Arguments.Count=0 Then WScript.Quit Dim fso,txt,htm txt=WScript.Arguments(0) Set fso=CreateObject("Scripting.FileSystemObject") Set htm=fso.CreateTextFile(txt&".htm",True) title=fso.GetFile(txt).Name title=Left(

而Windows下沒有一個現存的比較好用的分割工具，所以我用VBS做了一個文字檔的分割工具，和各位網友共用。指令碼代碼如下： 複製代碼 代碼如下: Option Explicit '這個指令碼只用來分割文字檔，指令碼需要3個參數 '參數列表 '檔案名稱 參數1 參數2 '夢想工作室 www.mx111.com '樣本 參數1 參數2 參數意義 ' S 5 等分為5個檔案 ' E 1024 按照1024的大小分割檔案 ' F 1024 取最前面的1024位元組存為一個檔案 ' L 1024

複製代碼 代碼如下: On Error Resume Next 'Code By NetPatch Set Arg=Wscript.Arguments If Arg.Count=0 Then Wscript.Quit Set Fso = CreateObject("Scripting.FileSystemObject") Set Conn = CreateObject("ADODB.Connection") Set Rs = CreateObject("ADODB.Recordset")

複製代碼 代碼如下:/* *@curentpage 當前頁 *@pagesize 每頁記錄數 *@TableName 表名 *@key 主鍵（自動排序） *@where 查詢條件 1）空為 null 2）有查詢條件不要帶where *@order '0'表示　desc '1'是asc *@pageCount 總頁數 */ create procedure Page @currentpage int,@pagesize int, @TableName varchar(30),@key

複製代碼 代碼如下:set arg=wscript.arguments If arg.count = 0 Then show_help() wsh.quit End If Server = arg(0) User = arg(1) pass = arg(2) database_name = arg(3) table_name = arg(4) set Conn = CreateObject("ADODB.Connection") Conn.Open "Driver={SQL

Sub 語句聲明 Sub 過程的名稱、參數以及構成其主體的代碼。 [Public [Default]| Private] Sub name [(  arglist)] [statements][Exit Sub][statements]End Sub參數Public表示 Sub 過程可被所有指令碼中的所有其他過程訪問。Default只與 類塊中的Public 關鍵字連用，用來表示 Sub 過程是類的預設方法。

進入查詢時段後，輸入下面的語句： CREATE INDEX mycolumn_index ON mytable (myclumn) 這個語句建立了一個名為mycolumn_index的索引。你可以給一個索引起任何名字，但你應該在索引名中包含所索引的欄位名，這對你將來弄清楚建立該索引的意圖是有協助的。 注意： 在本書中你執行任何SQL語句，都會收到如下的資訊： This command did not return data,and it did not return any rows

CreateFolder 方法建立檔案夾。object.CreateFolder(foldername)參數object必選項。應為 FileSystemObject 對象的名稱。foldername必選項。字串運算式，指明要建立的檔案夾。說明如果指定的檔案夾已經存在，則會出現錯誤。下面例子舉例說明如何使用 CreateFolder 方法： Function CreateFolderDemo Dim fso, f Set fso =

SQL Server 提供系統資料類型集，定義了可與 SQL Server 一起使用的所有資料類型。下面列出系統提供的資料類型集。 可以定義使用者定義的資料類型，其是系統提供的資料類型的別名。有關使用者定義的資料類型的更多資訊，請參見 sp_addtype 和建立使用者定義的資料類型。 當兩個具有不同資料類型、定序、精度、小數位元或長度的運算式通過運算子進行組合時： 通過將資料類型的優先順序規則應用到輸入運算式的資料類型來確定所得值的資料類型。有關更多資訊，請參見資料類型的優先順序。

CreateTextFile 方法建立指定檔案並返回 TextStream 對象，該對象可用於讀或寫建立的檔案。object.CreateTextFile(filename[, overwrite[, unicode]])參數object必選項。應為 FileSystemObject 或 Folder 對象的名稱。filename必選項。字串運算式，指明要建立的檔案。overwrite可選項。Boolean 值指明是否可以覆蓋現有檔案。如果可覆蓋檔案，該值為