10-28-2012، 07:50 PM
من دسترسی به فیس بوک ندارم ولی سورسش یه چیزه ابتکاری که باید خودت بنویسی حالا من یه نمونه میزارم
اگه لاگین شدی با پسورد اشتباه بعد آدرس مرورگر تغییر نکرد مثلا همون www.facebook.com\login بود
بعد با یه پسورد درست لاگین شدی آدرس عوض شد مثلا www.facebook.com\home اونوقت میتونی از این کد استفاده کنی
If Me.WebBrowser1.LocationURL = "www.facebook.com\login" Then
Else
MsgBox list1.List(pass)
End If
اگه لاگین شدی با پسورد اشتباه بعد آدرس مرورگر تغییر نکرد مثلا همون www.facebook.com\login بود
بعد با یه پسورد درست لاگین شدی آدرس عوض شد مثلا www.facebook.com\home اونوقت میتونی از این کد استفاده کنی
If Me.WebBrowser1.LocationURL = "www.facebook.com\login" Then
Else
MsgBox list1.List(pass)
End If
راه در جهان یکیست و آن راه راستیست
(زرتشت)
(زرتشت)