這裏我'檢查是否 WebBrowserEx1.Document.All.Item(t)的.OuterHtml等於ABC但儘管它們是相同的,但它不接受它們,並且不執行if語句中的代碼。盲人是我還是Visual Basic?
大圖:http://i.stack.imgur.com/hVjpH.png
編輯:
For t = 1 To WebBrowserEx1.Document.All.Count
Dim abc = "<LI style=""PADDING-BOTTOM: 2px; PADDING-TOP: 2px"">Hata oluştu. İşlem tamamlanamamıştır. "
If WebBrowserEx1.Document.All.Item(t).OuterHtml = abc Then
WebBrowserEx1.Navigate("http://uyg.sgk.gov.tr/vizite/tarihGiris.do")
loc = "giris"
WebBrowserEx1.Update()
yeniSayfa = True
Exit For
End If
Next
WebBrowserEx1.Document.All.Item(T).OuterHtml的價值的手錶, 「畑oluştuİşlemtamamlanamamıştır」
abc手錶的價值: 「Hataoluştu.İşlemtamamlanamamıştır。」
我認爲大圖應該更具說明性。
第二個嘗試用型校正
For t = 1 To WebBrowserEx1.Document.All.Count
Dim abc As String
abc = "<LI style=""PADDING-BOTTOM: 2px; PADDING-TOP: 2px"">Hata oluştu. İşlem tamamlanamamıştır. "
If WebBrowserEx1.Document.All.Item(t).OuterHtml = abc Then
WebBrowserEx1.Navigate("http://uyg.sgk.gov.tr/vizite/tarihGiris.do")
loc = "giris"
WebBrowserEx1.Update()
yeniSayfa = True
Exit For
End If
Next
代碼的屏幕截圖?爲什麼不把代碼發佈爲文本,所以人們可以複製/粘貼並試用它? – Oded
該圖像中的文字太小,幾乎無法閱讀。如果我們無法讀取您的代碼,您將得不到多少幫助。請實際粘貼代碼的文本和錯誤文本,並使用降價代碼格式功能。 –
另外,我們需要將精確的html加載到web瀏覽器控件中。 –