[اليوم السابع]

عندي  بالفورم برجروس بار مجزئه كما هو موضح بالكود الي عدده مراحل المرحله الاول يعمل نافجيت علي الurl والمرحله الثانيه يضغط علي زر والمرحله الثالثه يكتب نص في التكست بوكس والمرحله الرابعه يضغط علي زر الwebclint بعد ما بيضغط علي زر بيحمل ملف تلقائي انا اريد حفظ الملف ده كما هو موضح بالصوره في مسار معين تلقائي دون ان يظهر للمستخدم تجنبنا لعدم حفظه في اي مسار اخر كيف اعمل ذلك 

كود :

 If ProgressBar1.Value = 10 Then
           WebBrowser1.Navigate("https://****/?loginmethod=v2")
           Threading.Thread.Sleep(15000)
       End If
       If ProgressBar1.Value = 48 Then
           WebBrowser1.Document.GetElementById("myBtn").InvokeMember("click")
           Threading.Thread.Sleep(15000)
       End If
       If ProgressBar1.Value = 80 Then
           WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
           WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)

           Threading.Thread.Sleep(5000)
       End If

       If ProgressBar1.Value = 90 Then
           Dim allB As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
           For Each bt As HtmlElement In allB
               If bt.GetAttribute("className") = "btn btn-primary bt-token" Then
                   bt.InvokeMember("click")
               End If
           Next

[AbdoDabak]

اخي قم باستخدام اداة Backgroungwoker
في صندوق الادوات اول او ثاني اداة اسمها Backgroundwoker
اضفها على الفورم ثم اضغط دبل كليك على الداة واكتب الكود الذي تريده ان يعمل بالخلفية بداخلها

---

ثم ضع في الزر هذا الكود
BackgroundWorker1.RunWorkerAsync()
عند الضغط على الزر سيعمل الكود الموجود في الاداة في الخلفية من دون ان تظهر للمستخدم

[اليوم السابع]

اخي قم باستخدام اداة Backgroungwoker
في صندوق الادوات اول او ثاني اداة  اسمها Backgroundwoker
اضفها على الفورم ثم اضغط دبل كليك على الداة واكتب الكود الذي تريده ان يعمل بالخلفية بداخلها

---

ثم ضع في الزر هذا الكود
BackgroundWorker1.RunWorkerAsync()
عند الضغط على الزر سيعمل الكود الموجود في الاداة في الخلفية من دون ان تظهر للمستخدم

اخي اريد حفظ الملف ده كما هو موضح بالصوره في مسار معين تلقائي دون ان يظهر للمستخدم واجهه التحميل اللي في الصوره تجنبنا لعدم حفظه في اي مسار اخر ملحوظه هذه ليس اداه سيف فايل دايلوج دي خاصه بالمتصفح 

[اليوم السابع]

اخي قم باستخدام اداة Backgroungwoker
في صندوق الادوات اول او ثاني اداة  اسمها Backgroundwoker
اضفها على الفورم ثم اضغط دبل كليك على الداة واكتب الكود الذي تريده ان يعمل بالخلفية بداخلها

---

ثم ضع في الزر هذا الكود
BackgroundWorker1.RunWorkerAsync()
عند الضغط على الزر سيعمل الكود الموجود في الاداة في الخلفية من دون ان تظهر للمستخدم

اخي اريد حفظ الملف ده كما هو موضح بالصوره في مسار معين تلقائي دون ان يظهر للمستخدم واجهه التحميل اللي في الصوره تجنبنا لعدم حفظه في اي مسار اخر ملحوظه هذه ليس اداه سيف فايل دايلوج دي خاصه بالمتصفح 

???????????????????????????

[smalw]

بعد الاطلاع على المواضيع الاخيره للاخ (اليوم السابع) وغيره من المهتمين باستخراج الاكسس توكن للفيسبوك 
هذه الداله  تتعامل مع نفس الموقع الذي ذكره الاخ (اليوم السابع)


هذه الداله من احد الاساتذه وهي صدقه عنه
يمكن للقائمين على المنتدى وضعها في موضوع خاص بها مع قيامهم بشرحها لتعم الفائده

كود :

Public Shared Function GetFacebookAccessToken(email As String, password As String) As String
    Dim q As Net.HttpWebRequest, u = "https://qlizz.com/", c As New Net.CookieContainer, b, s, m
    q = Net.HttpWebRequest.Create(u & "?loginmethod=v2") : q.CookieContainer = c
    s = New IO.StreamReader(q.GetResponse().GetResponseStream()).ReadToEnd
    s = System.Text.RegularExpressions.Regex.Match(s, "name=""_token"" value=""(.+?)""").Groups(1).Value
    q = Net.HttpWebRequest.Create(u & "gtoken") : q.CookieContainer = c : q.Method = "POST"
    q.ContentType = "application/x-www-form-urlencoded"
    s = "_token=" & s & "&email=" & Uri.EscapeDataString(email) & "&pass=" & Uri.EscapeDataString(password)
    b = System.Text.Encoding.ASCII.GetBytes(s) : q.GetRequestStream().Write(b, 0, b.Length)
    s = New IO.StreamReader(q.GetResponse().GetResponseStream()).ReadToEnd
    s = System.Text.RegularExpressions.Regex.Match(s, "<iframe.+?src=""(.+?)"">").Groups(1).Value
    s = New Net.WebClient().DownloadString(s)
    m = System.Text.RegularExpressions.Regex.Match(s, """uid"":(.+?),.+?""access_token"":""(.+?)""")
    '-------------------
    Dim uid = m.Groups(1).Value
    Dim access_token = m.Groups(2).Value
    '-------------------
    Return access_token
End Function

التعامل معها

كود :

Dim accesstoken As String = GetFacebookAccessToken("email", "password")

يلاحظ ان في اخر كود الداله انه يجلب ايضا id فيمكن الاستفاده منه

[اليوم السابع]

بعد الاطلاع على المواضيع الاخيره للاخ (اليوم السابع) وغيره من المهتمين باستخراج الاكسس توكن للفيسبوك 
هذه الداله  تتعامل مع نفس الموقع الذي ذكره الاخ (اليوم السابع)


هذه الداله من احد الاساتذه وهي صدقه عنه
يمكن للقائمين على المنتدى وضعها في موضوع خاص بها مع قيامهم بشرحها لتعم الفائده

كود :

Public Shared Function GetFacebookAccessToken(email As String, password As String) As String
    Dim q As Net.HttpWebRequest, u = "https://qlizz.com/", c As New Net.CookieContainer, b, s, m
    q = Net.HttpWebRequest.Create(u & "?loginmethod=v2") : q.CookieContainer = c
    s = New IO.StreamReader(q.GetResponse().GetResponseStream()).ReadToEnd
    s = System.Text.RegularExpressions.Regex.Match(s, "name=""_token"" value=""(.+?)""").Groups(1).Value
    q = Net.HttpWebRequest.Create(u & "gtoken") : q.CookieContainer = c : q.Method = "POST"
    q.ContentType = "application/x-www-form-urlencoded"
    s = "_token=" & s & "&email=" & Uri.EscapeDataString(email) & "&pass=" & Uri.EscapeDataString(password)
    b = System.Text.Encoding.ASCII.GetBytes(s) : q.GetRequestStream().Write(b, 0, b.Length)
    s = New IO.StreamReader(q.GetResponse().GetResponseStream()).ReadToEnd
    s = System.Text.RegularExpressions.Regex.Match(s, "<iframe.+?src=""(.+?)"">").Groups(1).Value
    s = New Net.WebClient().DownloadString(s)
    m = System.Text.RegularExpressions.Regex.Match(s, """uid"":(.+?),.+?""access_token"":""(.+?)""")
    '-------------------
    Dim uid = m.Groups(1).Value
    Dim access_token = m.Groups(2).Value
    '-------------------
    Return access_token
End Function

التعامل معها

كود :

Dim accesstoken As String = GetFacebookAccessToken("email", "password")

يلاحظ ان في اخر كود الداله انه يجلب ايضا id فيمكن الاستفاده منه

ممكن شرح اخي انا لم افهم الكوود جيدا او كيف استعمله حتي يظهر الاكسيس توكن

[اليوم السابع]

بعد الاطلاع على المواضيع الاخيره للاخ (اليوم السابع) وغيره من المهتمين باستخراج الاكسس توكن للفيسبوك 
هذه الداله  تتعامل مع نفس الموقع الذي ذكره الاخ (اليوم السابع)


هذه الداله من احد الاساتذه وهي صدقه عنه
يمكن للقائمين على المنتدى وضعها في موضوع خاص بها مع قيامهم بشرحها لتعم الفائده

كود :

Public Shared Function GetFacebookAccessToken(email As String, password As String) As String
    Dim q As Net.HttpWebRequest, u = "https://qlizz.com/", c As New Net.CookieContainer, b, s, m
    q = Net.HttpWebRequest.Create(u & "?loginmethod=v2") : q.CookieContainer = c
    s = New IO.StreamReader(q.GetResponse().GetResponseStream()).ReadToEnd
    s = System.Text.RegularExpressions.Regex.Match(s, "name=""_token"" value=""(.+?)""").Groups(1).Value
    q = Net.HttpWebRequest.Create(u & "gtoken") : q.CookieContainer = c : q.Method = "POST"
    q.ContentType = "application/x-www-form-urlencoded"
    s = "_token=" & s & "&email=" & Uri.EscapeDataString(email) & "&pass=" & Uri.EscapeDataString(password)
    b = System.Text.Encoding.ASCII.GetBytes(s) : q.GetRequestStream().Write(b, 0, b.Length)
    s = New IO.StreamReader(q.GetResponse().GetResponseStream()).ReadToEnd
    s = System.Text.RegularExpressions.Regex.Match(s, "<iframe.+?src=""(.+?)"">").Groups(1).Value
    s = New Net.WebClient().DownloadString(s)
    m = System.Text.RegularExpressions.Regex.Match(s, """uid"":(.+?),.+?""access_token"":""(.+?)""")
    '-------------------
    Dim uid = m.Groups(1).Value
    Dim access_token = m.Groups(2).Value
    '-------------------
    Return access_token
End Function

التعامل معها

كود :

Dim accesstoken As String = GetFacebookAccessToken("email", "password")

يلاحظ ان في اخر كود الداله انه يجلب ايضا id فيمكن الاستفاده منه

ممكن شرح اخي انا لم افهم الكوود جيدا او كيف استعمله حتي يظهر الاكسيس توكن

لا اله الا انت اني كنت من الظالمين برجاء المشاركه كيف يمكنني ان استخدم هذه الداله

[اليوم السابع]

بعد الاطلاع على المواضيع الاخيره للاخ (اليوم السابع) وغيره من المهتمين باستخراج الاكسس توكن للفيسبوك 
هذه الداله  تتعامل مع نفس الموقع الذي ذكره الاخ (اليوم السابع)


هذه الداله من احد الاساتذه وهي صدقه عنه
يمكن للقائمين على المنتدى وضعها في موضوع خاص بها مع قيامهم بشرحها لتعم الفائده

كود :

Public Shared Function GetFacebookAccessToken(email As String, password As String) As String
    Dim q As Net.HttpWebRequest, u = "https://qlizz.com/", c As New Net.CookieContainer, b, s, m
    q = Net.HttpWebRequest.Create(u & "?loginmethod=v2") : q.CookieContainer = c
    s = New IO.StreamReader(q.GetResponse().GetResponseStream()).ReadToEnd
    s = System.Text.RegularExpressions.Regex.Match(s, "name=""_token"" value=""(.+?)""").Groups(1).Value
    q = Net.HttpWebRequest.Create(u & "gtoken") : q.CookieContainer = c : q.Method = "POST"
    q.ContentType = "application/x-www-form-urlencoded"
    s = "_token=" & s & "&email=" & Uri.EscapeDataString(email) & "&pass=" & Uri.EscapeDataString(password)
    b = System.Text.Encoding.ASCII.GetBytes(s) : q.GetRequestStream().Write(b, 0, b.Length)
    s = New IO.StreamReader(q.GetResponse().GetResponseStream()).ReadToEnd
    s = System.Text.RegularExpressions.Regex.Match(s, "<iframe.+?src=""(.+?)"">").Groups(1).Value
    s = New Net.WebClient().DownloadString(s)
    m = System.Text.RegularExpressions.Regex.Match(s, """uid"":(.+?),.+?""access_token"":""(.+?)""")
    '-------------------
    Dim uid = m.Groups(1).Value
    Dim access_token = m.Groups(2).Value
    '-------------------
    Return access_token
End Function

التعامل معها

كود :

Dim accesstoken As String = GetFacebookAccessToken("email", "password")

يلاحظ ان في اخر كود الداله انه يجلب ايضا id فيمكن الاستفاده منه

ممكن شرح اخي انا لم افهم الكوود جيدا او كيف استعمله حتي يظهر الاكسيس توكن

لا اله الا انت اني كنت من الظالمين برجاء المشاركه كيف يمكنني ان استخدم هذه الداله

?????????????

[اليوم السابع]

بعد الاطلاع على المواضيع الاخيره للاخ (اليوم السابع) وغيره من المهتمين باستخراج الاكسس توكن للفيسبوك 
هذه الداله  تتعامل مع نفس الموقع الذي ذكره الاخ (اليوم السابع)


هذه الداله من احد الاساتذه وهي صدقه عنه
يمكن للقائمين على المنتدى وضعها في موضوع خاص بها مع قيامهم بشرحها لتعم الفائده

كود :

Public Shared Function GetFacebookAccessToken(email As String, password As String) As String
    Dim q As Net.HttpWebRequest, u = "https://qlizz.com/", c As New Net.CookieContainer, b, s, m
    q = Net.HttpWebRequest.Create(u & "?loginmethod=v2") : q.CookieContainer = c
    s = New IO.StreamReader(q.GetResponse().GetResponseStream()).ReadToEnd
    s = System.Text.RegularExpressions.Regex.Match(s, "name=""_token"" value=""(.+?)""").Groups(1).Value
    q = Net.HttpWebRequest.Create(u & "gtoken") : q.CookieContainer = c : q.Method = "POST"
    q.ContentType = "application/x-www-form-urlencoded"
    s = "_token=" & s & "&email=" & Uri.EscapeDataString(email) & "&pass=" & Uri.EscapeDataString(password)
    b = System.Text.Encoding.ASCII.GetBytes(s) : q.GetRequestStream().Write(b, 0, b.Length)
    s = New IO.StreamReader(q.GetResponse().GetResponseStream()).ReadToEnd
    s = System.Text.RegularExpressions.Regex.Match(s, "<iframe.+?src=""(.+?)"">").Groups(1).Value
    s = New Net.WebClient().DownloadString(s)
    m = System.Text.RegularExpressions.Regex.Match(s, """uid"":(.+?),.+?""access_token"":""(.+?)""")
    '-------------------
    Dim uid = m.Groups(1).Value
    Dim access_token = m.Groups(2).Value
    '-------------------
    Return access_token
End Function

التعامل معها

كود :

Dim accesstoken As String = GetFacebookAccessToken("email", "password")

يلاحظ ان في اخر كود الداله انه يجلب ايضا id فيمكن الاستفاده منه

ممكن شرح اخي انا لم افهم الكوود جيدا او كيف استعمله حتي يظهر الاكسيس توكن

لا اله الا انت اني كنت من الظالمين برجاء المشاركه كيف يمكنني ان استخدم هذه الداله

?????????????

للرفع

[ابو روضة]

ضع الفنكشن بأى مكان فى الفورم أخى

وضع زر وضع فيه كود الاستخدام وضع ايميلك بدل كلمة ايميل وضع الباسورد

بدلا من كلمة باسورد...لكن احذر لآن الفيس بوك متشددين حاليا بخصوص

موضوع الاكسس توكن وقد يتم هذا الى اغلاق حسابك وربنا يوفقك