国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

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

2019-10-26 18:00:09
字體：大 中 小
來源：轉載
供稿：網友
復制代碼 代碼如下:

Dim MyValue, Response,data,thisd 
data="30007|22899|22934" 
thisd=Split(data, "|", -1, 1) 
Randomize '初始化隨機數生成器。 
Do Until Response = vbyes 
   MyValue = Int((3* Rnd) + 1)' 產生 1 到 3 之間的隨機數。 
   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 ("確認? ", vbYesNo) 
Loop 

把以上代碼保存成vbs后綴，雙擊即可以。看得結果請回復，嘿嘿

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 仲巴县| 新田县| 汶上县| 长丰县| 平陆县| 东至县| 宝清县| 灌阳县| 谢通门县| 鹿邑县| 澄江县| 新乡市| 镇巴县| 丹阳市| 鄯善县| 灵武市| 洮南市| 报价| 河津市| 准格尔旗| 广宗县| 吉木萨尔县| 孟津县| 佛教| 松阳县| 岗巴县| 荃湾区| 乐至县| 萍乡市| 重庆市| 东丰县| 海宁市| 扶沟县| 鄱阳县| 介休市| 柘荣县| 南阳市| 天镇县| 商河县| 连州市| 德阳市|