11-01-14, 09:53 PM
كتبت البرنامج بهذا الشكل
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Navigate "http://عنوان صفحة الويب "
WebBrowser1.Document.GetElementById("الآي دي للحقل ").InnerText = Text1.Text
WebBrowser1.Document.GetElementByName("اسم الكوماند ").Click
End Sub
وعندما بقمت تشغيل البرنامج فتحت لدي صفحة الويب اللتي وضعتها وظهر النص اللذي كتبته في الحقل لصفحة الويب واختفى بسرعة ولم يظهر لدي شي آخر ما المشكلة ؟
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Navigate "http://عنوان صفحة الويب "
WebBrowser1.Document.GetElementById("الآي دي للحقل ").InnerText = Text1.Text
WebBrowser1.Document.GetElementByName("اسم الكوماند ").Click
End Sub
وعندما بقمت تشغيل البرنامج فتحت لدي صفحة الويب اللتي وضعتها وظهر النص اللذي كتبته في الحقل لصفحة الويب واختفى بسرعة ولم يظهر لدي شي آخر ما المشكلة ؟
