scoaladehack | Date: Friday, 2009-10-09, 5:15 PM | Message # 1 |
Private
Group: Administratori
Messages: 4
Status: Offline
| Sursa: Code #NoTrayIcon #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <INet.au3> #include <StaticConstants.au3> #include <ButtonConstants.au3> If @CPUArch = "X86" Then $cpu="32-bit" EndIf If @CPUArch = "X64" Then $cpu="64-bit" EndIf
$form1 = GUICreate("cyb3rmann", 800,400) $helo=GUICtrlCreateLabel(" Hello, "&@UserName&" !",0,0,800,30) GUICtrlSetFont($helo,18,"","","Comic Sans Ms") GUICtrlSetColor($helo,0xffffff) GUICtrlSetBkColor($helo,0x0000ff) $hi=GUICtrlCreateLabel("Hi. I'm cyb3rmann, and I'm glad to help you customizing your computer."&@CRLF&"Hope you like this.",10,30,900,70) guictrlsetfont($hi,20,'','',"Times New Roman") GUICtrlSetColor($hi,0xff0000) $sysbtn = GUICtrlCreateButton("System info", 300, 100, 85, 25, 0) $poza=GUICtrlCreatePic(@ScriptDir & "\poza.bmp",0,220,"","",BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $modify=GUICtrlCreateButton("Modify XP",400,100,85,25) $shut=guictrlcreatebutton("Shut down",0,100,60,25) $logoff=guictrlcreatebutton("Logg off",120,100,60,25) $restart=guictrlcreatebutton("Restart",60,100,60,25) $stand=GUICtrlCreateButton("Standby",180,100,60,25) $process=GUI CtrlCreateInput("",0,195,200,25) $kill=guictrlcreatebutton("Kill this process!",0,170) $runnotepad=GUICtrlCreateButton("Run notepad!",530,195) $runregedit=guictrlcreatebutton("Run regedit!",610,195) $runtask=GUICtrlCreateButton("Run task manager!",680,195) $calk=guictrlcreatebutton("Calculeaza:",280,170) $numere = GUICtrlCreateInput("", 280, 195, 215, 25)
$form2 = GUICreate("sys info", 300, 200) $iplab2=GUICtrlCreateLabel("Your IP is: "&_GetIP(),10,10) $compnamelab2=GUICtrlCreateLabel("Your computer name is: "& @ComputerName,10,30) $usernamelab2=GUICtrlCreateLabel("Your user name is: "& @UserName,10,50) $osversionlab2=GUICtrlCreateLabel("Your OS is: "& @OSType& " ==> "&@OSVersion,10,70) $desktopwidth2=GUICtrlCreateLabel("Your desktop width is: "&@DesktopWidth,10,90) $deskheight2=GUICtrlCreateLabel("Your desktop height is: "&@DesktopHeight,10,110) $deskdeph2=GUICtrlCreateLabel("Your desktop depth is: "&@DesktopDepth,10,130) $deskrate2=GUICtrlCreateLabel("Your desktop refresh rate is: "&@DesktopRefresh& " Hz",10,150) $cpu=guictrlcreatelabel("Your CPU is "& $cpu,10,170)
$Form3=GUICreate("modify XP",300,200) $echeck=GUICtrlCreateCheckbox("Enable multimessenger",10,10) $user=GUICtrlCreateCheckbox("No username in startmenu",10,30) $apply=GUICtrlCreateButton("Apply",230,0,70) $deltemp=guictrlcreatebutton("Delete temp files",5,110,100,25) $delnet=guictrlcreatebutton("Delete all cookies",5,140,100,25) $delhist=guictrlcreatebutton("Delete history",5,170,100,25)
GUISetState(@SW_SHOW,$form1)
Func apply() enable() user() EndFunc Func user() If GUICtrlRead($user)=1 Then RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoUserNameInStartMenu","REG_DWORD",1) Else RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoUserNameInStartMenu","REG_DWORD",0) EndIf EndFunc Func enable() If GUICtrlRead($echeck)=1 Then RegWrite("HKEY_CURRENT_USER\Software\Yahoo\pager\Test","Plural","REG_DWORD",1) Else RegWrite("HKEY_CURRENT_USER\Software\Yahoo\pager\Test","Plural","REG_DWORD",0) EndIf EndFunc
While 1 $nMsg = GUIGetMsg(1) Switch $nMsg[0] Case $GUI_EVENT_CLOSE Switch $nMsg[1] Case $Form1 MsgBox(0,"Message from cyb3rmann:","Thank you for using my shit!") Exit Case $Form2 GUISetState(@SW_HIDE, $Form2) Case $Form3 GUISetState(@SW_HIDE, $Form3) EndSwitch Case $sysbtn GUISetState(@SW_SHOW, $Form2) Case $modify GUISetState(@SW_Show,$Form3) Case $apply apply() Case $deltemp Run(@ScriptDir&"\temp.bat","", @SW_HIDE) Case $delnet ;=========================== Case $shut Shutdown(1) Case $logoff Shutdown(0) Case $restart Shutdown(2) Case $stand Shutdown(32) Case $kill ProcessClose(GUICtrlRead($process)) Case $runnotepad Run("notepad.exe") Case $runregedit Run("regedit.exe") Case $runtask Run("taskmgr.exe") Case $delnet Run("cookie.bat",@scriptDir,"",@SW_HIDE) Case $delhist Run("history.bat",@scriptdir,"",@SW_HIDE) Case $calk $rezultat=Execute(GUICtrlRead($numere)) guictrlsetdata($numere,$rezultat) EndSwitch WEnd
@-Team
|
|
| |