[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