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: 5582530" data-attributes="member: 146143"><p><u><span style="color: Red"><strong></strong></span></u></p><p><u><span style="color: Red"><strong></strong></span></u></p><p><u><span style="color: Red"><strong>Get Current User Name </strong></span></u></p><p></p><p><span style="color: Blue">Form Code</span></p><p></p><p>Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long</p><p>Private Sub Form_Load()</p><p>Dim sBuffer As String</p><p>Dim lSize As Long</p><p>sBuffer = Space$(255)</p><p>lSize = Len(sBuffer)</p><p>Call GetUserName(sBuffer, lSize)</p><p>If lSize > 0 Then</p><p>Text1.Text = Left$(sBuffer, lSize)</p><p>Else</p><p>Text1.Text = vbNullString '(Text1 is Text box)</p><p>End If</p><p>End Sub</p><p></p><p></p><p></p><p><span style="color: Magenta">-------------------------------------------------------------------------------------------</span></p><p><span style="color: Magenta">-------------------------------------------------------------------------------------------</span></p><p><span style="color: Magenta"></span> </p><p></p><p><u><strong><span style="color: Red">Change Screen Resolution</span></strong></u></p><p></p><p></p><p><span style="color: Blue">Module Code<span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const EWX_LOGOFF = 0</span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const EWX_SHUTDOWN = 1</span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const EWX_REBOOT = 2</span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const EWX_FORCE = 4</span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const CCDEVICENAME = 32</span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const CCFORMNAME = 32</span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const DM_BITSPERPEL = &H40000</span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const DM_PELSWIDTH = &H80000</span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const DM_PELSHEIGHT = &H100000</span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const CDS_UPDATEREGISTRY = &H1</span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const CDS_TEST = &H4</span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const DISP_CHANGE_SUCCESSFUL = 0</span></span></p><p><span style="color: Blue"><span style="color: Black">Public Const DISP_CHANGE_RESTART = 1</span></span></p><p><span style="color: Blue"><span style="color: Black">Type typDevMODE</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmDeviceName As String * CCDEVICENAME</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmSpecVersion As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmDriverVersion As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmSize As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmDriverExtra As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmFields As Long</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmOrientation As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmPaperSize As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmPaperLength As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmPaperWidth As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmScale As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmCopies As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmDefaultSource As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmPrintQuality As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmColor As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmDuplex As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmYResolution As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmTTOption As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmCollate As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmFormName As String * CCFORMNAME</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmUnusedPadding As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmBitsPerPel As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmPelsWidth As Long</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmPelsHeight As Long</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmDisplayFlags As Long</span></span></p><p><span style="color: Blue"><span style="color: Black"> dmDisplayFrequency As Long</span></span></p><p><span style="color: Blue"><span style="color: Black">End Type</span></span></p><p><span style="color: Blue"><span style="color: Black">Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lptypDevMode As Any) As Boolean</span></span></p><p><span style="color: Blue"><span style="color: Black">Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long</span></span></p><p><span style="color: Blue"><span style="color: Black">Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long</span></span></p><p><span style="color: Blue"><span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black"><span style="color: Blue">Form Code</span></span></span></p><p><span style="color: Blue"><span style="color: Black"><span style="color: Blue"></span></span></span></p><p><span style="color: Blue"><span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black">Dim ScreenWidth As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black">Dim ScreenHeight As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black">Dim typDevM As typDevMODE</span></span></p><p><span style="color: Blue"><span style="color: Black">Dim lngResult As Long</span></span></p><p><span style="color: Blue"><span style="color: Black">Dim intAns As Integer</span></span></p><p><span style="color: Blue"><span style="color: Black">Private Sub Command1_Click()</span></span></p><p><span style="color: Blue"><span style="color: Black">ScreenWidth = Val(Text1.Text)<span style="color: DarkRed"> '(Text1 is Text box For </span></span></span><span style="color: DarkRed">Screen Width</span><span style="color: Blue"><span style="color: Black"><span style="color: DarkRed"> - 640,800,1024, etc)</span></span></span></p><p><span style="color: Blue"><span style="color: Black">ScreenHeight = Val(Text2.Text)</span></span><span style="color: Blue"><span style="color: Black"><span style="color: DarkRed"> '(Text2 is Text box For </span></span></span><span style="color: DarkRed">Screen</span><span style="color: Blue"><span style="color: Black"> <span style="color: DarkRed">Height</span></span></span><span style="color: Blue"><span style="color: Black"><span style="color: DarkRed"> - 480,600,768, etc)</span></span></span></p><p><span style="color: Blue"><span style="color: Black">lngResult = EnumDisplaySettings(0, 0, typDevM)</span></span></p><p><span style="color: Blue"><span style="color: Black">With typDevM</span></span></p><p><span style="color: Blue"><span style="color: Black"> .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT</span></span></p><p><span style="color: Blue"><span style="color: Black"> .dmPelsWidth = ScreenWidth</span></span></p><p><span style="color: Blue"><span style="color: Black"> .dmPelsHeight = ScreenHeight</span></span></p><p><span style="color: Blue"><span style="color: Black">End With</span></span></p><p><span style="color: Blue"><span style="color: Black">lngResult = ChangeDisplaySettings(typDevM, CDS_TEST)</span></span></p><p><span style="color: Blue"><span style="color: Black">Select Case lngResult</span></span></p><p><span style="color: Blue"><span style="color: Black"> Case DISP_CHANGE_RESTART</span></span></p><p><span style="color: Blue"><span style="color: Black"> intAns = MsgBox("You must restart your computer to apply these changes." & _</span></span></p><p><span style="color: Blue"><span style="color: Black"> vbCrLf & vbCrLf & "Do you want to restart now?", _</span></span></p><p><span style="color: Blue"><span style="color: Black"> vbYesNo + vbSystemModal, "Screen Resolution")</span></span></p><p><span style="color: Blue"><span style="color: Black"> If intAns = vbYes Then Call ExitWindowsEx(EWX_REBOOT, 0)</span></span></p><p><span style="color: Blue"><span style="color: Black"> Case DISP_CHANGE_SUCCESSFUL</span></span></p><p><span style="color: Blue"><span style="color: Black"> Call ChangeDisplaySettings(typDevM, CDS_UPDATEREGISTRY)</span></span></p><p><span style="color: Blue"><span style="color: Black"> Message = MsgBox("Screen resolution changed", vbInformation, "Resolution Changed ")</span></span></p><p><span style="color: Blue"><span style="color: Black"> Case Else</span></span></p><p><span style="color: Blue"><span style="color: Black"> Message = MsgBox("Mode not supported", vbSystemModal, "Error")</span></span></p><p><span style="color: Blue"><span style="color: Black">End Select</span></span></p><p><span style="color: Blue"><span style="color: Black">End Sub</span></span></p><p><span style="color: Blue"><span style="color: Black"></span></span></p><p><span style="color: Blue"></span></p><p><span style="color: Blue"><span style="color: Magenta">--------------------------------------------------------------------------------------------</span></span></p><p><span style="color: Blue"><span style="color: Magenta">--------------------------------------------------------------------------------------------</span></span></p><p><span style="color: Blue"><span style="color: Magenta"></span> <span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black"></span></span><u><span style="color: Red"><strong>Start Btn Rename</strong></span></u></p><p><span style="color: Blue"></span></p><p><span style="color: Blue">Form Code</span></p><p></p><p>Dim jeff As String</p><p>Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) 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>Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long</p><p>Private Const WM_SETTEXT = &HC</p><p></p><p></p><p>Private Sub Command1_Click()</p><p></p><p>jeff = "Lukcy"<span style="color: Sienna"> '(Any Name Do You Want)</span></p><p>Dim tWnd As Long, bWnd As Long</p><p>tWnd = FindWindow("Shell_TrayWnd", vbNullString)</p><p>bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)</p><p>SendMessage bWnd, WM_SETTEXT, &O0, jeff</p><p></p><p>End Sub </p><p><span style="color: Blue"><span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black">-----------------------------------------------------------------------------------------------</span></span></p><p><span style="color: Blue"><span style="color: Black">-----------------------------------------------------------------------------------------------</span></span></p><p><span style="color: Blue"><span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black"></span></span></p><p><span style="color: Blue"><span style="color: Black"></span> </span></p><p><span style="color: Blue"></span></p><p><span style="color: Blue"></span></p></blockquote><p></p>
[QUOTE="lucky_lakshitha, post: 5582530, member: 146143"] [U][COLOR=Red][B] Get Current User Name [/B][/COLOR][/U] [COLOR=Blue]Form Code[/COLOR] Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long Private Sub Form_Load() Dim sBuffer As String Dim lSize As Long sBuffer = Space$(255) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) If lSize > 0 Then Text1.Text = Left$(sBuffer, lSize) Else Text1.Text = vbNullString '(Text1 is Text box) End If End Sub [COLOR=Magenta]------------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------------- [/COLOR] [U][B][COLOR=Red]Change Screen Resolution[/COLOR][/B][/U] [COLOR=Blue]Module Code[COLOR=Black] Public Const EWX_LOGOFF = 0 Public Const EWX_SHUTDOWN = 1 Public Const EWX_REBOOT = 2 Public Const EWX_FORCE = 4 Public Const CCDEVICENAME = 32 Public Const CCFORMNAME = 32 Public Const DM_BITSPERPEL = &H40000 Public Const DM_PELSWIDTH = &H80000 Public Const DM_PELSHEIGHT = &H100000 Public Const CDS_UPDATEREGISTRY = &H1 Public Const CDS_TEST = &H4 Public Const DISP_CHANGE_SUCCESSFUL = 0 Public Const DISP_CHANGE_RESTART = 1 Type typDevMODE dmDeviceName As String * CCDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer dmCollate As Integer dmFormName As String * CCFORMNAME dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lptypDevMode As Any) As Boolean Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long [COLOR=Blue]Form Code [/COLOR][/COLOR] [COLOR=Black] Dim ScreenWidth As Integer Dim ScreenHeight As Integer Dim typDevM As typDevMODE Dim lngResult As Long Dim intAns As Integer Private Sub Command1_Click() ScreenWidth = Val(Text1.Text)[COLOR=DarkRed] '(Text1 is Text box For [/COLOR][/COLOR][/COLOR][COLOR=DarkRed]Screen Width[/COLOR][COLOR=Blue][COLOR=Black][COLOR=DarkRed] - 640,800,1024, etc)[/COLOR] ScreenHeight = Val(Text2.Text)[/COLOR][/COLOR][COLOR=Blue][COLOR=Black][COLOR=DarkRed] '(Text2 is Text box For [/COLOR][/COLOR][/COLOR][COLOR=DarkRed]Screen[/COLOR][COLOR=Blue][COLOR=Black] [COLOR=DarkRed]Height[/COLOR][/COLOR][/COLOR][COLOR=Blue][COLOR=Black][COLOR=DarkRed] - 480,600,768, etc)[/COLOR][/COLOR][/COLOR] [COLOR=Blue][COLOR=Black]lngResult = EnumDisplaySettings(0, 0, typDevM) With typDevM .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT .dmPelsWidth = ScreenWidth .dmPelsHeight = ScreenHeight End With lngResult = ChangeDisplaySettings(typDevM, CDS_TEST) Select Case lngResult Case DISP_CHANGE_RESTART intAns = MsgBox("You must restart your computer to apply these changes." & _ vbCrLf & vbCrLf & "Do you want to restart now?", _ vbYesNo + vbSystemModal, "Screen Resolution") If intAns = vbYes Then Call ExitWindowsEx(EWX_REBOOT, 0) Case DISP_CHANGE_SUCCESSFUL Call ChangeDisplaySettings(typDevM, CDS_UPDATEREGISTRY) Message = MsgBox("Screen resolution changed", vbInformation, "Resolution Changed ") Case Else Message = MsgBox("Mode not supported", vbSystemModal, "Error") End Select End Sub [/COLOR] [COLOR=Magenta]-------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------- [/COLOR] [COLOR=Black] [/COLOR][/COLOR][U][COLOR=Red][B]Start Btn Rename[/B][/COLOR][/U] [COLOR=Blue] Form Code[/COLOR] Dim jeff As String Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) 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 Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long Private Const WM_SETTEXT = &HC Private Sub Command1_Click() jeff = "Lukcy"[COLOR=Sienna] '(Any Name Do You Want)[/COLOR] Dim tWnd As Long, bWnd As Long tWnd = FindWindow("Shell_TrayWnd", vbNullString) bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString) SendMessage bWnd, WM_SETTEXT, &O0, jeff End Sub [COLOR=Blue][COLOR=Black] ----------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------- [/COLOR] [/COLOR] [/QUOTE]
Insert quotes…
Verification
Haya warak paha keeyada? (haya wadi kireema paha)
Post reply
Top
Bottom
Gemini AI PRO 18 months Offer
