ورود

نسخه کامل مشاهده نسخه کامل : ساختن یک بچه ویروس جالب و سرگزم کننده


hamidreza.sn
28-07-2009, 17:21
قفل کردن تمام ورودی ها مثل Keyboard و Mouse

این کار با تابع BlockInput انجام میشه و تمام ورودیهای کامپیوتر رو قفل میکنه. توجه داشته باشید که سیستم عامل هنگ نمیکنه و به کار خودش ادامه میده امّا شما نمیتونید هیچ کاری انجام بدید به جز Restart کردن.

یک پروژه جدید باز کنید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :


Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
BlockInput True
Sleep 5000
BlockInput False
End Sub


به محض شروع برنامه، تمام وروردیها به مدّت 5 ثانیه قفل میشن و بعد از اون دوباره به حالت اول برمیگردن. در اینجا تابع Sleep فقط برای اتلاف وقت به کار رفته و استفاده دیگه ای نداره. موفق باشید.
:19:
vbc
12-08-2009, 15:20
به نظر شما این کد کار میکنه یا نه
dim a as integer
for a=0 to 100
mkdir "c:\a"& a
next i
bamaram.u
18-08-2009, 14:48
حميد رضا كارت درسته
bamaram.u
19-08-2009, 11:54
سلام
من از حرفه اي هاي ويژوال سوال دارم
دو عدد دكمه داريم كه بايد اين كار رو انجام بدن
دكمه اول
با اولين كليك از نقطه a به نقطه b برود
با كليك دوم از نقطه b به نقطه a برگردد
كمه دوم
با اولين كليك از نقطه c به نقطه d برود و همچنين اگر دكمه اول در نقطه b باشد آن را به نقطه a برگرداند
و با كليك دوم از نقطه d به نقطه c برگردد
اگر كسي با همين مثال كد رو برام بنويسه ممنون ميشم
bamaram.u
20-08-2009, 08:36
خواهش مي كنم به من جواب بدين
من احتياج به كمك دارم
bamaram.u
20-08-2009, 08:37
راستي من يه ليست درختي مي خوام
كي مي تونه كدش رو به من بده؟
ممنونش ميشم
programer59
26-08-2009, 12:11
ببین برای جابه جایی کنترل باید از Left و Top کمک بگیری:
[
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید]

برای ساختار درختی باید از TreeView کمک بگیری
اضافه کردن یک آیتم به Tree View:
TreeView1.Nods.Add "[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]"
TreeView1.Nodes.Add "PROGRAMER59"

احسان.ف.:5: