Advertiser Disclosure

VBScript Lotto Game

Category:

ASP, HTML and XML

Type:

Difficulty:

Author: Anonymous

Version Compatibility: Visual Basic Script

More information:

A few days i wrote this to solve my insomnia, maybe i should just drink more beer :-)

The object is a progress bar, which I think will be ok to use on most browsers.

Note: Remove HTML comments tags (top and bottom) before attempting to run.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

<!--
<html>
<head>
<title>DILENGER LOTO GAME</title>

<meta name="cache-creation-time" content="2020-10-23 08:00:21.000 +0000" /></head>
<body bgcolor="#1D4B7B">
<p align="center"><small><font color="#FFFF00" face="BankGothic Md BT"><strong>Please
waite While the program generates your numbers </strong></font></small></p>
<form name="ObjLoto" id="ObjLoto">
  <p><input type="text" name="T1" size="2"
  style="color: #1D4B7B; background-color: #1D4B7B; border: medium none"><input type="text"
  name="T2" size="2" style="color: #1D4B7B; background-color: #1D4B7B; border: medium none"><input
  type="text" name="T3" size="2"
  style="color: #1D4B7B; background-color: #1D4B7B; border: medium none"><input type="text"
  name="T4" size="2" style="color: #1D4B7B; background-color: #1D4B7B; border: medium none"><input
  type="text" name="T5" size="2"
  style="color: #1D4B7B; background-color: #1D4B7B; border: medium none"><input type="text"
  name="T6" size="2" style="color: #1D4B7B; background-color: #1D4B7B; border: medium none">
  </p>
  <div align="center"><center><p><input type="text" name="T8" size="18"
  value="Generated Numbers:"
  style="background-color: rgb(29,75,123); color: rgb(255,255,0); font-family: BankGothic Md BT; border: medium none"><input
  type="text" name="T7" size="20"
  style="background-color: rgb(29,75,123); color: rgb(255,255,0); font-family: BankGothic Md BT; border: medium none"
  value="."></p>
  </center></div><div align="center"><center><p>ÿ</p>
  </center></div><div align="center"><center><p>
  <object id="pBar" classid="clsid:35053A22-8589-11D1-B16A-00C0F0283628" width="395"
  height="14">
  </object>
  </p>
  </center></div>
</form>
<script language="vbscript">
me.resizeto 500,600
me.moveto screen.width - 800
    setInterval "fDura()", 100
    Sub fDura()
    ObjLoto.pBar.max = 100
    ObjLoto.pBar.min = 1
    	ObjLoto.pBar = ObjLoto.pBar + 1
     if ObjLoto.pBar.value = "2" Then
    T9.value =" "
    End If
    if ObjLoto.pBar.value = "15" Then
    T9.value ="D"
    call gener()
    ObjLoto.T1.value = ObjLoto.T7.value
    End if
    if ObjLoto.pBar.value = "34" Then
    T9.value = T9.value + "I"
    call gener()
    ObjLoto.T2.value = ObjLoto.T7.value
    End if
    if ObjLoto.pBar.value = "46" Then
     T9.value = T9.value + "L"
    call gener()
    ObjLoto.T3.value = ObjLoto.T7.value
    End if
    if ObjLoto.pBar.value = "55" Then
     T9.value = T9.value + "E"
    call gener()
    ObjLoto.T4.value = ObjLoto.T7.value
    End if
    if ObjLoto.pBar.value = "69" Then
     T9.value =T9.value + "N"
    call gener()
    ObjLoto.T5.value = ObjLoto.T7.value
    End if
    if ObjLoto.pBar.value = "82" Then
     T9.value = T9.value + "G"
    End if
    if ObjLoto.pBar.value = "87" Then
     T9.value = T9.value + "E"
    End if
    if ObjLoto.pBar.value = "95" Then
     T9.value = T9.value + "R"
    call gener()
    ObjLoto.T6.value = ObjLoto.T7.value
    End if
    if ObjLoto.pBar.value = "99" Then
      ObjLoto.T7.value = ""
    document.write "<B><body bgcolor=#1D4B7B><font color=""#FFFF00"" face=""BankGothic Md BT""><P align=center>some numbers may duplicate if so Then use the button below<BR><BR><INPUT type=""button"" value=""Do Over Again"" name=""goBack"" onclick=""vbscript:window.history.back()""></P></B>" & "<BR><BR>" &_
    ObjLoto.T1.value & "<BR>" &_
    ObjLoto.T2.value & "<BR>" &_
    ObjLoto.T3.value & "<BR>" &_
    ObjLoto.T4.value & "<BR>" &_
    ObjLoto.T5.value & "<BR><BR><U>""Your Lucky Bonus Ball is""</U><BR><B>" &_
    ObjLoto.T6.value & "<BR><BR><BR><BR><BR><BR><P align=center></B>Created by DILENGER" 
    End if
    End Sub
    Sub gener()
    Dim P
    Randomize
    r = Int( (46 * Rnd) +1 )
    if r=1 Then
    	P = "ONE" 
    ElseIf r=2 Then
    	P = "TWO"
    ElseIf r=3 Then
    	P = "THREE"
    ElseIf r=4 Then
    	P = "FOUR"
    ElseIf r=5 Then
    	P = "FIVE"
    ElseIf r=6 Then
    	P = "SIX"
    ElseIf r=7 Then
    	P = "SEVEN"
    ElseIf r=8 Then
    	P = "EIGHT"
    ElseIf r=9 Then
    	P = "NINE"
    ElseIf r=10 Then
    	P = "TEN"
    ElseIf r=11 Then
    	P = "ELEVEN"
    ElseIf r=12 Then
    	P = "TWELVE"
    ElseIf r=13 Then
    	P = "THIRTEEN"
    ElseIf r=14 Then
    	P = "FOURTEEN"
    ElseIf r=15 Then
    	P = "FIFTEEN"
    ElseIf r=16 Then
    	P = "SIXTEEN"
    ElseIf r=17 Then
    	P = "SEVENTEEN"
    ElseIf r=18 Then
    	P = "EIGHTTEEN"
    ElseIf r=19 Then
    	P = "NINETEEN"
    ElseIf r=20 Then
    	P = "TWENTY"
    ElseIf r=21 Then
    	P = "TWENTY ONE"
    ElseIf r=22 Then
    	P = "TWENTY TWO"
    ElseIf r=23 Then
    	P = "TWENTY THREE"
    ElseIf r=24 Then
    	P = "TWENTY FOUR"
    ElseIf r=25 Then
    	P = "TWENTY FIVE"
    ElseIf r=26 Then
    	P = "TWENTY SIX"
    ElseIf r=27 Then
    	P = "TWENTY SEVEN"
    ElseIf r=28 Then
    	P = "TWENTY EIGHT"
    ElseIf r=29 Then
    	P = "TWENTY NINE"
    ElseIf r=30 Then
    	P = "THIRTY"
    ElseIf r=31 Then
    	P = "THIRTY ONE"
    ElseIf r=32 Then
    	P = "THIRTY TWO"
    ElseIf r=33 Then
    	P = "THIRTY THREE"
    ElseIf r=34 Then
    	P = "THIRTY FOUR"
    ElseIf r=35 Then
    	P = "THIRTY FIVE"
    ElseIf r=36 Then
    	P = "THIRTY SIX"
    ElseIf r=37 Then
    	P = "THIRTY SEVEN"
    ElseIf r=38 Then
    	P = "THIRTY EIGHT"
    ElseIf r=39 Then
    	P = "THIRTY NINE"
    ElseIf r=40 Then
    	P = "FORTY"
    ElseIf r=41 Then
    	P = "FORTY ONE"
    ElseIf r=42 Then
    	P = "FORTY TWO"
    ElseIf r=43 Then
    	P = "FORTY THREE"
    ElseIf r=44 Then
    	P = "FORTY FOUR"
    ElseIf r=45 Then
    	P = "FORTY FIVE"
    ElseIf r=46 Then
    	P = "FORTY SIX"
    End if
    ObjLoto.T7.value = P
    End Sub
    </script>
<p align="center"><font color="#FFFF00" face="BankGothic Md BT">Created by</font> <input
type="text" name="T9" size="20"
style="background-color: rgb(29,75,123); color: rgb(255,255,0); text-align: left; font-size: 12pt; font-family: BankGothic Md BT; border: medium none"></p>
</body>
</html>
-->