نمایش نتایج 1 تا 2 از 2

نام تاپیک: ساخت فرم انستاگرام

  1. #1

    Exclamation ساخت فرم انستاگرام

    با سلام دوستان من از ویژوال استودیو دات نت 2019 استفاده میکنم یه سورس میخوام که بشه به انستاگرام وصل بشه یعنی یوزر و پسوورد رو که درست وارد کردم زدم پیغام نشسون بده درسته اگر هم اشتباه باشه بگه اشتباه هستش از چندین کد استفاده کردم منتها نوشته بود واسه سال 2013 به بعد دیگه عوض شده ممنون میشم کمک کنید
    اونجایی که متن رو زخیم کردم اونجا رو خطا میده
      Dim cc As New CookieContainer
    Dim HWR As HttpWebRequest
    Dim HWP As HttpWebResponse
    Public Function Toresponse(ByVal url As String, ByVal refer As String) As String
    HWR = CType(HttpWebRequest.Create(url), HttpWebRequest)
    HWR.CookieContainer = cc
    If refer <> "" Then
    HWR.Referer = refer
    End If
    HWP = CType(HWR.GetResponse(), HttpWebResponse)
    Return New StreamReader(HWP.GetResponseStream()).ReadToEnd
    End Function
    Public Function ToResponse(ByVal url As String, ByVal post As String, ByVal refer As String) As String
    HWR = CType(HttpWebRequest.Create(url), HttpWebRequest)
    HWR.Method = "post"
    HWR.CookieContainer = cc '10.0 version browser
    HWR.UserAgent = "Applewebkit/537.36 (KHTML, Like Gecko)=Mozilla/10.0 Windows/NT 6.1 Chrome/28.0.1468.0 Safari/537.36"
    If refer <> "" Then
    HWR.Referer = refer
    End If
    Dim bytearr() As Byte = Encoding.Default.GetBytes(post)
    HWR.ContentLength = bytearr.Length
    Dim datastream As Stream = HWR.GetRequestStream()
    datastream.Write(bytearr, 0, bytearr.Length)
    HWP = CType(HWR.GetResponse(), HttpWebResponse)
    Return New StreamReader(HWP.GetResponseStream()).ReadToEnd
    End Function

     Dim html As String = Toresponse("https://www.instagram.com/accounts/login/", "")
    Dim token As String = html.Substring(html.IndexOf("csrfmiddlewaretoken") ).Split(""""c)(2)
    Dim uname As String = txtUsername.Text
    Dim upwd As String = txtPassword.Text
    Dim SB As New StringBuilder
    SB.Append("csrfmiddlewaretoken=" & token)
    SB.Append("&username" & uname)
    SB.Append("csrfmiddlewaretoken=" & token)
    SB.Append("&password" & upwd)
    html = ToResponse("https://www.instagram.com/accounts/login/", SB.ToString, "https://www.instagram.com/accounts/login/")
    If html.Contains("""username"":""" & uname) Then
    MsgBox("login Successfully", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Login")
    ElseIf html.Contains("Please Enter a correct username and password.") Then
    MsgBox("Invalid username or password", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Invalid")
    Else
    MsgBox("Unble login account", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "Unable")
    End If

  2. #2

    نقل قول: ساخت فرم انستاگرام

    نقل قول نوشته شده توسط karim2074 مشاهده تاپیک
    با سلام دوستان من از ویژوال استودیو دات نت 2019 استفاده میکنم یه سورس میخوام که بشه به انستاگرام وصل بشه یعنی یوزر و پسوورد رو که درست وارد کردم زدم پیغام نشسون بده درسته اگر هم اشتباه باشه بگه اشتباه هستش از چندین کد استفاده کردم منتها نوشته بود واسه سال 2013 به بعد دیگه عوض شده ممنون میشم کمک کنید
    اونجایی که متن رو زخیم کردم اونجا رو خطا میده
      Dim cc As New CookieContainer
    Dim HWR As HttpWebRequest
    Dim HWP As HttpWebResponse
    Public Function Toresponse(ByVal url As String, ByVal refer As String) As String
    HWR = CType(HttpWebRequest.Create(url), HttpWebRequest)
    HWR.CookieContainer = cc
    If refer <> "" Then
    HWR.Referer = refer
    End If
    HWP = CType(HWR.GetResponse(), HttpWebResponse)
    Return New StreamReader(HWP.GetResponseStream()).ReadToEnd
    End Function
    Public Function ToResponse(ByVal url As String, ByVal post As String, ByVal refer As String) As String
    HWR = CType(HttpWebRequest.Create(url), HttpWebRequest)
    HWR.Method = "post"
    HWR.CookieContainer = cc '10.0 version browser
    HWR.UserAgent = "Applewebkit/537.36 (KHTML, Like Gecko)=Mozilla/10.0 Windows/NT 6.1 Chrome/28.0.1468.0 Safari/537.36"
    If refer <> "" Then
    HWR.Referer = refer
    End If
    Dim bytearr() As Byte = Encoding.Default.GetBytes(post)
    HWR.ContentLength = bytearr.Length
    Dim datastream As Stream = HWR.GetRequestStream()
    datastream.Write(bytearr, 0, bytearr.Length)
    HWP = CType(HWR.GetResponse(), HttpWebResponse)
    Return New StreamReader(HWP.GetResponseStream()).ReadToEnd
    End Function

     Dim html As String = Toresponse("https://www.instagram.com/accounts/login/", "")
    Dim token As String = html.Substring(html.IndexOf("csrfmiddlewaretoken") ).Split(""""c)(2)
    Dim uname As String = txtUsername.Text
    Dim upwd As String = txtPassword.Text
    Dim SB As New StringBuilder
    SB.Append("csrfmiddlewaretoken=" & token)
    SB.Append("&username" & uname)
    SB.Append("csrfmiddlewaretoken=" & token)
    SB.Append("&password" & upwd)
    html = ToResponse("https://www.instagram.com/accounts/login/", SB.ToString, "https://www.instagram.com/accounts/login/")
    If html.Contains("""username"":""" & uname) Then
    MsgBox("login Successfully", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Login")
    ElseIf html.Contains("Please Enter a correct username and password.") Then
    MsgBox("Invalid username or password", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Invalid")
    Else
    MsgBox("Unble login account", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "Unable")
    End If
    کسی نیست کمک کنه؟؟؟؟

تاپیک های مشابه

  1. پاسخ: 5
    آخرین پست: چهارشنبه 22 شهریور 1402, 14:26 عصر
  2. پاسخ: 11
    آخرین پست: سه شنبه 12 فروردین 1399, 10:08 صبح
  3. استخدام برنامه نویس در استان همدان شهرستان تویسرکان
    نوشته شده توسط alvandyhamed در بخش آگهی های استخدام
    پاسخ: 0
    آخرین پست: جمعه 07 مرداد 1390, 17:26 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •