Aqua-Soft Forums

[request] Windows Action Scripts For Avedesk

Ave please could you incorporate a new script for AveDesk that allows us to add even more functionality.

In Objectbar you can link to scripts i.e. eject. I'm sure these scripts are already available - but building them into AveDesk would really be cool.

I've found a .vbs file in Objectbar to eject a specified disk - can this be adapted to use on AveDesk?

#155182

I'm not sure which eject you're using but the one I wrote a while back can be linked to via Avdesk by adding a shortcut desklet and setting the path to the vbs e.g.

C:\Program Files\Samurize\Scripts\Eject.vbs.

Works fine for me. ;)

Edit:

Just in case anyone is wondering what we're talking about, here's my vbs:

const Drive = "1" 'Edit this variable to change the corresponding drive

'Option Explicit
On Error Resume Next

Dim WshShell, chkOpen, RegEntry, RegCheck, ErrNum, wmp, cdroms

Set WshShell = WScript.CreateObject("WScript.Shell")
Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdroms = wmp.cdromCollection

RegEntry = "HKCU\Software\CDTray\"

RegCheck = WSHShell.RegRead (RegEntry)
ErrNum = Err.Number

if ErrNum <> 0 then
WshShell.RegWrite "HKCU\Software\CDTray\", 0 ,"REG_DWORD"
WshShell.RegWrite "HKCU\Software\CDTray\OpenClose", "1"
End If


chkOpen = WshShell.RegRead ("HKCU\Software\CDTray\OpenClose")

If chkOpen = "1" Then
If cdroms.Count >= 1 then
 cdroms.Item(Drive).Eject
End If
WshShell.RegWrite "HKCU\Software\CDTray\OpenClose", "0"
Else
If cdroms.Count >= 1 then
 cdroms.Item(Drive).Eject
 cdroms.Item(Drive).Eject
WshShell.RegWrite "HKCU\Software\CDTray\OpenClose", "1"
End If
End If

WshShell.Run "Taskkill.exe /F /IM WScript.exe", 0, TRUE

Set WshShell = vbnull
Set wmp = vbnull
Set cdroms = vbnull

#155386

Yeah I've got that working - but what I'm talking about is something like powder mount but with the label having an eject symbol in the corner that could be double clicked to eject the disk.

at the moment I don't think its possible to link the powermount with the shortcut - if you know what I mean.

#155409

Wow all that just to open a CD Tray.

Still it is very impressive.

-Jimmy S

#155553

man he hasn't even released 1.1 and you're asking for new features???

patience, grasshopper.

#155721

Originally posted by daclothe@May 3 2004, 11:07 PM

man he hasn't even released 1.1 and you're asking for new features???

patience, grasshopper.

agreed

wait little green noisy, chirpy, loud, fiendish :rant: ...

oh sorry :blink: , i got caried away again :rolleyes:

#155755

Originally posted by daclothe@May 3 2004, 11:07 PM

man he hasn't even released 1.1 and you're asking for new features???

patience, grasshopper.

Hey I write the ideas as I get 'em - otherwise they will be forgotten. And I was also wondering if it could be done with the current version.....as people arn't being stopped from developing docklets are they?? :P

#156223