عندي بالفورم برجروس بار مجزئه كما هو موضح بالكود الي عدده مراحل المرحله الاول يعمل نافجيت علي ال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
10-11-19, 06:27 PM (آخر تعديل لهذه المشاركة : 10-11-19, 06:31 PM {2} بواسطة AbdoDabak.)
اخي قم باستخدام اداة Backgroungwoker
في صندوق الادوات اول او ثاني اداة اسمها Backgroundwoker
اضفها على الفورم ثم اضغط دبل كليك على الداة واكتب الكود الذي تريده ان يعمل بالخلفية بداخلها
ثم ضع في الزر هذا الكود
BackgroundWorker1.RunWorkerAsync()
عند الضغط على الزر سيعمل الكود الموجود في الاداة في الخلفية من دون ان تظهر للمستخدم
(10-11-19, 06:27 PM)AbdoDabak كتب : اخي قم باستخدام اداة Backgroungwoker
في صندوق الادوات اول او ثاني اداة اسمها Backgroundwoker
اضفها على الفورم ثم اضغط دبل كليك على الداة واكتب الكود الذي تريده ان يعمل بالخلفية بداخلها
ثم ضع في الزر هذا الكود
BackgroundWorker1.RunWorkerAsync()
عند الضغط على الزر سيعمل الكود الموجود في الاداة في الخلفية من دون ان تظهر للمستخدم
اخي اريد حفظ الملف ده كما هو موضح بالصوره في مسار معين تلقائي دون ان يظهر للمستخدم واجهه التحميل اللي في الصوره تجنبنا لعدم حفظه في اي مسار اخر ملحوظه هذه ليس اداه سيف فايل دايلوج دي خاصه بالمتصفح
(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, 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, 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, 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 فيمكن الاستفاده منه
ممكن شرح اخي انا لم افهم الكوود جيدا او كيف استعمله حتي يظهر الاكسيس توكن
لا اله الا انت اني كنت من الظالمين برجاء المشاركه كيف يمكنني ان استخدم هذه الداله