B4J Question IS possible to prepare a Jar file that opens with such parameters

[desof]

IS possible to prepare a Jar file that opens with such parameters

Shell App.Path & "/ file.jar" & Param, vbNormalFocus

 

[derez]

The app_start has it:

Sub AppStart (Form1 As Form, Args() As String)

You can find it in b4j tutorials

 

[desof]

Necesito que desde una aplicación echa en Vb6 le pase 2 parámetros a una app .jar echa con V4J. Será de la siguiente forma:

Code VB6:

Private Sub Command1_Click()
Dim LINK As String
Dim PARAM1 As String
Dim PARAM2 As String
PARAM1 = "TEXTO1"
PARAM2 = "TEXTO2"

LINK = App.Path & "\TESTbd.jar"
ShellExecute Me.hwnd, vbNullString, LINK, PARAM1 & "/" & PARAM2, "", vbNormalFocus

End Sub

y para recibir desde la app .jar Code B4J :

Sub AppStart (Form1 As Form, Args() As String)
    Dim mat() As String
    Dim miArg As String
  
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    MainForm.Show
  
    miArg=Args
    mat=Split(miArg,"/")  
    param1.Text =mat(0)
    param2.text=mat(1)
  
End Sub

Sub Split(Text As String, Delimiter As String) As String()
  Return Regex.Split(Delimiter,Text)
End Sub

PERO NO ME FUNCIONA!!

QUE HAGO MAL?

 

[Erel]

You can use jShell library to execute external apps.

 

[desof]

You can use jShell library to execute external apps.

But I need not run from B4j but otherwise need to open the application run from VB6 with parameters.
But I can not read the parameters correctly.

 

[Erel]

Create this program and run it from the command line:

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.Show
   Dim l1 As List
   l1.Initialize2(Args)
   Log(l1)
End Sub

 

[desof]

Create this program and run it from the command line:

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.Show
   Dim l1 As List
   l1.Initialize2(Args)
   Log(l1)
End Sub

OK!!!!!!!!!
CONGRATULATIONES!!!!