主頁 > 知識庫 > vbs算命測試一下你上輩子是男是女

vbs算命測試一下你上輩子是男是女
熱門標(biāo)簽：怎么看地圖標(biāo)注 外呼系統(tǒng)telrobot 外呼系統(tǒng)免費招代理 深圳外呼系統(tǒng)收費 百度地圖標(biāo)注是什么意思 拉薩外呼系統(tǒng)業(yè)務(wù) 廣州ai電銷機器人一般多少錢 外呼線路中繼線是什么 合肥高德地圖標(biāo)注
復(fù)制代碼 代碼如下:

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 ("確認(rèn)? ", vbYesNo) 
Loop 

把以上代碼保存成vbs后綴，雙擊即可以?？吹媒Y(jié)果請回復(fù)，嘿嘿
您可能感興趣的文章:
  • javascript計算星座屬相(十二生肖屬相)示例代碼
  • python實現(xiàn)根據(jù)月份和日期得到星座的方法
  • 易語言運算命令的詳細(xì)解釋
  • canvas實現(xiàn)十二星座星空圖
  • python爬蟲竟然被小伙用來算命

標(biāo)簽：延安 周口 漳州 臺灣 嘉興 玉林 六安 廣安

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs算命測試一下你上輩子是男是女》，本文關(guān)鍵詞  vbs,算命,測試,一下,你,上,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《vbs算命測試一下你上輩子是男是女》相關(guān)的同類信息！
  • 本頁收集關(guān)于vbs算命測試一下你上輩子是男是女的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章