These Macros run PERFECT all the time, how to improve it?

Hints, tips and tricks for newbies

Moderators: Dorian (MJT support), JRL

Post Reply
despinal
Newbie
Posts: 16
Joined: Tue Jul 26, 2005 4:49 pm
Location: New York

These Macros run PERFECT all the time, how to improve it?

Post by despinal » Thu Dec 07, 2006 1:25 pm

Thanks to Macro Scheduler I was able to automate a system that broadcast a conference call, archives it and converts to Mp3 format.

You can read about it here http://www.mjtnet.com/usergroup/viewtop ... 7&start=15

My scrips run well without a problem; I am a true believer of "If it ain't broken, why fix it) but I've come to learn here at MS that there is always ways for improvement.

I'm sure I might have unnecessary key strokes, etc. If anyone could please take the time to tell me how to improve my scripts, that would be greatly appreciated.

FIRST SCRIPT (Windows Media Encoder, Archiving, Mp3 Conversion)

Code: Select all

ExecuteFile>C:\Encoder\TechAMCall.wme
Wait>5
Press Enter
Wait>5
Press CTRL
Press Shift
Send Character/Text>e
Release CTRL
Release Shift
Wait>600
Press CTRL
Press Shift
Send Character/Text>s
Release CTRL
Release Shift
Wait>3
Press ALT
Press F4
wait>3
Let>RP_WAIT=1
Change Directory>C:\Program Files\AliveMedia\MP3 WAV Converter
Run>mp3wavconverter "C:\Archives\TechnologyCallAM.wma" /mp3 /"C:\Archives"
ExecuteFile>C:\Scripts\morningcall.vbs
**MORNINGCALL.vbs**

---------------
Dim fso
set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "C:\Archives\TechnologyCallAM.mp3", "C:\Inetpub\wwwroot\mp3_player\Technology Morning Calls\" & Replace(FormatDateTime(Date(),2),"/","") & " 755AM.mp3"
set fso = nothing
---------------

SECOND SCRIPT (Cisco IP Communicator)

Code: Select all

Run Program>C:\Program Files\Cisco Systems\Cisco IP Communicator\Communicator.exe
Wait>8
Send Character/Text>9,1866XXXXXXX
Wait>2
Press F2
Wait>16
Send Character/Text>25XX53#
Wait>4
Press CTRL
Send Character/Text>t
Release CTRL
Wait>600
Press F3
Wait>3
Press ALT
Press F4
Release ALT
Wait>3
Press Enter
Thanks again

Post Reply
Sign up to our newsletter for free automation tips, tricks & discounts