VBS FORTUNE TEST You were a male or female _vbs in your last life.

Copy Code code as follows:

Dim myvalue, RESPONSE,DATA,THISD
Data= "30007|22899|22934"
Thisd=split (data, "|",-1, 1)
Randomize ' Initializes a random number generator.
Do Until Response = vbyes
MyValue = Int ((3* Rnd) + 1) ' produces a random number between 1 and 3.
result= "&#" &THISD (MyValue-1)
If result= "Demon" Then result= "Simon"
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 = "Your last Life is" &result
Response = MsgBox ("Confirm?", vbYesNo)
Loop

Save the above code as a VBS suffix and double-click it. See the results, please reply, hehe