وعليكم السلام ورحمة الله وبركاته
خلال 24 ساعة بامر الله
اذا لم يقوم احد بالرد عليك هنا
ساقوم بعمل سورس وارفاقه لك
موضح به كيفية تخطى الزر وجلب العدد
وسامحنى على تاخيري بذلك
تحياتى لك
وتمنياتى لك التوفيق
(04-11-18, 01:27 AM)elgokr كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
خلال 24 ساعة بامر الله
اذا لم يقوم احد بالرد عليك هنا
ساقوم بعمل سورس وارفاقه لك
موضح به كيفية تخطى الزر وجلب العدد
وسامحنى على تاخيري بذلك
تحياتى لك
وتمنياتى لك التوفيق
شكرا لك اخي elgokr ربي يحفظك
الشكر لله والحمد لله
والحمد لله على كل حال
تم عمل السورس ويمكنك تحميلهم من المرفقات
مرفق السورس + برنامج للاختبار
السورس (2015)
السورس يحتوى على كلاً من
عدد [ 2 ] TextBox
عدد [ 2 ] Button
عدد [ 1 ] Timer
كود السورس كاملاً
كود :
Public Class Form1
Private WB As New WebBrowser
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Not TextBox2.Text = Nothing Or Not TextBox2.Text = "" Then
If Not TextBox2.Text.Contains("https://www.up-4.net/") Then MsgBox("يجب ادخال رابط التحميل لاتمام العملية") : Exit Sub
Timer1.Stop()
WB.Navigate(TextBox2.Text)
WB.ScriptErrorsSuppressed = True
Do While WB.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
Button1.Enabled = True
Loop
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
WB.Document.GetElementById("freeDownload").InvokeMember("click")
Button1.Enabled = False
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
For Each XOne As HtmlElement In WB.Document.GetElementsByTagName("table")
If XOne.GetAttribute("className") = "filepanel table table-bordered" Then
Dim SPx_ As String() = Split(XOne.InnerHtml, "<tr>")
Dim SPy_ As String() = Split(SPx_(4), "<td>")
TextBox1.Text = SPy_(2).Replace(Space(1), Nothing).Replace("</td>", Nothing).Replace("</tr>", Nothing).Replace("t", Space(1) & "t")
End If
Next
Timer1.Stop()
End Sub
End Class
صورة الناتج النهائي عند جلب القيمة المطلوبة
تحياتى لك
وتمنياتى لك التوفيق
(04-11-18, 12:18 PM)elgokr كتب : [ -> ]الشكر لله والحمد لله
والحمد لله على كل حال
تم عمل السورس ويمكنك تحميلهم من المرفقات
مرفق السورس + برنامج للاختبار
السورس (2015)
السورس يحتوى على كلاً من
عدد [ 2 ] TextBox
عدد [ 2 ] Button
عدد [ 1 ] Timer
كود السورس كاملاً
كود :
Public Class Form1
Private WB As New WebBrowser
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Not TextBox2.Text = Nothing Or Not TextBox2.Text = "" Then
If Not TextBox2.Text.Contains("https://www.up-4.net/") Then MsgBox("يجب ادخال رابط التحميل لاتمام العملية") : Exit Sub
Timer1.Stop()
WB.Navigate(TextBox2.Text)
WB.ScriptErrorsSuppressed = True
Do While WB.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
Button1.Enabled = True
Loop
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
WB.Document.GetElementById("freeDownload").InvokeMember("click")
Button1.Enabled = False
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
For Each XOne As HtmlElement In WB.Document.GetElementsByTagName("table")
If XOne.GetAttribute("className") = "filepanel table table-bordered" Then
Dim SPx_ As String() = Split(XOne.InnerHtml, "<tr>")
Dim SPy_ As String() = Split(SPx_(4), "<td>")
TextBox1.Text = SPy_(2).Replace(Space(1), Nothing).Replace("</td>", Nothing).Replace("</tr>", Nothing).Replace("t", Space(1) & "t")
End If
Next
Timer1.Stop()
End Sub
End Class
صورة الناتج النهائي عند جلب القيمة المطلوبة
تحياتى لك
وتمنياتى لك التوفيق
شكرا لك اخي العزيز و جزاك الله كل الخير