+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اخبروني الخطأ في الكود (/showthread.php?tid=15693)
اخبروني الخطأ في الكود - salahmax12 - 06-05-16
اخبروني ما الخطأ في الكود التالي من فضلكم
الكود المفروض فائدته انه يبحث داخل id صفحة الويب عن قيمة من القيم الموجودة في احد ال settings
ولو وجده يسأل عن كلمة المرور حتي يتم حفظها في setting اخر مع رابط الصفحة ف لو تم الضغط علي زر اخر (الكود الخاص به هو الثاني ) يتم اعطاء الصفحة كلمة المرور حتي يكون كل ما علي المستخدم الضغط علي زر ال login الموجود بصفحة الويب
ولو وجده يسأل عن كلمة المرور حتي يتم حفظها في setting اخر مع رابط الصفحة ف لو تم الضغط علي زر اخر (الكود الخاص به هو الثاني ) يتم اعطاء الصفحة كلمة المرور حتي يكون كل ما علي المستخدم الضغط علي زر ال login الموجود بصفحة الويب
ف لو يوجد اي اخطاء بالاكواد رجاء قوموا بتصليحها و لو تحتاجوا المشروع اخبروني و انا تحت امركم
PHP كود :
Private Sub ToolStripButton16_Click(sender As Object, e As EventArgs) Handles ToolStripButton16.Click
For Each ele As HtmlElement In WebBrowser1.Document.All
For Each item In My.Settings.RememberPass
If ele.GetAttribute("id").ToLower = item.ToLower Then
Dim Password As String
Password = InputBox("Please enter your password here")
Dim FFax As String
FFax = WebBrowser1.Url.ToString
My.Settings.MSPass.Add(FFax + Password)
End If
Next
Next
End Sub
الكود الثاني
PHP كود :
If My.Settings.MSPass.Contains(WebBrowser1.Url.ToString) Then
For Each ele As HtmlElement In WebBrowser1.Document.All
For Each item In My.Settings.RememberPass
If ele.GetAttribute("id").ToLower = item.ToLower Then
Dim Password As String = My.Settings.MSPass.ToString.Remove(WebBrowser1.Url.ToString)
ele.SetAttribute("value", Password)
End If
Next
Next
End If