Last 10 Submissions RSS Feed

test

Fri, 24 Jul 2009 14:30:28 +0000

IE Builder

Sun, 19 Jul 2009 00:23:48 +0000

See Forum for all info...

http://www.autoitscript.com/forum/index....p?showtopic=19368&view=findpost&p=133767

Enjoy!!
8)

MP3 Inventory

Sat, 27 Jun 2009 22:06:55 +0000

Ever wanted to make a list for those mp3 files you have sitting in a directory?

Look no further... I have made a simple script to do such that!

http://666kb.com/i/ba65s2vm9tusi1gc3.jpg

http://666kb.com/i/ba65si62u2d58p3oz.jpg

http://666kb.com/i/ba65sz75n8lyc5b03.jpg

http://666kb.com/i/ba65sre3u7g3q1yib.jpg

[ code='text' ] ( Expand - Popup )

#include 
#include 

Opt("TrayIconHide",1)
Global $temppath = @ScriptDir

GUICreate("MP3 Inventory", 320, 205, -1, @DesktopHeight/10)
GUICtrlCreateLabel("This program is for Mp3 file(s) only!   -   Created by Rogue", 24, 5, 275, 20)
$Button_1 = GUICtrlCreateButton("Take Invenotry", 200, 34, 100, 50)
$Checkbox_1 = GUICtrlCreateCheckbox("Include Subfolders", 10, 30)
$Checkbox_2 = GUICtrlCreateCheckbox("Include Full File Path", 10, 55)
GUICtrlCreateLabel("Save Inventory File to:", 8, 87, 125, 20)
Global $Input1 = GUICtrlCreateInput(@ScriptDir, 25, 107, 240, 20)
$Browse_1 = GUICtrlCreateButton("...", 270, 107, 30, 20)
GUICtrlCreateLabel("Scan directory for Mp3's:", 8, 137, 125, 20)
Global $Input2 = GUICtrlCreateInput(@ScriptDir, 25, 157, 240, 20)
$Browse_2 = GUICtrlCreateButton("...", 270, 157, 30, 20)
GUICtrlCreateLabel("Progress:", 90, 180, 65, 20)
GUICtrlSetFont (-1, 10, 600)
Global $Label_1 = GUICtrlCreateLabel("Waiting", 165, 180, 95, 20)
GUICtrlSetFont (-1, 10, 600)
GUISetState (@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    $Text = @ScriptDir & "\Inventory.txt"
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button_1
            GUICtrlSetData($Label_1, "Scanning...")
            GUICtrlSetFont (-1, 10, 600)
            GUICtrlSetColor(-1, 16711680)
            If BitAND(GUICtrlRead($Checkbox_1), $GUI_CHECKED) = $GUI_CHECKED And BitAND(GUICtrlRead($Checkbox_2), $GUI_CHECKED) = $GUI_CHECKED Then
                $Inventory = _RecFileListToArray($temppath, "*.mp3", 1, 1, 1)
                    If @Error=4 Then
                        MsgBox (48,"Error","No MP3 Files Found.", 5)
                    EndIf
            ElseIf BitAND(GUICtrlRead($Checkbox_1), $GUI_CHECKED) = $GUI_CHECKED And BitAND(GUICtrlRead($Checkbox_2), $GUI_UNCHECKED) = $GUI_UNCHECKED Then
                $Inventory = _RecFileListToArray($temppath, "*.mp3", 1, 1)
                    If @Error=4 Then
                        MsgBox (48,"Error","No MP3 Files Found.", 5)
                    EndIf
            ElseIf BitAND(GUICtrlRead($Checkbox_1), $GUI_UNCHECKED) = $GUI_UNCHECKED And BitAND(GUICtrlRead($Checkbox_2), $GUI_CHECKED) = $GUI_CHECKED Then
                $Inventory = _RecFileListToArray($temppath, "*.mp3", 1, 0, 1)
                    If @Error=4 Then
                        MsgBox (48,"Error","No MP3 Files Found.", 5)
                    EndIf
            Else
                $Inventory = _RecFileListToArray($temppath, "*.mp3", 1)
                    If @Error=4 Then
                        MsgBox (48,"Error","No MP3 Files Found.", 5)
                    EndIf
            EndIf
            If FileExists($Text) Then FileDelete($Text)
            _FileWriteFromArray($Text, $Inventory, 1)
            GUICtrlSetData($Label_1, "Done")
            GUICtrlSetFont (-1, 10, 600)
            GUICtrlSetColor(-1, 32768)
            Sleep(2000)
            $CountLines = (_FileCountLines($Text) -1)
            If $CountLines > 0 Then
                MsgBox(1, "Info", "Number of Mp3's in folder: " & $Countlines & @CRLF & "List saved at: " & $Text, 8)
                Run("notepad.exe " & $Text)
            EndIf
        Case $msg = $Browse_1
            $temppath = FileSelectFolder("Save File Where", "", 1, @ScriptDir)
            GUICtrlSetData($Input1, $temppath)
        Case $msg = $Browse_2
            $temppath = FileSelectFolder("Choose a folder with Mp3's", "", 1, @ScriptDir)
            GUICtrlSetData($Input2, $temppath)
    EndSelect
Wend

Func _RecFileListToArray($sPath, $sFilter = "*", $iFlag = 0, $iRecur = 0, $iFullPath = 0)
    Local $asFileList[1], $sFullPath
    If Not FileExists($sPath) Then Return SetError(1, 1, "")
    If StringRight($sPath, 1) <> "\" Then $sPath = $sPath & "\"
    If (StringInStr($sFilter, "\")) Or (StringInStr($sFilter, "/")) Or (StringInStr($sFilter, ":")) Or (StringInStr($sFilter, ">")) Or (StringInStr($sFilter, "<")) Or (StringInStr($sFilter, "|")) Or (StringStripWS($sFilter, 8) = "") Then Return SetError(2, 2, "")
    If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")
    If Not ($iRecur = 0 Or $iRecur = 1) Then Return SetError(4, 4, "")
    If $iFullPath = 0 Then
        $sFullPath = $sPath
    ElseIf $iFullPath = 1 Then
        $sFullPath = ""
        $sFullPath = StringTrimLeft($sPath, (StringLen(@ScriptDir) + 1))
    Else
        Return SetError(5, 5, "")
    EndIf
    _FLTA_Search($sPath, $sFilter, $iFlag, $iRecur, $sFullPath, $asFileList)
    If $asFileList[0] = 0 Then Return SetError(6, 6, "")
    Return $asFileList
EndFunc  

Func _FLTA_Search($sStartFolder, $sFilter, $iFlag, $iRecur, $sFullPath, ByRef $asFileList)
    
    Local $hSearch, $sFile

    If StringRight($sStartFolder, 1) <> "\" Then $sStartFolder = $sStartFolder & "\"
; First look for filtered files/folders in folder
    $hSearch = FileFindFirstFile($sStartFolder & $sFilter)
    If $hSearch > 0 Then
        While 1
            $sFile = FileFindNextFile($hSearch)
            If @error Then ExitLoop
            Switch $iFlag
                Case 0; Both files and folders
                    If $iRecur And StringInStr(FileGetAttrib($sStartFolder & $sFile), "D") <> 0 Then ContinueLoop
                Case 1; Files Only
                    If StringInStr(FileGetAttrib($sStartFolder & $sFile), "D") <> 0 Then ContinueLoop
                Case 2; Folders only
                    If StringInStr(FileGetAttrib($sStartFolder & $sFile), "D") = 0 Then ContinueLoop
            EndSwitch
            If $iFlag = 1 And StringInStr(FileGetAttrib($sStartFolder & $sFile), "D") <> 0 Then ContinueLoop
            If $iFlag = 2 And StringInStr(FileGetAttrib($sStartFolder & $sFile), "D") = 0 Then ContinueLoop
            _FLTA_Add($asFileList, $sFullPath, $sStartFolder, $sFile)
        WEnd
        FileClose($hSearch)
        ReDim $asFileList[$asFileList[0] + 1]
    EndIf
    
    If $iRecur = 1 Then
   ; Now look for subfolders
        $hSearch = FileFindFirstFile($sStartFolder & "*.*")
        If $hSearch > 0 Then
            While 1
                $sFile = FileFindNextFile($hSearch)
                If @error Then ExitLoop
                If StringInStr(FileGetAttrib($sStartFolder & $sFile), "D") And ($sFile <> "." Or $sFile <> "..") Then
               ; If folders needed, add subfolder to array
                    If $iFlag <> 1 Then _FLTA_Add($asFileList, $sFullPath, $sStartFolder, $sFile)
               ; Recursive search of this subfolder
                    _FLTA_Search($sStartFolder & $sFile, $sFilter, $iFlag, $iRecur, $sFullPath, $asFileList)
                EndIf
            WEnd
            FileClose($hSearch)
        EndIf
    EndIf
    
EndFunc

Func _FLTA_Add(ByRef $asFileList, $sFullPath, $sStartFolder, $sFile)
    
    Local $sAddFolder
    
    $asFileList[0] += 1
    If UBound($asFileList) <= $asFileList[0] Then ReDim $asFileList[UBound($asFileList) * 2]
    If $sFullPath = "" Then
        $sAddFolder = $sStartFolder
    Else
        $sAddFolder = StringReplace($sStartFolder, $sFullPath, "")
    EndIf
    $asFileList[$asFileList[0]] = $sAddFolder & $sFile
    
EndFunc

MyPCTweet - Use Twitter to Control Your PC

Sun, 21 Jun 2009 00:36:09 +0000

http://img36.imageshack.us/img36/7230/clipboard02isq.jpg

No Password or Personal info needed, it works with the "Account Name"

Easy to use... Just download and read the Simple Instructions.

This Lite Version is completely Free.

Example... "@MyPCTweet Message#I Love My Twins!!#"

and that's it!!

over 150+ run commands available here

You can Command as many computers as you want with "Just One Tweet"

Enjoy!!

Valuater
8)

** For More Information, See the Complete MyPcTweet Q & A Forum Thread **

Not associated with twitter

s!mpL3 LAN Messenger

Thu, 07 May 2009 07:55:10 +0000

I started working on this program in the summer then I stopped cause I faced some problems I couldn't overcome back then. Now that I've practiced more and have become a better scripter/programmer I'm releasing the program to the public to get some opinions. I know it's not a new concept but it's the first program I started besides some small stuff I did just for practice! I won't post the source code yet because it's still under construction, although I'm sure I've posted early stages of the code with bugs in the past in some topic...

What I wanted was a simple, small, serverless program that would work without installation cause I wanted it for where I work, so I ended up with this!

I have attached an image of version 2.9.5.7 to check out more visit the main thread.

Current version 2.9.5.9! [02/11/2009]

1. Fixed Settings window position. (Thanks again BoonPek, read here)
(That was because of "GUICreate() with $WS_EX_MDICHILD has been fixed to be relative to client area as documented." in the latest BETA, to read more go here)

Check the corresponding thread to view/download the change log and more information:

http://www.autoitscript.com/forum/index.php?showtopic=88782

MRU.au3

Tue, 17 Mar 2009 00:01:33 +0000

Most Recently Used (MRU) List Automation UDF Library for AutoIt3

XSkin for ASC - Black-Autoit

Sat, 07 Mar 2009 19:21:35 +0000

**NEW 3.0+** ( with picture menu )

See our New XSkin-Pro Home!!

www.ClickTask.com

For ALL the Latest Skins!

Valuater
8)

Sleep until a further date

Sat, 14 Feb 2009 14:58:46 +0000

I remember about 5 months or so ago someone was asking if there was a way to sleep until a specific time (Date) then run the script...I wrote this up for him, but forgot to post it sleep.gif hope this helps someone, cause its useless to me tongue.gif

you can push it further by adding year in there too, but thats kind of useless tongue.gif...also, it may be benaficial to you if you made it => rather than =

heres another way to use the func

[ code='text' ] ( Popup )

#include

Global $Month = 12
Global $Day = 28
Global $Hour = 21
Global $Minute = 49

_Sleep($Month, $Day, $Hour, $Minute)

Func _Sleep($Month = @MON, $Day = @MDAY, $Hour = @HOUR, $Minute = @MIN)
    Do
        If _IsPressed('10') And _IsPressed('be') Then; Shift + >
            MsgBox(0, "", "Working!")
            ExitLoop
        EndIf
    ;         MsgBox(0, "", @MON & ":" & @MDay & ":" & @HOUR & ":" & @MIN)
    Until $Month = @MON And $Day = @MDAY And $Hour = @HOUR And $Minute = @MIN
    MsgBox(0, "", "Works")
EndFunc  ;==>_Sleep

Auto Shutdown

Sat, 14 Feb 2009 14:55:04 +0000

got a younger brother...annoying parent....or snoopy cat? make your computer automatically shut down unless they enter in the correct username and password...

XSkin for ASC - Black-Vegas

Tue, 27 Jan 2009 06:27:26 +0000

**NEW 3.0+** ( with picture menu )

See our New XSkin-Pro Home!!

www.ClickTask.com

For ALL the Latest Skins!

Valuater
8)