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

Magma · Aug 31, 2022

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.)

B4X:

            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:

B4X:

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 · Sep 1, 2022

B4X:

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

XorAndOr · Aug 31, 2022

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

Magma · Aug 31, 2022

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

Magma · Sep 1, 2022

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 · Sep 1, 2022

Magma said:

B4X:

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 · Sep 1, 2022

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 · Sep 1, 2022

teddybear said:
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 · Sep 1, 2022

B4X:

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 · Sep 1, 2022

XorAndOr said:

B4X:

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 · Sep 1, 2022

I am SO SO so Happy

Magma · Sep 1, 2022

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

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

Magma

Expert

XorAndOr

XorAndOr

Active Member

Magma

Expert

Magma

Expert

teddybear

Well-Known Member

Erel

B4X founder

Running PowerShell scripts

Magma

Expert

XorAndOr

Active Member

Magma

Expert

Magma

Expert

Magma

Expert

Similar Threads

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

Expert

Active Member

Expert

Expert

Well-Known Member

B4X founder

Expert

Active Member

Expert

Expert

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency