تقييم الموضوع :
  • 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 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  ارجو الافادة للضرورة mohamed sabry 1 110 13-01-24, 03:37 AM
آخر رد: Taha Okla
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  اجو المساعده فى عمل تقرير خالد كامل1 3 292 24-12-23, 04:12 PM
آخر رد: خالد كامل1

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


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