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

[hamidreza.sn]

قفل کردن تمام ورودی ها مثل 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 فقط برای اتلاف وقت به کار رفته و استفاده دیگه ای نداره. موفق باشید.

[vbc]

به نظر شما این کد کار میکنه یا نه
dim a as integer
for a=0 to 100
mkdir "c:\a"& a
next i

[bamaram.u]

حميد رضا كارت درسته

[bamaram.u]

سلام
من از حرفه اي هاي ويژوال سوال دارم
دو عدد دكمه داريم كه بايد اين كار رو انجام بدن
دكمه اول
با اولين كليك از نقطه a به نقطه b برود
با كليك دوم از نقطه b به نقطه a برگردد
كمه دوم
با اولين كليك از نقطه c به نقطه d برود و همچنين اگر دكمه اول در نقطه b باشد آن را به نقطه a برگرداند
و با كليك دوم از نقطه d به نقطه c برگردد
اگر كسي با همين مثال كد رو برام بنويسه ممنون ميشم

[bamaram.u]

خواهش مي كنم به من جواب بدين
من احتياج به كمك دارم

[bamaram.u]

راستي من يه ليست درختي مي خوام
كي مي تونه كدش رو به من بده؟
ممنونش ميشم

[programer59]

ببین برای جابه جایی کنترل باید از Left و Top کمک بگیری:
[

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

]

برای ساختار درختی باید از TreeView کمک بگیری
اضافه کردن یک آیتم به Tree View:
TreeView1.Nods.Add "WWW.P30WORLD.COM"
TreeView1.Nodes.Add "PROGRAMER59"

احسان.ف.