來嘍！新作代碼！

看看！往下！

非代碼塊版：

Set objShell = CreateObject("Wscript.Shell")

'WScript.Sleep 5000

dim i

do

msgbox"next!"

WScript.Sleep 3000

for i=1 to 100

'WScript.Sleep 100

objShell.SendKeys "error"

objShell.SendKeys "{ENTER}"

next

loop

代碼塊版：

順便附贈(zèng)一下我們的vbs函數(shù)表（部分）：

基本運(yùn)算?

　　+ 數(shù)字加法及字符串連接?

　　- 數(shù)字減法?

　　* 數(shù)字乘法?

　　/ 數(shù)字除法?

　　Mod 求余數(shù)?

　　\ 求商數(shù)?

　　& 字符串連接?

　　^ 次方?

　　= 相等?

　　<> 不相等?

　　>= 大于或等于?

　　> 大于?

　　<= 小于或等于?

　　< 小于?

　　Not 非?

　　And 且?

　　Or 或?

　　Xor 異或?

　　循環(huán)及決策?

　　if ....then 若...則...?

　　if ...then...else 若...則...非?

　　else if... 非若?

　　select case... 群組選擇條件?

　　end select?

　　for ... next 計(jì)數(shù)循環(huán)?

　　while...wend 條件循環(huán)(一)?

　　do while...loop 條件循環(huán)(二)?

　　do...loop while 條件循環(huán)(三)?

　　do until...loop 條件循環(huán)(四)?

　　do...loop until 條件循環(huán)(五)?

　　數(shù)學(xué)函數(shù)?

　　abs絕對(duì)值?

　　Sgn 正負(fù)號(hào)?

　　Hex 轉(zhuǎn)換成十六進(jìn)制?

　　Oct 轉(zhuǎn)換成八進(jìn)制?

　　Sqr 平方根?

　　Int 取整數(shù)?

　　Fix 取整數(shù)?

　　Round 取整數(shù)?

　　Log 以e為底的對(duì)數(shù)?

　　Sin 正弦函數(shù)?

　　Cos 余弦函數(shù)?

　　Tan 正切函數(shù)?

　　字符串處理函數(shù)?

　　IsNull 判斷對(duì)象是否為空?

　　Len 字符串長(zhǎng)度?

　　Mid 取部分字符串?

　　Left 從字符串開頭取部分字符串?

　　Right 從字符串結(jié)尾取部分字符串?

　　Lcase 轉(zhuǎn)換成小寫?

　　Ucase 轉(zhuǎn)換成大寫?

　　Trim 清除字符串開頭及結(jié)尾的空格符?

　　Ltrim 清除字符串開頭空格符?

　　Rtrim 清除字符串結(jié)尾空格符?

　　Replace 替換字符串部分字符?

　　Instr 判斷是否包含于另一個(gè)字符串(從起始搜尋)?

　　InstrRev 判斷是否包含于另一個(gè)字符串(從結(jié)尾搜尋)?

　　Space 任意字符數(shù)的空格符?

　　String 任意字符數(shù)的任一字符?

　　StrReverse 反轉(zhuǎn)字符串?

　　Split 以某字符分割字符串?

　　數(shù)據(jù)類型轉(zhuǎn)換函數(shù)?

　　Cint 轉(zhuǎn)換成整形?

　　Cstr 轉(zhuǎn)換成字符串?

　　Clng 轉(zhuǎn)換成長(zhǎng)整數(shù)?

　　Cbool 轉(zhuǎn)換成布爾函數(shù)?

　　Cdate 轉(zhuǎn)換成日期函數(shù)?

　　CSng 轉(zhuǎn)換成單精度?

　　CDbl 轉(zhuǎn)換成雙精度?

　　日期時(shí)間函數(shù)?

　　Date 現(xiàn)在日期?

　　Time 現(xiàn)在時(shí)間?

　　NOw 現(xiàn)在日期時(shí)間?

　　DateAdd 增加日期?

　　DateDiff 兩日期差?

　　DateSerial 日期設(shè)定?

　　Datevalue 日期設(shè)定?

　　Year 現(xiàn)在年份?

　　Month 現(xiàn)在月份?

　　Day 現(xiàn)在天?

　　Hour 現(xiàn)在時(shí)刻?

　　Minute 現(xiàn)在分鐘?

　　Second 現(xiàn)在秒鐘?

　　Timer 午夜距現(xiàn)在秒數(shù)?

　　TimeSerial 時(shí)間設(shè)定?

　　Timevalue 時(shí)間所屬部分?

　　WeekDay 星期名稱?

　　MonthName 月份名稱?

　　其它函數(shù)?

　　Array 產(chǎn)生數(shù)組?

　　Asc 字符ASCII碼?

　　Chr ASCII碼字符?

　　Filter 過濾數(shù)組?

　　InputBox 輸入窗口?

　　Join 合并數(shù)組中的元素?

　　MsgBox 信息窗口?

　　Lbound 數(shù)組下界?

　　Ubound 數(shù)組上屆?

　　指令?

　　Const 設(shè)定常數(shù)?

　　Dim 定義變量或者數(shù)組?

　　Erase 清除數(shù)組?

　　ReDim 重新聲明數(shù)組?

　　Randomize 起始隨機(jī)數(shù)?

　　Rnd 取得隨機(jī)數(shù)?

　　ASP對(duì)象?

　 Session對(duì)象?

　　IsEmpty 測(cè)試Session變量是否存在?

　　TimeOut 設(shè)定Session變量生存周期?

　　Abandon 強(qiáng)制清除Session變量?

　　Application對(duì)象?

　　IsEmpty 測(cè)試Application變量是否存在?

　　Lock 鎖定Application變量?

　　Unlock 解除Lock指令的鎖定?

　　Cookies對(duì)象?

　　Expires 設(shè)定Cookies變量的生存周期?

　 Connection對(duì)象?

　　Open 打開與數(shù)據(jù)庫的連接?

　　Execute 打開Recordset對(duì)象?

　　Close 關(guān)閉Connection對(duì)象?

　　Recordset對(duì)象?

　　movefirst 將記錄指針移至第一條?

　　movelast 將記錄指針移至最后一條?

　　movenext 將記錄指針移至下一條?

　　moveprevious 將記錄指針移至上一條?

　　bof 測(cè)試是否為recordset的起始?

　　eof 測(cè)試是否為recordset的結(jié)束?

　　open 打開Recoreset對(duì)象?

　　close 關(guān)閉recordset對(duì)象?

　　fields 讀取數(shù)據(jù)的子對(duì)象?

　　fileds.count 字段個(gè)數(shù)?

　　pagesize 每頁記錄條數(shù)?

　　absolutepage 設(shè)定為某頁?

　　pagecount 總頁數(shù)?

　　Absoluteposition 直接跳至某條記錄