HDDTweaker v1

[JohnRocket]

Source mojego pierwszego programu ,funkcje:

 

-Zmiana ikony partycji

-Zmiana tytułu partycji

-Ukrywanie partycji ((na zasadzie usunięcie przypisanej litery))

 

 

#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Deleket-Sleek-Xp-Basic-Gold-Bar.ico
#AutoIt3Wrapper_Compression=4
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("HDD Tweaker v1", 331, 291, 572, 262)
$Label1 = GUICtrlCreateLabel("Select an HDD from the list:", 8, 16, 275, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Combo1 = GUICtrlCreateCombo("", 16, 48, 169, 25, BitOR($GUI_SS_DEFAULT_COMBO,$CBS_SIMPLE))
GUICtrlSetData(-1, "")
$Group1 = GUICtrlCreateGroup("Your Device ()", 0, 80, 313, 137)
$Label2 = GUICtrlCreateLabel("Icon", 16, 144, 25, 17)
$Label3 = GUICtrlCreateLabel("Title", 16, 112, 24, 17)
$Refresh = GUICtrlCreateButton("SHOWN", 184, 90, 75, 41)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$bambus = GUICtrlCreateInput("", 56, 104, 97, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFFFFE1)
$Input2 = GUICtrlCreateInput("", 56, 144, 145, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
$Button2 = GUICtrlCreateButton("...", 216, 144, 33, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox("Made by JohnRocket", 40, 184, 265, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Button3 = GUICtrlCreateButton("Save Changes!", 88, 224, 129, 41)
GUISetState(@SW_SHOW)

Local $Array = DriveGetDrive("Fixed")
For $i = 1 To $Array[0]
If @error Then
GUICtrlSetData($Combo1,"Unknown Error")
else
GUICtrlSetData($Combo1,StringUpper($Array[$i] & "\"))
$sFileSystem = DriveGetFileSystem(GUICtrlRead($Combo1))
EndIf
If GUICtrlRead($Combo1) = "" then
GuiCtrlSetdata($Group1,"File system::" & " (unknown)")
else
GuiCtrlSetdata($Group1,"File system:: " & "(" & $sFileSystem & ")")
EndIf
Next



Local $Array = DriveGetDrive("Fixed")
For $i = 1 To $Array[0]
If @error Then
GUICtrlSetData($Combo1,"Unknow Error")
else
GUICtrlSetData($Combo1,StringUpper($Array[$i] & "\"))
$sFileSystem = DriveGetFileSystem(GUICtrlRead($Combo1))
If GUICtrlRead($Combo1) = "" then
GuiCtrlSetdata($Group1,"File system::" & " (unknown)")
else
GuiCtrlSetdata($Group1,"File system:: " & "(" & $sFileSystem & ")")
endif
endif
Next



While 1
$nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Checkbox1
        If GUICtrlRead($Checkbox1) = $GUI_CHECKED then
MsgBox(64,"Released:","2013-08-09")


        else
endif
        Case $Refresh
            If GUICtrlRead($Refresh) = "SHOWN" then
GUICtrlSetData($Refresh,"HIDDEN")
         MsgBox(48,"Warning !","Wanna hide selected partition? Do it if and only if you know how to make it visible back.")
         else
            GUICtrlSetData($Refresh,"SHOWN")
            ENDIF
            Case $Button2
            $homie1 = FileOpenDialog("Select an Icon",@DesktopDepth & "\", "Icons (*.ico)", 1 + 4,"icon.ico")
GUICtrlSetData($input2,$homie1)


            Case $Button3
            If GUICtrlRead($Combo1) = "" Then
                MsgBox(48,"Error","You must select a HDD")
                else
        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & StringTrimRight(GUICtrlRead($Combo1),2) & "\DefaultIcon\", "", "REG_SZ", GUICtrlRead($input2))
        DriveSetLabel(GUICtrlRead($Combo1),GUICtrlRead($bambus))
If GUICtrlRead($Refresh) = "HIDDEN" Then
    ShellExecute("C:\Windows\System32\diskpart.exe")
    WinWait("C:\Windows\System32\diskpart.exe")
    WinActivate("C:\Windows\System32\diskpart.exe")
    Sleep(80)
    Send("list volume")
    Sleep(80)
    Send("{ENTER}")
    Sleep(80)
    Send("Select Volume " & GUICtrlRead($Combo1))
    Sleep(80)
    Send("{ENTER}")
    Sleep(80)
    Send("REMOVE")
    Sleep(80)
    Send("{ENTER}")
    Sleep(10)
    WinClose("C:\Windows\System32\diskpart.exe")
        MsgBox(64,"Done!","All settings were saved")
    else
    MsgBox(64,"Done!","All settings were saved")
    endif
    endif
    EndSwitch
WEnd

[Wasiij Iwanowic]

nom, fajnie

 

podaj jeszcze kto jest PRAWDZIWYM twórcą tego skryptu bo nie chce mi się wierzyć

 

do dobra dobra, nie doczytałem, przepraszam

[MacroMAN]

Jest napisane w 1 poście.