B4J Question jShell at the same arg double quotes and single quotes...

[Magma]

Hi there...

Well I've got this strange error... and I am trying to figure how i will bypass it... (i know one way will to create a batch or a script for it - but need it like this to avoid - click simulate from batch.)

            Dim js As Shell
            Dim params As List
            params.Initialize
            Dim mystring As String=$"(Add-Type '[DllImport(\"user32.dll\")]^public static extern int SendMessage(int hWnd, int hMsg, int wParam, int lParam);' -Name a -Pas)::SendMessage(-1,0x0112,0xF170,2)"$
            js.Initialize("js", "powershell.exe", Array(mystring))  <---here getting error...
            js.WorkingDirectory="c:\windows\system32"
            If Main.ShellEncoding.Length>0 Then js.Encoding=Main.ShellEncoding
            js.Run(-1)
            Wait for (js) js_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
            'Log(StdOut)

The error:

java.lang.IllegalArgumentException: Can't handle single and double quotes in sam
e argument
at b4j/org.apache.commons.exec.util.StringUtils.quoteArgument(Unknown So
urce)
at b4j/org.apache.commons.exec.CommandLine.addArgument(Unknown Source)

real command line - that works - set diplay monitor at sleep:

powershell.exe (Add-Type '[DllImport(\"user32.dll\")]^public static extern int SendMessage(int hWnd, int hMsg, int wParam, int lParam);' -Name a -Pas)::SendMessage(-1,0x0112,0xF170,2)

*This command set Display-Monitor to sleep...

 

[XorAndOr]

can this help? https://www.b4x.com/android/forum/threads/running-powershell-scripts.131116/#content

 

[Magma]

Not tried but seems... will make the job... I will try it tomorrow...

 

[Magma]

getting error... may be need some different formatting if it is after -command... i will try it different... seems that need those quotes replaced... for a reason (Add-Type)

 

[teddybear]

powershell.exe (Add-Type '[DllImport(\"user32.dll\")]^public static extern int SendMessage(int hWnd, int hMsg, int wParam, int lParam);' -Name a -Pas)::SendMessage(-1,0x0112,0xF170,2)

*This command set Display-Monitor to sleep...

You can put the cmdline into a batch file, such as sleep.bat
then use fx.ShowExternalDocument(File.GetUri("Dir", "sleep.bat") to execute it.

 

[Erel]

Running PowerShell scripts

This is really a really cool snippet. It makes it very simple to run Windows 10 PowerShell scripts. It doesn't require special permissions. Public Sub PowerShellScript(s As String) As ResumableSub s = s.Replace(CRLF, ";").Replace("""", "'") Dim shl As Shell...

www.b4x.com

 

[Magma]

You can put the cmdline into a batch file, such as sleep.bat
then use fx.ShowExternalDocument(File.GetUri("Dir", "sleep.bat") to execute it.

but as i said - i don't want it as batch... for my reasons... (somehow simulating mouse click at some systems)

Powershell Sub with this script-line not working... because at the same line using double quotes and single quotes... so getting different error for Add-Type... but i will create it different... (i will post how)

Thanks to all !!!

 

[XorAndOr]

Dim js As Shell
    Dim params As List
    params.Initialize
    Dim mystring As String=$"(Add-Type '[DllImport(\"user32.dll\")]public static extern int SendMessage(int hWnd, int hMsg, int wParam, int lParam);' -Name a -Pas)::SendMessage(-1,0x0112,0xF170,2)"$
    js.InitializeDoNotHandleQuotes("js", "powershell.exe", Array(mystring))
    js.WorkingDirectory="c:\windows\system32"   
    js.Run(-1)
    Wait for (js) js_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    'Log(StdOut)

for me works

 

[Magma]

Dim js As Shell
    Dim params As List
    params.Initialize
    Dim mystring As String=$"(Add-Type '[DllImport(\"user32.dll\")]public static extern int SendMessage(int hWnd, int hMsg, int wParam, int lParam);' -Name a -Pas)::SendMessage(-1,0x0112,0xF170,2)"$
    js.InitializeDoNotHandleQuotes("js", "powershell.exe", Array(mystring))
    js.WorkingDirectory="c:\windows\system32" 
    js.Run(-1)
    Wait for (js) js_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    'Log(StdOut)

for me works

Hey that worked...

the difference here is: js.Initialize.... -> js.InitializeDoNotHandleQuotes ... also powershellscript... was replacing double quotes with single - so Add-Type was giving error...

 

[Magma]

I am SO SO so Happy

 

[Magma]

Also this character "^" removed... but as I see no difference for this script... but if I put it back had error... so I ve removed it... me too