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) '以亂數填入指定位元組陣列的元素
(繼續閱讀...)

createps 發表在 痞客邦 留言(0) 人氣()

▲top
 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
(繼續閱讀...)

createps 發表在 痞客邦 留言(0) 人氣()

▲top
1
Blog Stats
⚠️

成人內容提醒

本部落格內容僅限年滿十八歲者瀏覽。
若您未滿十八歲，請立即離開。

已滿十八歲者，亦請勿將內容提供給未成年人士。