تقييم الموضوع :
  • 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 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة تطبيق هذا الكود عل الدتا قريد ahmedbezia 2 119 17-09-21, 01:52 PM
آخر رد: ahmedbezia
  [VB.NET] التعديل على المثال AHMED213 1 163 08-09-21, 12:40 AM
آخر رد: ابراهيم ايبو
  [SQL] تابع_ الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 3 367 21-08-21, 06:32 PM
آخر رد: mmaalmesry
Star [SQL] الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 7 434 14-08-21, 10:05 AM
آخر رد: mmaalmesry
  جلب البيانات من جدول مع اجراء عمليات حسابية - تعديل الكود momani33 7 342 14-08-21, 09:34 AM
آخر رد: ابو انس
  ممكن حل لمشكلة التعديل داخل DGv Ofealas 11 596 27-07-21, 09:32 PM
آخر رد: Ofealas
  ماسبب عدم تنفيذ الكود عند استخدام قارئ الباركود جيولوجي مبتدئ 4 393 24-07-21, 08:07 AM
آخر رد: جيولوجي مبتدئ
  ازاى احفظ الكود masport tv 1 243 21-07-21, 12:48 AM
آخر رد: ميدو الفنان
  اريد زر الحفظ هو نفس زر التعديل سمير جمال 6 1,605 06-07-21, 09:39 AM
آخر رد: strongriseman
  ارجو تفعيل الازرار الاضافة و التعديل والبحث والحذف عمور2016 4 1,137 05-07-21, 05:19 PM
آخر رد: naserflaha71

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


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