[sooriaty03]

تفضل ياغالي
هذا هو الكود

كود :

Dim Done As Boolean = False
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If Done = True Then Exit Sub
        WebBrowser1.Document.GetElementById("port").InnerText = "8080"
        WebBrowser1.Document.GetElementById("submit").InvokeMember("click")
        Done = True
    End Sub

بالتوفيق