اطلاعیه

تا اطلاع ثانوی در این وبلاگ گل گرفته شد.

|+|

سورس تاریخ هجری به شمسی

در این قسمت مشکلات مربوط به تاریخ شمسی رو مطرح کنید.

|+|

مردم آزاری با VB

سلام به همگی و با تشکر از دوستانی که لطف کردن و نظر دادن وبا عرض معذرت برای اینکه این آپدیتم یه نمه دیر شد.

امروز همونطور که قول داده بودم می خوایم یکمی دوستامونو اذیت کنیم البته با یه برنامه کوچیک که با VB می نویسیم!!!. این برنامه مثل یه ویروس کم آزار(گفتم که این لغت رو به تمامی فرهنگستان ها و دیکشنری ها اضافه کنن!!!)می مونه و الگوریتم اون به این صورته که اگر کاربر پنجره ای (فرمی) رو که شما تعیین می کنید رو باز کنه هر ، برنامه اون فرم رو می بنده.

در اینجا ما از دو تا تابع API استفاده می کنیم که عبارتند از : FindWindowA برای پیدا کردن پنجره مورد نظر و SetForegroundWindow برای فعال کردن پنجره مورد نظر که هر دوی این توابع در فایل user32.dll تعریف شده اند.

اول برای تعریف توابع فوق خطوط زیر رو در قسمت General وارد کنید :

Private Declare Function FindWindowA Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Dim Temp As Long

حالا روی فرمتون یه Timer قرار بدین و خاصیت Interval اون رو به 50 تغییر بدید، بعد روی اون دابل کلیک کنید و کد های زیر رو در Sub مربوط به Timer قرار بدین: 

 

  Temp = FindWindowA(vbNullString, "My Computer")

  If Temp <> 0 Then

    SetForegroundWindow (Temp)

    SendKeys "%{F4}"

  End If

 

(اگه کدهای بالا رو کپی کنید شکلشون درست می شه)

دستور اول هندل (لازم به ذکر است که سیستم عامل به هر کنترلی و به هر فرمی شماره ای اختصاص می ده که اگر اساتید محترم اجازه بدن به این شماره بگیم هندل!) پنجره ای رو که (در اینجا) عنوانش My Computer باشد رو در متغیر Temp می ریزد. شرط بعدی چک می کند که پنجره مورد نظر پیدا شده یا نه که در صورت برقراری این شرط  با تابع SetForegroundWindow (که آرگومانش همون شماره ای  باید باشه که با تابع FindWindowA پیدا کردیم) پنجره پیدا شده رو فعال می کنه و در نهایت تابع SendKeys زهر خودش رو می ریزه و با ارسال یک کلید میانبر به نام Alt+F4 کاربر عزیز رو در باز کردن پنجره مورد نظرش ناکام می کنه!!!.

حالا بسته به استعداد و البته میزان مردم آزاری تون می تونید این برنامه رو گسترش بدید!!

تا پست بعدی Bye.

|+|

تابع SendKeys

سلام به همگی .هدف من از ایجاد این وبلاگ بیان مسائل مختلف در برنامه نویسی به زبان ویژوال بیسیک می باشد.هر گونه سوالی را می توانید در سیستم نظر سنجی مطرح کنید.

حالا برای اولین مطلب من یک تابع رو معرفی می کنم به نام تابع SendKeys .در حالت عادی شما برای درج هر کراکتری و یا انجام هر عملی دکمه های مورد نظرتون رو از کیبورد تایپ می کنید.

ولی کار این تابع همونطور که از اسمش هم پیداست اینه که شما هر دکمه ای رو که می خواهید از صفحه کلید به سیستم عامل یا برنامه مورد نظر ارسال کنید رو از طریق کد نویسی ارسال می کنه.

اینم شکل کلی تابع : SendKeys string

اینم از مقادیری که که باید در آرگومان String قرار بدین :

کلید در کیبورد	کد
BACKSPACE	{BACKSPACE}, {BS}, or {BKSP}
BREAK	{BREAK}
CAPS LOCK	{CAPSLOCK}
DEL or DELETE	{DELETE} or {DEL}
DOWN ARROW	{DOWN}
END	{END}
ENTER	{ENTER}or ~
ESC	{ESC}
HELP	{HELP}
HOME	{HOME}
INS or INSERT	{INSERT} or {INS}
LEFT ARROW	{LEFT}
NUM LOCK	{NUMLOCK}
PAGE DOWN	{PGDN}
PAGE UP	{PGUP}
PRINT SCREEN	{PRTSC}
RIGHT ARROW	{RIGHT}
SCROLL LOCK	{SCROLLLOCK}
TAB	{TAB}
UP ARROW	{UP}
F1	{F1}
F2	{F2}
F3	{F3}
F4	{F4}
F5	{F5}
F6	{F6}
F7	{F7}
F8	{F8}
F9	{F9}
F10	{F10}
F11	{F11}
F12	{F12}
F13	{F13}
F14	{F14}
F15	{F15}
F16	{F16}

	اینا هم مربوط به کلید های کنترلی میشه :
SHIFT	+
CTRL	^
ALT	%

 

 

 

 

 

  حالا یه مثال می زنم کلی حال کنیم :

دستور زیر کار کلید های ترکیبی Alt+F4 رو انجام میده یعنی هر پنجره ای رو که فعال باشه می بنده و نهایتا پنجره ShutDown رو نشون میده.

  SendKeys "%{F4}"

یا مثلا این یکی یه متن رو داخل یه تکست باکس Select می کنه :

  Text1.SetFocus

  SendKeys "{Home}+{End}"

که تو اینجا Text1 همون تکست باکسیه که می خوایم متنش Select بشه.

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

در پناه حق.

|+|