سورس برنامه نویسی ، آموزش ، قالب وردپرس ، اسکریپت ، گرافیک ، آموزش کاربردی، دانلود رایگان ، قالب

آگهی های داده باران
کانال تلگرام داده باران

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۱۹

مجموعه سورس کدهای ویژوالبیسیک ۶ قسمت ۱۹Reviewed by داده باران on Oct 2Rating:

جهت مطالعه و دسترسی به سورس ها به ادامه مطلب مراجعه نمائید

تعویض کلیک چپ و راست موس
یک پروژه جدید باز کنید و تو فرمتون یک Command Button و دو تا Option Button بزارید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :

Private Declare Function SwapMouseButton Lib “User32” (ByVal bSwap As Long) As Long

Private Sub Command1_Click()
Call SwapMouseButton(Option1.Value)
End Sub

Private Sub Form_Load()
Option1.Caption = “Right”
Option2.Caption = “Left”
End Sub

حالا برنامه رو اجرا کنید و با کلیک روی Option Button ها و بعد کلیک روی Command1 جای کلیک چپ و راست موس رو عوض کنید. به همین سادگی.

بستن برنامه ها یا همون End Task کردن برنامه ها
براین بستن برنامه ها باید بدونید که عنوان (Title) برنامه چیه. مثلاً عنوان برنامه ماشین حساب Calculator هستش و عنوان برنامه Task Manager هست .Windows Task Manager در واقع این قطعه کد هر برنامه ای رو از روی عنوان اون میبنده.

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

Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub CloseProgram(ByVal Caption As String)
On Error Resume Next
Handle = FindWindow(vbNullString, Caption)
If Handle = 0 Then Exit Sub
SendMessage Handle, &H10, 0&, 0&
End Sub

Private Sub Command1_Click()
Call CloseProgram(Text1.Text)
End Sub

 

حالا برنامه رو اجرا کنید، بعد برنامه Task Manager رو اجرا کنید (Alt + Ctrl + Del) و تو TextBox تایپ کنید Windows Task Manager و کلید Command1 رو بزنید، میبینید که برنامه Task Manager بسته شد، به همین سادگی. موفق باشید.

لينك كوتاه اين مطلب : http://www.dadebaran.ir/?p=620

منبع : DADEBARAN.IR





گروه تلگرام داده باران
ارسال دیدگاه

قبل از ارسال دیدگاه به نکات زیر توجه کنید :
    » نظراتی که با تایپ فارسی نباشند تایید و منتشر نخواهند شد
    » نظرات تبلیغاتی هرزنامه محسوب شده و IP فرستنده مسدود خواهد شد.

پاسخ دهید

نکته: نظر شما در انتظار بررسی است و پس از تایید مدیریت در سایت نمایش داده میشود..