تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال بخصوص webclint ارجو الدخول والمشاركه
#1
عندي  بالفورم برجروس بار مجزئه كما هو موضح بالكود الي عدده مراحل المرحله الاول يعمل نافجيت علي ال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


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

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

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

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

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

اخي اريد حفظ الملف ده كما هو موضح بالصوره في مسار معين تلقائي دون ان يظهر للمستخدم واجهه التحميل اللي في الصوره تجنبنا لعدم حفظه في اي مسار اخر ملحوظه هذه ليس اداه سيف فايل دايلوج دي خاصه بالمتصفح 
???????????????????????????
الرد
تم الشكر بواسطة:
#5
بعد الاطلاع على المواضيع الاخيره للاخ (اليوم السابع) وغيره من المهتمين باستخراج الاكسس توكن للفيسبوك 
هذه الداله  تتعامل مع نفس الموقع الذي ذكره الاخ (اليوم السابع)


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

ممكن شرح اخي انا لم افهم الكوود جيدا او كيف استعمله حتي يظهر الاكسيس توكن
الرد
تم الشكر بواسطة:
#7
(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 فيمكن الاستفاده منه

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

لا اله الا انت اني كنت من الظالمين برجاء المشاركه كيف يمكنني ان استخدم هذه الداله
الرد
تم الشكر بواسطة:
#8
(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 فيمكن الاستفاده منه

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

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

?????????????
الرد
تم الشكر بواسطة: ابراهيم ايبو
#9
(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 فيمكن الاستفاده منه

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

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

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



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم