MortScript examples accumulation

[egoist6]

Thank you! What if I want to run the program in the background? This program has command line switches, but I want to be able to run it without seeing it appearing in the screen. Should I run it and minimize the window immediately?

if your program does not have a command line switch for starting in background, you have two options:


minimize it with mortscript. you have to add a delay to wait until the program has been started. use the command waitforactive for this.

just as a thought - i do not know if it works: run your program and add it to your exclusive list in your task manager. export the value for your program from this key:
[HKEY_CURRENT_USER\Software\HTC\TaskManager\Exclusi veList\User]
the next time your script runs, your prog maybe hidden. if not, try to import the key first and then run your prog. you can import this registrykey with regwritestring

[bgcngm]

minimize it with mortscript. you have to add a delay to wait until the program has been started. use the command waitforactive for this.


Tried that with:

WaitForActive(WindowTitle,5)
Minimize(WindowTitle)

I don't know why, but it didn't worked...



just as a thought - i do not know if it works: run your program and add it to your exclusive list in your task manager. export the value for your program from this key:
[HKEY_CURRENT_USER\Software\HTC\TaskManager\Exclusi veList\User]
the next time your script runs, your prog maybe hidden. if not, try to import the key first and then run your prog. you can import this registrykey with regwritestring


That will not work for me because I don't have an HTC device... no HTC taskmanager.

[egoist6]

Tried that with:

WaitForActive(WindowTitle,5)
Minimize(WindowTitle)


try to get the correct name of your program's window first.
add
delay(5000)
message(activewindow())

to your script

[claus1953]

there is an xcopy command available for this:

XCopy(<pathname>\*.*", "<target directory>", TRUE, TRUE)

true, true means to overwrite and include subdirectories.

Thanks a lot, would you mind taking a look to my script to check if it should work like this?

Run ("\Storage Card\TitaniumThemes\apps\disableTitanium.mscr")

SettingOptions[1]="Install QVGA cprs"
SettingOptions[2]="Install WQVGA cprs"
SettingOptions[3]="Install QVGA square cprs"
SettingOptions[4]="Install VGA cprs"
SettingOptions[5]="Install WVGA cprs"
SettingOptions[6]="Install VGA square cprs"

installpath="\Storage Card\TitaniumThemes\allcprs"
installfile[1]="QVGA_cprs"
installfile[2]="WQVGA_cprs"
installfile[3]="QVGA_square_cprs"
installfile[4]="VGA_cprs"
installfile[5]="WVGA_cprs"
installfile[6]="VGA_square_cprs"

SetChoiceEntryFormat(28,14)
idx=Choice("Install Titanium Theme Changer","Choose CPR resolution", 0, 0, SettingOptions)

if (idx=0)
exit
endif

Copy( "\Storage Card\TitaniumThemes\apps\Titanium Theme Changer.lnk", "\Windows\Start Menu\Programs\Titanium Theme Changer.lnk", TRUE )

XCopy(installpath \ installfile[idx] \"*.*", "\Windows\", TRUE, TRUE)

Message("install complete")

Run ("\Storage Card\TitaniumThemes\apps\activateTitanium.mscr")

RedrawToday

[egoist6]

Thanks a lot, would you mind taking a look to my script to check if it should work like this?

Run ("\Storage Card\TitaniumThemes\apps\disableTitanium.mscr")

SettingOptions[1]="Install QVGA cprs"
SettingOptions[2]="Install WQVGA cprs"
SettingOptions[3]="Install QVGA square cprs"
SettingOptions[4]="Install VGA cprs"
SettingOptions[5]="Install WVGA cprs"
SettingOptions[6]="Install VGA square cprs"

installpath="\Storage Card\TitaniumThemes\allcprs"
installfile[1]="QVGA_cprs"
installfile[2]="WQVGA_cprs"
installfile[3]="QVGA_square_cprs"
installfile[4]="VGA_cprs"
installfile[5]="WVGA_cprs"
installfile[6]="VGA_square_cprs"

SetChoiceEntryFormat(28,14)
idx=Choice("Install Titanium Theme Changer","Choose CPR resolution", 0, 0, SettingOptions)

if (idx=0)
exit
endif

Copy( "\Storage Card\TitaniumThemes\apps\Titanium Theme Changer.lnk", "\Windows\Start Menu\Programs\Titanium Theme Changer.lnk", TRUE )

XCopy(installpath \ installfile[idx] \"*.*", "\Windows\", TRUE, TRUE)

Message("install complete")

Run ("\Storage Card\TitaniumThemes\apps\activateTitanium.mscr")

RedrawToday

looks perfect...

just a small recommendation:
you can make your script OS language independent by using
SystemPath("ProgramsMenu") \ "Titanium Theme Changer.lnk"
in your copy command

[claus1953]

looks perfect...

just a small recommendation:
you can make your script OS language independent by using
SystemPath("ProgramsMenu") \ "Titanium Theme Changer.lnk"
in your copy command

Thanks a lot for your help, just a question more, instead of Storage Card what could i use to make it language independent?

[RoryB]

RegRead("HKLM", "System\StorageManager\Profiles\SDMemory", "Folder")
gives name of storage card

[egoist6]

Thanks a lot for your help, just a question more, instead of Storage Card what could i use to make it language independent?

sorry, my post was misleading. i meant the target not the source:
furthermore the name of the storage card also differs even when using wwe version. you could get the name via registry but that does not always work.
an easy way around this is to run the script from within the directory where your files are, like you are doing already.

consider to change your variable installpath to \Storage Card\TitaniumThemes\apps and move your directory allcprs there.
this way you can access your cprfiles independently of the name of the storage card.

installpath=SystemPath("ScriptPath")
Run (installpath \ "disableTitanium.mscr")

SettingOptions[1]="Install QVGA cprs"
SettingOptions[2]="Install WQVGA cprs"
SettingOptions[3]="Install QVGA square cprs"
SettingOptions[4]="Install VGA cprs"
SettingOptions[5]="Install WVGA cprs"
SettingOptions[6]="Install VGA square cprs"

installfile[1]="QVGA_cprs"
installfile[2]="WQVGA_cprs"
installfile[3]="QVGA_square_cprs"
installfile[4]="VGA_cprs"
installfile[5]="WVGA_cprs"
installfile[6]="VGA_square_cprs"

SetChoiceEntryFormat(28,14)
idx=Choice("Install Titanium Theme Changer","Choose CPR resolution", 0, 0, SettingOptions)

if (idx=0)
exit
endif

Copy(installpath \ "Titanium Theme Changer.lnk", SystemPath("ProgramsMenu"), TRUE )
XCopy(installpath \ "allcprs" \ installfile[idx] \"*.*", "\Windows\", TRUE, TRUE)
Message("install complete")
Run (installpath \ "activateTitanium.mscr")
RedrawToday

[claus1953]

RegRead("HKLM", "System\StorageManager\Profiles\SDMemory", "Folder")
gives name of storage card

Thanks for your answer, would this be ok so?


SCname = RegRead("HKLM", "System\StorageManager\Profiles\SDMemory", "Folder")
Run ("\SCname\TitaniumThemes\apps\disableTitanium.mscr")

SettingOptions[1]="Install QVGA cprs"
SettingOptions[2]="Install WQVGA cprs"
SettingOptions[3]="Install QVGA square cprs"
SettingOptions[4]="Install VGA cprs"
SettingOptions[5]="Install WVGA cprs"
SettingOptions[6]="Install VGA square cprs"

installpath="\SCname\TitaniumThemes\allcprs"
installfile[1]="QVGA_cprs"
installfile[2]="WQVGA_cprs"
installfile[3]="QVGA_square_cprs"
installfile[4]="VGA_cprs"
installfile[5]="WVGA_cprs"
installfile[6]="VGA_square_cprs"

SetChoiceEntryFormat(28,14)
idx=Choice("Install Titanium Theme Changer","Choose CPR resolution", 0, 0, SettingOptions)

if (idx=0)
exit
endif

Copy( "\SCname\TitaniumThemes\apps\Titanium Theme Changer.lnk", SystemPath("ProgramsMenu") \ "Titanium Theme Changer.lnk", TRUE )

XCopy(installpath \ installfile[idx] \"*.*", "\Windows\", TRUE, TRUE)

Message("install complete")

Run ("\SCname\TitaniumThemes\apps\activateTitanium.mscr")

RedrawToday

[bgcngm]

try to get the correct name of your program's window first.
add
delay(5000)
message(activewindow())

to your script

I'm using the right window name... The program is WM5torage, by the way, and window title is WM5torage, but this window refuses to minimize. Do you have any idea why it doesn't get minimized?

[RoryB]

Thanks for your answer, would this be ok soYes, but read egoist6's comments above about not always working.

[egoist6]

I'm using the right window name... The program is WM5torage, by the way, and window title is WM5torage, but this window refuses to minimize. Do you have any idea why it doesn't get minimized?
maybe
minimize(activewindow())

just for testing purposes - is it possible to close the app by close(activewindow())

maybe it is not possible to minimize wm5torage when your device is currently setting up a connection?

[bgcngm]

maybe
minimize(activewindow())

just for testing purposes - is it possible to close the app by close(activewindow())

maybe it is not possible to minimize wm5torage when your device is currently setting up a connection?

Yeap... You're right, when WM5torage is activating/deactivating USB disk mode, the window can't be minimized.... :(

[claus1953]

sorry, my post was misleading. i meant the target not the source:
furthermore the name of the storage card also differs even when using wwe version. you could get the name via registry but that does not always work.
an easy way around this is to run the script from within the directory where your files are, like you are doing already.

consider to change your variable installpath to \Storage Card\TitaniumThemes\apps and move your directory allcprs there.
this way you can access your cprfiles independently of the name of the storage card.


Thanks a lot it works now without any problem, i changed also my other script for theme switching to use the same installpath so it is also language independent, finally everything works smoothly.
The only doubt i have is that i found the "Titanium Theme Changer.lnk" under Windows/Start Menu/Programs/Utilities, so i am not sure if the shortcut was not copied and i copied it manually there earlier, or if the copy ended up there is this possible?

[egoist6]

Thanks a lot it works now without any problem, i changed also my other script for theme switching to use the same installpath so it is also language independent, finally everything works smoothly.
The only doubt i have is that i found the "Titanium Theme Changer.lnk" under Windows/Start Menu/Programs/Utilities, so i am not sure if the shortcut was not copied and i copied it manually there earlier, or if the copy ended up there is this possible?

if you check your copy path by executing
message(SystemPath("ProgramsMenu"))
you will see where your script copies Titanium Theme Changer.lnk to.

to be 100% positiv delete all Titanium Theme Changer.lnk files from any \windows subfolder and execute only the copy command

[thetechguru]

Here is my S2U2 weather radar update script. It loads the jpg (or png, gif) into the landscape wallpaper of S2U2.


Stolen;) from notiweather.mscr by user schettj

I just discovered Mortscript (known of its existence for years, but never looked into what it could do for me) and started reading this thread to catch up. You have just given me another reason to love S2U2!!!

Alan

[howdykeith]

Hi.

I have been working on updating the Personalizer scripts to have ticker functionality.

This project started as a proof of coolness so Penguin's PhoneAlarm over at PocketMax.net would get this feature. PhoneAlarm is an awesome program and is the only tool which can control my MotoQ Smartphone's bluetooth. lotta words. Not a lotta support yet, still early in the campaign though.

So what Personalizer 3.1 (http://forum.ppcgeeks.com/showthread.php?t=21538) and OpMon (by Emunutz) both do is post to the "Network Carrier" Today screen's network panel. And. It also posts to the incoming and outgoing phone screen. On my phone it used to say "Sprint". Sprint's ok but i dont love their ad. Opmon let's me put my name there, so it can say "Keith's phone". I know that alone is great and for the last year i was happier because of it.

The Personalizer cab won't install on my smartphone, but inside the cab is some most excellent mort scripting. I think the developer must have moved on to the darkside and gotten an iphone or something.

First off, Personalizer had an issue with battery use. It posted to the registry every few seconds, even if the Network Carrier was not visible.

I have updated the Personalizer script and am posting the update here. That's nice, I know. Enclosed are the replacement scripts for Personalizer as well as a Try the StatusTicker script to see what the new ticker script does. Also enclosed are the opposing kill scripts so u can stop the ticker.

It's only about 80% complete or so.

Features:
Lotsa new bits of info on what was your phone's static network carrier name. Now you get system messages and stuff you need to know right there where you can see them at a glance.

Not only does it display on the home screen panel, but also tickers on your incoming and outgoing calls. I know, sweet.

It only works when you want it to. If you can't see the info the ticker sleeps.

Low battery warning

It reads info from PocketMax PhoneAlarm, Ilium Newsbreak, and Modaco Cameraware.

Now playing track info from windows mediaplayer.

Works on PPC as well as SMartphone.

Alternate builds include, a live stock market info ticker as well as live NFL/Sports scores.

Works on Windows mobile 5 and 6! Take that Titanium.

Whats next?
Suggestions from you.
more text covering all the details. links, people to thank. shout out to mort. maybe some screen grabs of the action.
Couple more apps info to include
Figure out the width of the Network carrier panel on the fly? Can be left justified sometimes or Centered.
Couple more ticker methods rather than just appear. Slide left. Continous news ticker. Slide in and truncate. Arrow slide in and Info stays.
Merge this and the Personalizer install framework and release the new thing on it's own page.

Thanks, Keith.

[claus1953]

if you check your copy path by executing
message(SystemPath("ProgramsMenu"))
you will see where your script copies Titanium Theme Changer.lnk to.

to be 100% positiv delete all Titanium Theme Changer.lnk files from any \windows subfolder and execute only the copy command

Checked it several times and the shortcut does not get copied anywhere. The rest works very well...

[egoist6]

Checked it several times and the shortcut does not get copied anywhere. The rest works very well...

sorry, my fault:
Copy(installpath \ "Titanium Theme Changer.lnk", SystemPath("ProgramsMenu") \ "Titanium Theme Changer.lnk", TRUE )

[howdykeith]

Hi,

So I have a Smartphone with Non-Microsoft bluetooth stack. There are no togglers available that work on my phone.

PocketMax PhoneAlarm is the only app that can turn on and off the bluetooth on my phone. But just how close to a command line toggle could I get with PA? I wrote couple scripts that seem to work.

PBTtoggle.mscr and PBTtoggle.exe operate as intended. I made the exe with VipMSCRexe (http://forum.xda-developers.com/showthread.php?t=399276).
PaBToffReg.mscr and PaBTonReg.mscr are installed in the run application setting for the respective on and off profiles. I use "Home" for off, and "Car" for on. All they do is set the registry for the PBTtoggle.mscr so it can check if the reg BT is already on/off.

Far as I know this is the first command line bt toggler solution available for sp's with the non microsoft BT stack. finally. Of course thanks to Penguin and PA.

The PPC version of PhoneAlarm already has a bluetooth toggle command line, while the smartphone does not yet. Penguin says it is planned for the next release.

++

Here is a script i wrote for PA that automatically turns on the bluetooth on an incoming call.

This can be added to a PA profiles' run application option.

Of course my phone has a window that says "Phone - Incoming...", other phones may have a different window title. If you ignore the phone call that window hides in the background so shutting the bluetooth off automatically is tricky. I did set the script so it turns off bluetooth if you look at "Call History". There may be a better way to know the call has ended. I am not sure the "Phone - Incoming" window closes after you exit the call.

To kill the script, you can also witch to a different profile than "Car=On" or the profile that was active when you ran the script.

If you do add the command line option for BT toggle, I can just turn bt on without switching profiles to Car.

I also updated the Status script to add the BT on Call message, but disabled it in the general release until I or someone cares. PocketMax says this is already integrated into their next release, "Activate on incoming call".
* PaBTonCall.zip (2.73 KB - downloaded 3 times.)


++

I think parts of the bluetooth on incoming call could be modified to work without PhoneAlarm, like detecting an incoming call, but for me I always need PHone Alarm to turn on bluetooth. I may rewrite it just to see how well it can work. I also want to try answer phone call automatically, so I will be back in there.
--

Let me know if there are any questions... :rolleyes:

[howdykeith]

Hi.

So I think I have made some improvements on my StatusTicker script.

The last version used the "Appear" method of showing messages. This build adds the "StepIn" method of scrolling the message from the right. New forms of scrolling can be added.

Version d is a scroller that scrolls around so longer messages can be passed through. Then adding the stock ticker.

This version adds monitoring for Yomo media's RSS reader.

After Stock ticker comes RSS Headers and word of the day or somethin. Also want the local weather to scroll through.

I added Codybear's "The True ActiveSync Fix" monitoring in the next build already. (http://forum.xda-developers.com/showthread.php?t=528141)

[solapathy]

I have an HTC Touch Pro 2 (CDMA)-Sprint . I was wondering if anyone could create a simple mortscript that would disable the power button when the keyboard is slid out.

I have no idea where to start with Mort. The way they have the power button situated, you wrap your fingers right where the power button is on the TP 2 when you are typing. It's unnerving!

Any help would be greatly appreciated!

[howdykeith]

Here is version d.

This version adds the Tape Ticker. It's difficult to get the width correct, as the letters vary in width.

Added the Auto Turn on Bluetooth on call info.

Once I get the Internet detection routing right I can add the Stocks/football/ebay infos. I probably will get the stock ticker functioning and then move on to weather ticking.

++

I am curious if mortscript can send myself a txt msg with urgent so Microsoft Voice command reads it aloud. I think MobiTNT virtual caller can post msgs, but I dont know if it can do command line msging. It might be good for at least testing if it works. >> Send myself a Ugent text msg and have Voice command read it <<

[egoist6]

I have an HTC Touch Pro 2 (CDMA)-Sprint . I was wondering if anyone could create a simple mortscript that would disable the power button when the keyboard is slid out.

I have no idea where to start with Mort. The way they have the power button situated, you wrap your fingers right where the power button is on the TP 2 when you are typing. It's unnerving!

Any help would be greatly appreciated!

see here (http://forum.xda-developers.com/showthread.php?t=546094)

[howdykeith]

Hi,

Me again,

This update to StatusSticker brings it to version 3.2e

Preliminary Weather and Stocks. I don't think stocks are working right. I don't like the internet connect methods yet.

To get the weather, rather than inject more code into my own, I am going to see which external scripts I can access that the user might already be running. For example my script is calling the S2U2 weather script "notiweather.mscr". Right now I am just enclosing notiweather.mscr, but we could just find the existing s2u2 and use that one. Although I could do that inna jiffy, I couldnt test it so I will hold off until I can find a volunteer using s2u2weather.
Knowing which weather apps are installed would allow us to grab the pre existing location setting rather than have to ask for it. The zip code for the weather may also be stored in the owner info or from a couple other apps that store that in registry.

Version f might separate the files more. Might need to take the items out of a case statement.

There is also a Pop in style of tickering but that dont work yet. You can take a look at it if u like cause its in there.

This is the internet build. it does try and connect to the internet to grab the tiny bits of info.

This brings up the install method, were it to come to that. There probably will be a lot of choices as to which sets plugins will be used. Internet or no internet. So can i copy concatenate pieces to form the new script. sounds easy enuff. Or More than likely i can seperate them by section and have blank script stubs in place of the deselected options. The weather and stock modules are fairly small, but an RSS header script would more than double the existing code.

Thanks.

[dagosjt]

Hello howdykeith,
I made something similar to you (collection of scripts needed to be "linked" each other) and I wrote and shared this:

http://forum.xda-developers.com/showthread.php?t=564339

Maybe can be useful for you (at least like ideas).

If you like, feel free to extend my "script suite"

[howdykeith]

Hi,

So I have looked at your script suite and I am very interested in plugging some in to my ticker.

From your link I get info, but I dont know what I am looking at. Are there screenshots? I think i see a few screenshots at http://www.lakeridgesoftware.com/forum/showthread.php?t=15662 .
I take it that where it says "No Network", that is where my scroller should be appearing...

I also see that your scripts rely on the download method of grabbing rss. I have to see about switching them to getstream. I have a smartphone so they won't run out of the box. Heck there are exe s in there, i doubt they r gonna work on my wm5 phone. but if they did work that would be ok too.

I am scrutinizing my options...

Thanks

Keith

[dijor69]

Hello, as you might compare a variable containing a string with a string, and change the value of the variable?

For example:
If (day[week]="monday")
day[week] = "Lunes"
EndIf

This is wrong, and gives me error comparating two string values with numerical operator. Use 'eq' instead. As used eq? Please an example

EDITO: Simple replace = for eq:o

[howdykeith]

If (day[week] eq "monday")


Yup, that should fix it...

[howdykeith]

Hi,

Here is version 3.2f of StatusTicker.

This version adds Now Playing support for Nitrogen (http://forum.xda-developers.com/showthread.php?p=3914093); Paused, Artist name, Track elapsed....

If it's not working you will need to tell me...

Have to make language files too?

Lot's of other fixes and stuff to make it more pleasant esthetically.

Once this thing has it's own install files and shortcut lnks exactly like Personalizer does, then I guess we could call it released. Til then here?

Thanks!

Keith

[howdykeith]

And version g arrives.

This adds support for Klaxon (Are people still using it?)

And mcc MobileFinder (http://www.mobile-cc.ch/mccProdukte/mccMobileFinder/tabid/140/Default.aspx)

Also the ticker method "Flash" has arrived.

Also in the zip there's a image so u can see where the ticker will be at, the "No Service" message.

Keith

[howdykeith]

Hi,

Here is version StatusTicker 3.2h

This almost fixes the stocks.

It adds Full Moon Info, thanks to dagosjt.

Pulled the weather and moon parse out of the loop to lessen CPU load.

Might add RSS next.

Keith

[dagosjt]

Hi,

So I have looked at your script suite and I am very interested in plugging some in to my ticker.

From your link I get info, but I dont know what I am looking at. Are there screenshots? I think i see a few screenshots at http://www.lakeridgesoftware.com/forum/showthread.php?t=15662 .
I take it that where it says "No Network", that is where my scroller should be appearing...

I also see that your scripts rely on the download method of grabbing rss. I have to see about switching them to getstream. I have a smartphone so they won't run out of the box. Heck there are exe s in there, i doubt they r gonna work on my wm5 phone. but if they did work that would be ok too.

I am scrutinizing my options...

Thanks

Keith

Hello Keith,
first of all, congratulations for your job, great idea. I'll try just after I re-install and re-check all my programs after switch to WM 6.5.
About your questions:

1- Don't worry about exe, they are VIPMscr.exe renamed because I need them as exe in WAD2. They simply launch the corresponding mortscript giving plus the option to pass more than one parameter. But I think you can use scripts as they are for your scope.
2- The screenshot you saw is how I applied the scripts in a WAD2 skin to see much more info than WAD2 itself can offer. The "No Network" string refers to WiFi, so it means in that moment I wasn't connected to WiFi. The carrier string is "3G Vodafone IT", on upper right corner.

Just as suggestion, I think another good information you could use is given by my cellid scripts under "Location" folder. Location.mscr show current cellID-LAC, while saveLocation.mscr let you save the information in a "human readable" string. So if you save you cellID-LAC as "Work" or "Home", next time you'll be again in that location in registry you'll see "Work" or "Home"...

Let me know if you need help :)

[howdykeith]

This is just a tifbit of code somebody may appreciate.

I wanted my script to go to the home page.

run( "\Windows\Home.exe" )

Works pretty good...

[howdykeith]

Hi,

In case you want to open an image with Mortscript,

Run( "\Windows\Pimg.exe" , "\Storage Card\Hot Chixx\Helga.jpg")


I have a wm5 smartphone and pimg.exe is the default image viewer.

You will need to change your image folder name parameter unless you have the same folder...

[egoist6]

Hi,

In case you want to open an image with Mortscript,

Run( "\Windows\Pimg.exe" , "\Storage Card\Hot Chixx\Helga.jpg")


I have a wm5 smartphone and pimg.exe is the default image viewer.

You will need to change your image folder name parameter unless you have the same folder...

yeah,
we all did not know that.

in case you want to put a message on the screen to say hello world

message("Hello world")
:rolleyes:

[howdykeith]

Not sure I follow you.

Did you see how to open an image in the Mortscript manual? Or was it somewhere else on a forum?

I have read the manual and probly most mortscript posts on this forum and did not see that mentioned.

I would appreciate if you could let me know where that is posted.

Thanks for commenting!

I also tried to answer your post on the mortscript board. Did that answer your problem?

[egoist6]

Not sure I follow you.

Did you see how to open an image in the Mortscript manual? Or was it somewhere else on a forum?

I have read the manual and probly most mortscript posts on this forum and did not see that mentioned.

I would appreciate if you could let me know where that is posted.

Thanks for commenting!

I also tried to answer your post on the mortscript board. Did that answer your problem?

i didn't mean it rude - just a little bit sarcastic.
of course you won't find it in mortscript because the manual would only to tell you in general HOW to execute ANY program.
for sure it can not show you how to open images or open new sms or open new email or sync your device or open a pdf document or start a phone call or open calendar in month's view or open camera in video mode or or or...

on the other side it is well known how to open images.
but as said my post is not meant to be rude.


i appreciate that you answered my other post. unfortunately this was not what i meant.

let's take your example:
variable[1] = "Run"
variable[2] = '("\Windows\Pimg.exe" , "\Storage Card\Hot Chixx\Helga.jpg")'
mycommand = join(variable)

the question is how to execute the command which is stored in variable "mycommand".

(i know of a workaround to write it into a seperate file and execute)

[egoist6]

one of the biggest lack of mortscript is still the missing operation with arrays.
to sort an array is still a challenge.
i am about to finalize my own collection of arrayfunctions and want to share it with you and hope to get feedback as to where we can make them even smarter and faster.


the collection comprises:

ArraySort()
Sorts array by quicksort algorithm. It uses another function i have written IsLess. Here you can even change the order of characters so that you can determine how to sort an array.


ArrayCompress()
deletes empty items and extracts ""-value items from array
Function returns two arrays:
<Array_Result>[1] = sorted items as an array
<Array_Result>[2] = contains ""-value items as an array
Background Information: Empty items may still be needed when using in combination with certain functions (like findwindows()) as Mortscript stores additional information along with ""-value items (e.g. VarType)


ArrayAppend()
Append an array to another


ArrayInsert()
Inserts an array into another one at a specific position.

you'll find all array functions and IsLess() in the attached file.

usage:
Include(ArrayFunctions.mscr)
result = @name_of_function(parameter)

If based on your parameter the result is empty, these functions always return an empty array. This is usefull if your next expression is elementcount(result) or maxindex(result) as it results to 0 instead of an error.

usage for each function is also included in the attached file.

requirements: mortscript 4.3b7 or higher

[howdykeith]

Hi,

Why join them?

Can't you just
If (variable[1] eq "run")
run(variable[2])
EndIf


Also:
Excellent array functions.
The point to posting how to open an image is so that if I had to figure it out again, I could find the answer here much quicker. And if It takes me an hour to figure it out, for sure it is gonna take someone more nube ish even longer. Many apps take a parameter, but it is preceded by "/url=" or some other parameter prefix.

[egoist6]

Hi,

Why join them?

Can't you just
If (variable[1] eq "run")
run(variable[2])
EndIf


of course there are many other ways of doing it more easily.

the reason for my question is that i have quite a complex switch and if-structure. i would have to create another one just for executing one single command.
the idea is to get required values right in the first if/switch structure, store them in a variable so that if you need them you instantly have them (instead of running through another if/switch structure).

[howdykeith]

Hi.

I think I get the gist of what u r trying to do. I suspect if i looked at the code i would end up with the same issues. If you want an extra set of eyes i would be glad to try and help.

-----------------------------------------------------

And back to my problems.

So here is version StatusTicker 3.2i.

Hopefully I optimised the MoonPhase script a little bit. I can't figure out why I had to hard code the registry path to the moon data.

Both the Moon app and the Weather app auto update as they were originally intended. Also there was an extra "item" in the Moon url.

Seperate ini file. Put your zip code and Stocks info in there. Currently set to LA (91335) and Yahoo.

I plugged in the Location script but the exe just locks up on my smartphone. Need to know what the requirements are before making it on by default.
Location is set to off by default. If you would like to turn it on, or try to, run the "StatusLocationInstall.mscr". If it completes it will tell you, if the script doesnt complete, I guess It stays off for you. I could send another stub script out to try and kill the locked up rklocator.exe. A successful install and we could close the termination stub.

Next i fix the voice messages and maybe add a frequent missed call flash alert. Can I get a earthquake alert? How about humidity?

----------------------------------------------------

Also on the plate I am trying to automate opening an image with the image app and setting it to background. I got the right softmenu to popup and move the cursor to the right place but I cant press SendOk there. Also there is a shortcut "u" but I can't sendkeys "u".

Anybody have a clue?

Keith


Seems I have an xtra [Stocks] in the ini. If you move yahoo to the other Stocks and delete the empty one, it should work. i will update that in the next update. Which does also include Dashwire monitoring.

[JZ SmartMort]

Also on the plate I am trying to automate opening an image with the image app and setting it to background. I got the right softmenu to popup and move the cursor to the right place but I cant press SendOk there. Also there is a shortcut "u" but I can't sendkeys "u".

Anybody have a clue?

Keith
Try SendCR instead --- sendOK should rarely be used it's not the right thing in this case.

the shortcut U is not just the U key but ALT-U --- that means
SendAlt("Down")
SendKeys "u"
SendAlt("Up")

[howdykeith]

Hi.

Ok, you pushed me in the right direction and I got my app working.

I present WeathPaper v.95

This app will check the weather and put a corresponding weather picture as your background.

I know, it's been done before. But not on the MotoQ smarthpone.

in the ini file you will need to edit your zip code under the weather, as well as the path to the images. I tried to make the path default to under weathpaper but that took more than a minute so i bagged it this time. Also in there is how often

What to expect?

Well as I mentioned above, it's going to check the weather and select the image that matches the weather and time of day.
Then it's going to open the image and assign it to the background. Here is the stickler. While the rest of this program will run correctly in the background, I still have not figured out the sequence to target the softmenu that pops up directly. So it waits a sec and presses "u". Works great, but I would like to fix that "u".
Right now you can watch it in action. If I get the "u" sorted out we can send it to the background probly and do it there.
If you have some other camera or situation I would be glad to help fit it to yer phone.

If anybody was interested we could change the opacity at this time as well.

The WeatherPaper script which does most of the grunt work I left mostly intact. I just set it to grab the zip code and path from the ini.

Once you run it it will check every 30 minutes unless you change it in the ini.

Landscape 320x240 backgrounds are included. I will post a link to the source when i fill it in.

Thanks, Keith

[dagosjt]

Hi.


I plugged in the Location script but the exe just locks up on my smartphone. Need to know what the requirements are before making it on by default.
Location is set to off by default. If you would like to turn it on, or try to, run the "StatusLocationInstall.mscr". If it completes it will tell you, if the script doesnt complete, I guess It stays off for you. I could send another stub script out to try and kill the locked up rklocator.exe. A successful install and we could close the termination stub.



Yes this is possible, I remember on my old HTC Universal I never was able to use programs similar to rklocator. Instead on Touch HD works flawless, so very probably depends on the phone you have.

I briefly tried your script but failes because mortscript can't find "RegReadExt". I don't have time to check if it's some old syntax (I have Mortscript 4.3b13) or a command different from usual "RegRead".

[howdykeith]

Sorry about the LocationOn script. I am sure it is just sloppy coding. I will fix it in the next update.

Also that weathpaper script is weak and i am fixing it.

Anybody know how to acess the softmenu? the window title is "" which is cause its a sub menu thing of course.

[howdykeith]

Hi,

So here is version .96 of weathPaper.

It's slightly more hearty. It tries to hide when it can.

There is a delay when you run it. This is so it can be run as a startup shortcut. It's all cause of targetting the softmenu's sub menu. If there are other processes this script is going to not succeed.
I may add more clean-up code if there are any residuals.

Now it won't change the image if the current image is still good.

Is there a way to get a reported cpu speed?

[howdykeith]

Hi,

Here's the latest StatusTicker 3.2j

Lots of fixxes.

New Feature:

Dashwire monitoring is enabled if you have it. Of course Dashwire won't be free soon. Now that is a awesome service. (http://www.Dashwire.com)

New Missed call alerts. You can set the frequency in the ini. This is the spot for other important alerts to get in the short line.

Website Monitor. You can edit the StatusTicker.ini file and put the name and URL of the website you want to monitor. If it's not a dynamically generated website it should work.
For example, I really like Palringo messenger (http://www.palringo.com). They update their beta's quite frequently (http://beta.palringo.com). Any day now they will finally add MySpace Messenger and I can rest. Palringo is the default URL it checks, but of course you can put your own URL in.
I will spruce it up in the next version.

In the ini file you will also find the Plugins section where you can turn on and off the plugins.
Stocks are turned off because I disabled the code for a moment. It needs revision to be compliant.
I cant remember at the moment which plugins are functioning yet besides stocks.

I think it must be my goal to use every mortscript command available, whether I want to or not. smiley face?

Yah so fix stocks next. Still want my RSS infos. Alarm function for RSS and missed call. Even though I have Phone Alarm and dont need missed call alerting. More for the WebsMon alerting and RSS.
I may add a new ticker style, some kind of letter jumble. Stop me.
Still have to fix the rklocation installer. I know i messed up something simple.
I doubt using case is the right way to go any more. assign them all to an array? I guess they could get weights there too if need be.

Thanks
Keith

[howdykeith]

this fixes the Weathpaper running on lockscreen for me. If you have some other lock.exe they can be added.

This also fixes the run command so it runs when as often as u want it to.

This also includes a weathPaperStartup script. this on u can shortcut to your startup folder.

[dijor69]

Hello, I'd like to create a script to run at startup with XDA_UC, who asks if you want to copy your sim card contacts to Outlook contacts, in case if they say that if you run. I have a way to create the box, but someone can tell me how to execute comands the copy of the contacts?

[egoist6]

Also on the plate I am trying to automate opening an image with the image app and setting it to background. I got the right softmenu to popup and move the cursor to the right place but I cant press SendOk there. Also there is a shortcut "u" but I can't sendkeys "u".

Anybody have a clue?

Keith


not sure where you want to have that background image. if you want to set it on your home screen you better set background image by:

hkcu\controlpanel\desktop\wallpaper = "name of your image"

[frmariam]

I'm pretty novice with this... I'd like help on achieving something that seems pretty basic.

I wanted to create a script that reads the value of a regkey and writes that value in another key... Value key can be anything so I must really use the read value...

Also how do I read/write *vibrate* or *none*? Tried the following but doesn't work:

"*vibrate*" = RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" )

[Jokes On You]

I'm pretty novice with this... I'd like help on achieving something that seems pretty basic.

I wanted to create a script that reads the value of a regkey and writes that value in another key... Value key can be anything so I must really use the read value...

Also how do I read/write *vibrate* or *none*? Tried the following but doesn't work:

"*vibrate*" = RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" )


if your trying to get your device to vibrate try Vibrate(). Inside of the parentheses should be how long you want it to vibrate for.


Ok Im not sure about this but I think I remember seeing a command to change a line in another script. Does anyone know it or if it even exists? I can't seem to find it

[frmariam]

I'm using an external exe to toggle sound: sound->vibe->mute->sound... each time it's launched.

Thing is my ringtones are in whatever folder I have my music (not in the default one and not in the device memory... I altered the AdvancedConfig xml to allow me to browse for any file I wish). For whatever reason WinMo never returns to my previous music unless it was in the Ringtone or Windows folder (maybe unicode issue seeing how my other drives use chars such as "ã").

Since I'm doing this skin I figure I did a script that properly backs up the song path before it goes into vibe and restores it when it returns to sound:

1- Before I launch the app that toggles the sound mode I need to read the ringtone key and back it up
2- After it comes from mute I need it to read the backup and rewrite the ringtone key.

I can't seem to be getting this the way I've been trying (can't even read the key because it's not numeral or because the *).


PS: This is for a remake of the Today2 for HS++. I like it but it lacks some stuff so I'm trying to replace it in my Omnia.


If someone did such an exe I guess it'd be easier but seing as I can't code this is all I can do...

[howdykeith]

not sure where you want to have that background image. if you want to set it on your home screen you better set background image by:

hkcu\controlpanel\desktop\wallpaper = "name of your image"

That registry setting is only "there".

If you/I change it, that doesn't change the phones background.

Loading it in the image app and choosing Use as Background, that starts the posting.

I am almost done with the next release of weathPaper. This one sets the background as default if weather can't be checked.

I still haven't figured out the targetted softmenu navigation.

[egoist6]

That registry setting is only "there".

If you/I change it, that doesn't change the phones background.

Loading it in the image app and choosing Use as Background, that starts the posting.

I am almost done with the next release of weathPaper. This one sets the background as default if weather can't be checked.

I still haven't figured out the targetted softmenu navigation.

did you refresh your today screen?
i am sure it is stored somewhere in the registry.
there are tools out there where you can make a snapshot from your registry. if you compare them you'll find where it is stored.

[egoist6]

I'm pretty novice with this... I'd like help on achieving something that seems pretty basic.

I wanted to create a script that reads the value of a regkey and writes that value in another key... Value key can be anything so I must really use the read value...

Also how do I read/write *vibrate* or *none*? Tried the following but doesn't work:

"*vibrate*" = RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" )

if you want to store the value in a variable:
soundstate = RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" )

if you want to write it elsewhere:
RegWriteString( "HKCU", "MyPath\MySubPath", "Sound", soundstate )

[howdykeith]

did you refresh your today screen?
i am sure it is stored somewhere in the registry.
there are tools out there where you can make a snapshot from your registry. if you compare them you'll find where it is stored.

I am fairly certain the refresh function is not stored in memory.
Reviewing posts over at mortscript forum, other people found this out as well. RedrawToday sounds nice, but doesn't function as you might hope/expect.
According to microsoft developer site there is a "magic" refresh command.

How do I target softmenu sub-menus?

[Jokes On You]

Does anyone know if it is possible through parameters to link to the missed call list? Also Im not sure about this but I think I remember seeing a command to change a line in a script with another script. Does anyone know it or if it even exists? I can't seem to find it

[RoryB]

I am fairly certain the refresh function is not stored in memory.
Reviewing posts over at mortscript forum, other people found this out as well. RedrawToday sounds nice, but doesn't function as you might hope/expect.
According to microsoft developer site there is a "magic" refresh command.

How do I target softmenu sub-menus?

SendMessage( HWND_BROADCAST, WM_WININICHANGE, 242, 0 )But I think it stopped working in MortScript ver 4.3b11

[frmariam]

Thank you man! I've learned some cool basics now :)

Anyway here's the script that uses sound.exe to toggle sound and perfectly backups and restores your ringtone ( even if you change the Ringtone :) ):



If ( NOT ("*none*" eq RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" )) AND NOT ("*vibrate*" eq RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" )))
soundbackup = RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" )
RegWriteString( "HKCU", "ControlPanel\Sounds\RingTone0", "SavedSound", soundbackup )
EndIf


If ( "*none*" eq RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" ))
soundrestore = RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "SavedSound" )
RegWriteString( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound", soundrestore )
EndIf


run( "\Programas\Homescreen PlusPlus\omnia\apps\sound.exe" ))

[egoist6]

Does anyone know if it is possible through parameters to link to the missed call list? Also Im not sure about this but I think I remember seeing a command to change a line in a script with another script. Does anyone know it or if it even exists? I can't seem to find it

\Windows\LaunchMSitem.exe CALLHISTORY_MISSED

if your device does not have this exe file, i am sure you can find it somewhere here

[egoist6]

I am fairly certain the refresh function is not stored in memory.
Reviewing posts over at mortscript forum, other people found this out as well. RedrawToday sounds nice, but doesn't function as you might hope/expect.
According to microsoft developer site there is a "magic" refresh command.

How do I target softmenu sub-menus?

i wanted to say that the information regarding the wallpaper is stored in the registry...

[egoist6]

Thank you man! I've learned some cool basics now :)

Anyway here's the script that uses sound.exe to toggle sound and perfectly backups and restores your ringtone ( even if you change the Ringtone :) ):



If ( NOT ("*none*" eq RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" )) AND NOT ("*vibrate*" eq RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" )))
soundbackup = RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" )
RegWriteString( "HKCU", "ControlPanel\Sounds\RingTone0", "SavedSound", soundbackup )
EndIf


If ( "*none*" eq RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" ))
soundrestore = RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "SavedSound" )
RegWriteString( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound", soundrestore )
EndIf


run( "\Programas\Homescreen PlusPlus\omnia\apps\sound.exe" ))



just as a tip: try to read the same regkey just once:


soundbackup = RegRead ( "HKCU", "ControlPanel\Sounds\RingTone0", "Sound" )
If ( soundbackup ne "*none*" and soundstate ne "*vibrate*")
RegWriteString( "HKCU", "ControlPanel\Sounds\RingTone0", "SavedSound", soundbackup)
EndIf
...

[RoryB]

i wanted to say that the information regarding the wallpaper is stored in the registry...When working on the weather wallpaper routine I found that the image you select as a wallpaper gets copied to be "\Windows\tdywater_240_320.jpg" and "\Windows\tdywater_320_240.jpg" and that is what is actually being viewed as the wallpaper.
Previously I tried changing the registry value, but it did not work.
"HKCU", "\Software\Microsoft\Today", "Wall" is where the name of the file being used as a wallpaper is stored.

[nanomite]

Hi,

When I run a Mortscript the scrren flashes white, is this normal?

Is there anyway to stop this?

Thanks in advance

[howdykeith]

Try SendCR instead --- sendOK should rarely be used it's not the right thing in this case.

the shortcut U is not just the U key but ALT-U --- that means
SendAlt("Down")
SendKeys "u"
SendAlt("Up")

Oh. Okay...

Lets open up an image and set it to the background (on my motoq smartphone)


Run( "\Windows\Pimg.exe" , "\GFonCouch.jpg")

WaitFor( "GFonCouch", -1 )

#Alt-Down
SendRightSoft(GFonCouch, 0,0,1)

sleep(80)
SendKeys ("u")

#Alt-Up
SendRightSoft(GFonCouch, 0,0,0)



I had tried that before but the syntax threw me.

Works now.

Thanks much...

[howdykeith]

When working on the weather wallpaper routine I found that the image you select as a wallpaper gets copied to be "\Windows\tdywater_240_320.jpg" and "\Windows\tdywater_320_240.jpg" and that is what is actually being viewed as the wallpaper.
Previously I tried changing the registry value, but it did not work.
"HKCU", "\Software\Microsoft\Today", "Wall" is where the name of the file being used as a wallpaper is stored.

Ok.

And if i change the stwater image, that only changes it on reboot.
Refresh must be issued and the magic command doesn't work in Mortscript.

So i have to open up the image prog and do it like i was progressing towards.

Correct me if I am wrong... please....

thanks

[RoryB]

Ok.

And if i change the stwater image, that only changes it on reboot.
Refresh must be issued and the magic command doesn't work in Mortscript.

So i have to open up the image prog and do it like i was progressing towards.

Correct me if I am wrong... please....

thanks
I believe tdywater is the watermark for the today screen and stwater is the start menu watermark. What I have noticed is the stwater makes the start menu look like it is transparent because the today screen image shows on it too. If you use tdywater then the start menu looks like it did before changing tdywater.
This is how I change the today background to have the weather icon, but the start menu is still my basic black of the original today background.

I just use RedrawToday now

[howdykeith]

I see.

I wonder if the refresh sendmessage will be reimplemented in the future.

Although opening the picture app worked, I will revert to a version of mortscript that can refresh.

Thank you very much for enlightening me.

I am working on two other apps that make use of the softmenu navigation so it's all part and parcel.

[egoist6]

I believe tdywater is the watermark for the today screen and stwater is the start menu watermark. What I have noticed is the stwater makes the start menu look like it is transparent because the today screen image shows on it too. If you use tdywater then the start menu looks like it did before changing tdywater.
This is how I change the today background to have the weather icon, but the start menu is still my basic black of the original today background.

I just use RedrawToday now

you're right. i forgot. it gets copied as stwater_... and only the name of your current background image file is stored in HKCU\Software\Microsoft\Today\Wall if you set your background by pimg.exe or through settings -> home


however, changing background image for task bar and softkey bar works by changing the following keys:

HKCU\Software\Microsoft\Today\SoftKeyBar\SoftKeyBa rThemeImage
HKCU\Software\Microsoft\Today\TaskBar\TaskBarTheme Image

but this is WM 6.5 related, not sure about 6.0/6.1. if i remember, you can not change background of both bars in 6.0...

if refresh is not working for you, you still have the option to create a cab and install it with cusTSK.exe.

[RoryB]

however, changing background image for task bar and softkey bar works by changing the following keys:

HKCU\Software\Microsoft\Today\SoftKeyBar\SoftKeyBa rThemeImage
HKCU\Software\Microsoft\Today\TaskBar\TaskBarTheme Imagebut this is WM 6.5 related, not sure about 6.0/6.1. if i remember, you can not change background of both bars in 6.0...These values do not exist in 6.1, but I think you can change the color of the two bars with other values in there.

[howdykeith]

Yes this is possible, I remember on my old HTC Universal I never was able to use programs similar to rklocator. Instead on Touch HD works flawless, so very probably depends on the phone you have.

I briefly tried your script but failes because mortscript can't find "RegReadExt". I don't have time to check if it's some old syntax (I have Mortscript 4.3b13) or a command different from usual "RegRead".


It seems I was using newer commands.
I will of course downgrade my app...

[howdykeith]

Ok.

http://forum.xda-developers.com/attachment.php?attachmentid=239640&d=1256241235

StatusTicker is over at it's new resting place:

http://forum.xda-developers.com/showthread.php?p=4781595#post4781595

More new features. Preliminary support for AutoFile and AppToDate.

No more ReadRegExt.

[fktoss]

Hi,

I've searched this forum but nothing came up so here goes...I was trying to automate WM6.1 screen alignment process. I can bring the app (Start->Settings->System->Screen) just fine. Once the screen alignment app started, my subsequent MouseClicks were ignored or rather on-hold. So the screen alignment app just sit there waiting for actual screen touches. The question is then...Is MouseClick not working (register to the system) while running screen alignment?

TIA,
Cheers :D

[ChefChaudart]

Hello,

I got a script to run Igo, but as this program requires many RAM, I wonder if it is possible to kill "SPB Mobile Shell (http://www.spbsoftwarehouse.com/pocketpc-software/mobileshell/)" in a script, and restart it at then end of Igo.

I tried ;
kill MobileShell.exe but it doesn´t work.

and ;

Close ("MobileShell.exe")

says it doesn´t exist !?

Cheers.

[RoryB]

I did something similar to what you want with Manila2D to stop it when I opened internet explorer so I would get more RAM.

Before I found Manilla2D-DevTools to stop M2D I used this
If(ProcExists("manila2d.exe"))
Kill("manila2d.exe")
sleep( 3000 )
endifSometimes it would take a while to work.

You might want try this way if you have a checkbox for mobileshell in the today item settings.
If( RegKeyExists( "HKLM", "Software\Microsoft\Today\Items\TouchFLO" ))
RegWriteDWord( "HKLM", "Software\Microsoft\Today\Items\TouchFLO", "Enabled", 0 )
RedrawToday
EndIf
If(ProcExists("manila2d.exe"))
Kill("manila2d.exe")
sleep( 3000 )
endif

[sudist]

Hello,

I got a script to run Igo, but as this program requires many RAM, I wonder if it is possible to kill

Either use
Kill ("MobileShell.exe")
Rotate (90)
Runwait ("PARTH TO IGOO")
Run ("PATH TO MOBILESHELL")

Or use RAMSWEEPER :p

[Jokes On You]

Does anyone know of a way to display the time of the last incoming caller. I cant find a value in the registry so im thinking I would have to have a script that monitors cprog.exe the if then missed call registry value becomes one the current time is written.

Also what is the parameter to link to an unread message? I know A_C is able to do it but I havent been able to get in contact with him.

[itesla]

Does anyone know of a way to display the time of the last incoming caller. I cant find a value in the registry so im thinking I would have to have a script that monitors cprog.exe the if then missed call registry value becomes one the current time is written or monitor.

Also what is the parameter to link to an unread message? I know A_C is able to do it but I havent been able to get in contact with him.

This isn't very elegant, but you could monitor the missed call count registry. Whenever it changes, you could store the time. This is not tested...


while (1)

If (WndActive("Desktop"))

calls=RegRead("HKCU", "\System\State\Phone\", "Missed Call Count")
if(calls<>old_calls)
oldcalls=calls
GetTime(call_hr, call_min, call_sec)
call_from=RegRead("HKLM", "\System\State\Phone\", "Last Incoming Caller Name")
status="Last call from " & call_from & " at " & call_hr & ":" & call_min
endif
Endif

Sleep (1000)
EndWhile

[claus1953]

I am using this script to refresh CHome as the old command does not work anymore on the newest WM builds. When i use the disable and activate on its own one after the other they work, but in the script not. Did i do something wrong?

installpath=SystemPath("ScriptPath")
Run (installpath \ "disableTitanium.mscr")

sleep(500)

Run (installpath \ "activateTitanium.mscr")

[Jokes On You]

I think I would need to use While seeing as the if would run once. but that is pretty close to what i was expecting to come out.Thanks hope this doesn't have too big on an effect on battery

[egoist6]

I am using this script to refresh CHome as the old command does not work anymore on the newest WM builds. When i use the disable and activate on its own one after the other they work, but in the script not. Did i do something wrong?

installpath=SystemPath("ScriptPath")
Run (installpath \ "disableTitanium.mscr")

sleep(500)

Run (installpath \ "activateTitanium.mscr")

installpath=SystemPath("ScriptPath")
callscript(installpath \ "disableTitanium.mscr")

sleep(500)

callscript(installpath \ "activateTitanium.mscr")

[claus1953]

installpath=SystemPath("ScriptPath")
callscript(installpath \ "disableTitanium.mscr")

sleep(500)

callscript(installpath \ "activateTitanium.mscr")

I tried that and it is like with my previous script, CHome gets disabled and gets not activated anymore. I tried to increase sleep to 1000 and it is the same. When i then run activateTitanium.mscr manually CHome gets on normally.

[egoist6]

I tried that and it is like with my previous script, CHome gets disabled and gets not activated anymore. I tried to increase sleep to 1000 and it is the same. When i then run activateTitanium.mscr manually CHome gets on normally.

just for testing purposes - could you set sleep to 10 seconds?
what happens if you paste both of your scripts into the code above?

please post also your other two scripts.

[dijor69]

Anyone know lead me to create a script to copy the contacts from SIM to contacts in outlook?
Thanks for your work

[howdykeith]

Hi.

http://forum.xda-developers.com/attachment.php?attachmentid=240606&d=1256525054

So now weathPaper resides at its now spot:

http://forum.xda-developers.com/showthread.php?p=4814862#post4814862

Thanks much...

[egoist6]

Anyone know lead me to create a script to copy the contacts from SIM to contacts in outlook?
Thanks for your work

not possible.
you need additional apps for this and they have to support command line.

an ugly way would be to run sim manager and emulate clicks and keypresses

[soldato]

hi all,

i tryed to write a script to enable bluetooth when i start TOMTOM to avoid the annoying problem with "flying mode".

the script is very simple, when i run the script, it first enable bluetooth and then with runwait TOMTOM app, when TOMTOM exits i want to stop bluetooth.

the problem is that i cannot enable/disable the bluetooth status of this device.

i tryed many registry settings and application like bttoggle.exe etc etc etc

can any one help me to toggle the status of bluetooth?


is there another way to avoid the "flying mode" detected by TOMTOM?

regards,Soldato

[trepamuros]

Hello,

I would like to request a simple script from you. I would appreciate it much.

My problem is: When on sunlight, I can't see the screen when I receive a call.

So the script would be somewhat like:

When a phone call is incoming, set backlight to maximum until I push accept/reject call button; then, restore previous backlight setting (or set backlight to 1, which is my default setting).

I tested some of the scripts posted, but none works properly. Maybe because I'm using S2U.

I don't need to keep the backlight active during the call, as S2U forces blank screen; only while ringing is enough.

Using Polaris WM6.1

Thank you very much in advance.

[Jokes On You]

I remember seeing a value that maybe toggled when an incoming call is recieved but I cant seem to find it. This is just a rough idea

OriginalBacklight=10
NewBacklight=100
Value= Key that monitors if call is active.

While(Value = 1)
SetBacklight(NewBacklight)
EndWhile

SetBacklight(OriginalBacklight)

From my understanding of While the action will be continually done until the condition is no longer true so I think would it be better to have the backlight set once inside the While so one of the better scripters can correct this.

[egoist6]

I remember seeing a value that maybe toggled when an incoming call is recieved but I cant seem to find it. This is just a rough idea

OriginalBacklight=10
NewBacklight=100
Value= Key that monitors if call is active.

While(Value = 1)
SetBacklight(NewBacklight)
EndWhile

SetBacklight(OriginalBacklight)

From my understanding of While the action will be continually done until the condition is no longer true so I think would it be better to have the backlight set once inside the While so one of the better scripters can correct this.


OriginalBacklight=10
NewBacklight=100

while (1)
sleep (2000)
If (RegRead("HKLM","System\State\Phone","Active Call Count")=1)
SetBacklight(NewBacklight)
sleep(5000)
SetBacklight(OriginalBacklight)
endif
endwhile

this script checks every 2 seconds if there is a call coming in, increases backlight and reverts to old value after 5 seconds.

but i doubt that this is going to work as backlight does not work properly (at least on my device)

[Jokes On You]

OriginalBacklight=10
NewBacklight=100

while (1)
sleep (2000)
If (RegRead("HKLM","System\State\Phone","Active Call Count")=1)
SetBacklight(NewBacklight)
sleep(5000)
SetBacklight(OriginalBacklight)
endif
endwhile

this script checks every 2 seconds if there is a call coming in, increases backlight and reverts to old value after 5 seconds.

but i doubt that this is going to work as backlight does not work properly (at least on my device)

Thanks for the correction I wouldn't know if the backlight option works seeing as I don't use it. Could it not working be linked to the value or does it just not work period?

[egoist6]

Thanks for the correction I wouldn't know if the backlight option works seeing as I don't use it. Could it not working be linked to the value or does it just not work period?

mort's manual already mentions that some of the values may not be working.
i did some testing a while ago and found out that it does not work at all - no matter which values you use.
there is a registry key somewhere under hkcu\controlpanel\backlight which you can change by yourself. however, it does not change the backlight level.
an the other hand if you change it you can see the new value under settings -> system - power - backlight.
by simply pressing OK it finally changes the backlight level.
this means that there is some more to do rather than just changing the values.

one i know of (but not important for this script) is to reset the timer

[egoist6]

deleted...

[nigelbe]

hi all,

i tryed to write a script to enable bluetooth when i start TOMTOM to avoid the annoying problem with "flying mode".

the script is very simple, when i run the script, it first enable bluetooth and then with runwait TOMTOM app, when TOMTOM exits i want to stop bluetooth.

the problem is that i cannot enable/disable the bluetooth status of this device.

i tryed many registry settings and application like bttoggle.exe etc etc etc

can any one help me to toggle the status of bluetooth?


is there another way to avoid the "flying mode" detected by TOMTOM?

regards,Soldato

Hi,

I use vjvolubilis.exe (http://www.vijay555.com/?Releases:VJVolubilis)

My script also removes "Cannot connect" bubbles.

# TomTomRun.mscr

# I built this on work by a4ace
# initialize values
ErrorLevel("syntax")
vj_exe = "\program files\vijay555\vjvolubilis\vjvolubilis.exe"
ttn_exe = "\Program Files\Navigator\TomTom Navigator.exe"
ttn_ttl = "TomTom Navigator"
intrval = 2000

# turn off connection established notification
mem_conn = RegRead("HKCU","ControlPanel\Notifications\{8ddf46 e7-56ed-4750-9e58-afc6ce486d03}","options")
RegWriteDWord("HKCU","ControlPanel\Notifications\{ 8ddf46e7-56ed-4750-9e58-afc6ce486d03}","options",0)

# Get Bluetooth state
mem_blue = RegRead("HKLM","\System\State\Hardware","Bluetooth")

# adjust volume
mem_vol = RegRead("HKCU","ControlPanel\Volume","Volume") * 255/ 4294967295
SetVolume(255)

# launch tomtom
Run(ttn_exe)
WaitFor(ttn_ttl, 30)

# keep tomtom active
While(WndExists(ttn_ttl))
If( ActiveProcess() eq "remnet.exe")
Kill("remnet.exe")
EndIf
Sleep(intrval)
EndWhile

# replace changed values
RegWriteDWord("HKCU","ControlPanel\Notifications\{ 8ddf46e7-56ed-4750-9e58-afc6ce486d03}","options",mem_conn)
SetVolume(mem_vol)
Run(vj_exe, (mem_blue AND 1) ? "-blueon" : "-blueoff")

It needs MortScript version 4.3 or above.

I'm sorry, I can't help with "flying mode" :(

All the best ...
Nigelbe

[soldato]

ok, but do you use it on an ipaq hw6915?

because i tryed vjvolubilis.exe and it doesn't work on my device.

regards

[nigelbe]

ok, but do you use it on an ipaq hw6915?

because i tryed vjvolubilis.exe and it doesn't work on my device.

regards

Oh dear, that is a bummer :o

I found this though:


public class iPAQ
{
[DllImport("ipaqutil.dll", SetLastError = true)]
static extern bool iPAQSetBlueToothRadio(ref int status);

public iPAQ()
{

}

public bool BluetoothOn()
{
int ret = Convert.ToInt32(true);

if (iPAQSetBlueToothRadio(ref ret) == false)
{
return false;
}
return true;
}
}


from: http://www.pinvoke.net/default.aspx/ipaqutil/iPAQSetBlueToothRadio.html

You should be able to make a little utility to do the job.


All the best ...
Nigel.

[dijor69]

not possible.
you need additional apps for this and they have to support command line.

an ugly way would be to run sim manager and emulate clicks and keypresses


Thank you for your attention, it's interesting that you can emulate clicks, investigare about this

[vectorbl]

Please, i need help to do a mortscrip file to toggle the profile in sbsh phoneweaver.

I did a script to switch from a status to another (toggle funtion beetween 2 defined profiles) but for sure i did some mistake.
this is the script:
---------------------------------
value = RegRead ("HKLM","Software\Microsoft\Today\Items\PhoneWeaver","RunningProfileName")
# change profile from Mute to Day
if ( value eq Mute )
Run( "\Windows\PhWeaver.exe", "103" )
Endif

value = RegRead ("HKLM","Software\Microsoft\Today\Items\PhoneWeaver","RunningProfileName")
# change profile from Day to Mute
if ( value eq Day )
Run( "\Windows\PhWeaver.exe", "100" )
Endif
exit
----------------------------------

I did attach 2 images for both condition in the registry.
Here below the rules indicated in the phoneweaver manual:

8. Command line mode
PhoneWeaver main control parameters can also be used in command line mode. This is very useful in order to integrate PhoneWeaver with programs like iLauncher or MortScript among others.
We can select manually a profile, return to automatic mode or turn ON/OFF/TOGGLE the state of several parameters.
For using the command line mode we will executer from the script or main program:
\Windows\PhWeaver.exe xxx
Being xxx one of the following commands:
100 – 199 Switch to profile 0 – 99 in “manual” mode.
Profile_name Switch to profile in “manual” mode.
500 Returns to automatic profile mode.

910 WIFI ON
920 WIFI OFF
930 WIFI toggle

911 Bluetooth ON
917 Bluetooth ON Discoverable mode
921 Bluetooth OFF
931 Bluetooth toggle
937 Bluetooth toggle Discoverable mode

912 Phone ON
922 Phone Off
932 Phone toggle

913 Push email ON
923 Push email OFF
933 Push email toggle

914 Cellular data call ON
924 Cellular data call OFF
934 Cellular data call toggle

915 Lock profile ON
925 Lock profile OFF
935 Lock profile toggle

Some registry entries allow PhoneWeaver to be monitored with third party utilities. Under HKLM\Software\Microsoft\Today\Items\PhoneWeaver the following keys are available:
RunningProfile: Will give you a 0 based index of the profile currently active. The order is the one selected in PhW options. I know it is not the name, but it is available now.
RunningProfileName: The name of the running profile
RunningProfileType: The Trigger type of the running profile (0=Manual,1=Timed,3=Power,4=Agenda)
ManualProfile: If this value is the same than "running profile" means that the current profile has been manually selected.
ManualTimeOut: Time to cancel an Timaed manual profile. Format is Time = (DATE) (float)ManualTimeOut:/10000;
locked: If it is at "1", current profile is locked.

Unfortunately in this software there ins't any option to do a toggle from 2 defined profiles.

Many many thanks for your help

[egoist6]

there are quotation marks missing within the if statement.
i have optimized your script a little bit:

value = RegRead ("HKLM","Software\Microsoft\Today\Items\PhoneWeaver","RunningProfileName")
if ( value eq "Mute" )
Run( "\Windows\PhWeaver.exe", "103" )
elseif ( value eq "Day" )
Run( "\Windows\PhWeaver.exe", "100" )
Endif

[vectorbl]

@ egoist6
FANTASTIC many thanks for your support, now this script works like a charm !!!:D:D:D
Thanks also for the optimization ! :)
I'm a beginner and it's nice to learn from you all.

[howdykeith]

Hi,

In case you want to open an image with Mortscript,

Run( "\Windows\Pimg.exe" , "\Storage Card\Hot Chixx\Helga.jpg")


I have a wm5 smartphone and pimg.exe is the default image viewer.

You will need to change your image folder name parameter unless you have the same folder...

Another alternative is to just:

Run("\Storage Card\Hot Chixx\Helga.jpg")



This will open the image with the default image app. For me the .gif image will open up with IExplore. If you use the default image app gif images won't be animated, iexplore will show the animated view.

[howdykeith]

Hi,

this is to let you all know bout a app i am working on called backGrounder. It is a Startup/Shutdown image selector. It changes the 2 startup images and the 2 shutdown images.

You can check it out over here:

http://forum.xda-developers.com/showthread.php?p=4855888

Next version will go for changing the incoming call xml. Also a background changer for start menu folders.

Thanks!
Keith

Happy Halloween!

[bkress]

I have a script I have been working with to set up reminders for SMS, MMS, Voice Mail, Missed Calls, Email, and Calendar Reminders. Unfortunately though, when the screen turns off, the script stops behaving as it should. The PlaySound() command isn't working at all for me once the screen is off. When the screen is on, everything works as it should. The weird thing is that it will sometimes vibrate when the screen is off, but not at the interval I have set for it to (20 seconds for testing purposes) and pretty random really. Sometimes it might sit for 10 minutes, then all the sudden it will vibrate for a second... Does anybody have any ideas?

I am currently running the latest EnergyROM with WM 6.5 and Mortscript 4.3b. The script is located on my storage card with a shortcut in the StartUp folder. Am I just having problems because the script and the WAV sound are stored on the storage card? Any help would be greatly appreciated since I have only been MortScripting for about a week now.

Thanks in advance,
bkress


Here is my script.
#####BK Repeat Notifications#####
While(1)
####Delay Time#####
Sleep(20000)

#####Detect Call In Progress#####
ACTIVECALL = RegKeyExists("HKLM","System\State\Phone\Active Call Count")

#####Notifications In registry#####
SMS=regread("HKCU" , "\System\State\Messages\sms\Unread","Count")
MMS=regread("HKCU" , "\System\State\Messages\MMS\Unread","Count")
VOICE=regread("HKCU" , "\System\State\Messages\vmail\Total\Unread","Count")
CALLS=regread("HKCU","\System\State\Phone","Missed Call Count")
##EMAIL=regread("HKCU" , "\System\State\Messages\totalemail\Unread","Count")
##REMINDERS=regread("HKCU" , "\System\State\Appointments\List","Count")

#####If No Calls Taking Place And Have Notifications#####
If(NOT ACTIVECALL)
##if(SMS > 0 || MMS > 0 || VOICE > 0 || CALLS > 0 || EMAIL > 0 || REMINDERS > 0)
If(SMS > 0 || MMS > 0 || VOICE > 0 || CALLS > 0)
#####Sound Path#####
PlaySound("\Storage Card\Program Files\BK MortScript\REMINDERS\NEO_Sound.wav")
Vibrate(1000)
EndIf
EndIf
EndWhile

[egoist6]

you need to know that WM stops executing applications when the screen is turned off or a couple of minutes later (you can try that by executing a script that writes the timestamp into a file. turn the screen off and check the file after half an hour. you will see that your script will stop after a certain delay.)

however, there are apps that are working allthough the screen is turned off. these apps request the UNATTENDEDMODE thus WM OS let them continue executing while others are stopped. mdeia player is a good example for this.

the odd behaviour you have might be explained as follows.
apps that are allowed to run while your device is turned off wake up your device, e.g. you receive an sms. from now on your device continues executing your script until it goes into standby mode again and stops your scripts.

[sudist]

Unfortunately though, when the screen turns off, the script stops behaving as it should. The PlaySound() command isn't working at all for me once the screen is off. When the screen is on, everything works as it should. The weird thing is that it will sometimes vibrate when the screen is off, but not at the interval I have set for it to (20 seconds for testing purposes) and pretty random really. Sometimes it might sit for 10 minutes, then all the sudden it will vibrate for a second... Does anybody have any ideas?

Hello bkress,
I think (let egoist6 confirm this) that you need tu run your script, every 60 seconds by throwing it in the notification queque (with the command "RunAt").
When you've got a reminder, first you wake up your device with "ToggleDisplay( True)" and then you play your sound.

The problem is to get the TIMESTAMP and add 1 minute to it ?

I hope you get your script working properly ;)

[bkress]

you need to know that WM stops executing applications when the screen is turned off or a couple of minutes later (you can try that by executing a script that writes the timestamp into a file. turn the screen off and check the file after half an hour. you will see that your script will stop after a certain delay.)

however, there are apps that are working allthough the screen is turned off. these apps request the UNATTENDEDMODE thus WM OS let them continue executing while others are stopped. mdeia player is a good example for this.

the odd behaviour you have might be explained as follows.
apps that are allowed to run while your device is turned off wake up your device, e.g. you receive an sms. from now on your device continues executing your script until it goes into standby mode again and stops your scripts.

Thanks for the info... That is great stuff.

After doing some more searching about UNATTENDEDMODE, I am still not quite able to figure out what I need to do to set my script into unattended mode. I have not found any threads of anybody successfully setting a MortScript into UNATTENDEDMODE. Really, I just want to know if it is even possible so i dont keep beating my head against the wall from the countless soft-resets due to changing my script so much. If it isn't, then I will go back to the DontForget Reminder software I was previously using... It worked great, I just wanted to see if I could write somethign to do the same thing on my own. Thanks for all of the help,

BK

[bkress]

Hello bkress,
I think (let egoist6 confirm this) that you need tu run your script, every 60 seconds by throwing it in the notification queque (with the command "RunAt").
When you've got a reminder, first you wake up your device with "ToggleDisplay( True)" and then you play your sound.

The problem is to get the TIMESTAMP and add 1 minute to it ?

I hope you get your script working properly ;)

Thanks for the help... I will definitely play with that and give it a shot. Hopefully one way or another I can get a working solution. I will keep you posted...

BK

[egoist6]

Hello bkress,
I think (let egoist6 confirm this) that you need tu run your script, every 60 seconds by throwing it in the notification queque (with the command "RunAt").
When you've got a reminder, first you wake up your device with "ToggleDisplay( True)" and then you play your sound.

The problem is to get the TIMESTAMP and add 1 minute to it ?

I hope you get your script working properly ;)

that would be the workaround (and a good one) if the stuff i wrote above is the reason for this behavior.

in order to get the script run again in one minute you could use:

runat(timestamp() + 60, "\path\scriptname.mscr")

[egoist6]

Thanks for the info... That is great stuff.

After doing some more searching about UNATTENDEDMODE, I am still not quite able to figure out what I need to do to set my script into unattended mode. I have not found any threads of anybody successfully setting a MortScript into UNATTENDEDMODE. Really, I just want to know if it is even possible so i dont keep beating my head against the wall from the countless soft-resets due to changing my script so much. If it isn't, then I will go back to the DontForget Reminder software I was previously using... It worked great, I just wanted to see if I could write somethign to do the same thing on my own. Thanks for all of the help,

BK

sorry, i forgot: mortscript does not support unattendedmode.

try runat() and post your experience

[bkress]

First off, sudist and egoist6... Thank you both for your ideas and contributions toward helping me get this script work. Without you guys, it would have taken me forever to figure this out. The RunAt() command is key to this working, and I just somehow overlooked its power in the MortScript manual.

So, here is what I've got so far:
#####Re-Run Script Delay#####
RunAt(Timestamp() + 300, "\Storage Card\Program Files\BK MortScript\REMINDERS\BKreminders.mscr")

#####Detect Call In Progress#####
ACTIVECALL = RegKeyExists("HKLM","System\State\Phone\Active Call Count")

#####Notifications In registry#####
SMS=regread("HKCU" , "\System\State\Messages\sms\Unread","Count")
MMS=regread("HKCU" , "\System\State\Messages\MMS\Unread","Count")
VOICE=regread("HKCU" , "\System\State\Messages\vmail\Total\Unread","Count")
CALLS=regread("HKCU","\System\State\Phone","Missed Call Count")
##EMAIL=regread("HKCU" , "\System\State\Messages\totalemail\Unread","Count")
##REMINDERS=regread("HKCU" , "\System\State\Appointments\List","Count")

#####If No Calls Taking Place And Have Notifications#####
If(NOT ACTIVECALL)
##if(SMS > 0 || MMS > 0 || VOICE > 0 || CALLS > 0 || EMAIL > 0 || REMINDERS > 0)
If(SMS > 0 || MMS > 0 || VOICE > 0 || CALLS > 0)
#####Turn Display On#####
ToggleDisplay(TRUE)
#####Vibration Pattern#####
##Vibrate(100)
##Sleep(100)
##Vibrate(100)
#####Sound Path#####
PlaySound("\Storage Card\Program Files\BK MortScript\REMINDERS\NEO_Sound.wav")
#####Turn Display Off#####
##ToggleDisplay(FALSE)
EndIf
EndIf
#####End Script#####

Right now I have EMAIL and Calendar Reminders turned off in the script since I really do not need those. I also have a vibration pattern turned off since I realy do not need it. And, I have the display toggle back to off turned off since my phone is plugged in most of the time and it will turn off after a minute anyways. If you want any of the above features back, simply uncomment out the corresponding lines (delete ##).

But, the script is successfully working. As far as memory usage and things of that nature, I have not done many tests... But, after letting a single notification sit unread for 30 minutes (script ran 6 times), the memory usage seems to be about the same as before the notification existed. So, I am a happy camper for now until I try to do some things a little more complicated with this script in the future.

Once again, thanks to sudist and egoist6, you guys are Awesome!
BK

[RoryB]

In my Weather wallpaper script I remove the previous notification to avoid creating a bunch of them. mort = SystemPath("ScriptExe") & "\" & "MortScript.exe"
script = """" & SystemPath("ScriptPath") & "\" & SystemPath("ScriptName") & SystemPath("ScriptExt") & """"

# kill any lingering notification
RemoveNotifications(mort, script)Check your notification stack to be sure you are not building a big list of them.

[howdykeith]

Hmm. I did have RemoveNotifications(script) at the beginning of my app. I wonder if missing the Mort parameter was my prob.

I will try that...

Thanks.

Also I wonder what the hardware requirements for the refresh today message are? I don't get an error when I try it, but it doesn't refresh my today screen.

Perhaps you could look at my script? Located here:
http://forum.xda-developers.com/showthread.php?p=4814840#post4814840

U can download it:
http://forum.xda-developers.com/attachment.php?attachmentid=240977&d=1256623692

and see if i got the refresh message right?

Thanks again.
Keith

[RoryB]

I am not sure about hardware. I have noticed that when I switched to Mortscript version 4.3.11b the SendMessage( HWND_BROADCAST, WM_WININICHANGE, 242, 0 ) stopped working and gave some kind of message. I commented it out and the RedrawToday alone seems to work.

Your refreshtoday.mscr looks the way I had it.

Looking at WeathPaper.mscr
#We r go to open
Copy( WeathFolder \ WeathNum & WeathExt, "\Windows\tdywater_240_320.jpg", TRUE)
Copy( WeathFolder \ WeathNum & WeathExt, "\Windows\tdywater_320_240.jpg", TRUE)
# to get the wallpaper loaded
SendMessage( HWND_BROADCAST, WM_WININICHANGE, 242, 0 )
# to get the today screen refreshed
RedrawToday SystemPath("ScriptPath") & "\MortScript.exe",
#CallScript( SystemPath("ScriptPath") & "\refreshtoday.mscr")
I suggest trying#We r go to open
Copy( WeathFolder \ WeathNum & WeathExt, "\Windows\tdywater_240_320.jpg", TRUE)
Copy( WeathFolder \ WeathNum & WeathExt, "\Windows\tdywater_320_240.jpg", TRUE)
# to get the wallpaper loaded
SendMessage( HWND_BROADCAST, WM_WININICHANGE, 242, 0 )
# to get the today screen refreshed
RedrawToday
## SystemPath("ScriptPath") & "\MortScript.exe",
#CallScript( SystemPath("ScriptPath") & "\refreshtoday.mscr")
It is mnor, but things on the same line tend to get read as a single command.

[TheRem]

i'm sorry to crash in...

can this be done with MortScript?

i want to DIAL my own no. with the speaker ON every hour and it would END the call immediately after doing so.

this is because of this problem on the Viva.
http://forum.xda-developers.com/showthread.php?t=548963
http://forum.xda-developers.com/showthread.php?t=545974

and this is my workaround to avoid a soft reset everytime it happens.
http://forum.xda-developers.com/showpost.php?p=4417606&postcount=20

i hope someone could help me. thanks.

[egoist6]

run("\windows\cprog.exe", "-url tel:+4912345678")
sleep(1000)
sendspecial(115)

[srgudhka]

does anyone a script where i can compose a sms in landscape and the screen returns to portrait when the sms is sent. had a hard time searching for it.

Thanks in advance:D

[nhvoltagenh]

Ok need help,
I wrote a script that will delete a folder from my storage card.
then copy files from my phone over to my storage card.

I am curious if there is a way to have a progress bar while this process happens.

so far heres what it looks like.

http://www.the-web-station.com/imagehost/users/VOLTAGE/szb1.png

http://www.the-web-station.com/imagehost/users/VOLTAGE/szb8.png

http://www.the-web-station.com/imagehost/users/VOLTAGE/szb12.png

http://www.the-web-station.com/imagehost/users/VOLTAGE/szb167.png

but the screen just looks like the desktop while its running in the background, whereas i would love a progress bar to show me how its coming along.

[egoist6]

does anyone a script where i can compose a sms in landscape and the screen returns to portrait when the sms is sent. had a hard time searching for it.

Thanks in advance:D

run("\windows\tmail.exe", '-service "SMS" -to "number"')
rotate(90)
# rotate(270) as an alternative

rotate(0) would return to portrait orientation
however, it is difficult to let a script know if you have sent an sms.

you need a trigger for this. you could do something strange like this
as the first line in the above script you could open any other app, like fexplore.exe. then the rest of your script would run. once you have sent your sms, fexplore will become the next active window. this can be handled by mortscript.
you would send your script into a loop with a one second delay and ask if fexplore has become the active window now. if yes, then it would revert back to portrait orientation:cool:

[egoist6]

Ok need help,
I wrote a script that will delete a folder from my storage card.
then copy files from my phone over to my storage card.

I am curious if there is a way to have a progress bar while this process happens.


you can do this by statusmessage().
e.g. each time i file has been copied you could add a character like "." to the statuswindow so that you have a "moving ... bar"

sample:
StatusMessage( "Progress", ST_LIST, TRUE )
For i = 1 to whatever
copy(file[i], "\Storage Card\target" \ file[i])
StatusMessageAppend( "." )
Next
StatusMessageAppend( "Files copied" )
StatusMessage( "Done" )

[TheRem]

run("\windows\cprog.exe", "-url tel:+4912345678")
sleep(1000)
sendspecial(115)
thanks egoist6... but it did not work...

this is my routine... i dial my own no., tap on the "speaker on" button and when it's connected, i tap on "end" button... and i have to do this every hour.

how do i code this in MortScript? thanks.

[Jokes On You]

thanks egoist6... but it did not work...

this is my routine... i dial my own no., tap on the "speaker on" button and when it's connected, i tap on "end" button... and i have to do this every hour.

how do i code this in MortScript? thanks.

Well you could use a

GetTime(hour,min,sec,day,month,year)
RunAt( year,month,day,hour + 1, 00, script)

To run on the next hour. The you could use a MouseClick() to "tap" the speaker on then another one to "end" the call.

[egoist6]

thanks egoist6... but it did not work...

this is my routine... i dial my own no., tap on the "speaker on" button and when it's connected, i tap on "end" button... and i have to do this every hour.

how do i code this in MortScript? thanks.

run("\windows\cprog.exe", "-url tel:+4912345678")
sleep(1000)
while (1)
if (RegKeyExists("HKLM","System\State\Phone\Active Call Count") = False)
sleep(1000)
continue
elseif
sendspecial(115)
exit
endif
endwhile

this script requires mortscript 4.3b6 or above (because of continue statement)

[TheRem]

run("\windows\cprog.exe", "-url tel:+4912345678")
sleep(1000)
while (1)
if (RegKeyExists("HKLM","System\State\Phone\Active Call Count") = False)
sleep(1000)
continue
elseif
sendspecial(115)
exit
endif
endwhile

this script requires mortscript 4.3b6 or above (because of continue statement)
i've installed MortScript 4.3b11... but it won't automate the code... i'm stuck in this "verify the number is correct" window. :(

http://img510.imageshack.us/img510/69/phonet.jpg

thanks egoist6 and thanks to Jokes On You too.

[egoist6]

i've installed MortScript 4.3b11... but it won't automate the code... i'm stuck in this "verify the number is correct" window. :(

http://img510.imageshack.us/img510/69/phonet.jpg

thanks egoist6 and thanks to Jokes On You too.

try
run("\windows\cprog.exe", "-n -url tel:+4912345678")

or search here for a tool called makecall. i have posted here in this thread a few times. makecall does not ask for verification

[TheRem]

try
run("\windows\cprog.exe", "-n -url tel:+4912345678")

or search here for a tool called makecall. i have posted here in this thread a few times. makecall does not ask for verification
it did not work... i can't even find the makecall tool...

anyway... i got pass thru the dialing process using oldsap's LnkMe:
http://forum.xda-developers.com/showthread.php?t=555574

now how do MortScript turn ON the speaker?
i don't know how to use MouseClick() like Jokes On You was saying. :(

The you could use a MouseClick() to "tap" the speaker on then another one to "end" the call.

[Jokes On You]

it did not work... i can't even find the makecall tool...

anyway... i got pass thru the dialing process using oldsap's LnkMe:
http://forum.xda-developers.com/showthread.php?t=555574

now how do MortScript turn ON the speaker?
i don't know how to use MouseClick() like Jokes On You was saying. :(

Check here (http://forum.xda-developers.com/showthread.php?p=4414231&highlight=MakeCall#post4414231) for the MakeCall.exe. MouseClick() simulates a tap on the screen.

MouseClick( [ window, ] x, y )

The window would be the active window and the x,y would be the position of the speaker button in the dialer.

[TheRem]

thanks Jokes On You! :)
i'll try that later.

[egoist6]

hm. but you don't need to listen anymore to speaker as the script hangs up when connection is established and ringing :confused:

[TheRem]

hm. but you don't need to listen anymore to speaker as the script hangs up when connection is established and ringing :confused:
but that's the only way to revert back to the normal sound speed and volume level like what i've posted here:
http://forum.xda-developers.com/showpost.php?p=4874154&postcount=2118

if the speaker is NOT on when i call my own no., the problem persist.

[srgudhka]

run("\windows\tmail.exe", '-service "SMS" -to "number"')
rotate(90)
# rotate(270) as an alternative

rotate(0) would return to portrait orientation
however, it is difficult to let a script know if you have sent an sms.

you need a trigger for this. you could do something strange like this
as the first line in the above script you could open any other app, like fexplore.exe. then the rest of your script would run. once you have sent your sms, fexplore will become the next active window. this can be handled by mortscript.
you would send your script into a loop with a one second delay and ask if fexplore has become the active window now. if yes, then it would revert back to portrait orientation:cool:


thanks.
i was able to compose sms in landscape. but i cud not figure out ur suggestion for reverting back to portrait. as i am a noob to mortscript commands. :eek:

[TheRem]

this is my routine... i dial my own no., tap on the "speaker on" button and when it's connected, i tap on "end" button... and i have to do this every hour.

ok this is what i did... i don't know if this is correct but it dials my no., turns on the speaker and ends the call... i just don't know if it will do that again in the next hour? please feel free to correct my codes.

run("\Call_TheRem.lnk")
sleep(3000)
MouseClick 70,238
sleep(2000)
MouseClick 229,270
GetTime(01,00,00)
RunAt(01+1,"\SoundFix.mscr")

thanks to egoist6, Jokes On You and... the MortScript manual. :D

[nhvoltagenh]

you can do this by statusmessage().
e.g. each time i file has been copied you could add a character like "." to the statuswindow so that you have a "moving ... bar"

sample:
StatusMessage( "Progress", ST_LIST, TRUE )
For i = 1 to whatever
copy(file[i], "\Storage Card\target" \ file[i])
StatusMessageAppend( "." )
Next
StatusMessageAppend( "Files copied" )
StatusMessage( "Done" )


ok im running this

StatusMessage( "Progress", ST_LIST, TRUE )
For i = 1 to 50
copy("\Program Files\Lakeridge\WisBar Advance Desktop\Themes\*.*"[i], "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes"[i])
StatusMessageAppend( "." )
Next
StatusMessageAppend( "Files copied" )
StatusMessage( "Done" )

and i get 2 errors

[egoist6]

ok im running this
and i get 2 errors

if you do a "bulk" copy then you can't work with a progress bar which is related to your files.
the best thing would be:
StatusMessage( "Progress", ST_LIST, TRUE )
files = dircontents("\Program Files\Lakeridge\WisBar Advance Desktop\Themes\*.*", DC_FILES)
For i = 1 to maxcount(files)
copy("\Program Files\Lakeridge\WisBar Advance Desktop\Themes" \ file[i], "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes" \ file[i])
StatusMessageAppend( "." )
Next i
StatusMessageAppend( "Files copied" )
StatusMessage( "Done" )

not tested...

[egoist6]

ok this is what i did... i don't know if this is correct but it dials my no., turns on the speaker and ends the call... i just don't know if it will do that again in the next hour? please feel free to correct my codes.



thanks to egoist6, Jokes On You and... the MortScript manual. :D

a little bit of "tuning"

run("\Call_TheRem.lnk")
waitforactive("Phone", 10)
MouseClick 70,238
sleep(2000)
MouseClick 229,270
RunAt(timestamp() + 60,"\SoundFix.mscr")

[egoist6]

thanks.
i was able to compose sms in landscape. but i cud not figure out ur suggestion for reverting back to portrait. as i am a noob to mortscript commands. :eek:

try this:

StatusMessage("Please Wait ...^NL^Reverting to portrait mode", ST_MESSAGE, True, True)
rotate(90)
StatusType(ST_MESSAGE, False, True)
StatusInfo("Script")
StatusMessage("Please Wait ...^NL^Reverting to portrait mode", ST_MESSAGE, True, True)
run("\windows\tmail.exe", '-service "SMS" -to "444"')
sleep(3000)

waitforactive("Script",3600)
rotate(0)
StatusMessage("Please Wait ...^NL^Reverting to portrait mode", ST_MESSAGE, True, True)

unfortunately i cannot get rid if the remining status message - just press OK

[TheRem]

a little bit of "tuning"

run("\Call_TheRem.lnk")
waitforactive("Phone", 10)
MouseClick 70,238
sleep(2000)
MouseClick 229,270
RunAt(timestamp() + 60,"\SoundFix.mscr")
thanks egoist6 but there's an error with this line:
waitforactive("Phone", 10)

[Jokes On You]

thanks egoist6 but there's an error with this line:

What kind of error is it? If it says something like it couldn't find the window then increase the wait time.

[egoist6]

thanks egoist6 but there's an error with this line:

what is the window's name of your phone app?

[myf125]

Hi,

thanks for this great thread, and for answers!
I'm a newbie in mortscript and in programming.

Can someone explane me the "For Each" function.
The manual is not really a help for beginners.

@mlevin77:
I made a jpg with lines each 20 px.
This way you can find (nearly) the right point viewing it in fullscreen.

And sorry for my english...

myf

[egoist6]

I'm trying to write a MortScript to disconnect the network connection (click on network disconnect in the connections manager) on my HTC Imagio. What's the best way to find out the coordinates for a particular location in a menu? I eye-balled it relative to the screen resolution (480x800) but in testing it, it doesn't see right at all - the numbers don't seem to correspond to what I would think the coordinates would be. How do people do this besides exhaustive trial & error?

Mike


run("\windows\datadisconnect.exe")

make a screenshot of your screen ncl. your menu and you get the result from a grafics tool

[Jokes On You]

Hi,

thanks for this great thread, and for answers!
I'm a newbie in mortscript and in programming.

Can someone explane me the "For Each" function.
The manual is not really a help for beginners.

@mlevin77:
I made a jpg with lines each 20 px.
This way you can find (nearly) the right point viewing it in fullscreen.

And sorry for my english...

myf

ForEach is used when you want one command to be done over multiple values. For example
ForEach appointment in RegSubkeys("HKCU", "Software\A_C\S2U2\Appointments")
item+=1
EndForEach

This would make it so that for every sub key in that registry key then variable item will have 1 added to it. So if there are 3 subkeys then the variable item would equal three. Hope this helps

[egoist6]

Hi,

thanks for this great thread, and for answers!
I'm a newbie in mortscript and in programming.

Can someone explane me the "For Each" function.
The manual is not really a help for beginners.

@mlevin77:
I made a jpg with lines each 20 px.
This way you can find (nearly) the right point viewing it in fullscreen.

And sorry for my english...

myf

for each is a loop like "for i = 1 to 10"

let's take an example: "foreach item in name", where name is an array containing 12 elements, e.g. name of each month
item would be your variable to work with and do some operations with.

your loop will run 12 times. each time the loop starts from the beginning it will automatically assign the next value of your array "name".

[egoist6]

cool! This brings up a screen that says "select the data connection you want to disconnect". I did this:

Run "/Windows/CommManager.exe"
Sleep 1000
SendRightSoft()
Sleep 500
SendLeftSoft()

and it works - thanks!!

Mike

i think you can also provide a parameter with the connection's name to avoid this popup

EDITED:
i forgot this one:
sendspecial(126)

[egoist6]

super! How does one provide parameters to a running .exe file - what's the syntax? Sorry, I'm a Unix guy, know nothing about WM.

thanks,

Mike

run("\Windows\datadisconnect.exe", "name_of_connection")
or try:
sendspecial(126)

[RoryB]

ForEach xprogram, xcab in regValues ( "HKLM", "\Software\MortCab" )
SleepMessage( 2, "Installing ^NL^" & xprogram )
Runwait( "\Windows\wceload.exe", "/nodelete /silent " & """" & xcab & """" )
EndForEach
Installs all cab files listed in registry values. Registry looks like[HKLM\Software\MortCab]
"program1"="\windows\program1.cab"
"program2"="\cabfiles\program2.cab"
"program3"="\cabfiles\program3.cab"

[holmanm]

I'm trying to write a MortScript to disconnect the network connection (click on network disconnect in the connections manager) on my HTC Imagio. What's the best way to find out the coordinates for a particular location in a menu? I eye-balled it relative to the screen resolution (480x800) but in testing it, it doesn't see right at all - the numbers don't seem to correspond to what I would think the coordinates would be. How do people do this besides exhaustive trial & error?

Mike

http://forum.xda-developers.com/showpost.php?p=2566871&postcount=793

[egoist6]

Doesn't seem to work. I did it with "Verizon Wireless", which is the only thing I see in that list, but it doesn't take - it just sits there with the box unchecked.



what does this do? should I be doing this alone, or somehow with the run?

thanks,

Mike

instead. replace datadisconnect by sendspecial(126).

[egoist6]

ok this is what i did... i don't know if this is correct but it dials my no., turns on the speaker and ends the call... i just don't know if it will do that again in the next hour? please feel free to correct my codes.



thanks to egoist6, Jokes On You and... the MortScript manual. :D

you can try switching your speakerphone on/off by

sendspecial(127)

(quite funny - the solution to the post above was sendspecial(126) :)
let's see who gets 128 :)

[TheRem]

a little bit of "tuning"

run("\Call_TheRem.lnk")
waitforactive("Phone", 10)
MouseClick 70,238
sleep(2000)
MouseClick 229,270
RunAt(timestamp() + 60,"\SoundFix.mscr")
the "space" in my run link was the error... it's fixed now...

i've changed
RunAt(timestamp()+60,"\SoundFix.mscr")
to
RunAt(timestamp()+3600,"\SoundFix.mscr")
because i need it to run every hour not every minute.

here's my final code:
How do i run this "in the background"? and how NOT to register it on my Call History? and ToggleDisplay won't really turn the display OFF, is it possible to run the script without turning on the backlight or at least turn it off after executing the script?

run("\Call_TheRem.lnk")
waitforactive("Phone",10)
MouseClick 70,238
sleep(2000)
MouseClick 229,270
RunAt(timestamp()+3600,"\SoundFix.mscr")

[Jokes On You]

the "space" in my run link was the error... it's fixed now...

i've changed

to

because i need it to run every hour not every minute.

here's my final code:
How do i run this "in the background"? and how NOT to register it on my Call History? and ToggleDisplay won't really turn the display OFF, is it possible to run the script without turning on the backlight or at least turn it off after executing the script?

I don't think it would be possible to have the call not appear in your call history(at least I don't think so). What do you do you mean ToggleDisplay doesn't turn the display off? Does it not work for you?

[TheRem]

What do you do you mean ToggleDisplay doesn't turn the display off? Does it not work for you?
it would just turn the display off (maybe for 2 seconds) and turns the display on again.

[Jokes On You]

it would just turn the display off (maybe for 2 seconds) and turns the display on again.

Hmm that maybe because your script is still running so the display comes back on. Im not sure though, did you try a sleep then ToggleDisplay? Or you could try toggle display then exit.

[srgudhka]

try this:

statusmessage("please wait ...^nl^reverting to portrait mode", st_message, true, true)
rotate(90)
statustype(st_message, false, true)
statusinfo("script")
statusmessage("please wait ...^nl^reverting to portrait mode", st_message, true, true)
run("\windows\tmail.exe", '-service "sms" -to "444"')
sleep(3000)

waitforactive("script",3600)
rotate(0)
statusmessage("please wait ...^nl^reverting to portrait mode", st_message, true, true)

unfortunately i cannot get rid if the remining status message - just press ok


thanks a million.. Works pretty well;):d:)

[TheRem]

Hmm that maybe because your script is still running so the display comes back on. Im not sure though, did you try a sleep then ToggleDisplay? Or you could try toggle display then exit.
i tried it, it would just blink the screen.

oh well... i found out that it would cause error in waitforactive when the screen is locked or should i use sendspecial? so that even if the screen is lock, it will still execute the code?

[egoist6]

the "space" in my run link was the error... it's fixed now...

i've changed

to

because i need it to run every hour not every minute.

here's my final code:
How do i run this "in the background"? and how NOT to register it on my Call History? and ToggleDisplay won't really turn the display OFF, is it possible to run the script without turning on the backlight or at least turn it off after executing the script?

if you want to run the script in background you can do that with immediately run the minimize command after waitforactive to send phone app to "background".

however, i forgot to tell that this script will not get executed after an hour as it gets stopped. please read a few pages back. i have given an answer for this to somebody else just a few days ago.

EDIT:
sorry forgot to say: that would only work if you use sendspecial command to turn speaker on/off or change your code to mousclick("Phone", x,y)

[egoist6]

i tried it, it would just blink the screen.

oh well... i found out that it would cause error in waitforactive when the screen is locked or should i use sendspecial? so that even if the screen is lock, it will still execute the code?

i don't think it is possible to unlock your screen by mortscript.

you could try by setting the registry key hkcu\controlpanel\backlight\autodevicelockenable = 0
as the first line of your script.

this might work if your script runs with a delay command in background, but if it gets activated by notification queue (i gues you have read the other post i mentioned;)) i guess it would not work.

EDIT: to power your device off use
sendspecial(223)

[howdykeith]

Hi,

I posted a new version of Random Ringtones.

http://forum.xda-developers.com/attachment.php?attachmentid=243411&d=1257373403

This version will randomize email, sms and phone ringtones.

You can check it out:

http://forum.xda-developers.com/showthread.php?p=4879504#post4879504

[TheRem]

these codes are really confusing me. :D

thanks egoist6. :)

i'll try your code suggestions after i get home from school.

[egoist6]

these codes are really confusing me. :D

thanks egoist6. :)

i'll try your code suggestions after i get home from school.

i have done some testing.
you definitely cannot unlock by mortscript.
if you activate your script by runat() the script starts (and you can even write files, make the device vibrate, etc., but you cannot run apps before the screen is unlocked.
thus a part of the script is started but when running the phone app it gets stopped.

but i think it shouldn't be a problem to live with.
the only side-effect will be that your device will not be able to call you every hour.

just to clarify and sum up all the other comments:

run("\Call_TheRem.lnk")
waitforactive("Phone", 10)

#this turns speaker on
sendspecial(127)
sleep(2000)
#this ends the call
sendspecial(115)

RunAt(timestamp() + 3600,"\SoundFix.mscr"

#this powers your device off
sendspecial(223)

[RoryB]

unfortunately i cannot get rid if the remaining status message - just press OKTry this
StatusMessage("Please Wait ...^NL^Reverting to portrait mode", ST_MESSAGE, True, True)
rotate(90)
StatusType(ST_MESSAGE, False, True)
StatusInfo("Script")
StatusMessage("Please Wait ...^NL^Reverting to portrait mode", ST_MESSAGE, True, True)
run("\windows\tmail.exe", '-service "SMS" -to "444"')
sleep(3000)

waitforactive("Script",3600)
rotate(0)
StatusMessage("Please Wait ...^NL^Reverting to portrait mode", ST_MESSAGE, False, False)
sleep(2000)First False means close status message after program closes. Second False means no okay button (might could leave this True). Sleep is wait a little before the program finishes.

[egoist6]

Try this
StatusMessage("Please Wait ...^NL^Reverting to portrait mode", ST_MESSAGE, True, True)
rotate(90)
StatusType(ST_MESSAGE, False, True)
StatusInfo("Script")
StatusMessage("Please Wait ...^NL^Reverting to portrait mode", ST_MESSAGE, True, True)
run("\windows\tmail.exe", '-service "SMS" -to "444"')
sleep(3000)

waitforactive("Script",3600)
rotate(0)
StatusMessage("Please Wait ...^NL^Reverting to portrait mode", ST_MESSAGE, False, False)
sleep(2000)First False means close status message after program closes. Second False means no okay button (might could leave this True). Sleep is wait a little before the program finishes.

:cool: of course - couldn't see the forest for the trees
thanks

[egoist6]

as the title of this thread is "examples accumulation" i thought i'll throw in another script i have created for fun.

this script adds a kind of submenu functionality to CHOICE() statement (see picture).
furthermore this menu is included in a script where i was playing around with some task manager related commands of morstcript.

allthough i called this script taskmgr it is of course not a true taskmanager but it gives you an impression of what morstscript is also capable of.


note:

rename .txt to .mscr
you need my collection of array functions (ArrayFunctions.mscr) - just copy it to the same directory as taskmgr.mscr
be aware that it can take up to 20-30 seconds until the submenu is opened. this is due to the fact that submenu items get sorted and sorting arrays is currently not supported by mortscript. that's why you need ArrayFunctions.mscr
you need the latest beta available here (http://www.sto-helit.de/downloads/mortscript/MortScript-4.3b11.zip)

[egoist6]

sorry if this is a stupid question, but what does this do?!? I looked up sendspecial() in the Mortscript manual and it says it sends special keystrokes. What keystroke is 126 that by itself disconnects the network connection and how did you find it (is there a list somewhere)?

thanks,

Mike

126 is decimal scan code of a key (on a keyboard) which ends data calls.

sendspecial(126) emulates this keystroke.

there is a list here (http://msdn.microsoft.com/en-us/library/bb431750.aspx)

[Kalinof]

I'm trying to write a MortScript to disconnect the network connection (click on network disconnect in the connections manager) on my HTC Imagio. What's the best way to find out the coordinates for a particular location in a menu? I eye-balled it relative to the screen resolution (480x800) but in testing it, it doesn't see right at all - the numbers don't seem to correspond to what I would think the coordinates would be. How do people do this besides exhaustive trial & error?

Mike

Maybe this is what are you looking for.

[Kalinof]

I'm trying to write a MortScript to disconnect the network connection (click on network disconnect in the connections manager) on my HTC Imagio. What's the best way to find out the coordinates for a particular location in a menu? I eye-balled it relative to the screen resolution (480x800) but in testing it, it doesn't see right at all - the numbers don't seem to correspond to what I would think the coordinates would be. How do people do this besides exhaustive trial & error?

Mike

Maybe this is what are you looking for.

[myf125]

Thanks Jokes on You and Egoist6

I try to understand this ;-)

I've tried to make a script
where can add numbers to an excel-file
(like I'm on tour and I want to write down my expences or measurements
and I dont want to start excel and deal with these tiny little cells)
So I wrote a script with questions and it puts these information into the excel-file.

But this works for 1 "information" only and i have to start the script over and over for more data-input!

I hope you understand me.


myf125

[egoist6]

Thanks Jokes on You and Egoist6

I try to understand this ;-)

I've tried to make a script
where can add numbers to an excel-file
(like I'm on tour and I want to write down my expences or measurements
and I dont want to start excel and deal with these tiny little cells)
So I wrote a script with questions and it puts these information into the excel-file.

But this works for 1 "information" only and i have to start the script over and over for more data-input!

I hope you understand me.


myf125

there are many ways of doing this.
one would be to this sctructure:

while(1)
...
your script here
...
if (question("Continue?", "Mileage", YesNo) = 0)
exit
endif
endwhile

[myf125]

Thank You egoist6!

I'll try this

Another question:

I always get an Error

"Comma or closing paranthesis expected" with:


If (Question("Weiter Angaben?", "Ausgaben", YesNo) = 0)

[bgcngm]

Does anyone knows if it is possible to invoke a DLL (using Dllimport) with a mortscript?

[howdykeith]

Thanks Jokes on You and Egoist6

I try to understand this ;-)

I've tried to make a script
where can add numbers to an excel-file
(like I'm on tour and I want to write down my expences or measurements
and I dont want to start excel and deal with these tiny little cells)
So I wrote a script with questions and it puts these information into the excel-file.

But this works for 1 "information" only and i have to start the script over and over for more data-input!

I hope you understand me.


myf125

I suspect you are writing the output to a csv file?

[TheRem]

run("\Call_TheRem.lnk")
waitforactive("Phone", 10)

#this turns speaker on
sendspecial(127)
sleep(2000)
#this ends the call
sendspecial(115)

RunAt(timestamp() + 3600,"\SoundFix.mscr"

#this powers your device off
sendspecial(223)
the script works well... except for sendspecial(223)... the screen just blinked once... is there a way to turn the lights off after executing the script?

thanks egoist6! :)

[nhvoltagenh]

Thank You egoist6!

I'll try this

Another question:

I always get an Error

"Comma or closing paranthesis expected" with:


If (Question("Weiter Angaben?", "Ausgaben", YesNo) = 0)


you need to do the whole script.

heres an example of one of my questions.

Switch (question ( "Do you wish to reset your device?", "Reset", "YesNo" ))

Case(YES)
Reset
Exit
Case(NO)
Exit
EndSwitch

[Jokes On You]

Thank You egoist6!

I'll try this

Another question:

I always get an Error

"Comma or closing paranthesis expected" with:


If (Question("Weiter Angaben?", "Ausgaben", YesNo) = 0)

Enclose YesNo in quotes and it should work.

the script works well... except for sendspecial(223)... the screen just blinked once... is there a way to turn the lights off after executing the script?

thanks egoist6! :)

The only way as far as I know to turn off the display is ToggleDisplay(off). If that doesn't work you could see if you can find an application that can control the display and the just use Run() with the necessary parameters.

[egoist6]

the script works well... except for sendspecial(223)... the screen just blinked once... is there a way to turn the lights off after executing the script?

thanks egoist6! :)

what device have you got?

normally sendspecial(223) and toggledisplay() should work:confused:

[myf125]

I suspect you are writing the output to a csv file?

First I tried in Excel,
but you have to do all these mouseclicks (horrible)

then I changed to csv.

And there is my (hopefully ) last problem:
I used writefile and it works,
but how do I tell it to beginn a new line after or before the new input...
I know its "^NL^" but whereto???

eingabe = d & "." & mon & "." & y & "," & art & "," & kosten & "," & bar & ","
writefile ("Ausgaben.txt", eingabe, TRUE )

[egoist6]

First I tried in Excel,
but you have to do all these mouseclicks (horrible)

then I changed to csv.

And there is my (hopefully ) last problem:
I used writefile and it works,
but how do I tell it to beginn a new line after or before the new input...
I know its "^NL^" but whereto???

eingabe = d & "." & mon & "." & y & "," & art & "," & kosten & "," & bar & ","
writefile ("Ausgaben.txt", eingabe, TRUE )


here:
eingabe = d & "." & mon & "." & y & "," & art & "," & kosten & "," & bar & ",^NL^"

but i would omit the last ","
eingabe = d & "." & mon & "." & y & "," & art & "," & kosten & "," & bar & "^NL^"

[howdykeith]

as the title of this thread is "examples accumulation" i thought i'll throw in another script i have created for fun.

this script adds a kind of submenu functionality to CHOICE() statement (see picture).
furthermore this menu is included in a script where i was playing around with some task manager related commands of morstcript.

allthough i called this script taskmgr it is of course not a true taskmanager but it gives you an impression of what morstscript is also capable of.


note:

rename .txt to .mscr
you need my collection of array functions (ArrayFunctions.mscr) - just copy it to the same directory as taskmgr.mscr
be aware that it can take up to 20-30 seconds until the submenu is opened. this is due to the fact that submenu items get sorted and sorting arrays is currently not supported by mortscript. that's why you need ArrayFunctions.mscr
you need the latest beta available here (http://www.sto-helit.de/downloads/mortscript/MortScript-4.3b11.zip)


btw. Not only is this an excellent piece of work, i also found it great to let me see which mortscripts are actually running.

thanks much.

Also the latest beta for Mortscript is b15:
http://www.sto-helit.de/forum/download/file.php?id=265

[TheRem]

what device have you got?

normally sendspecial(223) and toggledisplay() should work:confused:
HTC Touch Viva (Opal).

[Jokes On You]

btw. Not only is this an excellent piece of work, i also found it great to let me see which mortscripts are actually running.

thanks much.

Also the latest beta for Mortscript is b15:
http://www.sto-helit.de/forum/download/file.php?id=265
Where did you get this beta? I don't see it on the site.

[tgwaste]

hi,
im trying to zip up my SmartGear directory but am ending up with an empty .zip file.
is this syntax correct?


zipfiles("\Programs Files\smartgear\*.*", "\Storage Card\ted\backup\last\smartgear.zip", TRUE)

[howdykeith]

Where did you get this beta? I don't see it on the site.

http://www.sto-helit.de/forum/viewtopic.php?f=12&t=5452&start=200

b15:

So, first of all, a new beta with some changes that mostly should have been published about 4 weeks ago.
* new FtpUpload command (thanks to Sparus software)
* array element indexes and INI sections are stored unchanged (formerly upper- resp lowercase). array["index"] is still case insensitive, but ForEach x,y in Array(...) now returns original strings.
* some other bugfixes. Sorry, don't remember exactly what, but afair there where esp. bugs in array handling, like MaxIndex(). Also, ReadLine had a problem with missing line feed after last line.

b14:

mostly bugfixes...

Changes:
- removed debug messages on Reset
- ScreenShotClick should work on every platform (except non-touchscreen devices, obviously...)
- MaxIndex ignored empty values in-between
- ReadLine delivered rubbish if last line was not ended with CR
- SleepMessage non-fullscreen. Should still be fullscreen on Smartphones, but couldn't test it so far...

[howdykeith]

hi,
im trying to zip up my SmartGear directory but am ending up with an empty .zip file.
is this syntax correct?


zipfiles("\Programs Files\smartgear\*.*", "\Storage Card\ted\backup\last\smartgear.zip", TRUE)

ZipFiles("\Program Files\smartgear\*.*", "\Storage Card\ted\backup\last\", FALSE, FALSE)

Try this.

I forget what the False false relates to. but i am pretty sure this will work.

[Jokes On You]

ZipFiles("\Program Files\smartgear\*.*", "\Storage Card\ted\backup\last\", FALSE, FALSE)

Try this.

I forget what the False false relates to. but i am pretty sure this will work.

It relates to whether or not to include subdirectories and the compression type.

[howdykeith]

Yeah,

I wrote a bunch of scripts a while ago to deal with the Gameloft games being installed to the main memory.

These scripts will back up a dir to the storage card in a zip file and then also select, extract, and run them.

Here are them in case any body wants them.

These were the first scripts i wrote in Mortscript. This is where i learned about the deltree command. I should put in my vote to have deltree banished from mortscript. Should be renamed to cleanphone. I commented out the deltree parts of the script so u wont hurt yourself.

[tgwaste]

none of these suggestions worked. :( still comes up a blank file.

maybe this function is broke in v4.3.b15 ?

[howdykeith]

Hi,

I am pretty sure it ain't broke.

I had the same issue when I first wrote my zip archiver.

I also replied to a post somewhere else with the 0 size zip.

Did u look at the codes i provided? They work with the newest b15. If you edit out the Gameloft path it should work for your task.

[egoist6]

manual's example:
ZipFiles( "\Storage\Test\*.psw", "\Storage\mans.zip", 1)

can't test it now myself but it's worth a try, allthough it should work with TRUE instead of 1 as well.

another try might be to place your files into a folder with no spaces in the name and zip it to a folder which also does not contain spaces.

sometimes this makes problems and you need additional quotes.

[egoist6]

btw. Not only is this an excellent piece of work, i also found it great to let me see which mortscripts are actually running.

thanks much.

Also the latest beta for Mortscript is b15:
http://www.sto-helit.de/forum/download/file.php?id=265

thanks for your kudos.
glad it is of benefit to at least one

[Jokes On You]

none of these suggestions worked. :( still comes up a blank file.

maybe this function is broke in v4.3.b15 ?

ZipFiles(SChoice,"\Storage Card\dock.zip", TRUE, DName, 9)

I used this a while ago to zip docks from WAD. Maybe you can use this as a reference. SChoice and DName are both variables.

[tgwaste]

Hi,

I am pretty sure it ain't broke.

I had the same issue when I first wrote my zip archiver.

I also replied to a post somewhere else with the 0 size zip.

Did u look at the codes i provided? They work with the newest b15. If you edit out the Gameloft path it should work for your task.


ok so i have this:

dir = "\Storage Card\ted\backups\last"
zipfiles("\Programs Files\smartgear\*.*", dir & "\test", FALSE, FALSE)

last and test dirs exist

error screen is below


edit: maybe its not supported on wm6.5 ?

[Jokes On You]

ok so i have this:

dir = "\Storage Card\ted\backups\last"
zipfiles("\Programs Files\smartgear\*.*", dir & "\test", FALSE, FALSE)

last and test dirs exist

error screen is below


edit: maybe its not supported on wm6.5 ?

Look at the format I have there is only one true/false statement. Try zipping a single file with the full file name and see if that works. Here's the general format
ZipFiles( source files, ZIP file [, subdirectories?
[ , path in archive [, rate] ] ] )

[howdykeith]

Hmm.

I tried and tried to make a zipfile and it only came out 0k.

hmm...

making zipfiles should be easy. Maybe try going back to version 4.2 and see if it works?

[Jokes On You]

Hmm.

I tried and tried to make a zipfile and it only came out 0k.

hmm...

making zipfiles should be easy. Maybe try going back to version 4.2 and see if it works?

It works on 4.2 that is what I am currently on.

[egoist6]

zipfiles("\Programs Files\smartgear\*.*", "\Storage Card\ted\backup\last\smartgear.zip", TRUE)
is definitely a correct syntax. have tested it and it works with 4.3b15

maybe your problem is here:

zipfiles("\Programs Files\smartgear\*.*", "\Storage Card\ted\backup\last\smartgear.zip", TRUE)

[yshaikh01]

Hi, I have MS 4.2 installed and was wondering if anybody can be kind enough to create me a script to restart a process at a certain time of the day, everyday.

Thanks

[egoist6]

Hi, I have MS 4.2 installed and was wondering if anybody can be kind enough to create me a script to restart a process at a certain time of the day, everyday.

Thanks

this script starts every day at the time you can specify:

#provide name of process without extension
proc = "name of your proc"

#scheduled time for script to run each day
time = "10.00"

if procexist(proc)
kill(proc)
else
message("Process " & proc & " not running")
endif
date = FormatTime( "d.m.Y", TimeStamp() + 86400 )
split(date, ".", 0, day, month, year)
split(time, ".", 0, hour, minute)
runat(timestamp(year, month, day, hour, minute, SystemPath("ScriptPath") \ SystemPath("ScriptName") \ SystemPath("ScriptExt")))

note:
not tested just post here again to finalize
consider trying close command first. if unsuccessful then execute kill command
notification queue might not allow to run non-exe files. if so copy autorun.exe of mortscript directory to your directory, rename it to the name of your script and change runat command accordingly

[yshaikh01]

this script starts every day at the time you can specify:

#provide name of process without extension
proc = "name of your proc"

#scheduled time for script to run each day
time = "10.00"

if procexist(proc)
kill(proc)
else
message("Process " & proc & " not running")
endif
date = FormatTime( "d.m.Y", TimeStamp() + 86400 )
split(date, ".", 0, day, month, year)
split(time, ".", 0, hour, minute)
runat(timestamp(year, month, day, hour, minute, SystemPath("ScriptPath") \ SystemPath("ScriptName") \ SystemPath("ScriptExt")))note:
not tested just post here again to finalize
consider trying close command first. if unsuccessful then execute kill command
notification queue might not allow to run non-exe files. if so copy autorun.exe of mortscript directory to your directory, rename it to the name of your script and change runat command accordingly

Thanks, but will this restart a process? Also I just read using the close command is better than the kill comand as it might lose/corrupt data? Any advice please. Again thanks for the time and response.

[egoist6]

Thanks, but will this restart a process? Also I just read using the close command is better than the kill comand as it might lose/corrupt data? Any advice please. Again thanks for the time and response.

yea forgot to restart the process.
regarding close command: have you read my notes in my previous post?


anyway - let me do the work for you.
no need for you to look into the manual:rolleyes:

#provide name of process without extension
proc = "name of your proc"

#scheduled time for script to run each day
time = "10.00"

#killing process
if (procexist(proc))
close(proc)
sleep(2000)
if (procexist(proc))
kill(proc)
sleep(2000)
if (procexist(proc))
message("Cannot kill Process " & proc)
endif
endif
else
message("Process " & proc & " not running")
endif

#restarting process
procfile = ProcList( true, proc)
run(procfile[1])

#restartingscript
date = FormatTime( "d.m.Y", TimeStamp() + 86400 )
split(date, ".", 0, day, month, year)
split(time, ".", 0, hour, minute)
runat(timestamp(year, month, day, hour, minute, SystemPath("ScriptPath") \ SystemPath("ScriptName") \ SystemPath("ScriptExt")))

[yshaikh01]

Sorry:)
Much appreciated, didnt understand really how to do it properly, Thanks again. Will test as soon as.

[nhvoltagenh]

so close but so lost

ok please help.

heres the script

StatusMessage( "Backing Up ", ST_LIST, TRUE )
For i = 1 to 200
StatusMessageAppend( "." )
Next
DelTree( "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes")
Sleep 2000
MkDir ("\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes")
Sleep 2000
XCopy( "\Program Files\Lakeridge\WisBar Advance Desktop\Themes\*.*", "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes", TRUE, TRUE )
StatusMessageAppend( "OK" )
StatusMessage( "Finished" )
Exit

now whats happening is the dots ..... will go all the way up to 200. and off the screen causing a horizontal scroller <--->

then the screen will sit there.
then when the script is complete
OK is at the end of the dots
and Finished is shown.

so so far somewhat so good.

but what i need this to do is have the dots go to end of screen
then go to next line and repeat

until the process is done.

what am i missing here.

i have tried tons of variables, tons of scripts
and i have gotten this far but now i need help from pros.

[tgwaste]

zipfiles("\Programs Files\smartgear\*.*", "\Storage Card\ted\backup\last\smartgear.zip", TRUE)
is definitely a correct syntax. have tested it and it works with 4.3b15

maybe your problem is here:

zipfiles("\Programs Files\smartgear\*.*", "\Storage Card\ted\backup\last\smartgear.zip", TRUE)


yep that was it. extra 's'. damn i feel stupid for not noticing that. :)

thanks much!

[Jokes On You]

so close but so lost

ok please help.

heres the script

StatusMessage( "Backing Up ", ST_LIST, TRUE )
For i = 1 to 200
StatusMessageAppend( "." )
Next
DelTree( "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes")
Sleep 2000
MkDir ("\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes")
Sleep 2000
XCopy( "\Program Files\Lakeridge\WisBar Advance Desktop\Themes\*.*", "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes", TRUE, TRUE )
StatusMessageAppend( "OK" )
StatusMessage( "Finished" )
Exit

now whats happening is the dots ..... will go all the way up to 200. and off the screen causing a horizontal scroller <--->

then the screen will sit there.
then when the script is complete
OK is at the end of the dots
and Finished is shown.

so so far somewhat so good.

but what i need this to do is have the dots go to end of screen
then go to next line and repeat

until the process is done.

what am i missing here.

i have tried tons of variables, tons of scripts
and i have gotten this far but now i need help from pros.

Quick question. I haven't used StatusMessage yet so I wouldn't know but why does it have to be to 200? If the number were smaller would it have the same effect or would the Status message stop appending earlier then you want it to?

[nhvoltagenh]

200 was just for testing.

but see the issue is say i have it
For i = 1 to 10

it will show 10 dots
..........

then it will show OK!

so ..........OK!

but the script is still running
about 2 minutes later it will then show
Finished!

see my issue?

i need the dots to continue scrolling as long as the script is running.
and i need the dots to drop down a line when the end of screen is full.

i bring to mind sashimi.
how it does it when its looking for cabs.

if you have a lot of cabs the screen looks like this


Enumerating Cabs..................
.........................................
.........................................
.........................................
.........................................
.........................................
.............OK!

[nhvoltagenh]

ok where would i drop that in?

imma mess with it in hopes to discover before you post.

[nhvoltagenh]

ya just getting errors all over. no matter what i try. :(

[Jokes On You]

ya just getting errors all over. no matter what i try. :(

Man I was editing while you were reading and that is not good. I have an idea to just do this

linelength = 26

If Length(StatusMessageAppend( "." )) > linelength
StatusMessageAppend( "^NL^" )
StatusMessageAppend( "." )
EndIf

but I think that would just continue to make new lines instead of continuing on the same one.

[egoist6]

StatusMessage( "Backing Up ", ST_LIST, TRUE )
backupfolder = "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes"

For i = 1 to 10
For j = 1 to 20
StatusMessageAppend( "." )
Next j
StatusMessageAppend( "^NL^" )
next i
DelTree(backupfolder)
Sleep 2000
MkDir (backupfolder)
Sleep 2000
XCopy("\Program Files\Lakeridge\WisBar Advance Desktop\Themes\*.*", backupfolder, TRUE, TRUE )
StatusMessageAppend( "OK" )
StatusMessage( "Finished" )

[nhvoltagenh]

no im confused all to hell lol.

what part do i use lenght 26?

where to put?

[Jokes On You]

StatusMessage( "Backing Up ", ST_LIST, TRUE )
backupfolder = "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes"

For i = 1 to 10
For j = 1 to 20
StatusMessageAppend( "." )
Next j
StatusMessageAppend( "^NL^" )
next i
DelTree(backupfolder)
Sleep 2000
MkDir (backupfolder)
Sleep 2000
XCopy("\Program Files\Lakeridge\WisBar Advance Desktop\Themes\*.*", backupfolder, TRUE, TRUE )
StatusMessageAppend( "OK" )
StatusMessage( "Finished" )

And that's why your a genius. I was looking at trying to do a Part() lol.

@nhvoltagenh
Dont listen to me. egoist6 is the one you should directing your questions to.

[egoist6]

200 was just for testing.
i need the dots to continue scrolling as long as the script is running.
and i need the dots to drop down a line when the end of screen is full.


could you post your complete script?
then we could help you implementing a progress bar , ups dots...

[egoist6]

And that's why your a genius. I was looking at trying to do a Part() lol.

@nhvoltagenh
Dont listen to me. egoist6 is the one you should directing your questions to.

:) thanks for that

[nhvoltagenh]

sure.

SetChoiceEntryFormat(30,15)
Choice("SZ Backup","SZ Backup v1.04^NL^^NL^Please Select:","Backup Wisbar Desktop","Restore Wisbar Desktop","Backup My Documents","Restore My Documents","About","Exit")

Case(0)
Exit
Case(1)
SleepMessage( 10,"Beginning Backup", "SkinZone.org",1 )
DelTree( "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes")
Sleep 2000
MkDir ("\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes")
Sleep 2000
XCopy( "\Program Files\Lakeridge\WisBar Advance Desktop\Themes\*.*", "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes", TRUE, TRUE )
message("Backup Complete")
Exit
Case(2)
SleepMessage( 10,"Beginning Restore", "SkinZone.org",1 )
DelTree( "\Program Files\Lakeridge\WisBar Advance Desktop\Themes")
Sleep 2000
MkDir ("\Program Files\Lakeridge\WisBar Advance Desktop\Themes")
Sleep 2000
XCopy( "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes\*.*", "\Program Files\Lakeridge\WisBar Advance Desktop\Themes", TRUE, TRUE )
SleepMessage( 5,"Restore Complete" )
run ("\Program Files\Skinzone.org\Backup\reset.mscr")
Exit
Case(3)
SleepMessage( 10,"Beginning Backup", "SkinZone.org",1 )
DelTree( "\Storage Card\Sashimi\Auto\Root\My Documents")
Sleep 2000
MkDir ("\Storage Card\Sashimi\Auto\Root\My Documents")
Sleep 2000
XCopy( "\My Documents\*.*", "\Storage Card\Sashimi\Auto\Root\My Documents", TRUE, TRUE )
message("Backup Complete")
Exit
Case(4)
SleepMessage( 10,"Beginning Restore", "SkinZone.org",1 )
DelTree( "\My Documents")
Sleep 2000
MkDir ("\My Documents")
Sleep 2000
XCopy( "\Storage Card\Sashimi\Auto\Root\My Documents\*.*", "\My Documents", TRUE, TRUE )
SleepMessage( 5,"Restore Complete" )
run ("\Program Files\Skinzone.org\Backup\reset.mscr")
Exit
Case(5)
bigmessage("Skinzone.org Backup Automation v1^NL^^NL^^NL^Designed to make your backup needs easier^NL^^NL^^NL^Visit Skinzone.org to show us your support")

run ("\Program Files\Skinzone.org\Backup\SkinZone.org Backup.mscr")
Case(6)
Exit
EndChoice


it works perfect, just runs in the background. which is cool. but i do want to try to have the end user see progress

[howdykeith]

Is there a sendspecial code for LeftSoftKey?

thanks...

[Jokes On You]

Is there a sendspecial code for LeftSoftKey?

thanks...

Do you mean?
SendLeftSoft

[nhvoltagenh]

Is there a sendspecial code for LeftSoftKey?

thanks...
SendLeftSoft

[howdykeith]

actually i mean SendSpecial(121)

or some number that is LeftSoft...

[Jokes On You]

actually i mean SendSpecial(121)

or some number that is LeftSoft...

What would be the difference and the benefit of using a number?

[egoist6]

ah. i see
the only way to make a "true" progress bar is the following but that might not be a good solution for maintaing your script :-)

you have to copy each case block into its own script, e.g. switch1.mscr
within switch1.mscr you add the following line as the first command:
run("\path\progressbar.mscr)
IMPORTANT: it HAS to be run command otherwise switch1.mscr will be stopped until progressbar.mscr is finished

progressbar.mscr will look like this:
statusmessage("Backing up", ST_LIST, true)
while(scriptprocexist("switch1.mscr"))
For i = 1 to 20
StatusMessageAppend( "." )
Next i
StatusMessageAppend( "^NL^" )
endwhile

if you would like to do it this way we can start optimizing this structure by passing variables from one script to another

[egoist6]

actually i mean SendSpecial(121)

or some number that is LeftSoft...

sendspecial(112)

[howdykeith]

sendspecial(112)

udaman.

First off, I was just curious if there was a sendspecial for it. 2nd i tried to interpret the special code web page and couldn't make a head or a tail out of it. looks like hexadecimal?

And since u ask, i want to send a text msg.

http://forum.xda-developers.com/attachment.php?attachmentid=244795&stc=1&d=1257794161

How do i press send?

I know some combination of key codes should work, but could i just sendspecial(112) and send the email? I guessed the # almost, do i almost get a prize?

++

Also. I noticed there were some posts about tmail.exe command lines. Here are some more I found on the web:

The message application also has command line arguments as follows:-

\windows\tmail.exe -service, -cc, -bcc, -transport, -to, -subject, -body, -attach *

eg. "\Windows\tmail.exe" -service "SMS" -to "" -subject "" -body "" (create an empty text message")

[howdykeith]

and yeah that sendspecial(112) worked like a charm.

[egoist6]

I know some combination of key codes should work, but could i just sendspecial(112) and send the email?

yes

I guessed the # almost, do i almost get a prize?
yes. congratulations. i herewith confirm that you have won an almost price:)

[brunoisa10]

sendspecial(112)

hi egoist6 all that is very impressive :)

I've read 20 pages and it is always you on the line here :)

can you send us a link to know all special codes for sendspecial ?

you are a master :)

[nhvoltagenh]

ah. i see
the only way to make a "true" progress bar is the following but that might not be a good solution for maintaing your script :-)

you have to copy each case block into its own script, e.g. switch1.mscr
within switch1.mscr you add the following line as the first command:
run("\path\progressbar.mscr)
IMPORTANT: it HAS to be run command otherwise switch1.mscr will be stopped until progressbar.mscr is finished

progressbar.mscr will look like this:
statusmessage("Backing up", ST_LIST, true)
while(scriptprocexist("switch1.mscr"))
For i = 1 to 20
StatusMessageAppend( "." )
Next i
StatusMessageAppend( "^NL^" )
endwhile

if you would like to do it this way we can start optimizing this structure by passing variables from one script to another

hey i wanted to thank you and J.O.Y. for all your help.

I see what you mean about being a somewhat of a pain.

but i do have one question.
i read the manual here and there, usually to look for different codes and what not.
but things like ^NL^ isnt listed or i didnt see it, where are those types of gems?

thanks again.

[Jokes On You]

hey i wanted to thank you and J.O.Y. for all your help.

I see what you mean about being a somewhat of a pain.

but i do have one question.
i read the manual here and there, usually to look for different codes and what not.
but things like ^NL^ isnt listed or i didnt see it, where are those types of gems?

thanks again.

I dont think the page number s are different so it should be page 13. Don't thank me thank the master egoist6

[egoist6]

LIST FOR SOME SENDSPECIAL CODES:
91: startmenu (on some devices it might be home button)
92: back key (not the backspace key but back key for closing applications which is available on some devices such as diamnd or blackstone)
93: menu key
112: left softkey
113: right softkey
114: accept call (green button)
115: hang up (red button)
117: volume up
118: volume down
126: data disconnect
127: toggle speaker
133: devicelock
223: power off

a complete list is available here (http://msdn.microsoft.com/en-us/library/bb431750.aspx) but requires some try&error to find out...

hi egoist6 all that is very impressive :)

I've read 20 pages and it is always you on the line here :)

can you send us a link to know all special codes for sendspecial ?

you are a master :)

[brunoisa10]

many thanks :)

[nhvoltagenh]

well..

i somewhat got what i wanted.

not an exact progress bar, however it shows progress.

[RoryB]

What aboutStatusMessage( "Backing Up ", ST_LIST, TRUE )
For i = 1 to 4
StatusMessageAppend( "." )
Next
DelTree( "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes")
Sleep 2000
For i = 1 to 4
StatusMessageAppend( "." )
Next
MkDir ("\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes")
Sleep 2000
For i = 1 to 4
StatusMessageAppend( "." )
Next
XCopy( "\Program Files\Lakeridge\WisBar Advance Desktop\Themes\*.*", "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes", TRUE, TRUE )
For i = 1 to 4
StatusMessageAppend( "." )
Next
StatusMessageAppend( "OK" )
StatusMessage( "Finished" )
ExitThis should generate a total of 16 dots before the OK and it spreads the creation over the process.
It will not be continuously creating dots, but would create a few in groups.

[egoist6]

@nhvoltagenh
i have thought about this progress bar thing.


this is how it could work. maybe there are some syntax errors as i am writing this out of my head but i'm sure you can correct it.

your main script:
include(mybackup.mscr)
SetChoiceEntryFormat(30,15)
x = Choice("SZ Backup","SZ Backup v1.04^NL^^NL^Please Select:","Backup Wisbar Desktop","Restore Wisbar Desktop","Backup My Documents","Restore My Documents","About","Exit")

switch(x)
case(1,2,3,4)
@do_backup(x)
case(5)
bigmessage("Skinzone.org Backup Automation v1^NL^^NL^^NL^Designed to make your backup needs easier^NL^^NL^^NL^Visit Skinzone.org to show us your support")
run ("\Program Files\Skinzone.org\Backup\SkinZone.org Backup.mscr")
Case(6)
Exit
endswitch

mybackup.mscr:
sub do_backup
run("\path\progressbar.mscr")
switch(argv[1])
Case(1)
folder = "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes"
source = "\Program Files\Lakeridge\WisBar Advance Desktop\Themes\*.*"
target = folder

Case(2)
folder = "\Storage Card\Sashimi\Auto\Root\Program Files\Lakeridge\WisBar Advance Desktop\Themes"
source = folder & "\*.*"
target = "\Program Files\Lakeridge\WisBar Advance Desktop\Themes"

Case(3)
folder = "\Storage Card\Sashimi\Auto\Root\My Documents"
source = "\My Documents\*.*"
target = folder

Case(4)
folder = "\My Documents"
source = "\Storage Card\Sashimi\Auto\Root\My Documents\*.*"
target = folder
callscript("\Program Files\Skinzone.org\Backup\reset.mscr")
endswitch

DelTree(folder)
Sleep 2000
MkDir (folder)
Sleep 2000
XCopy( source, target, TRUE, TRUE )

endsub

progressbar.mscr:
statusmessage("Backing up", ST_LIST, true)
while(scriptprocexist("mybackup.mscr"))
For i = 1 to 20
StatusMessageAppend( "." )
sleep(500)
Next i
StatusMessageAppend( "^NL^" )
endwhile

[howdykeith]

i want to send a text msg.

http://forum.xda-developers.com/attachment.php?attachmentid=244795&stc=1&d=1257794161

How do i press send?



FriendlyName = RegRead("HKLM","Software\Microsoft\Inbox\Svc\SMS","FriendlyName")

SMSCallbackNumber = RegRead("HKCU","Software\Microsoft\Inbox\Settings","SMSCallbackNumber")
MsgAlarmMsg = "Hi This is your phone"

Run ("\windows\tmail.exe", "-service ""SMS"" -to """ & SMSCallbackNumber & """ -body """ & MsgAlarmMsg & "" )

WaitFor( FriendlyName, -1 )
sleep(80)
sleep(80)
sendLeftSoft(FriendlyName)
#sendspecial(112)
Exit
#sendLeftSoft(FriendlyName, 0,0,1)
sleep(900)
#sendLeftSoft(FriendlyName, 0,0,0)



Using the #sendspecial(112) instead of the sendleftsoft works. but i want to target the window and not just press the 112.
#sendLeftSoft(FriendlyName, 0,0,1) doesnt work at all. i get a send new msg window. Magic it may be, but not useful.

I just want to press the Send. Anybody got a working solution?

Thanks...

[RoryB]

Try sendleftsoft( "Friendlyname" ) I think you only need the window name. All the options of ctrl, shift, alt can be left out.

[howdykeith]

Try sendleftsoft( "Friendlyname" ) I think you only need the window name. All the options of ctrl, shift, alt can be left out.

sendLeftSoft(FriendlyName)


Doesn't work.

FriendlyName is the name of your SMS. That's what appears on the window title when u open your sms. So "FriendlyName" with quotes wouldnt work.

thanks though. made me look.

[lioryte]

Hi,
First, I'd like to say I love this thread. I learned a lot from reading so keep it up

I need to know if MortScript can run a function- i.e. I'm looking to map the new magnifier to a hard button. Can this be done?

[myf125]

here:
eingabe = d & "." & mon & "." & y & "," & art & "," & kosten & "," & bar & ",^NL^"

but i would omit the last ","
eingabe = d & "." & mon & "." & y & "," & art & "," & kosten & "," & bar & "^NL^"


I just wanted to thank you, guys,
for the help!
My "Expenses"-script is working,
if someone is interested,
i can post it here....

myf

[TheRem]

can i cut/copy/crop/ photos and save it with MortScript?

[srgudhka]

I just wanted to thank you, guys,
for the help!
My "Expenses"-script is working,
if someone is interested,
i can post it here....

myf
yes do post. seems to be pretty helpful

[hotty1177]

Hi,
can i request to anyone to create a script for titanium plg for vitosms?


thanks,

[RoryB]

sendLeftSoft(FriendlyName)


Doesn't work.

FriendlyName is the name of your SMS. That's what appears on the window title when u open your sms. So "FriendlyName" with quotes wouldnt work.

thanks though. made me look.
Sorry I missed that Friendlyname was a variable.
Sometimes I have had to put the quotes on the variable in this format to get something to work.sendleftsoft( """ & Friendltname & """ )

[Jokes On You]

Hi,
can i request to anyone to create a script for titanium plg for vitosms?


thanks,

Quick question. Are you using S2U?

[dijor69]

Hello, someone can help me fix this code? I need a menu to choose an action and return to the well until it pressed out and prompted to restart

choice_index = Choice( "Configurador", "Selecciona que quieres configurar: ", 0, 0, "VistaSMS","Notificación SMS","UnicodeSMS,"SincronizacionGSM","STK service","Vibracion boton X","Contactos SIM","Menús","Salir")

if (Choice_index = "0")
exit
elseif (Choice_index = "1")
If (Question( "¿Quieres poner la vista de los sms al modo clásico?", "Vista SMS", "YesNo" )=YES)
RegWriteDWord("HKCU","\Software\Microsoft\Inbox\Settings\OEM","SMSInboxThreadingDisabled",1)
ElseIf
RegWriteDWord("HKCU","\Software\Microsoft\Inbox\Settings\OEM","SMSInboxThreadingDisabled",0)
EndIf

elseif (Choice_index = "2")
If (Question( "¿Quieres activar la notificación de mensaje enviado?", "Notificación SMS", "YesNo" )=YES)
RegWriteDWord("HKLM","\Software\Microsoft\Inbox\Settings","SMSNoSentMsg",1)
ElseIf
RegWriteDWord("HKLM","\Software\Microsoft\Inbox\Settings","SMSNoSentMsg",0)
EndIf
elseif (Choice_index = "3")
If (Question( "¿Quieres activar Unicode cuando sea necesario?(Esto afectara al nº de caracteres por SMS utilizas acentos)", "Unicode SMS", "YesNo" )=YES)
RegWriteDWord("HKCU","\Software\Microsoft\Inbox\Settings","SMSUnicode",1)
ElseIf
RegWriteDWord("HKCU","\Software\Microsoft\Inbox\Settings","SMSUnicode",0)
EndIf

elseif (Choice_index = "4")
If (Question( "Quieres Activar la funcion de sincronizacion automatica de la hora y la zona con la red GSM?", "Auto sincronización", "YesNo" )=YES)
RegWriteDWord("HKLM","\Drivers\BuiltIn\RIL","NITZEnable",1)
ElseIf
RegWriteDWord("HKLM","\Drivers\BuiltIn\RIL","NITZEnable",0)
EndIf
elseif (Choice_index = "5")
If (Question( "Quieres desactivar el STK Service (no recomendado para movistar)?", "STK Service", "YesNo" )=YES)
RegWriteDWord("HKLM","\Services\stk_service","flags",4)
ElseIf
RegDeleteKey("HKLM","\Services\stk_service","flags")
EndIf
elseif (Choice_index = "6")
If (Question( "Quieres desactivar la vibración de pulsar en la barra de abajo?", "Vibración botones", "YesNo" )=YES)
RegWriteDWord("HKCU","\Software\e-Natives Technology\Showcase","SUITE_VibrateHold",0)
RegWriteDWord("HKCU","\Software\e-Natives Technology\Showcase","SUITE_VibrateTap",0)
ElseIf
RegWriteDWord("HKCU","\Software\e-Natives Technology\Showcase","SUITE_VibrateHold",30)
RegWriteDWord("HKCU","\Software\e-Natives Technology\Showcase","SUITE_VibrateTap",15)
EndIf
elseif (Choice_index = "7")
If (Question( "¿Quieres ocultar los contactos de la SIM?Deberas copiarlos al reiniciar con SIM Manager", "Contactos", "YesNo" )=YES)
RegWriteDWord("HKCU","\ControlPanel\Phone","ShowSIM",0)
ElseIf
RegWriteDWord("HKCU","\ControlPanel\Phone","ShowSIM",1)
EndIf
elseif (Choice_index = "8")
If (Question( "¿Quiere utilizar los menús de la LEO?", "Menús LEO", "YesNo" )=YES)
RegWriteDWord("HKLM","\System\GWE\Menu","CUIHandler",1)
ElseIf
RegWriteDWord("HKLM","\System\GWE\Menu","CUIHandler",0)
EndIf
elseif (Choice_index = "9")
If (Question( "Es necesario reiniciar para aplicar los cambios¿Quiere reiniciar ahora?", "SoftReset", "YesNo" )=YES)
Reset
ElseIf
Exit
EndIf
endif

[howdykeith]

can i cut/copy/crop/ photos and save it with MortScript?

Not sure if this answers your question, but in my weathPaper script it opens up a jpg and assigns it to the background. In the image app with mortscript I could move the crop rectangle as well as set the opacity.
This is just in the default image editor app.
I assume all the other options are available to you.

++

Can I have mortscript b15 installed and run a script with an older version of mortscript?

[howdykeith]

Hi,
can i request to anyone to create a script for titanium plg for vitosms?


thanks,

Well if I was gonna get data from vitosms it has to come from 1 of 2 places. Either from the registry or a output file. Usually the registry sux to find messages unless you are using message2reg. Is Vito producing a log file? If it is, or can, then a plug in for vito would be kinda easy.

I was looking at IM+ for Skype, and by default it produces a log file of chats. I am gonna get around to writing a script for that. I havent looked at IM+ but i bet it might produce the same log file.

I have written SMS msg posting in the newest StatusTicker script, which I will release any minute now. It uses Message2Reg.

[egoist6]

i want to send a text msg.

http://forum.xda-developers.com/attachment.php?attachmentid=244795&stc=1&d=1257794161

How do i press send?



FriendlyName = RegRead("HKLM","Software\Microsoft\Inbox\Svc\SMS","FriendlyName")

SMSCallbackNumber = RegRead("HKCU","Software\Microsoft\Inbox\Settings","SMSCallbackNumber")
MsgAlarmMsg = "Hi This is your phone"

Run ("\windows\tmail.exe", "-service ""SMS"" -to """ & SMSCallbackNumber & """ -body """ & MsgAlarmMsg & "" )

WaitFor( FriendlyName, -1 )
sleep(80)
sleep(80)
sendLeftSoft(FriendlyName)
#sendspecial(112)
Exit
#sendLeftSoft(FriendlyName, 0,0,1)
sleep(900)
#sendLeftSoft(FriendlyName, 0,0,0)



Using the #sendspecial(112) instead of the sendleftsoft works. but i want to target the window and not just press the 112.
#sendLeftSoft(FriendlyName, 0,0,1) doesnt work at all. i get a send new msg window. Magic it may be, but not useful.

I just want to press the Send. Anybody got a working solution?

Thanks...

try to find out the name of the window by

sleep(5000)
#(switch to your sms app)
message(activewindow())

[howdykeith]

the window title is FriendlyName.

I checked. If I close the sms and run the script it mentions that the window cannot be found.

I was going to try the quotes method mentioned above. But targetting the window is not the problem.

thanks thanks

and I can do other keysends to the sms window, like if i do the sendleft key up without the first leftkeydown command it opens a hidden window and acts wierd. not useful.

[egoist6]

Hello, someone can help me fix this code? I need a menu to choose an action and return to the well until it pressed out and prompted to restart


sorry. i do not understand

[dijor69]

Sorry, I have bad level english, I need make menú with tweaks of registry keys. In this menu there will be a list, clicking on a tweak, will turn a question about something in the registry, (if answer eq yes,
implement a registry change, else answer eq no, implement an other registry change.) And Return to menú. When you have finished using the options you choose, press exit(Salir) turn a question for to reset or no reset.


Let me explain better?

[egoist6]

the window title is FriendlyName.

I checked. If I close the sms and run the script it mentions that the window cannot be found.

I was going to try the quotes method mentioned above. But targetting the window is not the problem.

thanks thanks

and I can do other keysends to the sms window, like if i do the sendleft key up without the first leftkeydown command it opens a hidden window and acts wierd. not useful.

yeah strange. sendrightsoft("SMS / MMS") works perfect (menu opens) but sendleftsoft("SMS / MMS") does not do anything.