[mervandzz]

"[b][size=x-large]\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u0627\u0644\u0633\u0644\u0627\u0645 \u0639\u0644\u064a\u0643\u0645 \u0648\u0631\u062d\u0645\u0629 \u0627\u0644\u0644\u0647 \u0648\u0628\u0631\u0643\u0627\u062a\u0647[\/size][\/b]\r\n\r\n\r\n\r\n[size=x-large]\u0627\u0631\u064a\u062f \u0645\u0646 \u0627\u062e\u0648\u062a\u064a \u0627\u0644\u0643\u0631\u0627\u0645 \u062c\u0644\u0628 \u0647\u0630\u0627 \u0627\u0644\u0631\u0642\u0645 \u0627\u0644\u064a \u0641\u064a \u0647\u0630\u0627 \u0627\u0644\u0631\u0627\u0628\u0637 [\/size]\r\n\r\n[size=x-large]\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0[url=7xU2Ngenf7D4yocz2SAcnNLW7rK8d4E]\u0627\u0644\u0645\u0648\u0642\u0639[\/url][\/size]\r\n\r\n\r\n[size=x-large]\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0 \u0627\u0643\u0648\u0646 \u0634\u0627\u0643\u0631 \u0644\u0643\u0645 \u0639\u0644\u0649 \u0645\u0633\u0627\u0639\u062f\u062a\u064a [\/size]"

[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

تقدر تغير المسج بوكس بأي شي مثل التيكست بوكس

[mervandzz]

(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]