How to run an app NOT as administrator?

[Nightwalker83]

You could do that by using this code:

Module code

'Controls user program elevation
Option Explicit
 
Private Const BCM_SETSHIELD As Long = &H160C&
 
Private Declare Sub InitCommonControls Lib "comctl32" ()
 
Private Declare Function IsUserAnAdmin Lib "shell32" () As Long
 
Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" ( _
    ByVal hWnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByRef lParam As Any) As Long
 
Private Declare Function ShellExecute Lib "shell32" _
    Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As VbAppWinStyle) As Long
 
Private mblnIsElevated As Boolean
Private objForm As Object
 
Public Function IsElevated() As Boolean
    IsElevated = mblnIsElevated
End Function
 
Public Sub OperationRequiringElevation(ByRef Params As Variant)
    MsgBox "Insert logic here for: " & vbNewLine _
         & Join(Params, vbNewLine)
End Sub
 
Public Sub RequestOperation( _
    ByVal hWnd As Long, _
    ByVal Focus As VbAppWinStyle, _
    ByRef Params As Variant)
 
    ShellExecute hWnd, "runas", App.EXEName & ".exe", _
                 Join(Params, " "), CurDir$(), Focus
End Sub
 
Public Sub SetShield(ByVal hWnd As Long)
    SendMessage hWnd, BCM_SETSHIELD, 0&, 1&
End Sub
 
Private Sub Main()
    If Len(Command$()) > 0 Then
        'Assume we've been run elevated to execute an operation
        'specified as a set of space-delimited strings.
        OperationRequiringElevation Split(Command$(), " ")
                  'unload all forms
                   For Each objForm In Forms
                   Unload objForm
                   Set objForm = Nothing
                   Next objForm
                      Else
        mblnIsElevated = IsUserAnAdmin()
        InitCommonControls
        load
    End If
End Sub

'Detect user elevation (could probably go in the first module too)
Option Explicit
 
Public Sub load()
Dim ff, Params As Variant
 
       Params = Array(App.EXEName, "By Nightwalker83", "http://aaronspehr.net/")
    If IsElevated() Then
        OperationRequiringElevation Params
    Else
        RequestOperation frmMain.hWnd, vbHide, Params
    End If
         frmMain.Show
End Sub

You also need:

A form called "frmMain"
2 bas files
Set the Startup Object as "Sub Main"

For the second project just comment out:

Dim ff, Params As Variant
 
       Params = Array(App.EXEName, "By Nightwalker83", "http://aaronspehr.net/")
    If IsElevated() Then
        OperationRequiringElevation Params
    Else
        RequestOperation frmMain.hWnd, vbHide, Params
    End If

and

Public Sub OperationRequiringElevation(ByRef Params As Variant)
    MsgBox "Insert logic here for: " & vbNewLine _
         & Join(Params, vbNewLine)
End Sub
 
Public Sub RequestOperation( _
    ByVal hWnd As Long, _
    ByVal Focus As VbAppWinStyle, _
    ByRef Params As Variant)
 
    ShellExecute hWnd, "runas", App.EXEName & ".exe", _
                 Join(Params, " "), CurDir$(), Focus
End Sub
 
OperationRequiringElevation Split(Command$(), " ")