vbs算命測(cè)試一下你上輩子是男是女
更新時(shí)間：2008年02月22日 15:48:49 作者：
用vbs算命測(cè)試，是男是女的腳本
復(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é)果請(qǐng)回復(fù)，嘿嘿
相關(guān)文章
用vbs記錄屏幕保護(hù)程序的開始時(shí)間和結(jié)束時(shí)間
用vbs記錄屏幕保護(hù)程序的開始時(shí)間和結(jié)束時(shí)間...2007-03-03
VBS教程：VBScript 基礎(chǔ)-使用條件語句...2006-11-11
VBScript之通過對(duì)比注冊(cè)表查找隱藏的服務(wù)
系統(tǒng)服務(wù)有可能被 rootkit 隱藏，但有些時(shí)候我們?nèi)钥梢詮淖?cè)表中找到相關(guān)的信息。建議以管理員權(quán)限運(yùn)行，否則有些服務(wù)列舉不出來或出現(xiàn)錯(cuò)誤的提示2013-09-09
用vbscript實(shí)現(xiàn)的修改注冊(cè)表的腳本，建議大家看看2008-06-06
這篇文章主要為大家介紹了VBScript編寫Windows防止鎖屏腳本程序示例，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪<BR>2022-05-05
iisweb.vbs iis網(wǎng)站管理腳本使用介紹
可以使用命令行腳本 iisweb.vbs（存儲(chǔ)在 systemroot\System32 中）在運(yùn)行帶有 IIS 6.0 的 Windows Server 2003 家族成員的本地或遠(yuǎn)程計(jì)算機(jī)上創(chuàng)建網(wǎng)站配置。該命令不創(chuàng)建或破壞內(nèi)容，而只是設(shè)置目錄結(jié)構(gòu)和某些 IIS 配置文件2014-07-07
vbscript 三個(gè)數(shù)比較大小的實(shí)現(xiàn)代碼
由于樓主只是三個(gè)數(shù),所以不用復(fù)雜的冒泡排序法來排序,直接三個(gè)數(shù)比較就行了2009-06-06
VBS教程：函數(shù)-GetRef 函數(shù)...2006-11-11
VBS教程：方法-DeleteFolder 方法...2006-11-11
VBS教程：屬性-Files 屬性...2006-11-11