Jump to content

cript


Recommended Posts

#include 

#include 

#include 



$Form1 = GUICreate("Form1", 322, 438, 297, 131)



$MusicDir = FileSelectFolder("Please select a folder", @HomeDrive)



$ListView1 = GUICtrlCreateListView("Encrypted filenames at " & $MusicDir, 16, 4, 289, 413)



If @error Then Exit



$filesArray = _FileListToArray($MusicDir, "*")



ProgressOn("L|M|TER encrypter", "Encrypting filenames ...", "", -1, -1, 16)



For $i = 1 To $filesArray[0]

$a = _StringEncrypt(1,$filesArray[$i],"testpssword",1)

GUICtrlCreateListViewItem($a, $ListView1)

$percent = Round($i / $filesArray[0] * 100)

ProgressSet($percent, $percent & "% done")

Sleep(100)

Next

ProgressSet(100, "Done")

Sleep(1000)

ProgressOff()



GUISetState(@SW_SHOW)





While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

WEnd

Home-made :)

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...