遊戲人生 人生遊戲

Dim RndNum As New Random() '最好在程式一開始就設定好

RndNum.Next() '產生大於等於0,小於2,147,483,647之亂數
RndNum.Next(10) '產生大於等於0,小於10之亂數
RndNum.Next(10, 20) '產生大於等於10,小於20之亂數
RndNum.NextDouble() '產生大於或等於 0.0,且小於 1.0雙精度浮點數
RndNum.NextBytes(bytes) '以亂數填入指定位元組陣列的元素

 Dim 下一頁 As mshtml.HTMLAnchorElement = Nothing
  For Each objElement As mshtml.HTMLAnchorElement In frm1.contentWindow.document.getElementsByTagName("A")
         If objElement.innerText IsNot Nothing AndAlso objElement.innerText.Trim() = "下一頁 ▼" Then
                 下一頁 = objElement
                 瀏覽內頁(下一頁)
                 Exit For
         End If
  Next