Public Class Form1
Dim r As New Random
Dim angka As Long = True
Dim i As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
WebBrowser1.Navigate(TextBox3.Text)
WebBrowser1.ScriptErrorsSuppressed = True
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
WebBrowser1.Navigate(TextBox3.Text)
TextBox1.Text = "803057" + r.Next(0, 100000).ToString
angka = Rnd(0, 100000000000000).ToDouble
TextBox2.Text = angka
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
WebBrowser1.Document.GetElementById("username_member").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("password_member").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.GetElementById("submit").InvokeMember("click")
End Sub
末級enter image description here重載決策失敗,因爲沒有可訪問的「賽第一輪」接受此數目的參數
你好,我 有錯誤在我的項目,任何人都可以幫我嗎?
爲什麼你在使用Rnd的時候你有一個完美可用的Random對象(即使用在上面的行上) – Plutonix
不能隨機一個對象min 0和max 1000000000000,他說過載了,我把rnd改成r.next就好像texbox1.text,他說: 錯誤\t BC30439 \t常量表達式不能在'Integer'類型中表示。 –