منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] سؤال بخصوص webclint ارجو الدخول والمشاركه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سؤال بخصوص webclint ارجو الدخول والمشاركه (/showthread.php?tid=32058)

الصفحات: 1 2

سؤال بخصوص webclint ارجو الدخول والمشاركه - اليوم السابع - 10-11-19

عندي  بالفورم برجروس بار مجزئه كما هو موضح بالكود الي عدده مراحل المرحله الاول يعمل نافجيت علي ال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


RE: سؤال بخصوص webclint ارجو الدخول والمشاركه - AbdoDabak - 10-11-19

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

RE: سؤال بخصوص webclint ارجو الدخول والمشاركه - اليوم السابع - 10-11-19

(10-11-19, 06:27 PM)AbdoDabak كتب : اخي قم باستخدام اداة Backgroungwoker
في صندوق الادوات اول او ثاني اداة  اسمها Backgroundwoker
اضفها على الفورم ثم اضغط دبل كليك على الداة واكتب الكود الذي تريده ان يعمل بالخلفية بداخلها
ثم ضع في الزر هذا الكود
BackgroundWorker1.RunWorkerAsync()
عند الضغط على الزر سيعمل الكود الموجود في الاداة في الخلفية من دون ان تظهر للمستخدم

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

RE: سؤال بخصوص webclint ارجو الدخول والمشاركه - اليوم السابع - 10-11-19

(10-11-19, 07:04 PM)اليوم السابع كتب :
(10-11-19, 06:27 PM)AbdoDabak كتب : اخي قم باستخدام اداة Backgroungwoker
في صندوق الادوات اول او ثاني اداة  اسمها Backgroundwoker
اضفها على الفورم ثم اضغط دبل كليك على الداة واكتب الكود الذي تريده ان يعمل بالخلفية بداخلها
ثم ضع في الزر هذا الكود
BackgroundWorker1.RunWorkerAsync()
عند الضغط على الزر سيعمل الكود الموجود في الاداة في الخلفية من دون ان تظهر للمستخدم

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

RE: سؤال بخصوص webclint ارجو الدخول والمشاركه - smalw - 11-11-19

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


هذه الداله من احد الاساتذه وهي صدقه عنه
يمكن للقائمين على المنتدى وضعها في موضوع خاص بها مع قيامهم بشرحها لتعم الفائده
كود :
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 فيمكن الاستفاده منه

RE: سؤال بخصوص webclint ارجو الدخول والمشاركه - اليوم السابع - 11-11-19

(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 فيمكن الاستفاده منه

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

RE: سؤال بخصوص webclint ارجو الدخول والمشاركه - اليوم السابع - 11-11-19

(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 فيمكن الاستفاده منه

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

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

RE: سؤال بخصوص webclint ارجو الدخول والمشاركه - اليوم السابع - 11-11-19

(11-11-19, 07:52 AM)اليوم السابع كتب :
(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 فيمكن الاستفاده منه

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

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

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

RE: سؤال بخصوص webclint ارجو الدخول والمشاركه - اليوم السابع - 12-11-19

(11-11-19, 02:10 PM)اليوم السابع كتب :
(11-11-19, 07:52 AM)اليوم السابع كتب :
(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 فيمكن الاستفاده منه

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

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

?????????????
للرفع

RE: سؤال بخصوص webclint ارجو الدخول والمشاركه - ابو روضة - 12-11-19

ضع الفنكشن بأى مكان فى الفورم أخى
وضع زر وضع فيه كود الاستخدام وضع ايميلك بدل كلمة ايميل وضع الباسورد
بدلا من كلمة باسورد...لكن احذر لآن الفيس بوك متشددين حاليا بخصوص
موضوع الاكسس توكن وقد يتم هذا الى اغلاق حسابك وربنا يوفقك