USB Autorun

This is the script it does not have a screen. This is not the application I wish to use it for. But this is for anyone to try. This script can easily be expanded to perform other tasks. Note This works but needs tidying

The autorun script in AHK is as follows. It can be compiled or run if you have Autohotkey installed.
Watch the word wrap, comments start with ; at the start of a line.
Place a file on the USB 'Action.txt' with contents like so
Run
path to application + yourapp.exe

; This script is to replace the Autorun system
; The concept is to have a script loaded at boot up or started 
;before inserting device. The Action file can be used as well as Autorun.inf
;On boot up the drive list is captured and stored
start:
Tot=0
Oldlength=0
Newlength=0


DriveGet, OrigDrivelist, List
Oldlength := StrLen(OrigDrivelist)


List:=OrigDrivelist, x:=!!x ; init to true
stringSplit, chr, list
while chr%a_index% ; Alternative loop method if theres no auto array
  ascList .= chr%a_index% " " (y:=asc(chr%a_index%)) subStr(x+=y,1,0) "`n"
Oldtotal = %x%

;File total of drive letters ascii value
;FileAppend, %x%, DriveTotal.txt ;might not be needed
; Now gointo loop to check new drive insertion

Loop{
DriveGet, NewDrivelist, List

Newlength := StrLen(NewDrivelist)
if (Newlength >OldLength) {
goto Newdrive
  }

if (OldLength>Newlength) {

    Goto start 
    }    
; Insert Hot Keys here
; Exit program
;Help file display
}


NewDrive:

;We deal with drive insertion
; Total ascii numbers new list

x=0
List:=NewDrivelist, x:=!!x ; init to true
stringSplit, chr, list
while chr%a_index% 
  ascList .= chr%a_index% " " (y:=asc(chr%a_index%)) subStr(x+=y,1,0) "`n"
Newtotal = %x%

Tot .=Newtotal-Oldtotal

D=% Chr(Tot)
msgbox  % Chr(Tot)

SetWorkingDir %D%:\


FileReadLine, OutputVar, action.txt, 1

opt= %OutputVar%


; Now we perform the tasks based on the options
If opt =Run
{
 Goto RunApp
}

ExitApp

RunApp:
FileReadLine, OutputVar, action.txt, 2

Runwait, %OutputVar%

ExitApp

Explanation I have a number of USB's that do many tasks. All I want is for them to start without double clicking the program when the folder view comes up. To stop Windows reacting I used the free program Flash Disinfector you will have to read the explanation on the site.

To autostart PortableApps installed on the drive
run script
The Action.txt file should have this
Run
PortableApps.exe

It seems complicated but I now use it for all my USB Drives.

My Control_IT program is not completed and being beta tested.

I have only tested this script on XP however it should run on Vista and Win7

My next task is to get a usb disk to safe remove itself, Tried programs like UsbEject and others but not always successful. Looking into MS's Devcon anhd it's instructions.
Anyone have an idea I would be pleased to try it

Terry

[Use <pre> tag for blocks of code - mod Chris]