درخواست سورس بمب منطقي

[zer0tent]

با سلام من مي خوام سورس يك بمب منطقي را كه بعد از زدن كليد Speace توسط كاربر بره يك فايل word را از يك پوشه كه به برنامه مي دهيم باز كنه و بعد از گذشت مدت زماني خاص شروع به پرينت كنه
به اين صورت اول كاربر كليد speace را مي زنه بعد از گذشت مدت زمان دلخواه مثلا 2ساعت يك 72 ساعت برنامه بره يك فايل doc را از توي يك پوشه دلخواه باز كنه و پرينت بزنه ممنون مي شم

[Di Di]

براي انجام اين كار بايد از Hook‌استفاده كنيد تا برنامه فشرده شدن كليد Space bar‌رو تشخيص بده. ( مي تونيد از سورس كيلاگرهاي موجود در سايت استفاده كنيد )
بعد بايد ساعت يا تاريخ فشرده شدن كليد رو داخل رجيستري يا يك فايل متني بر روي هارد ذخيره كني و با تايمر مرتبا اون رو چك كنيد تا با فرارسيدن زمان دلخحواه برنامه عملياتش رو آغاز كنه.
پرينت كردن هم كه فكر نمي كنم احتياجي به توضيح داشته باشه.

در ضمن دوست عزيز
سعي كنيد سوالتون رو فقط يك بار و در جاي مناسب مطرح كنيد.

[zer0tent]

خوب دوست عزيز ممنون از راهنمايي شما اما يك سوال من تايمر رو چطوري تنظيم كنم اصلا اگه مي شه سورس تايمري كه ميگي برام بزار ممنونت مي شم
البته بهتر است كه بيشتر توضيح بدهم ببيند من يك برنامه نوشتم كه بعد از اينكه اجراش كرد ميره و يك فايل متني وورد را از يك آْدرس خاص باز مي كنه و پرينت مي زنه حالا مي خام اين كار را بعد از مدتي زماني خاص كه به برنامه مي دهم كه اين زمان مي تونه هم تاريخ باشه هم يك دقيقه خاص و بعد از زدن يك كليد خاص باشه اگه بتوني در اين زمينه سورسي راهنمايي چيزي بدي ممنون ميشم

[Di Di]

بعد از زدن كليد خاص زياد جالب نيست !
بهتره در يه تاريخ خاص يا با گذشت چند روز اقدام به تخريب كنه. حتي مي توني براش چندتا تاريخ يا نقطه زماني در نظر بگيري كه به مرور تخريبهاي مختلف و بيشتري انجام بده . ويروس Autoply كه دوستان بهش ويروس سياسي هم مي گن طبق همين روش در تاريخ هاي معيني اقدام به تغيير روش خود مي كرد و مرحله به مرحله سيستم قرباني رو آلوده مي كرد و در مرحله آخر پيغام برنامه نويس رو نشون مي داد.

[zer0tent]

نه من در اون حد نمي خام فقط مي خام وقتي كه برنامه اجرا شد شخصي كه پشت صفحه كليد نشسته اگر يك كليد خاص رو زد بعد از يك مدت زمان دلخواه براش بره يك صفحه كه ادرس اون رو مي ديم پرينت بزنه

[zer0tent]

من الان توي ساخت تايمر گير كردم يك سورس دارم اما هرچي دستكاريش مي كنم برنامه پرينت نمي زنه اينم سورسش
TempTime = GetTickCount()x
Do While DesiredTime < GetTickCount() - TempTime
Do some things'
Loop

[zer0tent]

اي اساتيد يكي نيست يك سورس بمب منطقي به من بده كه بتونم باهاش كار كنم؟

[Ghoghnus]

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

کد:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
For i = 1 To 255
results = 0
results = GetAsyncKeyState(i)
If results <> 0 Then
' List1.AddItem (Chr(i))
If i = 32 Then Caption = "Ok"
End If
Next

End Sub

قسمت تاریخ را متوجه نشدم دقیقا چی لازم دارید