17-06-17, 05:20 AM
السلام عليكم ورحمة الله وبركاته
حاولت بالكثير من الطرق العمل موقع يعطيك اميل مؤقت ولكن بدون فائدة
للعلم الموقع يخفي الاسم الاخير للملف
على سبيل المثال
http://www.facebook.com/login/login.php
هو يخفيه ليصبح هكذا
http://www.facebook.com/login/
هذا رابط الموقع المراد العمل عليه ...
وهذه احدى محاولاتي ولا اعلم اين الخطا
حاولت بالكثير من الطرق العمل موقع يعطيك اميل مؤقت ولكن بدون فائدة
للعلم الموقع يخفي الاسم الاخير للملف
على سبيل المثال
http://www.facebook.com/login/login.php
هو يخفيه ليصبح هكذا
http://www.facebook.com/login/
هذا رابط الموقع المراد العمل عليه ...
وهذه احدى محاولاتي ولا اعلم اين الخطا
كود :
Dim cook As CookieContainer = Nothing
Dim nn As HttpWebRequest = WebRequest.Create("https://temp-mail.org/en/option/change/")
nn.CookieContainer = coo
Dim bb As HttpWebResponse = nn.GetResponse(
Dim RR As StreamReader = New StreamReader(bb.GetResponseStream)
Dim f As String = RR.ReadToEnd
Dim Reg As String = New Regex("csrf..value..(.*?).""").Match(f).Groups(0).Value
Dim Enc As Encoding = New UTF8Encoding
Dim Stringdata As String = "csrf=" + Reg + "&mail=" + TextBox3.Text.Trim + "&domain=%40ipdeer.com"
Dim Bytes1 As Byte() = Enc.GetBytes(Stringdata)
Dim Request As HttpWebRequest = WebRequest.Create("https://temp-mail.org/en/option/change/"
Request.Method = "Post"
Request.Credentials = System.Net.CredentialCache.DefaultNetworkCredentials
Request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Trident/7.0; rv:11.0) like Gecko"
Request.ContentType = "application/x-www-form-urlencoded"
Request.ContentLength = Bytes1.Length
Dim wr As Stream = Request.GetRequestStream()
wr.Write(Bytes1, 0, Bytes1.Length)
wr.Close()
Dim Response As HttpWebResponse = Request.GetResponse()
Dim Temp As Stream = Response.GetResponseStream()
Dim Temp1 As New StreamReader(Temp)
WebBrowser1.DocumentText = Temp1.ReadToEnd
Temp1.Close()
Temp.Close(
Response.Close()
Dim Reader As StreamReader = New StreamReader(Response.GetResponseStream())
cook.Add(Response.Cookies)
WebBrowser1.DocumentText = Reader.ReadToEnd()