المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة :
14
الشكر: 372
تم شكره 559 مرات في 319 مشاركات
السلام عليكم بجد انا في اشد احتياج للمساعده في الكود ده هرفق الكود الكامل
انا لدي اتصال علي هذا الموقع
في فضاء الاسماء
كود :
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>ld=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>
حاولت بطرق عده ولم افلح ارجوكم المشاركه و المساعده
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
(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>ld=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>ld=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
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة :
14
الشكر: 372
تم شكره 559 مرات في 319 مشاركات
(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>ld=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>ld=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
والله العظيم انا مش مصدق نفسي بس انا محتاج احط كل رقم في متغير ارجوك ساعدني
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
(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>ld=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>ld=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>ld=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
المشاركات : 567
المواضيع 206
الإنتساب : Jul 2019
السمعة :
14
الشكر: 372
تم شكره 559 مرات في 319 مشاركات
(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>ld=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>ld=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>ld=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
ربنا ما يحرمني منك و يعطيك العافيه انا بجد ممنون ليك
المشاركات : 197
المواضيع 37
الإنتساب : Feb 2017
السمعة :
26
الشكر: 129
تم شكره 254 مرات في 120 مشاركات
(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>ld=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>ld=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>ld=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
ربنا ما يحرمني منك و يعطيك العافيه انا بجد ممنون ليك
العفو اخي العزيز
|