cheatera Posted November 20, 2008 Share Posted November 20, 2008 (edited) 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 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 loopDo$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 EndIfUntil $msg = $GUI_EVENT_CLOSE or $msg = $exit_buttonif 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|shp.s2.: forgot to mention it - XP only ... or i didnt tested it on other yet (9x/me - abs no) Edited November 20, 2008 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 More sharing options...
ludocus Posted November 20, 2008 Share Posted November 20, 2008 interesting... although this might be used for a virus or something to use up memory.. Link to comment Share on other sites More sharing options...
cheatera Posted November 20, 2008 Author Share Posted November 20, 2008 (edited) 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! p.s.: s0z f0r m3 b4d 3ngl|sh Edited November 20, 2008 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 More sharing options...
WeMartiansAreFriendly Posted November 20, 2008 Share Posted November 20, 2008 interesting...although this might be used for a virus or something to use up memory..I'm making a virus right now. Don't bother, It's inside your monitor!------GUISetOnEvent should behave more like HotKeySet() Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now