Search
Search titles only
By:
Search titles only
By:
Log in
Register
Search
Search titles only
By:
Search titles only
By:
Menu
Install the app
Install
Forums
New posts
All threads
Latest threads
New posts
Trending threads
Trending
Search forums
What's new
New posts
New ads
New profile posts
Latest activity
Free Ads
Latest reviews
Search ads
Members
Current visitors
New profile posts
Search profile posts
Contact us
Latest ads
එක පැකේජ් එකයි මාසෙටම Unlimited Internet. තාමත් DATA CARD දාන්න සල්ලි වියදම් කරනවද? අඩුම මිලට අපෙන්.
sayuru bandara
Updated:
Tuesday at 12:30 PM
Ad icon
ඉන්ටර්නෙට් එකෙන් හරියටම සල්ලි හොයන්න සහ Success වෙන්න කැමතිද? 🚀 (E-Money & Success Stories)
siri sumana
Updated:
Saturday at 11:44 PM
Gemini AI PRO 18 months Offer
Hawaka
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Electronics
Vehicles
Property
Search
Reply to thread
Forums
Computers & Internet
Tips & Tricks
Visual Basic Codes
Get the App
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Message
<blockquote data-quote="lucky_lakshitha" data-source="post: 5579296" data-attributes="member: 146143"><p><strong>Visual Basic Codes (Daily Updated)</strong></p><p></p><p><span style="font-size: 22px"><span style="color: Blue"><strong>Onna Mama Aluth Wadak Patan Gaththa</strong></span></span></p><p></p><p><span style="color: Magenta"><strong>Mama Ada Idala VB Code Danawa. Oyala Danna VB Codes Thiyanawa Nam Me Thread Ekata Danna Puluwan</strong></span></p><p></p><p><span style="color: Red"><u><strong>1\ Clear Recent Document List</strong></u></span></p><p></p><p><span style="color: Blue">Form Code</span></p><p></p><p>Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, _</p><p>ByVal pv As String)</p><p></p><p>Private Sub Command1_Click()</p><p>Call SHAddToRecentDocs(2, vbNullString)</p><p>End Sub</p><p>----------------------------------------------------------------------</p><p>----------------------------------------------------------------------</p><p></p><p><span style="color: Red"><u><strong>2\ Hide The Start Button </strong></u></span></p><p></p><p><span style="color: Blue">Module Code</span></p><p></p><p>Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long</p><p>Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long</p><p>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</p><p>Sub SrtBtn(blnValue As Boolean)</p><p> Dim lngHandle As Long</p><p> Dim lngStartButton As Long</p><p></p><p> lngHandle = FindWindow("Shell_TrayWnd", "")</p><p> lngStartButton = FindWindowEx(lngHandle, 0, "Button", vbNullString)</p><p></p><p> </p><p> If blnValue Then</p><p> ShowWindow lngStartButton, 5</p><p> Else</p><p> ShowWindow lngStartButton, 0</p><p> End If</p><p></p><p>End Sub</p><p></p><p></p><p><span style="color: Blue">Form Code</span></p><p></p><p>Dim btn As Boolean</p><p></p><p>Private Sub Command1_Click()</p><p>btn = False</p><p>Call SrtBtn(btn)</p><p>End Sub</p><p></p><p>Private Sub Command2_Click()</p><p>btn = True</p><p>Call SrtBtn(btn)</p><p>End Sub</p><p></p><p></p><p>-----------------------------------------------------------------------</p><p>-----------------------------------------------------------------------</p><p><u></u></p><p><u><span style="color: Red"><strong>3\ Shut Down, Restart, Log Off And Hibernate </strong></span></u></p><p></p><p><span style="color: Blue">Form Code</span></p><p></p><p>Private Declare Function IsPwrHibernateAllowed Lib "Powrprof.dll" () As Integer</p><p>Private Declare Function IsPwrSuspendAllowed Lib "Powrprof.dll" () As Integer</p><p>Private Declare Function SetSuspendState Lib "Powrprof.dll" (ByVal Hibernate As Integer, ByVal ForceCritical As Integer, ByVal DisableWakeEvent As Integer) As Integer</p><p></p><p></p><p>Private Sub Form_Load()</p><p>Shell ("POWERCFG.EXE /HIBERNATE ON")</p><p>End Sub</p><p></p><p>Private Sub Command1_Click() ' <span style="color: Sienna">(For Shut Down)</span></p><p>Shell "shutdown -s -f -t 0"</p><p>End Sub</p><p></p><p>Private Sub Command2_Click() <span style="color: Sienna">'(For Restart)</span></p><p>Shell "shutdown -r -f -t 0"</p><p>End Sub</p><p></p><p>Private Sub Command3_Click() '<span style="color: Sienna">(For Log Off)</span></p><p>Shell "shutdown -l -f -t 0"</p><p>End Sub</p><p></p><p>Private Sub Command4_Click() '<span style="color: Sienna">(For Hibernate)</span></p><p>If IsPwrHibernateAllowed <> 0 Then</p><p>a = SetSuspendState(1, 0, 0)</p><p>End If</p><p>End Sub</p><p></p><p>-----------------------------------------------------------------------------</p><p>-----------------------------------------------------------------------------</p><p></p><p><span style="color: Red"><u><strong>4\ Press Caps Lock, Num Lock And Scroll Lock</strong></u></span></p><p></p><p><span style="color: Blue">Form Code</span></p><p></p><p>Private Sub Command1_Click() '<span style="color: Sienna">(For Caps Lock)</span></p><p>Set wshshell = CreateObject("wscript.shell")</p><p>wshshell.SendKeys "{CAPSLOCK}"</p><p>End Sub</p><p></p><p>Private Sub Command2_Click() '<span style="color: Sienna">(For Num Lock)</span></p><p>Set wshshell = CreateObject("wscript.shell")</p><p>wshshell.SendKeys "{NUMLOCK}"</p><p>End Sub</p><p></p><p>Private Sub Command3_Click() '<span style="color: Sienna">(For Scroll Lock)</span></p><p>Set wshshell = CreateObject("wscript.shell")</p><p>wshshell.SendKeys "{SCROLLLOCK}"</p><p>End Sub</p><p></p><p></p><p></p><p></p><p></p><p></p><p><span style="color: Red"><strong>In future I Like To Add This Thread -</strong></span></p><p><strong>*Disable Start Btn</strong></p><p><strong>*Rename Start Btn</strong></p><p><strong>*Hide Task Bar</strong></p><p><strong>*Hide Task Manager (Remember Not Disable)</strong></p><p><strong>*Hide Mouse Point ...........</strong></p><p><strong></strong></p></blockquote><p></p>
[QUOTE="lucky_lakshitha, post: 5579296, member: 146143"] [b]Visual Basic Codes (Daily Updated)[/b] [SIZE=6][COLOR=Blue][B]Onna Mama Aluth Wadak Patan Gaththa[/B][/COLOR][/SIZE] [COLOR=Magenta][B]Mama Ada Idala VB Code Danawa. Oyala Danna VB Codes Thiyanawa Nam Me Thread Ekata Danna Puluwan[/B][/COLOR] [COLOR=Red][U][B]1\ Clear Recent Document List[/B][/U][/COLOR] [COLOR=Blue]Form Code[/COLOR] 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 ---------------------------------------------------------------------- ---------------------------------------------------------------------- [COLOR=Red][U][B]2\ Hide The Start Button [/B][/U][/COLOR] [COLOR=Blue]Module Code[/COLOR] 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 [COLOR=Blue]Form Code[/COLOR] 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 ----------------------------------------------------------------------- ----------------------------------------------------------------------- [U] [COLOR=Red][B]3\ Shut Down, Restart, Log Off And Hibernate [/B][/COLOR][/U] [COLOR=Blue]Form Code[/COLOR] 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() ' [COLOR=Sienna](For Shut Down)[/COLOR] Shell "shutdown -s -f -t 0" End Sub Private Sub Command2_Click() [COLOR=Sienna]'(For Restart)[/COLOR] Shell "shutdown -r -f -t 0" End Sub Private Sub Command3_Click() '[COLOR=Sienna](For Log Off)[/COLOR] Shell "shutdown -l -f -t 0" End Sub Private Sub Command4_Click() '[COLOR=Sienna](For Hibernate)[/COLOR] If IsPwrHibernateAllowed <> 0 Then a = SetSuspendState(1, 0, 0) End If End Sub ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- [COLOR=Red][U][B]4\ Press Caps Lock, Num Lock And Scroll Lock[/B][/U][/COLOR] [COLOR=Blue]Form Code[/COLOR] Private Sub Command1_Click() '[COLOR=Sienna](For Caps Lock)[/COLOR] Set wshshell = CreateObject("wscript.shell") wshshell.SendKeys "{CAPSLOCK}" End Sub Private Sub Command2_Click() '[COLOR=Sienna](For Num Lock)[/COLOR] Set wshshell = CreateObject("wscript.shell") wshshell.SendKeys "{NUMLOCK}" End Sub Private Sub Command3_Click() '[COLOR=Sienna](For Scroll Lock)[/COLOR] Set wshshell = CreateObject("wscript.shell") wshshell.SendKeys "{SCROLLLOCK}" End Sub [COLOR=Red][B]In future I Like To Add This Thread -[/B][/COLOR] [B]*Disable Start Btn *Rename Start Btn *Hide Task Bar *Hide Task Manager (Remember Not Disable) *Hide Mouse Point ........... [/B] [/QUOTE]
Insert quotes…
Verification
Winadiyakata thappara keeyak tibeda?
Post reply
Top
Bottom
Gemini AI PRO 18 months Offer
