تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو منكم المساعده و التعديل علي الكود
#1
السلام عليكم بجد انا في اشد احتياج للمساعده في الكود ده هرفق الكود الكامل

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

في فضاء الاسماء 
كود :
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>

حاولت بطرق عده ولم افلح ارجوكم المشاركه و المساعده
الرد }}
تم الشكر بواسطة: trakktour
#2
(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
الرد }}
تم الشكر بواسطة: اليوم السابع , ابراهيم ايبو
#3
(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

والله العظيم انا مش مصدق نفسي بس انا محتاج احط كل رقم في متغير ارجوك ساعدني
الرد }}
تم الشكر بواسطة: trakktour , ابراهيم ايبو
#4
(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
الرد }}
تم الشكر بواسطة: اليوم السابع , ابراهيم ايبو
#5
(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
ربنا ما يحرمني منك و يعطيك العافيه انا بجد ممنون ليك
الرد }}
تم الشكر بواسطة: trakktour , ابراهيم ايبو
#6
(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
ربنا ما يحرمني منك و يعطيك العافيه انا بجد ممنون ليك
العفو اخي العزيز
الرد }}
تم الشكر بواسطة: asmarsou , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] لسلام عليكم ورحمه الله وبركاته ازاي افعل خاصيه امكانيه التعديل علي الكود أثناء تشغيل حسن الجلب 1 165 06-08-22, 07:39 PM
آخر رد: asmarsou
  الكود لا يستدعى الارقام الا الاقل من 10 حماده ممدوح البحيرى 4 179 06-08-22, 08:12 AM
آخر رد: حماده ممدوح البحيرى
  [كود] هدية قيمة و طلب: مشروع متكامل لشجرة و مطلوب التعديل عليه dr.programming 0 159 02-08-22, 02:28 AM
آخر رد: dr.programming
  ارجو حل رسالة خطأ crazykinko 8 272 19-07-22, 04:53 PM
آخر رد: crazykinko
Lightbulb [VB.NET] ممكن عمل هذا الكود رمضان محمد 17 803 13-07-22, 10:32 PM
آخر رد: سعود
  مشكلة في تنفبذ الكود mohamedassim 8 397 07-07-22, 12:26 AM
آخر رد: أبو خالد الشكري
  خطأ في تنفيذ الكود mohamedassim 5 295 01-07-22, 08:57 PM
آخر رد: سعود
  تغيبت سنين ونسيت والفائدة منكم هاوي1995 5 396 21-06-22, 03:11 PM
آخر رد: سعود
  [VB.NET] كيفية التعديل علي firebase من خلال auth ميدو الفنان 2 452 12-06-22, 01:36 AM
آخر رد: أبو خالد الشكري
  ممكن طريقة لتحويل هذا الكود ابو روضة 9 639 10-06-22, 02:21 AM
آخر رد: ابو روضة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم