عندي بالفورم برجروس بار مجزئه كما هو موضح بالكود الي عدده مراحل المرحله الاول يعمل نافجيت علي ال
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
اخي قم باستخدام اداة Backgroungwoker
في صندوق الادوات اول او ثاني اداة اسمها Backgroundwoker
اضفها على الفورم ثم اضغط دبل كليك على الداة واكتب الكود الذي تريده ان يعمل بالخلفية بداخلها
ثم ضع في الزر هذا الكود
BackgroundWorker1.RunWorkerAsync()
عند الضغط على الزر سيعمل الكود الموجود في الاداة في الخلفية من دون ان تظهر للمستخدم
(10-11-19, 07:04 PM)اليوم السابع كتب : [ -> ] (10-11-19, 06:27 PM)AbdoDabak كتب : [ -> ]اخي قم باستخدام اداة Backgroungwoker
في صندوق الادوات اول او ثاني اداة اسمها Backgroundwoker
اضفها على الفورم ثم اضغط دبل كليك على الداة واكتب الكود الذي تريده ان يعمل بالخلفية بداخلها
ثم ضع في الزر هذا الكود
BackgroundWorker1.RunWorkerAsync()
عند الضغط على الزر سيعمل الكود الموجود في الاداة في الخلفية من دون ان تظهر للمستخدم
اخي اريد حفظ الملف ده كما هو موضح بالصوره في مسار معين تلقائي دون ان يظهر للمستخدم واجهه التحميل اللي في الصوره تجنبنا لعدم حفظه في اي مسار اخر ملحوظه هذه ليس اداه سيف فايل دايلوج دي خاصه بالمتصفح
???????????????????????????
بعد الاطلاع على المواضيع الاخيره للاخ (
اليوم السابع) وغيره من المهتمين باستخراج الاكسس توكن للفيسبوك
هذه الداله تتعامل مع نفس الموقع الذي ذكره الاخ (
اليوم السابع)
هذه الداله من احد الاساتذه وهي صدقه عنه
يمكن للقائمين على المنتدى وضعها في موضوع خاص بها مع قيامهم بشرحها لتعم الفائده
كود :
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 فيمكن الاستفاده منه
(11-11-19, 12:52 AM)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 فيمكن الاستفاده منه
ممكن شرح اخي انا لم افهم الكوود جيدا او كيف استعمله حتي يظهر الاكسيس توكن
(11-11-19, 01:09 AM)اليوم السابع كتب : [ -> ] (11-11-19, 12:52 AM)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 فيمكن الاستفاده منه
ممكن شرح اخي انا لم افهم الكوود جيدا او كيف استعمله حتي يظهر الاكسيس توكن
لا اله الا انت اني كنت من الظالمين برجاء المشاركه كيف يمكنني ان استخدم هذه الداله
ضع الفنكشن بأى مكان فى الفورم أخى
وضع زر وضع فيه كود الاستخدام وضع ايميلك بدل كلمة ايميل وضع الباسورد
بدلا من كلمة باسورد...لكن احذر لآن الفيس بوك متشددين حاليا بخصوص
موضوع الاكسس توكن وقد يتم هذا الى اغلاق حسابك وربنا يوفقك