Page 22 of 36 FirstFirst ... 12171819202122232425262732 ... LastLast
Results 421 to 440 of 718
  1. #421  
    Quote Originally Posted by slingbox View Post
    What I got so far.
    __________________________________________________ _______________
    # Reminder.mscr - Monitors notifications and turns on and off the alert chime accordingly.
    #

    # initialize variables
    Ringersw = 1

    # start notification check loop
    While ( 1 )

    # check the registry for any notifications
    Notify = RegValueExists( "HKLM", "System\State\Shell\Notifications\Active", "CLSID" )

    #check the ringer switch on/off
    Ringersw = RegRead( "HKLM", "System\State\Hardware\", "Ringer" )

    # turn on the sound if any notifications are pending whenever Ringer on. Keep turning on each iteration since
    # the OS turns it off whenever there is a new notification.
    If ( Notify && Ringersw )
    Run "\Program Files\MortScript\Manager-Alerts\Alert.mscr"
    LedOn = TRUE
    EndIf

    # turn off sound if no notifications are pending
    If ( NOT Notify )
    KillScript ("Alert.mscr")
    EndIf

    # wait 1 seconds
    Sleep( 2000 )
    EndWhile
    __________________________________________________ _______________
    The Alert .mscr Script

    #Alert.mscr-alert
    ToggleDisplay (on)
    %i% = 10
    if expression %i% > 1
    PlaySound "\Program Files\MortScript\Manager-Alerts\Reminder.wav"
    sleep 800
    %i% = %i% -1
    endIf

    __________________________________________________ _______________

    Problem.
    I can not figure out timestamps to save my life
    any one can build a chime-reminder script that alert you every 2 min we are set.I can tie that into alert.mscr

    We then have are missed call/v-mail/sms repeating alert for wm

    Phil C

    I got a chime script working somewhat last night and got the 2 min remider alert about 5 times.
    Time stamp dumb
    Will try and help you out later today...

    Slingbox,

    One problem I see is that your while loop is going to loop every 2 seconds (to check for pending notifications which make sense) and that will call the alert script every 2 seconds...so the alert script would have to determine whether to add new notifications to the queue or to do nothing...or throw something into the while loop that only runs the alert script every two minutes, by comparing the current time, to a previously stored time, and if the difference was >= 120 (2 minutes), fire off the alert script again...
    Last edited by scottymomo; 02/21/2007 at 02:40 PM.
    Palm III > HS Visor > Treo 600 > Treo 650 > Treo 750 > Treo Pro > PrePlus GSM

    "95% of all software issues are due to USER ERROR."
  2. #422  
    Scotty if you can try later on today that would be great. I'm totally burnt out.I was up to 3AM with no success.

    Thanks

    Phil C
  3. #423  
    Quote Originally Posted by slingbox View Post
    Scotty if you can try later on today that would be great. I'm totally burnt out.I was up to 3AM with no success.

    Thanks

    Phil C
    Think I have it. Here's what I would do:

    You need something in the while loop that checks to see if the alert script has been turned on or not. Set this as a global variable in the script like

    AlertOn = 0

    In the while loop, you would check this value. If it's 0 (which would be on the initial run) set it to 1, then run the alert script below (which will rerun itself every two minute by adding an event to the notification queue).

    When the while loop runs subsequent times, if notifications are still pending, the value would stay as 1, and the alert script would not be called (it would be skipped)

    In the If statement you have where the alert is killed (once there are no pending notifications), you would set the AlertOn variable back to 0 and Kill the event in the notifictiation queue:

    RemoveNotifications( "\Program Files\MortScript\Alert-Manager\2minute_reminder.mscr" )

    Here is the script for the 2 minute reminder:

    Code:
    #
    # 2minute_reminder.mscr - Plays the file of your choice
    #
    ErrorLevel ("syntax")
    
    ToggleDisplay(on)
    
    #play whatever wav file you want
    PlaySound("\Program Files\MortScript\Manager-Alerts\Reminder.wav")
    
    #Set when the script should run again, 2 minutes from the current time
    Rerun = Timestamp()+120
    RunAt( Rerun, "\Program Files\MortScript\Manager-Alerts\2minute_reminder.mscr" )
    Palm III > HS Visor > Treo 600 > Treo 650 > Treo 750 > Treo Pro > PrePlus GSM

    "95% of all software issues are due to USER ERROR."
  4. #424  
    Quote Originally Posted by scottymomo View Post
    Think I have it. Here's what I would do:

    You need something in the while loop that checks to see if the alert script has been turned on or not. Set this as a global variable in the script like

    AlertOn = 0

    In the while loop, you would check this value. If it's 0 (which would be on the initial run) set it to 1, then run the alert script below (which will rerun itself every two minute by adding an event to the notification queue).

    When the while loop runs subsequent times, if notifications are still pending, the value would stay as 1, and the alert script would not be called (it would be skipped)

    In the If statement you have where the alert is killed (once there are no pending notifications), you would set the AlertOn variable back to 0 and Kill the event in the notifictiation queue:

    RemoveNotifications( "\Program Files\MortScript\Alert-Manager\2minute_reminder.mscr" )

    Here is the script for the 2 minute reminder:

    Code:
    #
    # 2minute_reminder.mscr - Plays the file of your choice
    #
    ErrorLevel ("syntax")
    
    ToggleDisplay(on)
    
    #play whatever wav file you want
    PlaySound("\Program Files\MortScript\Manager-Alerts\Reminder.wav")
    
    #Set when the script should run again, 2 minutes from the current time
    Rerun = Timestamp()+120
    RunAt( Rerun, "\Program Files\MortScript\Manager-Alerts\2minute_reminder.mscr" )
    Perfect
    I was going in the wrong direction on this 2minute_reminder script big time.I am ditching the toggledisplay(on) to save some Batt life when reminders active.
    Thanks for the help my friend.
    I will post final product this evening
  5. #425  
    Quote Originally Posted by slingbox View Post
    Perfect ...

    I will post final product this evening
    Sure you will (heh heh).

    Here's a 'MorfScript' of something I posted earlier this morning. It's description is in the Title of this post.

    I am constantly forgetting if I need to preface my work exchange server username with
    "DomainName\username" or if the Domain name goes in 2 places, or in one, or none. If I had a nickle for every dime I've spent calling an IT guru from out of town, i'd be less deeper in debt and I'd have spent more time at the hotel bars instead of listening to him say: "well, it SHOULD work."

    Anyway, once you finger out how to make it happen consistently, then script it.

    Example attached for PC and PPC version. Tweak to your own needs.

    We'll call this one "Start GoToWork.mscr"

    -- JDC


    Code:
    # GoToWork.mscr
    #
    # MortScript V 4.0 RC9 
    # 
    # Semi-automated login to web-based exchange server
    # 
    #
    # Platform(s): PC, PPC
    #
    # PPC Tested: Palm Treo 700w, Windows Mobile V5.1.195 Bld 14929.2.2.1
    # PC Tested:   Windows XP 2002 SP2
    #
    # Author: jdcochran@hotmail.com
    # Rel. 0.a  2.20.2006
    #
    # Release Note(s).  A serious programmer would locate the registered browser
    # and (try to) activate it, but this programmer is lazy.  The PC version requires
    # that a .lnk file be created pointing to the browser .exe.  For simplicity, I created 
    # "C:\IE.lnk" and pointed it to my browser. The same could be done on the PPC if
    # a non-standard browser is used.
    # 
    # Once again, this script and spawnings of it are designed to be executed
    # with a voice command.
    
    Flag = 0
    Platform  = MortScriptType()
    #Message (Platform)
    
    If (Platform eq "PPC")
     MyIE_App = "\Windows\iexplore.exe"
     Flag = 1
    EndIf
    
    If (Platform eq "PC")
    # MyIE_App = "C:\Program Files\Internet Explorer\iexplore.exe"
     MyIE_App = "C:\IE.lnk"
    
    # in the first attempt at this code execution, the iexplorer.exe loaded, but window never shows... 
    # ShowWindow command might work, but the WindowName changes 
    # as new pages are added to the referenced help forum. Fixed this problem with "C:\IE.lnk")
    
     Flag = 1
    EndIf
    
    If (Flag = 0)
     Message ("Unknown Platform.  Script Will abort now.")
     Exit
    EndIf
    
    # Future Upgrade... call MyBrowserSettingsForExchangeServer.MSCR
    
    If (Platform eq "PPC")
     SleepMessage (6, "Start pretending to look like you know what you're doing... tap on the li'l button if you'd like to get there faster...", "MortScript V4.0 RC9 for PPC",1)
    
     Run( MyIE_App, "http://mail.MyCompany.com/exchange/")
     WaitForActive( "Enter Network Password", 15)
     Sleep (500)
     SendUp
     SendKeys ("UserName")
     SendDown
     SendDown
     SendKeys ("DomainName")
     SendUp
    EndIf
    
    If (Platform eq "PC")
     Message ("Now would be a good time to start pretending to look like you know what you're doing...", "MortScript V4.0 RC9 for PPC")
     Run( MyIE_App, "http://mail.MyCompany.com/exchange/")
     WaitForActive( "Connect to mail.MyCompany.com", 15)
     SendUp
     SendUp
     SendKeys ("UserName")
     SendTab
    EndIf
    Last edited by jdcochran; 02/21/2007 at 09:51 PM.
  6. #426  
    Quote Originally Posted by jdcochran View Post
    Sure you will (heh heh).

    Here's a 'MorfScript' of something I posted earlier this morning. It's description is in the Title of this post.

    I am constantly forgetting if I need to preface my work exchange server username with
    "DomainName\username" or if the Domain name goes in 2 places, or in one, or none. If I had a nickle for every dime I've spent calling an IT guru from out of time... i'd be less deeper in debt and I'd have spent more time at the hotel bars instead of listening to him say: "well, it SHOULD work."

    Anyway, once you finger out how to make it happen consistently, then script it.

    Example attached for PC and PPC version. Tweak to your own needs.

    We'll call this one "Start GoToWork.mscr"

    -- JDC
    Scripts works pretty well for me. I had never tried to log into my exchange server from my PPC before. When I tried this I got one frame saying access denied and one frame with my inbox in it (?).

    I will need to adjust the text input to input a bit slower, as it catches about half the characters on my name and domain. I also had to change the ups and downs so the cursor hit the correct boxes.

    And one last thing, I think most exchange servers are on https://, but people will be changing that line anyway.

    P.S. Why not just use outlook?
  7. #427  
    Quote Originally Posted by scottymomo View Post
    Think I have it. Here's what I would do:

    You need something in the while loop that checks to see if the alert script has been turned on or not. Set this as a global variable in the script like

    AlertOn = 0

    In the while loop, you would check this value. If it's 0 (which would be on the initial run) set it to 1, then run the alert script below (which will rerun itself every two minute by adding an event to the notification queue).

    When the while loop runs subsequent times, if notifications are still pending, the value would stay as 1, and the alert script would not be called (it would be skipped)

    In the If statement you have where the alert is killed (once there are no pending notifications), you would set the AlertOn variable back to 0 and Kill the event in the notifictiation queue:

    RemoveNotifications( "\Program Files\MortScript\Alert-Manager\2minute_reminder.mscr" )

    Here is the script for the 2 minute reminder:

    Code:
    #
    # 2minute_reminder.mscr - Plays the file of your choice
    #
    ErrorLevel ("syntax")
    
    ToggleDisplay(on)
    
    #play whatever wav file you want
    PlaySound("\Program Files\MortScript\Manager-Alerts\Reminder.wav")
    
    #Set when the script should run again, 2 minutes from the current time
    Rerun = Timestamp()+120
    RunAt( Rerun, "\Program Files\MortScript\Manager-Alerts\2minute_reminder.mscr" )
    Great script Scotty but I'm in a major slump.RED led reminder then taking this on has burnt me out big time .It.s going to be a couple days for I need a break With some major sleep.Anyone else want to take on the project feel free.
  8. #428  
    Quote Originally Posted by sam-i-am View Post
    ...

    And one last thing, I think most exchange servers are on https://, but people will be changing that line anyway.

    P.S. Why not just use outlook?
    I flavored it to my work server. I have not and don't intend to use my ppc for work e-mail. just a personal choice. thanks for the feedback.

    jdc
  9. #429  
    Whats the latest Mortscript RC? Is it 9?
  10. #430  
    Update to previously-posted CloseWindow.mscr

    Added error checking for windows we don't wanto to ever close.

    Code:
    # CloseWindow.mscr
    #
    # Closes Active Window
    #
    # This script is risky if Mortscript interpreter detects that the current window is "Desktop" and a few others.
    # 
    #
    # Disabling PC version for now.
    Platform  = MortScriptType()
    #Message (Platform)
    
    If (Platform eq "PC")
    	Message ("This App was Not Designed for PC... exiting now")
    	Exit
    EndIf
    
    x = ActiveWindow()
    
    if (x eq "Desktop" or x eq "Programs" or x eq "" or x eq "Phone" or x eq "PalmOne-KeyLockWindow")
    
    	Message ("It's not reccomended that [ " & x  & " ] window be closed.  Script will exit.")
    
    	exit
    
    EndIf
    
    Close( x)
  11. #431  
    Update to Status.mscr -- only a few more statusses...

    Code:
    # Status.mscr
    tm = TotalMemory()/1024
    fm = FreeMemory()/1024
    fds = FreeDiskSpace("\")/1024
    fsc = FreeDiskSpace("\Storage Card")/1024
    # bl = BatteryLevel()
    bl = RegRead("HKLM", "System\State\Battery", "Percentage")
    xp = ExternalPowered()
    PhoneState = RegRead("HKLM", "System\State\Phone", "Cellular System Available" )
    SignalStrength = RegRead("HKLM", "System\State\Phone", "Signal Strength" )
    SpeakerPhoneState = RegRead("HKLM", "System\State\Hardware", "Speaker" )
    RingerState = RegRead("HKLM", "System\State\Hardware", "Ringer" )
    BlueToothState = RegRead("HKLM", "System\State\Hardware", "Bluetooth" )
    SyncState = RegRead("HKLM", "System\State\Hardware", "Cradled" )
    
    
    BlueTooth = "???"
    If (BlueToothState = 8)
    	BlueTooth = "OFF/NoBrdcst"
    EndIf
    If (BlueToothState = 9)
    	BlueTooth "ON/NoBrdcst"
    EndIf
    If (BlueToothState = 11)
    	BlueTooth = "ON/Brdcst"
    EndIf
    
    Ringer = "???"
    If (RingerState = 1)
    	Ringer = "ACTIVE"
    EndIf
    If (RingerState = 0)
    	Ringer = "SILENT"
    EndIf
    
    Cradled = "???"
    If (SyncState = 1)
    	Sync = "CONNECTED"
    EndIf
    If (SyncState = 0)
    	Sync = "DISCONNECTED"
    EndIf
    SpeakerPhone = "???"
    If (SpeakerPhoneState = 1)
    	SpeakerPhone = "ON"
    EndIf
    If (SpeakerPhoneState = 0)
    	SpeakerPhone = "OFF"
    EndIf
    
    Phone = "???"
    If (PhoneState = 4)
    	Phone = "ON"
    EndIf
    If (PhoneState = 0)
    	Phone = "OFF"
    EndIf
    
    xpmsg = "NOT "
    
    if (xp)
      xpmsg = ""
    endif
    
    PlatformVer = SystemVersion( )
    Platform = SystemVersion( "platform") & " " & PlatformVer
    
    Message 	("System:  " & Platform & "^LF^^LF^" \
    		&"TotalMem:            " & tm & " MB ^LF^" \
    		&"FreeMainMem:         " & fm & " MB ^LF^" \
    		&"FreeMainRAM:   " & fds & " MB ^LF^" \
    		&"FreeCardMem: " & fsc & " MB ^LF^^LF^" \
    		&"BatteryLevel:    " & bl & "%^LF^" \
    		&"AC Pwr: " & xpmsg &"Connected" \
    		,"        System Capacity")
    
    Message	("PhoneRadio:   "& Phone & "^LF^" \
    		&"Ringer:       "& Ringer & "^LF^" \
    		&"SpeakerPhone: "& SpeakerPhone & "^LF^" \
    		&"BluetoothState: "& BlueTooth & "^LF^" \
    		&"SyncState: "& Sync & "^LF^" \
    		&"SgnlStrength: "& SignalStrength & "^LF^" \
    		,"        Phone Settings")
    
    
    
    #BT = 8 Off, Not Discoverable
    #BT = 9 On, Not Discoverable
    #BT = 11 On, Discoverable
  12. #432  
    Status feedback:

    I run status and see:

    FreeMainRAM: 5236 MB
    FreeCardMem: 794303 MB

    I'm pretty sure that isn't right!

    Should probably be divided by 100

    Also, the battery level doesn't show.
  13. #433  
    I got a bluetooth headset today, so I've been experimenting with using mortscripts through it. I placed all my scripts in Windows\Start Menu\Programs\Scripts, but I can't seem to get any of them to run.

    If I place the same scripts in the "Programs" directory, suddenly they work. Is there a setting somewhere that I am missing?
  14. #434  
    Quote Originally Posted by RichKlein View Post
    Whats the latest Mortscript RC? Is it 9?
    4.0 RC9

    don't know why it's called that. prolly a german TLA.

    (three-letter acronym)

    someone kindly post the url to the DLS.

    (down load section)

    don't forget to UYM.

    (upgrade your manual)

    -- JDC

    (just a damned codester)
  15. #435  
    I must be complete *****, I cant find the download link. i looked under mortscript & all I see is v3.1 (which I cant actually download either).
  16. #436  
    RC9 = Release Candidate 9.

    It's not the main download on the site because it's in beta.

    I eventually found it on his site, but I can't remember where.

    EDIT: Try here: http://mort.sto-helit.de/index.php?m...n=view&menu=29
    Last edited by sam-i-am; 02/22/2007 at 11:21 AM.
  17. #437  
    Quote Originally Posted by RichKlein View Post
    I must be complete *****, I cant find the download link. i looked under mortscript & all I see is v3.1 (which I cant actually download either).
    Can't agree with you there.

    Here's where I gots mines...

    http://mort.sto-helit.de/index.php?m...am&action=list

    -- JDC
  18. #438  
    Johnny Cochran Legal Disclaimer...

    any previous references to Mortsvilllians as "German" are hereby retracted, redacted, retroactively, et cetera, et cetera.

    I just realiSed that Mort is Deutch.

    I should know bitten.

    -- JDC
  19. #439  
    Quote Originally Posted by jdcochran View Post
    Johnny Cochran Legal Disclaimer...

    any previous references to Mortsvilllians as "German" are hereby retracted, redacted, retroactively, et cetera, et cetera.

    I just realiSed that Mort is Deutch.

    I should know bitten.

    -- JDC
    err .. Mort is from Fellbach, Germany

    Deutschland = Germany
  20. #440  
    Quote Originally Posted by sam-i-am View Post
    err .. Mort is from Fellbach, Germany

    Deutschland = Germany
    whoops, i must now adopt a fellbach stance.

    my mistake.

Posting Permissions