تابع BlockInput و قفل كردن موس و كيبرد

[NabiKAZ]

سلام
ببخشيد زياد سوال ميپرسم :oops:
آقا افشين يه تابع باحال معرفي كرده بودند به اين شكل:

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
BlockInput False

كه براحتي ميشه باهاش موس و كيبرد رو موقتا قفل كرد .
فقط يه مشكل كوچيك داره اونم در زمان زدن كليد alt+ctrl+del به دليل باز شدن پنجره پاپ آپ و از بين رفتن فوكوس از روي پنجره اصلي برنامه ، موس و كيبرد آزاد ميشن ! يكي فقط همين كليد كار ميكنه ! اگرم بخوايم از تو رجستر اين كليد رو غير فعال كنيم . بازم نهايتا به پنجره اختار مبني بر غير فعال بودن اين كليد(alt+ctrl+del) ظاهر ميشه كه بازم موس و كيبرد آزاد ميشه !
راه حل شما براي جلوگيري از اين مشكل چيه ؟

ممنون
نبي

[afshin]

آره .. من اين رو تو وبلاگم نوشته بودم ....

اين رو فكر كنم خيلي وقت پيش از كامران شنيده بودم ... ولي درسته اين مشكلي كه گفتي
هست ... اگه جوابش رو فهميدي با اجازه من تو وبلاگ مينيويسم .... :wink:

نبي جان ... من جوابت رو نميدونستم وگر نه تو وبلاگ هم كه پرسيده بودي بهت ميگفتم
شرمنده :oops:

:wink:

[amirjan]

خوب ، با استفاده از دو سه تا تابع ديگه پنجره مربوط به TaskMgr رو ببند . ( اينم يه فكريه ! )

[ha_60]

In valid seission
و تمام نوشته هام پرید
حالا دو باره
فکر کنم با استفاده از Hook بشه این کار رو کرد چون قبل از این که هر Event به برنامه مورد نظر برسه اول به این ابع فرستاده می شه بعد باید یه جوری از تولیست خارجش کنید

[ashkan]

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

[vahid2000]

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

البته با اين كه شعر شما پر معني بود ولي كلي خنديديم :wink:
راستي در مورد تابع هم كه گفتين يه سر به وبلاگ من بزنيد با اينكه وبلاگ دلفي هست اما سعي ميكنم تا براتون راجع به اين موضوع توضيح بيشتري بدهم آخه براي يه ويروس جديد خودم از اين تابع استفاده كردم :wink:

[NabiKAZ]

سلام
از پاسخ همه دوستان ممنونم. به ترتيب پاسخ ميدم:

اين رو فكر كنم خيلي وقت پيش از كامران شنيده بودم ... ولي درسته اين مشكلي كه گفتي هست ...نبي جان ... من جوابت رو نميدونستم وگر نه تو وبلاگ هم كه پرسيده بودي بهت ميگفتم
شرمنده :oops:
:wink:

دشمنت شرمنده عزيز. آقايي! :wink:
كامران كجايي كه كارت در اومد

خوب ، با استفاده از دو سه تا تابع ديگه پنجره مربوط به TaskMgr رو ببند . ( اينم يه فكريه ! )

امير جان ، شما ببند كه داري خوب ميبندي :wink: ببينم چه جوري ميبندي :wink:

In valid seission
و تمام نوشته هام پرید
حالا دو باره
فکر کنم با استفاده از Hook بشه این کار رو کرد چون قبل از این که هر Event به برنامه مورد نظر برسه اول به این ابع فرستاده می شه بعد باید یه جوری از تولیست خارجش کنید

منظورت از تمام نوشته هات، همين 2 خط بود ؟ ضمنا من براي جلوگيري از اين اشكالاتي كه نمونش رو فرموديد برام عادت شده كه هميشه هر جا كه قراره چيز بنويسم ، قبل از سابميت كردن براي احتياط اول يه ctrl+a و ctrl+c بزنم تا مشكلي پيش نياد. شما هم سعي كن خودت رو عادت بدي . زدن همين دو كليد ساده ميتونه خيلي مفيد باشه .
در مورد هوك هم متوجه نشدم ! من تا سورس نبينم نميفهمم . اما مرسي.

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

اشكان هميشه اينجوري كه ميگي نيست . يعني گاهي با زدن بك هم فرم خالي مياد. ضمنا بعد از زدن بك بايد حتما يه رفرش صورت بگيره كه سشيون جديد توليد بشه و پست ارسال بشه.
نوبت كيه ؟! "ت" اومد :wink: :!:

راستي در مورد تابع هم كه گفتين يه سر به وبلاگ من بزنيد با اينكه وبلاگ دلفي هست اما سعي ميكنم تا براتون راجع به اين موضوع توضيح بيشتري بدهم آخه براي يه ويروس جديد خودم از اين تابع استفاده كردم :wink:

وحيد سر زدم فعلا كه چيزي ننوشتي .. ازت ممنونم . اما سعي كن سعي نكني ! سعي كن حتما بنويسي

فداي همگي
نبي

[amirjan]

سلام

خوب ، با استفاده از دو سه تا تابع ديگه پنجره مربوط به TaskMgr رو ببند . ( اينم يه فكريه ! )

امير جان ، شما ببند كه داري خوب ميبندي :wink: ببينم چه جوري ميبندي :wink:

http://www.iranvig.com/modules.php?name=...e&sid=1562
خوب بستمش ؟ ( )

[ha_60]

منظورت از تمام نوشته هات، همين 2 خط بود ؟ ضمنا من براي جلوگيري از اين اشكالاتي كه نمونش رو فرموديد برام عادت شده كه هميشه هر جا كه قراره چيز بنويسم ، قبل از سابميت كردن براي احتياط اول يه ctrl+a و ctrl+c بزنم تا مشكلي پيش نياد. شما هم سعي كن خودت رو عادت بدي . زدن همين دو كليد ساده ميتونه خيلي مفيد باشه .
در مورد هوك هم متوجه نشدم ! من تا سورس نبينم نميفهمم . اما مرسي.

خوب اينجوري مي شه كه شما دو خط مي بيني آخه آب ميره به CTRL+ هم عادت دارم ولی وقتی چند تا فرم باشه نمی شه
سورس هم یه Keylogger نوشتم یه نگاه بکن
راستی پدرم در اومد این یه کارت اینترنت دیگس این هم پنجاه تا سایت باید باز کنم تا یکی صفحه امروز ایران ویج رو بیاره حتی CTRL+F5 هم جواب نمیده سایتها اینهاست WWW.IRANVIG.COM - IRANVIG.COM - WWW.IRANVIG.COM/INDEX.PHP و هر ترکیبی که به ذهنتون برسه بابا مشکل از کیه

[ashkan]

دوست خوبم ha_60 من نظر شما رو عينن منتقل كردم به هاست و اونها بهم گفتن چند وقتيه خودشون هم اين مشكل رو متوجه شدن(نه فقط ايران ويج بلكه خيلي هاستها) گفتن انگار يا مخابرات و يا خود آي اس پي ها اقدام به نصب كش سرور كردن و چون ستينگها رو دروست انجام نميدن براي همين اين مشكلات بوجود مياد و خود اونها هم بايد رفع كنن . از طرفي مخابرات دست گذاشته رو فيلترينگ و اينو نه خود بلكه به آي اس پي ها گفته تا اقدام كنن .
آي اس پي ها هم فقط بلدن روي آي پي فيلتر كنن و اين مشكل هم هست.
راستش من خودم هم از اين قضيه ناراحتم چون كسي كه به سايت سر ميزنه اگه دوبار ببينه سايت نمياد فك ميكنه مشكل از سايته نه از آي اس پيه خودش و ديگه هم نمياد به سايت.
مثلا همين نداستت رو بعضي از آي اس پي ها بستن وقتي آمار سايت روميگيري ميبيني با چيزي كه خود سايت بهت ميده اختلاف فاحش وجود داره.
يعني صفحه سايت مياد ولي جز آمار نميره.
(علتش هم اين بوده كه مخابرات گفته سايتهاي مثلا غير اخلاقي!!! تو ليست برترين ها هستن و اين باعث انحراف ميشه !!! 8O 8O ) فكر ميكني مثلا سايتهاي ايراني از اين سايتها عربي كم دارن ولي ميبيني سايت هاي ايراني هميشه ته جدول قرار دارن اگه ميتوني به قسمت برنامه نويسيش برو ببين مثلا ايران ويج از 5 و 6 تا سايت عربي عقبتره)

[NabiKAZ]

سلام

خوب ، با استفاده از دو سه تا تابع ديگه پنجره مربوط به TaskMgr رو ببند . ( اينم يه فكريه ! )

امير جان ، شما ببند كه داري خوب ميبندي :wink: ببينم چه جوري ميبندي :wink:

http://www.iranvig.com/modules.php?name=...e&sid=1562
خوب بستمش ؟ ( )

ببند ببندت حرف نداره . حال كردم با بستنت !

مثه عروسكه !. مثه ساعت هم كار ميكنه ! ...
ممنونم امير جان ... اما مهم اينا بتونم با اون ()BlockInput بشه ادغامش كرد!
روش كار ميكنم نتيجه رو خدمتت ميگم استاد

چاكرم