B4J Question Turn Screen On/Off (not pause or sleep or energy saver) only screen

[Phsoftware_app]

Hello
Anybody can tell me how i can turn off or on the screen?

 

[inakigarm]

You can use JNA (to call user32 function https://stackoverflow.com/questions/20775652/jna-how-to-call-system-functions-rotate-screen-off) or JShell to call this command line utility, nircmd monitor off/on (http://www.nirsoft.net/utils/nircmd.html)

JNA calls are out of my scope..(there's an example of a JNA library call at https://www.b4x.com/android/forum/threads/all-windows-titles.98720/#post-621756)

 

[Phsoftware_app]

Hy,and thank you,Can you make a simple example? i have copy the library,but i dont know how to use java.

 

[inakigarm]

Copied nricmd to File.DirApp (B4J app folder/Objects)

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    'MainForm.Show
    
    jshell.Initialize("shellevent","nircmd",Array As String("monitor","off"))
    jshell.WorkingDirectory=File.DirApp
    jshell.RunWithOutputEvents(1000)

End Sub

'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Private Sub shellevent_StdErr (Buffer() As Byte, Length As Int)
    Dim Output As String = BytesToString(Buffer,0,Length,"UTF-8")
    Log(Output)
End Sub

Private Sub shellevent_StdOut (Buffer() As Byte, Length As Int)
    Dim Output As String = BytesToString(Buffer,0,Length,"UTF-8")
    Log(Output)
End Sub

Private Sub shellevent_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    Log(Success)
End Sub

 

[Phsoftware_app]

Thank you,but malwarebytes detect nircmd as a virus.