زنگ تفریح 

با برنامه به راحتی می توانید مختصات فعلی ماوس را عوض کنید مثلا به مختصات 4و4 بفرستید.

حال اگر یک تایمر طراحی کنیم داستان جالب می شود و برای همیشه ماوس در مختصات داده شده محصور می شود.کار جالب دیگری هم می توان انجام داد و آن این است که با تابع Rnd و یک تایمر مختصات تصادفی برای ماوس ایجاد کرد و هر دفعه ماوس در یک مختصات خاص قرار گیرد.

ابتدا تابع SetCursorPos را در قسمت General برنامه تعریف (Declare) می کنیم.

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

حال یک تایمر با Interval=500 و Enabled=True طراحی می کنیم.

بر روی تایمر دوبار کلیک می کنیم و در رویداد Timer کدهای زیر را وارد می کنیم:

Randomize

Mwidth = Rnd() * 1024

Mheight = Rnd() * 767

SetCursorPos mwidth, mheight

هنگامی که برنامه را اجرا کنید هرگز از برنامه توسط ماوس نمی توانید خارج شوید برای خروج باید از دکمه های ALT+F4 استفاده کنید.

منوی اصلی

آمار وبلاگ

عضویت در خبرنامه