Get command line arguments

==GetCommandLineArgs$ sub==
An example of using the Windows API to retrieve the entire command line, then parsing it to extract just the arguments passed to the executable.
----
If cmdLine$ contains
> C:\test.exe /switch
then args$ will be assigned the value
> /switch
If cmdLine$ contains
> "C:\test folder\test.exe" /param1 /param2 -param3
args$ will be assigned
> /param1 /param2 -param3
[[code format="vbnet"]]
sub GetCommandLineArgs$ byref args$
    q$ = chr$(34)

    'API call returns pointer to a string
    'containing command line contents
    calldll #kernel32, "GetCommandLineA",_
        pointer as ulong

    'Use winstring() to actually get the string
    'from pointer
    cmdLine$    = trim$(winstring(pointer))
    cLen        = len(cmdLine$)

    'Extract just the arguments from the variable
    if (left$(cmdLine$, 1) = q$) then
        qPos    = instr(cmdLine$, q$, 2)
        args$   = trim$(right$(cmdLine$, cLen - qPos))
    else
        pLen    = len(word$(cmdLine$,1))
        args$   = trim$(right$(cmdLine$, cLen - pLen))
    end if
end sub
[[code]]