vbs算命測試一下你上輩子是男是女
更新時(shí)間：2008年02月22日 15:48:49 作者：
用vbs算命測試，是男是女的腳本
復(fù)制代碼 代碼如下:
Dim MyValue, Response,data,thisd
data="30007|22899|22934"
thisd=Split(data, "|", -1, 1)
Randomize '初始化隨機(jī)數(shù)生成器。
Do Until Response = vbyes
MyValue = Int((3* Rnd) + 1)' 產(chǎn)生 1 到 3 之間的隨機(jī)數(shù)。
result="&#"&thisd(MyValue-1)
If result="妖" Then result="人妖"
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Visible = 1
objExplorer.height=300
objExplorer.width=400
objExplorer.left=400
objExplorer.resizable=0
objExplorer.Document.Body.InnerHTML ="你上輩子是"&result
Response = MsgBox ("確認(rèn)? ", vbYesNo)
Loop
把以上代碼保存成vbs后綴，雙擊即可以?？吹媒Y(jié)果請回復(fù)，嘿嘿
相關(guān)文章
vbscript include的辦法實(shí)現(xiàn)代碼
vbscript本身沒有include這樣包含其他vbs文件的支持，在asp或html頁面里可以用<script ...這樣來包含一個(gè)vbs文件，如果是直接運(yùn)行的vbs腳本，就只有用其他辦法來代替這個(gè)功能了。2009-02-02
目前各類萬能驅(qū)動程序包在網(wǎng)絡(luò)上屢見發(fā)布，在使用這些程序包的同時(shí)，我們不僅會問：為什么這些程序包中的驅(qū)動程序可以在安裝新硬件之后自動安裝呢？2008-07-07
用來查詢ANSI 代碼的工具，需要的朋友可以試試。2009-12-12
昨天重新看了下《深入挖掘Windows腳本技術(shù)》(原文不知道是誰寫的，網(wǎng)上到處都是)。里面提到了vbs多線程下載，今天嘗試寫了一下2013-05-05
演示如何通過腳本創(chuàng)建 Internet Explorer 的實(shí)例，并檢索輸入密碼樣式的文本框中的密碼。需要帶有適當(dāng)?shù)奈谋究虻?Web 頁（名為 password.htm）。2008-06-06
Author:Trajon.BWL今天在網(wǎng)上隨便閑逛，逛到一個(gè)帖子，這位迷茫的朋友想知道該怎么使用SendKeys的vbs方法來輸入中文字符2008-08-08
對于版本有點(diǎn)老，所以建議學(xué)習(xí)使用，不要隨便直接運(yùn)行。2009-08-08
VBS教程：VBscript屬性-Pattern 屬性...2006-11-11
有時(shí)候我們需要獲取執(zhí)行當(dāng)前vbs的路徑，那么就可以參考下面的代碼，一般用來可以刪除自身等操作2014-05-05
VBS實(shí)現(xiàn)DOC轉(zhuǎn)為文本文檔的代碼
WORD軟雖然可以將doc轉(zhuǎn)為文本文檔，但每次打開WORD都很慢。最好就是通過右鍵菜單來快速轉(zhuǎn)換。2008-06-06