betfury.io

សូមស្វាគមន៏ ការចូលមកដល់ គេហទំព័រ របស់ខ្ញុំ

Saturday, August 13, 2016

random for lottery

As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Randomize()
        iLottery = Int(39 * Rnd())
        TextBox1.Text = iLottery
        If TextBox1.Text = "0" Then
            TextBox1.Text += 1
        End If

Friday, August 12, 2016

random code vb

   Dim rndnumber As Random
   Dim number As Integer
   rndnumber = New Random
   number = rndnumber.Next(1, 101)
   TextBox1.Text = number.ToString

Thursday, August 11, 2016

funtion save on vb

my.setting.saving= textbox1.text
textbox1.text=my.setting.saving

Sunday, August 7, 2016

disable right click code

<script language="JavaScript">
document.oncontextmenu =new Function("return false;")
</script>  

show title time bar

<head>
<script language="JavaScript">
<!--

// ==========================
// (C) 2000 by CodeLifter.com
// http://www.codelifter.com
// Free for all users, but leave in this  header

function doTheClock() {
   window.setTimeout( "doTheClock()", 1000 );
   t = new Date();
   if(document.all || document.getElementById){
      document.title = t.toString();
   }else{  
      self.status = t.toString();
   }
}

doTheClock()

//-->
</script>
</head>

Monday, February 22, 2016

Wednesday, February 17, 2016