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
بالتوفيق
ممكن شرح للكود+الادوات لي بضيفهم للمشروع
السلام عليكم ورحمة الله وبركاته
أخي الكريم
أنت تحتاج فقط إلى أداة WebBrowser
ومن خلال الخاصية Uri
قم بكتابة عنوان الموقع
http://www.canyouseeme.org/
ثم قم بلصق الكود
كود :
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
بالتوفيق