蔡小岑,卫斯理小说在线阅读,未来智能
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后缀,双击即可以。看得结果请回复,嘿嘿
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!!
点击进行留言回复
相关文章:
-
-
-
-
用vbs实现文本循环读取
因为测试中需要读取一批url数据进行浏览,其实使用qtp本身的table能实现多种读取方式,但是因为需要tabel是使用excel保存的,在没有...
[阅读全文]
-
-
-
-
-
-
-
网友评论