+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] جلب رقم من موقع (/showthread.php?tid=32553)
جلب رقم من موقع - mervandzz - 16-12-19
"[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]"
RE: جلب رقم من موقع - SnTnt - 16-12-19
هلا يالغالي 
بسم الله نبدا , كان عندي نفس المشكلة
بس في واحد ساعدني الله يعطيه العافية
اول شي سوي ويب براوزر وحطه في اي مكان
بعدين روح عند حدث بدا تشغيل الفورم او الفورم لود واكتب هاذا
كود :
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تقدر تغير المسج بوكس بأي شي مثل التيكست بوكس
RE: جلب رقم من موقع - mervandzz - 16-12-19
(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]