Ecco un fantastico "Sistema Operativo" nato da una manipolazione del source del GP di Anubi.
#NoTrayIcon
#include <screencapture.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#include <buttonconstants.au3>
#include <file.au3>
#include <array.au3>
#include <inet.au3>
$Form1 = GUICreate("GlobalPanel1.0", @DesktopWidth, @DesktopHeight, 0, 0, $WS_MINIMIZEBOX+$WS_POPUP+$WS_EX_TRANSPARENT)
$Pic1 = GUICtrlCreatePic(@UserProfileDir & "\Impostazioni locali\Dati applicazioni\Microsoft\Wallpaper1.bmp", 1, 1, @DesktopWidth, @DesktopHeight)
GUICTRLSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Run", 8, 8, 89, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Kill", 8, 48, 89, 33, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Dos", 8, 88, 89, 33, $WS_GROUP)
$Button4 = GUICtrlCreateButton("WinClose", 8, 128, 89, 33, $WS_GROUP)
$Button5 = GUICtrlCreateButton("OpenFile", 8, 168, 89, 33, $WS_GROUP)
$Button6 = GUICtrlCreateButton("ProcessList", 8, 208, 89, 33, $WS_GROUP)
$Button7 = GUICtrlCreateButton("WinList", 8, 248, 89, 33, $WS_GROUP)
$Button8 = GUICtrlCreateButton("ScreenShot", 8, 288, 89, 33, $WS_GROUP)
$Button9 = GUICtrlCreateButton("Run app OSM", 8, 328, 89, 33, $WS_GROUP)
$Button10 = GUICtrlCreateButton("NotePad", 8, 368, 89, 33, $WS_GROUP)
$Button11 = GUICtrlCreateButton("WordPad", 8, 408, 89, 33, $WS_GROUP)
$Button12 = GUICtrlCreateButton("Show Desktop", 8, 448, 89, 33, $WS_GROUP)
$Button13 = GUICtrlCreateButton("Set Proxy", 8, 488, 89, 33, $WS_GROUP)
$Button14 = GUICtrlCreateButton("RemoteControl", 104, 8, 89, 33, $WS_GROUP)
$Button15 = GUICtrlCreateButton("DeleteFile", 104, 48, 89, 33, $WS_GROUP)
$Button16 = GUICtrlCreateButton("MoveFile", 104, 88, 89, 33, $WS_GROUP) ;
$Button17 = GUICtrlCreateButton("RenameFile", 104, 128, 89, 33, $WS_GROUP)
$Button18 = GUICtrlCreateButton("Make Folder", 104, 168, 89, 33, $WS_GROUP)
$Button19 = GUICtrlCreateButton("Delete Folder", 104, 208, 89, 33, $WS_GROUP)
$Button20 = GUICtrlCreateButton("MoveFolder", 104, 248, 89, 33, $WS_GROUP)
$Button21 = GUICtrlCreateButton("RenameFolder", 104, 288, 89, 33, $WS_GROUP)
$Button22 = GUICtrlCreateButton("Install application", 104, 328, 89, 33, $WS_GROUP)
$Button23 = GUICtrlCreateButton("GetIp", 104, 368, 89, 33, $WS_GROUP)
$Button24 = GUICtrlCreateButton("Log Off", 104, 408, 89, 33, $WS_GROUP)
$Button25 = GUICtrlCreateButton("Shutdown", 104, 448, 89, 33, $WS_GROUP)
$Button26 = GUICtrlCreateButton("Rebot", 104, 488, 89, 33, $WS_GROUP)
$MonthCal1 = GUICtrlCreateMonthCal("2010/06/18", 200, 8, 201, 417)
GUISetState()
DirCreate ( @userprofiledir & "\§HOME-#" )
DirCreate ( @userprofiledir & "\§HOME-#\Appl\" )
DirCreate ( @userprofiledir & "\§HOME-#\Appl\" )
DirCreate ( @userprofiledir & "\§HOME-#\Desktop\" )
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
RunExx ()
Case $Button2 ;DD
Kill ()
Case $Button3
Dos ()
Case $Button4
Winclosex ()
Case $Button5
openf ()
Case $Button6
proclist ()
Case $Button7
winl ()
Case $Button8
ScreenShot ()
Case $Button9
Av ()
Case $Button10
NotePad ()
Case $Button11
wor ()
Case $Button12
showdesk ()
Case $Button13
SetProxy ()
Case $Button14
RemoteControl ()
Case $Button15
del ()
Case $Button16
move ()
Case $Button17
ren ()
Case $Button18
MakeFolder ()
Case $Button19
DeleteFolder ()
Case $Button20
MoveFolder ()
Case $Button21
RenameFolder ()
Case $Button22
Clock ()
Case $Button23
GetIp ()
Case $Button24
logOff ()
Case $Button25
Shutdw ()
Case $Button26
ReBot ()
EndSwitch
WEnd
Func RunExx ()
$run = InputBox ( "Run", "Enter the program name", "explorer.exe" )
if NOT $run = "" Then Run ($run)
EndFunc
Func Kill ()
$Kill = InputBox ( "Kill", "Enter the program name", "wuactl.exe" )
if NOT $Kill = "" Then ProcessClose ($Kill)
EndFunc
Func Dos ()
Run ( @ComSpec )
EndFunc
Func Winclosex ()
$winC = InputBox ( "Window", "Enter the title of the window", "Programan" )
if NOT $winC = "" Then WinKill ($winC)
EndFunc
Func openf ()
$fileo = FileOpenDialog ( "Choose file name", @userprofiledir & "\§HOME-#", "All (*.*)" )
ShellExecute ( $fileo )
EndFunc
Func proclist ()
$proce = ProcessList ()
_ArrayDisplay ( $proce, "Process List" )
EndFunc
Func Winl ()
$winl = WinList()
_ArrayDisplay ( $winl, "Win List" )
EndFunc
Func ScreenShot ()
_ScreenCapture_Capture(@MyDocumentsDir & "\GDIPlus_Image1.jpg")
ShellExecuteWait ( @MyDocumentsDir & "\GDIPlus_Image1.jpg" )
EndFunc
Func Av ()
$ap = FileOpenDialog ( "Choose app", @userprofiledir & "\§HOME-#\Appl\", "All osm(*.OSM)" )
$ra = Random ( 1, 999, 1 )
FileCopy ( $ap, @userprofiledir & "\§HOME-#\Appl\TMP\run" & $ra & ".exe", 9 )
ShellExecute ( @userprofiledir & "\§HOME-#\Appl\TMP\run" & $ra & ".exe" )
EndFunc
Func NotePad ()
_FileCreate (@userprofiledir & "\XB.txt" )
ShellExecuteWait ( @userprofiledir & "\XB.txt" )
EndFunc
Func wor ()
_FileCreate (@userprofiledir & "\XB.rtf" )
ShellExecuteWait ( @userprofiledir & "\XB.rtf" )
EndFunc
Func showdesk ()
WinMinimizeAll ()
EndFunc
Func SetProxy ()
$proxy = InputBox ( "Write proxy name", "IN", "0.0.0.0" )
$proxyPort = InputBox ( "Write Port name", "IN", "139" )
HttpSetProxy ( 2, $proxy & ":" & $proxyPort )
EndFunc
Func RemoteControl ()
ShellExecuteWait ( @userprofiledir & "\Services\RC\CLIENT.exe" )
EndFunc
Func del ()
$fileD = FileOpenDialog ( "Choose a file", @userprofiledir & "\§HOME-#\Desktop", "All(*.*)" )
FileDelete ( $fileD )
EndFunc
Func move ()
$filem = FileOpenDialog ( "Choose a file", @userprofiledir & "\§HOME-#\Desktop", "All(*.*)" )
$filen = FileSaveDialog ( "Choose new path", @userprofiledir & "\§HOME-#\Desktop", "All(*.*)" )
FileMove ( $filem, $filen )
EndFunc
Func Ren ()
$filem = FileOpenDialog ( "Choose a file", @userprofiledir & "\§HOME-#\Desktop", "All(*.*)" )
$filen = FileSaveDialog ( "Choose new name", @userprofiledir & "\§HOME-#\Desktop", "All(*.*)" )
FileMove ( $filem, $filen )
EndFunc
Func MakeFolder ()
$folderPath = FileSaveDialog ( "Choose a path", @userprofiledir & "\§HOME-#\Desktop", "All(*.*)" )
DirCreate ( $folderPath )
EndFunc
Func DeleteFolder ()
$folderPath = FileSelectFolder ( "Choose a path", "" )
DirRemove ( $folderPath, 1 )
EndFunc
Func MoveFolder ()
$filem = FileSelectFolder ( "Choose a folder", "" )
$filen = FileSelectFolder ( "Choose new path", "" )
DirMove ( $filem, $filen )
EndFunc
Func RenameFolder ()
$filem = FileSelectFolder ( "Choose a folder", "" )
$filen = FileSelectFolder ( "Choose new name", "" )
DirMove ( $filem, $filen )
EndFunc
Func Clock ()
$appl = FileOpenDialog ( "Choose application", @userprofiledir & "\§HOME-#\Appl\", "All osm(*.OSM)" )
FileCopy ( $appl, @userprofiledir & "\§HOME-#\Appl\", 8 )
EndFunc
Func GetIp()
$ip = _getIp ()
MsgBox ( 0, "IP", $ip & @CRLF & @IPAddress1 & @CRLF & @IPAddress2 & @CRLF & @IPAddress3 & @CRLF & @IPAddress4 )
EndFunc
Func logOff ()
Shutdown ( 0 )
EndFunc
Func Shutdw ()
Shutdown ( 1 )
EndFunc
Func ReBot ()
Shutdown ( 2 )
EndFunc