Visual Basic Codes (Daily Updated)
Onna Mama Aluth Wadak Patan Gaththa
Mama Ada Idala VB Code Danawa. Oyala Danna VB Codes Thiyanawa Nam Me Thread Ekata Danna Puluwan
1\ Clear Recent Document List
Form Code
Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, _
ByVal pv As String)
Private Sub Command1_Click()
Call SHAddToRecentDocs(2, vbNullString)
End Sub
----------------------------------------------------------------------
----------------------------------------------------------------------
2\ Hide The Start Button
Module Code
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Sub SrtBtn(blnValue As Boolean)
Dim lngHandle As Long
Dim lngStartButton As Long
lngHandle = FindWindow("Shell_TrayWnd", "")
lngStartButton = FindWindowEx(lngHandle, 0, "Button", vbNullString)
If blnValue Then
ShowWindow lngStartButton, 5
Else
ShowWindow lngStartButton, 0
End If
End Sub
Form Code
Dim btn As Boolean
Private Sub Command1_Click()
btn = False
Call SrtBtn(btn)
End Sub
Private Sub Command2_Click()
btn = True
Call SrtBtn(btn)
End Sub
-----------------------------------------------------------------------
-----------------------------------------------------------------------
3\ Shut Down, Restart, Log Off And Hibernate
Form Code
Private Declare Function IsPwrHibernateAllowed Lib "Powrprof.dll" () As Integer
Private Declare Function IsPwrSuspendAllowed Lib "Powrprof.dll" () As Integer
Private Declare Function SetSuspendState Lib "Powrprof.dll" (ByVal Hibernate As Integer, ByVal ForceCritical As Integer, ByVal DisableWakeEvent As Integer) As Integer
Private Sub Form_Load()
Shell ("POWERCFG.EXE /HIBERNATE ON")
End Sub
Private Sub Command1_Click() ' (For Shut Down)
Shell "shutdown -s -f -t 0"
End Sub
Private Sub Command2_Click() '(For Restart)
Shell "shutdown -r -f -t 0"
End Sub
Private Sub Command3_Click() '(For Log Off)
Shell "shutdown -l -f -t 0"
End Sub
Private Sub Command4_Click() '(For Hibernate)
If IsPwrHibernateAllowed <> 0 Then
a = SetSuspendState(1, 0, 0)
End If
End Sub
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
4\ Press Caps Lock, Num Lock And Scroll Lock
Form Code
Private Sub Command1_Click() '(For Caps Lock)
Set wshshell = CreateObject("wscript.shell")
wshshell.SendKeys "{CAPSLOCK}"
End Sub
Private Sub Command2_Click() '(For Num Lock)
Set wshshell = CreateObject("wscript.shell")
wshshell.SendKeys "{NUMLOCK}"
End Sub
Private Sub Command3_Click() '(For Scroll Lock)
Set wshshell = CreateObject("wscript.shell")
wshshell.SendKeys "{SCROLLLOCK}"
End Sub
In future I Like To Add This Thread -
*Disable Start Btn
*Rename Start Btn
*Hide Task Bar
*Hide Task Manager (Remember Not Disable)
*Hide Mouse Point ...........
Onna Mama Aluth Wadak Patan Gaththa
Mama Ada Idala VB Code Danawa. Oyala Danna VB Codes Thiyanawa Nam Me Thread Ekata Danna Puluwan
1\ Clear Recent Document List
Form Code
Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, _
ByVal pv As String)
Private Sub Command1_Click()
Call SHAddToRecentDocs(2, vbNullString)
End Sub
----------------------------------------------------------------------
----------------------------------------------------------------------
2\ Hide The Start Button
Module Code
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Sub SrtBtn(blnValue As Boolean)
Dim lngHandle As Long
Dim lngStartButton As Long
lngHandle = FindWindow("Shell_TrayWnd", "")
lngStartButton = FindWindowEx(lngHandle, 0, "Button", vbNullString)
If blnValue Then
ShowWindow lngStartButton, 5
Else
ShowWindow lngStartButton, 0
End If
End Sub
Form Code
Dim btn As Boolean
Private Sub Command1_Click()
btn = False
Call SrtBtn(btn)
End Sub
Private Sub Command2_Click()
btn = True
Call SrtBtn(btn)
End Sub
-----------------------------------------------------------------------
-----------------------------------------------------------------------
3\ Shut Down, Restart, Log Off And Hibernate
Form Code
Private Declare Function IsPwrHibernateAllowed Lib "Powrprof.dll" () As Integer
Private Declare Function IsPwrSuspendAllowed Lib "Powrprof.dll" () As Integer
Private Declare Function SetSuspendState Lib "Powrprof.dll" (ByVal Hibernate As Integer, ByVal ForceCritical As Integer, ByVal DisableWakeEvent As Integer) As Integer
Private Sub Form_Load()
Shell ("POWERCFG.EXE /HIBERNATE ON")
End Sub
Private Sub Command1_Click() ' (For Shut Down)
Shell "shutdown -s -f -t 0"
End Sub
Private Sub Command2_Click() '(For Restart)
Shell "shutdown -r -f -t 0"
End Sub
Private Sub Command3_Click() '(For Log Off)
Shell "shutdown -l -f -t 0"
End Sub
Private Sub Command4_Click() '(For Hibernate)
If IsPwrHibernateAllowed <> 0 Then
a = SetSuspendState(1, 0, 0)
End If
End Sub
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
4\ Press Caps Lock, Num Lock And Scroll Lock
Form Code
Private Sub Command1_Click() '(For Caps Lock)
Set wshshell = CreateObject("wscript.shell")
wshshell.SendKeys "{CAPSLOCK}"
End Sub
Private Sub Command2_Click() '(For Num Lock)
Set wshshell = CreateObject("wscript.shell")
wshshell.SendKeys "{NUMLOCK}"
End Sub
Private Sub Command3_Click() '(For Scroll Lock)
Set wshshell = CreateObject("wscript.shell")
wshshell.SendKeys "{SCROLLLOCK}"
End Sub
In future I Like To Add This Thread -
*Disable Start Btn
*Rename Start Btn
*Hide Task Bar
*Hide Task Manager (Remember Not Disable)
*Hide Mouse Point ...........
Last edited:
