از کار انداختن دکمه های ctrl+alt+del

[rasool.m]

سلام خدمت شما دوستان عزیز

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

ببخشید من یک سوال داشتم :
من کد دقیق و کامل برنامه ای را در vb می خواستم که با آن برنامه بتوان دکمه های
alt+ctrl+del را از کار بیندازد .( منظور من آن برنامه ای را که با زدن هم زمان این سه دکمه به
کار می افتد را از کار بیندازد )


اگر در دست وبال شما سورس های ویروس هاس ساده ای هم باشد ممنون می شوم
(لطفا اگر می شود با این دستور for next ، if ... )

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

[شاپرک]

غیر فعال کردن task manager
یه فرم جدید ایجاد کنین و یه دونه چک باکس بهش اضافه کنین و اسم چک باکس بزارین بمونه همون Check1
بعد کد زیر رو به برنامتون وارد کنین
کد:





Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long



Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long



Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long



Private Const REG_SZ = 1

Private Const REG_BINARY = 3

Private Const REG_DWORD = 4

Private Const HKEY_CURRENT_USER = &H80000001

Private Sub SaveStringWORD(hKey As Long, strPath As String, strValue As String, strData As String)

'----------------------------------------------------------------------------

'Argument : Handlekey, Name of the Value in side the key

'Return Value : Nil

'Function : To store the value into a key in the Registry

'Comments : None

'----------------------------------------------------------------------------

Dim Ret

'Create a new key

RegCreateKey hKey, strPath, Ret

'Set the key's value

RegSetValueEx Ret, strValue, 0, REG_DWORD, CLng(strData), 4

'close the key

RegCloseKey Ret

End Sub

Private Sub Check1_Click()

SaveStringWORD HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\policies \system", "DisableTaskMgr", Val(Check1.Value)

End Sub



Private Sub Form_Load()

Check1.Caption = "Disable Task Manager"

End Sub





ببخشید چون یادم نیست این مطلب رو از کدوم سایت برداشتم ..