سلام
اینجا گویا همه مردن!!!! خوب هنوز آدم زنده هست یا شاید امیدی به نجات دادن بعضیاشون باشه!
بی مقدمه بگم تو مباحث برنامه نویسیتون جای Api و WMI_Class خیلی خالیه حالا من شروع میکنم تا کی ادامه بده :
اینجا یه کد ساده هست که یکی از استفاده های تابع SystemParametersInfo رو نشون میده.من میخوام با کمک این تابع Ctrl+Alt+Del و Alt+Tabو WinLogo Key رو از کار بندازم (البته این فقط تو ویندوز 9X کار میکنه بابا دست بردارید از این ویندوز دیگه باید ریختش دور) البته من این تابع رو میگم چون الان فقط همین یادمه میخوام اینجا کارو شروع کنم تا کی ادامه بده.
دو تا دکمه رو فرم بگذارید :
[code:1]Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
Sub DisableCtrlAltDelete(bDisabled As Boolean)
SystemParametersInfo SPI_SCREENSAVERRUNNING, bDisabled, CStr(1), 0
End Sub
Private Sub Command2_Click()
DisableCtrlAltDelete (False)
End Sub
Private Sub Command1_Click()
DisableCtrlAltDelete (True)
End Sub
Private Sub Form_Unload(Cancel As Integer)
DisableCtrlAltDelete (False)
End Sub[/code:1]
به این میگن کلک مرغابی!!! به ویندوز میگیم Screen Saver فعال شده و اگه دقت کرده باشین تو ویندوز 9X اگه Screen Saver با PassWord باشه و شما PassWord رو ندونی هیچکدوم از کلیدا یا استروک هایی که بالا گفتم کار نمی کنن. خوب حالا ما سوءاستفاده میکنیم کی به کیه؟
تا يادم نرفته بگم محض احتياط تو رويداد Unload فرم گذاشتم که همه چی برگرده سر جای خودش که اگه شما یادتون رفت اصلاح بشه. اگه دوست داشته باشید میتونید ورش دارید.
تا بعد بای ...
خرگوش کوچولو.
( ;<
اینجا گویا همه مردن!!!! خوب هنوز آدم زنده هست یا شاید امیدی به نجات دادن بعضیاشون باشه!
بی مقدمه بگم تو مباحث برنامه نویسیتون جای Api و WMI_Class خیلی خالیه حالا من شروع میکنم تا کی ادامه بده :
اینجا یه کد ساده هست که یکی از استفاده های تابع SystemParametersInfo رو نشون میده.من میخوام با کمک این تابع Ctrl+Alt+Del و Alt+Tabو WinLogo Key رو از کار بندازم (البته این فقط تو ویندوز 9X کار میکنه بابا دست بردارید از این ویندوز دیگه باید ریختش دور) البته من این تابع رو میگم چون الان فقط همین یادمه میخوام اینجا کارو شروع کنم تا کی ادامه بده.
دو تا دکمه رو فرم بگذارید :
[code:1]Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
Sub DisableCtrlAltDelete(bDisabled As Boolean)
SystemParametersInfo SPI_SCREENSAVERRUNNING, bDisabled, CStr(1), 0
End Sub
Private Sub Command2_Click()
DisableCtrlAltDelete (False)
End Sub
Private Sub Command1_Click()
DisableCtrlAltDelete (True)
End Sub
Private Sub Form_Unload(Cancel As Integer)
DisableCtrlAltDelete (False)
End Sub[/code:1]
به این میگن کلک مرغابی!!! به ویندوز میگیم Screen Saver فعال شده و اگه دقت کرده باشین تو ویندوز 9X اگه Screen Saver با PassWord باشه و شما PassWord رو ندونی هیچکدوم از کلیدا یا استروک هایی که بالا گفتم کار نمی کنن. خوب حالا ما سوءاستفاده میکنیم کی به کیه؟
تا يادم نرفته بگم محض احتياط تو رويداد Unload فرم گذاشتم که همه چی برگرده سر جای خودش که اگه شما یادتون رفت اصلاح بشه. اگه دوست داشته باشید میتونید ورش دارید.
تا بعد بای ...
خرگوش کوچولو.
( ;<