vbs算命測試一下你上輩子是男是女

更新時間：2008年02月22日 15:48:49 作者：

用vbs算命測試，是男是女的腳本

Dim MyValue, Response,data,thisd  
data="30007|22899|22934"  
thisd=Split(data, "|", -1, 1)  
Randomize '初始化隨機數(shù)生成器。  
Do Until Response = vbyes  
   MyValue = Int((3* Rnd) + 1)' 產(chǎn)生 1 到 3 之間的隨機數(shù)。  
   result="&#"&thisd(MyValue-1)  
   If result="&#22934" Then result="&#20154&#22934"  
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 ("確認? ", vbYesNo)  
Loop 

把以上代碼保存成vbs后綴，雙擊即可以?？吹媒Y(jié)果請回復(fù)，嘿嘿

您可能感興趣的文章:

vbs
算命

相關(guān)文章

vbscript include的辦法實現(xiàn)代碼
vbscript本身沒有include這樣包含其他vbs文件的支持，在asp或html頁面里可以用<script ...這樣來包含一個vbs文件，如果是直接運行的vbs腳本，就只有用其他辦法來代替這個功能了。
2009-02-02
vbs之自動安裝驅(qū)動程序
目前各類萬能驅(qū)動程序包在網(wǎng)絡(luò)上屢見發(fā)布，在使用這些程序包的同時，我們不僅會問：為什么這些程序包中的驅(qū)動程序可以在安裝新硬件之后自動安裝呢？
2008-07-07
字符ANSI代碼查詢工具vbs版
用來查詢ANSI 代碼的工具，需要的朋友可以試試。
2009-12-12
vbs 多線程下載實現(xiàn)代碼
昨天重新看了下《深入挖掘Windows腳本技術(shù)》(原文不知道是誰寫的，網(wǎng)上到處都是)。里面提到了vbs多線程下載，今天嘗試寫了一下
2013-05-05
vbs之使用Internet Explorer 屏蔽密碼
演示如何通過腳本創(chuàng)建 Internet Explorer 的實例，并檢索輸入密碼樣式的文本框中的密碼。需要帶有適當(dāng)?shù)奈谋究虻?Web 頁（名為 password.htm）。
2008-06-06
VBS利用SendKeys輸入中文字符的方法
Author:Trajon.BWL今天在網(wǎng)上隨便閑逛，逛到一個帖子，這位迷茫的朋友想知道該怎么使用SendKeys的vbs方法來輸入中文字符
2008-08-08
重新安裝ie的一個vbs
對于版本有點老，所以建議學(xué)習(xí)使用，不要隨便直接運行。
2009-08-08
VBS教程：VBscript屬性-Pattern 屬性
VBS教程：VBscript屬性-Pattern 屬性...
2006-11-11
vbs獲取當(dāng)前路徑的代碼
有時候我們需要獲取執(zhí)行當(dāng)前vbs的路徑，那么就可以參考下面的代碼，一般用來可以刪除自身等操作
2014-05-05
VBS實現(xiàn)DOC轉(zhuǎn)為文本文檔的代碼
WORD軟雖然可以將doc轉(zhuǎn)為文本文檔，但每次打開WORD都很慢。最好就是通過右鍵菜單來快速轉(zhuǎn)換。
2008-06-06