Sorry your browser is not supported!

Option Explicit
Public argQname, argLname, argLType, argCanClose As String


Public Sub Main()
    Dim vCommandLine As Variant
    
    vCommandLine = GetCommandLine
        
    If UBound(vCommandLine) > 0 Then
        On Error GoTo ErrH
        '//
        argQname = LCase(vCommandLine(1))
        argLname = LCase(vCommandLine(2))
        argLType = LCase(vCommandLine(3))
        argCanClose = LCase(vCommandLine(4))
        
        If argLType <> "a" And argLType <> "n" Then GoTo ErrH
        
        frmESCM.Show
    End If
Exit Sub


ErrH:
    MsgBox "Invalid or Missing Arguments", vbCritical, "QJ Logger Init Error"
End Sub

Function GetCommandLine(Optional MaxArgs)
   'Declare variables.
   Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
   'See if MaxArgs was provided.
   If IsMissing(MaxArgs) Then MaxArgs = 10
   'Make array of the correct size.
   ReDim ArgArray(MaxArgs)
   NumArgs = 0: InArg = False
   'Get command line arguments.
   CmdLine = Command()
   CmdLnLen = Len(CmdLine)
   'Go thru command line one character
   'at a time.
   For I = 1 To CmdLnLen
      C = Mid(CmdLine, I, 1)
      'Test for space or tab.
      If (C <> " " And C <> vbTab) Then
         'Neither space nor tab.
         'Test if already in argument.
         If Not InArg Then
         'New argument begins.
         'Test for too many arguments.
            If NumArgs = MaxArgs Then Exit For
            NumArgs = NumArgs + 1
            InArg = True
         End If
         'Concatenate character to current argument.
         ArgArray(NumArgs) = ArgArray(NumArgs) & C
      Else
         'Found a space or tab.
         'Set InArg flag to False.
         InArg = False
      End If
   Next I
   'Resize array just enough to hold arguments.
   ReDim Preserve ArgArray(NumArgs)
   'Return Array in Function name.
   GetCommandLine = ArgArray()
End Function

Public Declare Function ShellExecute _
       Lib "shell32.dll" 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 Long) As Long

   ShellExecute frmMain.hwnd, "Open", "http://www.google.com/, "", _
   "", SW_MINIMIZE