منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم بجد انا في اشد احتياج للمساعده في الكود ده هرفق الكود الكامل

انا لدي اتصال علي هذا الموقع 

في فضاء الاسماء 

متغيرات الاتصال 

كود الاتصال


بعد الاتصال علي الموقع بيتم الرد في متغير list

اريد ان استخلص هذه الارقام في ثلاث متغيرات 



<td align=""center"">1</td>" 

<td align=""center"">1</td>
<td align=""center"">1</td>

حاولت بطرق عده ولم افلح ارجوكم المشاركه و المساعده

(14-06-21, 07:45 PM)اليوم السابع كتب : [ -> ]السلام عليكم بجد انا في اشد احتياج للمساعده في الكود ده هرفق الكود الكامل

انا لدي اتصال علي هذا الموقع 

في فضاء الاسماء 

كود :

Imports System.IO
Imports System.Diagnostics
Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions

متغيرات الاتصال 

كود :

Private postresponse As HttpWebResponse
   Private encoding As New UTF8Encoding
   Private byteData As Byte()
   Private postReq As HttpWebRequest
   Private postreqstream As Stream
   Dim tempCookies As New CookieContainer

كود الاتصال

كود :

postData = "link=faceboo.com&keywords=Facebook Arabia&pages=1&gtld=com&ytld=com&btld=com"
               byteData = encoding.GetBytes(postData)
               postReq = DirectCast(WebRequest.Create("http://weblyzer.com/serps_checker_intl/ajax.php"), HttpWebRequest)
               postReq.Method = "POST"
               postReq.KeepAlive = True
               postReq.CookieContainer = tempCookies
               postReq.ContentType = "application/x-www-form-urlencoded"
               postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
               postReq.ContentLength = byteData.Length
               postreqstream = postReq.GetRequestStream()
               postreqstream.Write(byteData, 0, byteData.Length)
               postreqstream.Close()
               postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
               Dim postreqreader71 As New StreamReader(postresponse.GetResponseStream())
               Dim thepage1 As String = postreqreader71.ReadToEnd
               Dim list As String = Regex.Unescape(thepage1)

بعد الاتصال علي الموقع بيتم الرد في متغير list

اريد ان استخلص هذه الارقام في ثلاث متغيرات 



<td align=""center"">1</td>" 

<td align=""center"">1</td>
<td align=""center"">1</td>

حاولت بطرق عده ولم افلح ارجوكم المشاركه و المساعده

و عليكم السلام 
تفضل اخي هذا تعديل على الكود الخاص بك

(14-06-21, 09:34 PM)trakktour كتب : [ -> ]

(14-06-21, 07:45 PM)اليوم السابع كتب : [ -> ]السلام عليكم بجد انا في اشد احتياج للمساعده في الكود ده هرفق الكود الكامل

انا لدي اتصال علي هذا الموقع 

في فضاء الاسماء 

كود :

Imports System.IO
Imports System.Diagnostics
Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions

متغيرات الاتصال 

كود :

Private postresponse As HttpWebResponse
   Private encoding As New UTF8Encoding
   Private byteData As Byte()
   Private postReq As HttpWebRequest
   Private postreqstream As Stream
   Dim tempCookies As New CookieContainer

كود الاتصال

كود :

postData = "link=faceboo.com&keywords=Facebook Arabia&pages=1&gtld=com&ytld=com&btld=com"
               byteData = encoding.GetBytes(postData)
               postReq = DirectCast(WebRequest.Create("http://weblyzer.com/serps_checker_intl/ajax.php"), HttpWebRequest)
               postReq.Method = "POST"
               postReq.KeepAlive = True
               postReq.CookieContainer = tempCookies
               postReq.ContentType = "application/x-www-form-urlencoded"
               postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
               postReq.ContentLength = byteData.Length
               postreqstream = postReq.GetRequestStream()
               postreqstream.Write(byteData, 0, byteData.Length)
               postreqstream.Close()
               postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
               Dim postreqreader71 As New StreamReader(postresponse.GetResponseStream())
               Dim thepage1 As String = postreqreader71.ReadToEnd
               Dim list As String = Regex.Unescape(thepage1)

بعد الاتصال علي الموقع بيتم الرد في متغير list

اريد ان استخلص هذه الارقام في ثلاث متغيرات 



<td align=""center"">1</td>" 

<td align=""center"">1</td>
<td align=""center"">1</td>

حاولت بطرق عده ولم افلح ارجوكم المشاركه و المساعده

و عليكم السلام 
تفضل اخي هذا تعديل على الكود الخاص بك

كود :

       Dim postData = "link=faceboo.com&keywords=Facebook Arabia&pages=1&gtld=com&ytld=com&btld=com"
       byteData = encoding.GetBytes(postData)
       postReq = DirectCast(WebRequest.Create("http://weblyzer.com/serps_checker_intl/ajax.php"), HttpWebRequest)
       postReq.Method = "POST"
       postReq.KeepAlive = True
       postReq.CookieContainer = tempCookies
       postReq.ContentType = "application/x-www-form-urlencoded"
       postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
       postReq.ContentLength = byteData.Length
       postreqstream = postReq.GetRequestStream()
       postreqstream.Write(byteData, 0, byteData.Length)
       postreqstream.Close()
       postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
       Dim postreqreader71 As New StreamReader(postresponse.GetResponseStream())
       Dim thepage1 As String = postreqreader71.ReadToEnd

       Dim trakktour As MatchCollection = Regex.Matches(thepage1, "(?<=<td align=""center"">).+?(?=<\/td>)")
       For i = 0 To trakktour.Count - 1
           ListBox1.Items.Add(trakktour(i).Value)
       Next

والله العظيم انا مش مصدق نفسي بس انا محتاج احط كل رقم في متغير ارجوك ساعدني

(14-06-21, 09:38 PM)اليوم السابع كتب : [ -> ]

(14-06-21, 09:34 PM)trakktour كتب : [ -> ]

(14-06-21, 07:45 PM)اليوم السابع كتب : [ -> ]السلام عليكم بجد انا في اشد احتياج للمساعده في الكود ده هرفق الكود الكامل

انا لدي اتصال علي هذا الموقع 

في فضاء الاسماء 

كود :

Imports System.IO
Imports System.Diagnostics
Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions

متغيرات الاتصال 

كود :

Private postresponse As HttpWebResponse
   Private encoding As New UTF8Encoding
   Private byteData As Byte()
   Private postReq As HttpWebRequest
   Private postreqstream As Stream
   Dim tempCookies As New CookieContainer

كود الاتصال

كود :

postData = "link=faceboo.com&keywords=Facebook Arabia&pages=1&gtld=com&ytld=com&btld=com"
               byteData = encoding.GetBytes(postData)
               postReq = DirectCast(WebRequest.Create("http://weblyzer.com/serps_checker_intl/ajax.php"), HttpWebRequest)
               postReq.Method = "POST"
               postReq.KeepAlive = True
               postReq.CookieContainer = tempCookies
               postReq.ContentType = "application/x-www-form-urlencoded"
               postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
               postReq.ContentLength = byteData.Length
               postreqstream = postReq.GetRequestStream()
               postreqstream.Write(byteData, 0, byteData.Length)
               postreqstream.Close()
               postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
               Dim postreqreader71 As New StreamReader(postresponse.GetResponseStream())
               Dim thepage1 As String = postreqreader71.ReadToEnd
               Dim list As String = Regex.Unescape(thepage1)

بعد الاتصال علي الموقع بيتم الرد في متغير list

اريد ان استخلص هذه الارقام في ثلاث متغيرات 



<td align=""center"">1</td>" 

<td align=""center"">1</td>
<td align=""center"">1</td>

حاولت بطرق عده ولم افلح ارجوكم المشاركه و المساعده

و عليكم السلام 
تفضل اخي هذا تعديل على الكود الخاص بك

كود :

       Dim postData = "link=faceboo.com&keywords=Facebook Arabia&pages=1&gtld=com&ytld=com&btld=com"
       byteData = encoding.GetBytes(postData)
       postReq = DirectCast(WebRequest.Create("http://weblyzer.com/serps_checker_intl/ajax.php"), HttpWebRequest)
       postReq.Method = "POST"
       postReq.KeepAlive = True
       postReq.CookieContainer = tempCookies
       postReq.ContentType = "application/x-www-form-urlencoded"
       postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
       postReq.ContentLength = byteData.Length
       postreqstream = postReq.GetRequestStream()
       postreqstream.Write(byteData, 0, byteData.Length)
       postreqstream.Close()
       postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
       Dim postreqreader71 As New StreamReader(postresponse.GetResponseStream())
       Dim thepage1 As String = postreqreader71.ReadToEnd

       Dim trakktour As MatchCollection = Regex.Matches(thepage1, "(?<=<td align=""center"">).+?(?=<\/td>)")
       For i = 0 To trakktour.Count - 1
           ListBox1.Items.Add(trakktour(i).Value)
       Next

والله العظيم انا مش مصدق نفسي بس انا محتاج احط كل رقم في متغير ارجوك ساعدني

تفضل اخي الكريم

(14-06-21, 09:54 PM)trakktour كتب : [ -> ]

(14-06-21, 09:38 PM)اليوم السابع كتب : [ -> ]

(14-06-21, 09:34 PM)trakktour كتب : [ -> ]

(14-06-21, 07:45 PM)اليوم السابع كتب : [ -> ]السلام عليكم بجد انا في اشد احتياج للمساعده في الكود ده هرفق الكود الكامل

انا لدي اتصال علي هذا الموقع 

في فضاء الاسماء 

كود :

Imports System.IO
Imports System.Diagnostics
Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions

متغيرات الاتصال 

كود :

Private postresponse As HttpWebResponse
   Private encoding As New UTF8Encoding
   Private byteData As Byte()
   Private postReq As HttpWebRequest
   Private postreqstream As Stream
   Dim tempCookies As New CookieContainer

كود الاتصال

كود :

postData = "link=faceboo.com&keywords=Facebook Arabia&pages=1&gtld=com&ytld=com&btld=com"
               byteData = encoding.GetBytes(postData)
               postReq = DirectCast(WebRequest.Create("http://weblyzer.com/serps_checker_intl/ajax.php"), HttpWebRequest)
               postReq.Method = "POST"
               postReq.KeepAlive = True
               postReq.CookieContainer = tempCookies
               postReq.ContentType = "application/x-www-form-urlencoded"
               postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
               postReq.ContentLength = byteData.Length
               postreqstream = postReq.GetRequestStream()
               postreqstream.Write(byteData, 0, byteData.Length)
               postreqstream.Close()
               postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
               Dim postreqreader71 As New StreamReader(postresponse.GetResponseStream())
               Dim thepage1 As String = postreqreader71.ReadToEnd
               Dim list As String = Regex.Unescape(thepage1)

بعد الاتصال علي الموقع بيتم الرد في متغير list

اريد ان استخلص هذه الارقام في ثلاث متغيرات 



<td align=""center"">1</td>" 

<td align=""center"">1</td>
<td align=""center"">1</td>

حاولت بطرق عده ولم افلح ارجوكم المشاركه و المساعده

و عليكم السلام 
تفضل اخي هذا تعديل على الكود الخاص بك

كود :

       Dim postData = "link=faceboo.com&keywords=Facebook Arabia&pages=1&gtld=com&ytld=com&btld=com"
       byteData = encoding.GetBytes(postData)
       postReq = DirectCast(WebRequest.Create("http://weblyzer.com/serps_checker_intl/ajax.php"), HttpWebRequest)
       postReq.Method = "POST"
       postReq.KeepAlive = True
       postReq.CookieContainer = tempCookies
       postReq.ContentType = "application/x-www-form-urlencoded"
       postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
       postReq.ContentLength = byteData.Length
       postreqstream = postReq.GetRequestStream()
       postreqstream.Write(byteData, 0, byteData.Length)
       postreqstream.Close()
       postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
       Dim postreqreader71 As New StreamReader(postresponse.GetResponseStream())
       Dim thepage1 As String = postreqreader71.ReadToEnd

       Dim trakktour As MatchCollection = Regex.Matches(thepage1, "(?<=<td align=""center"">).+?(?=<\/td>)")
       For i = 0 To trakktour.Count - 1
           ListBox1.Items.Add(trakktour(i).Value)
       Next

والله العظيم انا مش مصدق نفسي بس انا محتاج احط كل رقم في متغير ارجوك ساعدني

تفضل اخي الكريم

كود :

       Dim postData = "link=faceboo.com&keywords=Facebook Arabia&pages=1&gtld=com&ytld=com&btld=com"
       byteData = encoding.GetBytes(postData)
       postReq = DirectCast(WebRequest.Create("http://weblyzer.com/serps_checker_intl/ajax.php"), HttpWebRequest)
       postReq.Method = "POST"
       postReq.KeepAlive = True
       postReq.CookieContainer = tempCookies
       postReq.ContentType = "application/x-www-form-urlencoded"
       postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
       postReq.ContentLength = byteData.Length
       postreqstream = postReq.GetRequestStream()
       postreqstream.Write(byteData, 0, byteData.Length)
       postreqstream.Close()
       postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
       Dim postreqreader71 As New StreamReader(postresponse.GetResponseStream())
       Dim thepage1 As String = postreqreader71.ReadToEnd

       Dim trakktour As MatchCollection = Regex.Matches(thepage1, "(?<=<td align=""center"">).+?(?=<\/td>)")
       Dim trak1 = trakktour(0).Value
       Dim trak2 = trakktour(1).Value
       Dim trak3 = trakktour(2).Value

ربنا ما يحرمني منك و يعطيك العافيه انا بجد ممنون ليك

(14-06-21, 09:56 PM)اليوم السابع كتب : [ -> ]

(14-06-21, 09:54 PM)trakktour كتب : [ -> ]

(14-06-21, 09:38 PM)اليوم السابع كتب : [ -> ]

(14-06-21, 09:34 PM)trakktour كتب : [ -> ]

(14-06-21, 07:45 PM)اليوم السابع كتب : [ -> ]السلام عليكم بجد انا في اشد احتياج للمساعده في الكود ده هرفق الكود الكامل

انا لدي اتصال علي هذا الموقع 

في فضاء الاسماء 

كود :

Imports System.IO
Imports System.Diagnostics
Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions

متغيرات الاتصال 

كود :

Private postresponse As HttpWebResponse
   Private encoding As New UTF8Encoding
   Private byteData As Byte()
   Private postReq As HttpWebRequest
   Private postreqstream As Stream
   Dim tempCookies As New CookieContainer

كود الاتصال

كود :

postData = "link=faceboo.com&keywords=Facebook Arabia&pages=1&gtld=com&ytld=com&btld=com"
               byteData = encoding.GetBytes(postData)
               postReq = DirectCast(WebRequest.Create("http://weblyzer.com/serps_checker_intl/ajax.php"), HttpWebRequest)
               postReq.Method = "POST"
               postReq.KeepAlive = True
               postReq.CookieContainer = tempCookies
               postReq.ContentType = "application/x-www-form-urlencoded"
               postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
               postReq.ContentLength = byteData.Length
               postreqstream = postReq.GetRequestStream()
               postreqstream.Write(byteData, 0, byteData.Length)
               postreqstream.Close()
               postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
               Dim postreqreader71 As New StreamReader(postresponse.GetResponseStream())
               Dim thepage1 As String = postreqreader71.ReadToEnd
               Dim list As String = Regex.Unescape(thepage1)

بعد الاتصال علي الموقع بيتم الرد في متغير list

اريد ان استخلص هذه الارقام في ثلاث متغيرات 



<td align=""center"">1</td>" 

<td align=""center"">1</td>
<td align=""center"">1</td>

حاولت بطرق عده ولم افلح ارجوكم المشاركه و المساعده

و عليكم السلام 
تفضل اخي هذا تعديل على الكود الخاص بك

كود :

       Dim postData = "link=faceboo.com&keywords=Facebook Arabia&pages=1&gtld=com&ytld=com&btld=com"
       byteData = encoding.GetBytes(postData)
       postReq = DirectCast(WebRequest.Create("http://weblyzer.com/serps_checker_intl/ajax.php"), HttpWebRequest)
       postReq.Method = "POST"
       postReq.KeepAlive = True
       postReq.CookieContainer = tempCookies
       postReq.ContentType = "application/x-www-form-urlencoded"
       postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
       postReq.ContentLength = byteData.Length
       postreqstream = postReq.GetRequestStream()
       postreqstream.Write(byteData, 0, byteData.Length)
       postreqstream.Close()
       postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
       Dim postreqreader71 As New StreamReader(postresponse.GetResponseStream())
       Dim thepage1 As String = postreqreader71.ReadToEnd

       Dim trakktour As MatchCollection = Regex.Matches(thepage1, "(?<=<td align=""center"">).+?(?=<\/td>)")
       For i = 0 To trakktour.Count - 1
           ListBox1.Items.Add(trakktour(i).Value)
       Next

والله العظيم انا مش مصدق نفسي بس انا محتاج احط كل رقم في متغير ارجوك ساعدني

تفضل اخي الكريم

كود :

       Dim postData = "link=faceboo.com&keywords=Facebook Arabia&pages=1&gtld=com&ytld=com&btld=com"
       byteData = encoding.GetBytes(postData)
       postReq = DirectCast(WebRequest.Create("http://weblyzer.com/serps_checker_intl/ajax.php"), HttpWebRequest)
       postReq.Method = "POST"
       postReq.KeepAlive = True
       postReq.CookieContainer = tempCookies
       postReq.ContentType = "application/x-www-form-urlencoded"
       postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
       postReq.ContentLength = byteData.Length
       postreqstream = postReq.GetRequestStream()
       postreqstream.Write(byteData, 0, byteData.Length)
       postreqstream.Close()
       postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
       Dim postreqreader71 As New StreamReader(postresponse.GetResponseStream())
       Dim thepage1 As String = postreqreader71.ReadToEnd

       Dim trakktour As MatchCollection = Regex.Matches(thepage1, "(?<=<td align=""center"">).+?(?=<\/td>)")
       Dim trak1 = trakktour(0).Value
       Dim trak2 = trakktour(1).Value
       Dim trak3 = trakktour(2).Value

ربنا ما يحرمني منك و يعطيك العافيه انا بجد ممنون ليك

العفو اخي العزيز