16-12-19, 09:58 PM
(16-12-19, 07:35 PM)SnTnt كتب :هلا يالغالي
بسم الله نبدا , كان عندي نفس المشكلةبس في واحد ساعدني الله يعطيه العافية
اول شي سوي ويب براوزر وحطه في اي مكان
بعدين روح عند حدث بدا تشغيل الفورم او الفورم لود واكتب هاذا
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
WebBrowser1.Visible = False
WebBrowser1.Navigate("https://blockchain.info/q/addressbalance/1HT7xU2Ngenf7D4yocz2SAcnNLW7rK8d4E")
End Subبعدين روح اضغط على الويب براوزر مرتين وحط فيه هاذا الكود
كود :
For Each htmlElm As HtmlElement In WebBrowser1.Document.All
If htmlElm.OuterText IsNot Nothing Then
MsgBox(htmlElm.OuterText)
End If
Next
تقدر تغير المسج بوكس بأي شي مثل التيكست بوكس
[b]مشكور يااخSnTnt [/b]