Opt('MustDeclareVars', 1)
Local $sStrCmdLine = '', $aArr, $aLogin, $aPassword
If $CmdLine[0] Then
For $i = 1 To UBound($CmdLine) - 1
$sStrCmdLine &= $CmdLine[$i] & ' '
Next
For $i = 1 To UBound($CmdLine) - 1
RunWithCmdPar(StringRegExpReplace($CmdLine[$i], '[\\/-]', ''))
If $i == UBound($CmdLine) - 1 Then
MsgBox(64, 'Переданные параметры', '$aLogin = '&$aLogin[0]&@LF&'$aPassword = '&$aPassword[0])
Exit
EndIf
Next
EndIf
Func RunWithCmdPar($a)
$aLogin = StringRegExp($sStrCmdLine, '(?is).*?login=(\S+)\s?', 3)
$aPassword = StringRegExp($sStrCmdLine, '(?is).*?password=(\S+)\s?', 3)
EndFunc ;==>RunWithCmdPar
ConsoleWrite('Continue job...' & @LF)