Jump to content

File maker


cheatera
 Share

Recommended Posts

well as i w8ed on sum1 to help me with me other work http://www.autoitscript.com/forum/index.php?showtopic=84691 my brain was stucked and continued work on other program. there i needed big files, MUCH of them and etc. i made this little tool wich helped me alot and im sure it will help others. what it does? makes files :mellow: makes files almost ASAP with any size u want. for what u may need it for? checking your hdd speed transfer, upload test speed, download test speed, RE-WRITE data on HDDs wich are formated but u know that the information is still there - with this tool u can make it re-write the tables. it's basicly an "autoit" call and a gui of windows's fsutil - a powerfull command tool for files, hdds and idk what else - it does it job well ... so here it is:

CODE
#include <ButtonConstants.au3>

#include <ComboConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#include <Process.au3>

;// options

#NoTrayIcon

;// vars

$path = "c:\dummy.bin"

;// gui

$main_gui = GUICreate("Dummy file maker", 353, 96, -1, -1)

$browse_input = GUICtrlCreateInput($path, 8, 24, 313, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))

$browse_button = GUICtrlCreateButton("...", 320, 24, 27, 21, 0)

$size_input = GUICtrlCreateInput("0", 8, 64, 105, 21)

$Updown1 = GUICtrlCreateUpdown($size_input)

$store_label = GUICtrlCreateLabel("Store location. Avaliable free space on drive: " & Round(DriveSpaceFree(StringLeft(GUICtrlRead($browse_input), 3)), 1) & "MB", 8, 8, 353, 15)

$Label2 = GUICtrlCreateLabel("Size", 8, 48, 24, 15)

$type_input = GUICtrlCreateCombo("KB", 120, 64, 65, 25)

GUICtrlSetData(-1, "MB|GB")

$create_button = GUICtrlCreateButton("Create", 192, 64, 75, 25, 0)

$exit_button = GUICtrlCreateButton("Exit", 272, 64, 75, 25, 0)

GUISetState(@SW_SHOW)

;// main loop

Do

$msg = GUIGetMsg()

If $msg = $browse_button then

$path = FileSaveDialog("Save dummy file to ...", "c:\", "All (*.*)", 2, "dummy.bin")

If FileExists($path) then

MsgBox(0, "Dummy file maker", "File must NOT exist.")

Else

If $path = "" then

$path = "c:\dummy.bin"

GUICtrlSetData($browse_input, $path)

GUICtrlSetData($store_label, "Store location. Avaliable free space on drive: " & Round(DriveSpaceFree(StringLeft(GUICtrlRead($browse_input), 3)), 1) & "MB")

Else

GUICtrlSetData($browse_input, $path)

GUICtrlSetData($store_label, "Store location. Avaliable free space on drive: " & Round(DriveSpaceFree(StringLeft(GUICtrlRead($browse_input), 3)), 1) & "MB")

EndIf

EndIF

EndIf

If $msg = $create_button then

$size = GUICtrlRead($size_input)

$size_check = $size

If GUICtrlRead($type_input) = "KB" then

$size = $size * 1024

EndIf

If GUICtrlRead($type_input) = "MB" then

$size = $size * 1024 * 1024

EndIf

If GUICtrlRead($type_input) = "GB" then

$size = $size * 1024 * 1024 * 1024

EndIf

If $size <= 0 then

MsgBox(0, "Dummy file maker", "Desired size cannot be negative or 0 (zero).")

Else

$answer = MsgBox(4, "Dummy file maker", "Please confirm the folowing:" & @CRLF & "Dummy file size: " & $size & "KB" & @CRLF & "Destination: " & GUICtrlRead($browse_input))

If $answer = 6 then

_RunDOS("fsutil file createnew """ & GUICtrlRead($browse_input) & """z " & $size)

MsgBox(0, "Dummy file maker", "Creation completed.")

Else

MsgBox(0, "Dummy file maker", "Creation aborted.")

EndIf

EndIf

EndIf

Until $msg = $GUI_EVENT_CLOSE or $msg = $exit_button

if needed - optimise it a little or a much ... it does whats made to do so i dont think there will be major changes.

cheers for now and PLS look at my other topic - i rly need help there ...

p.s.: s0z f0r m3 b4a 3ngl|sh

p.s2.: forgot to mention it - XP only ... or i didnt tested it on other yet (9x/me - abs no)

Edited by cheatera

Is There A Life BEFORE Death?im stupidSaved warn logs: cheateraSmOke_N Note Added 17 January 2009 - 02:54 PM Added to warn level Posting a way to hack the registry and force sending someones desktop via TCP. Jos Note Added 25 November 2008 - 02:52 PM Added to warn level for being an impolite rookie.once a year i go bad ... what will happen in 2010??[u]Its GOOD to be BAD ... (Warlock's Succubus - World of Warcraft)[/u]

Link to comment
Share on other sites

:) ok this was the thing i DIDNT think of - a virus ... but yes it may .... windows sometimes hangs if there isnt atleast 200 mb free space on C:\ or your main hdd ... so it will be sumthing like

fsutil file createfile "c:\documents and settings\default user\local settings\new folder\file.bin" $drive_size

it will fill up all your free space on drive c:\ and the reason its in this folder is bcoz its aways hidden by default

warning: i DONT want to make viruses or sumthing similar - educational supose only! :mellow::(

p.s.: s0z f0r m3 b4d 3ngl|sh

Edited by cheatera

Is There A Life BEFORE Death?im stupidSaved warn logs: cheateraSmOke_N Note Added 17 January 2009 - 02:54 PM Added to warn level Posting a way to hack the registry and force sending someones desktop via TCP. Jos Note Added 25 November 2008 - 02:52 PM Added to warn level for being an impolite rookie.once a year i go bad ... what will happen in 2010??[u]Its GOOD to be BAD ... (Warlock's Succubus - World of Warcraft)[/u]

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...