SKScheMa scripts samples

Software

Make ActiveSync connection via Bluetooth.
"`Bluetooth" it is connection name - you can have different name on your device.

#BTOn()
#rgset(HKCU;ControlPanel\Comm;Cnct;SZ;`Bluetooth) #sleep(1000)
#r(\windows\repllog.exe) #sleep(1000)

This script will delete SMS delivery notification message
Note! Script will work if you setup it to "watch" function for "Incoming SMS", type of SMS - "Status message".
This script will work only on English OS because find in windows this texts "New SMS message", "Delete".

#findwindow(New SMS message;;Delete) #sleep(3000)
#iftrue(delete)
#goto(end)
#label(delete)
#activatewindow)
#tap()
#label(end)

This script will close standard reminder window and play wav file
Note! Script will work if you setup it to "watch" function for "Activate" window with class gweWinCENotify.
This script will work only on English OS.

#findwindow(Reminder;gweWinCENotify;Dismiss;Button) #sleep(800)
#tap() #sleep(800)
#playwav(\TwoTone.wav)

Send SMS to predefined phone #
User can edit/enter text of SMS. If you use "#+(1)" parameter for #sms command then will be used pocket outlook for create and send this message.

#gettext(This is SMS template text) #d(9)
#iffalse(end)
#unknown(end)
#sms(@var0) #phone(+012345678) #+(1) #d(9)
#label(end)

Set custom sound volume if program started and restore old after program closed
You need two scripts, saveandset.sksc and restore.sksc. Set watch event "Open Window" for your program to run saveandset.sksc and watch event "Close Window" to run restore.sksc.
Saveandset.sksc will get current sound volume, save it in registry and set new. Restore.sksc will get from registry old volume and set it.

saveandset.sksc

#getsoundvol(OldVol)
#rgset(HKCU;Software\MyScript;OldSoundVol;DWORD;#OldVol#)
#soundvol(10)

restore.sksc

#rgget(HKCU;Software\MyScript;OldSoundVol;DWORD;OldVol)
#soundvol(#OldVol#)

Note! You will use #variable name# for convert numerical variable to string.
In this string used VALUE of variable:
#rgset(HKCU;Software\MyScript;OldSoundVol;DWORD;#OldVol#)
In this string used NAME of variable:
#rgget(HKCU;Software\MyScript;OldSoundVol;DWORD;OldVol)

Show some system information

#getsoundvol(soundvol)
#getphonevol(phonevol)
#getbattery(battery)
#chkac()
#eval(AC=SYSVAR)
#chkbt()
#eval(bt=SYSVAR)
#chkwlan()
#eval(wlan=SYSVAR)
#chkgsm()
#eval(gsm=SYSVAR)
#msg( AS line: #AC# #R Battery #battery#% #R Sound volume #soundvol# #R Phone volume #phonevol# #R BT #bt# #R WLAN #wlan# #R Phone #gsm#)

Sample of Yes/No dialog

#yesno(Sample of #yesno, you can answer yes (state TRUE) or no (state FALSE), if no answer with 10 seconds - window will be closed and state - UNKNOWN.) #rmr(2) #rmt(10000) #d(10)
#iftrue(yes)
#ifunknown(unk)
#msg(Answer NO, state FALSE)
#goto(end)
#label(yes)
#msg(Answer YES, state TRUE)
#goto(end)
#label(unk)
#msg(Window closed, state - UNKNOWN) #d(9)
#label(end)

This script continue work after softreset

#msg(Start!)
#sr()
#msg(You will see it after first SoftReset!)
#sr()
#msg(You will see it after second SoftReset!)

Send/receive mail messages and working with Messaging

This script send/receive mail for mail box with "MyBox" name

#r(\Windows\tmail.exe) #p(-Service "MyBox" -Sync)

This script create and open message for mail box with "MyBox" name

#r(\Windows\tmail.exe) #p(-Service "MyBox" -to "")

This script create and open message for mail box with "MyBox" name, to "user@server.tst", with subject "Test", body "Message text", attached file "\My Documents\file.xls", CC to "user2@server.tst", BCC to "hidden@server.tst"

#r(\Windows\tmail.exe) #p(-Service "MyBox" -to "user@server.tst" -subject "Test" -body "Message text" -attach "\My Documents\file.xls" -cc "user2@server.tst" -bcc "hidden@server.tst")

This script create and open new SMS to phone #1234567

#r(\Windows\tmail.exe) #p(-Service "SMS" -to "1234567")

Connect to different GPRS providers (if you have "multisim" adapter)
Please check before registry key
HKLM;\SOFTWARE\Microsoft\ConnMgr\Providers\{7C4B7A38-5FF7-4bc1-80F6-5DA7870BB1AA}\Connections\
for know your providers names.
Replace in script PROVIDER_1_NAME and PROVIDER_2_NAME to this names!

Switch to Provider_1 and connect to GPRS:

#RadioOff()
#radioon()
#BTOff()
#disconnect()
#rgset(HKLM;\SOFTWARE\Microsoft\ConnMgr\Providers\{7C4B7A38-5FF7-4bc1-80F6-5DA7870BB1AA}\Connections\PROVIDER_1_NAME;Enabled;DWORD;1)
#rgset(HKLM;\SOFTWARE\Microsoft\ConnMgr\Providers\{7C4B7A38-5FF7-4bc1-80F6-5DA7870BB1AA}\Connections\PROVIDER_2_NAME;Enabled;DWORD;0)
#connect()

Switch to Provider_2 and connect to GPRS:

#RadioOff()
#radioon()
#BTOff()
#disconnect()
#rgset(HKLM;\SOFTWARE\Microsoft\ConnMgr\Providers\{7C4B7A38-5FF7-4bc1-80F6-5DA7870BB1AA}\Connections\PROVIDER_1_NAME;Enabled;DWORD;0)
#rgset(HKLM;\SOFTWARE\Microsoft\ConnMgr\Providers\{7C4B7A38-5FF7-4bc1-80F6-5DA7870BB1AA}\Connections\PROVIDER_2_NAME;Enabled;DWORD;1)
#connect()

Toggle "mute" mode

#getmute(mute)
#chkcondition(mute==1)
#iftrue(needoff)
#chkcondition(mute==0)
#iftrue(needon)
#goto(end)
#label(needon)
#setmute(1)
#goto(end)
#label(needoff)
#setmute(0)
#label(end)

Send USSD message
This sample send '*100#' message and show answer from mobile operator.

#sendussd(*100#)
#msg(@var0)

Example of autofilling
We want:
- open web page in Pocket IE
- fill Login and Password on this page

We mean that the device is connected to a network and used standard PocketIE without any extensions

WM5 version

#r(iexplore.exe) #p(http://s-k-tools.com/skschema/sample_sendkey.html)
#findwindow(IExplore) #sleep(30000)
#activatewindow()
#sendkey(#T) #sleep(1000)
#sendkey(MyLogin) #sleep(1000)
#sendkey(#T) #sleep(1000)
#sendkey(MyPassword) #sleep(1000)

WM2003 version

#r(iexplore.exe) #p(http://s-k-tools.com/skschema/sample_sendkey.html)
#findwindow(IExplore) #sleep(30000)
#activatewindow()
#sendkey(#T#T) #sleep(1000)
#sendkey(MyLogin) #sleep(1000)
#sendkey(#T) #sleep(1000)
#sendkey(MyPassword) #sleep(1000)

First line of script run PocketIE with parameter, parameter - existing on our site URL.
(2) and (3) lines find and activate Pocket IE window,
"#sleep(30000)" mean - our IE need 30 second to load page.
(4) we emulate tap of "TAB" key on keyboard for go to first field

(5) emulate typing of "MyLogin" string
(6) we emulate tap of "TAB" key on keyboard for go to second field
(7) emulate typing of "MyPassword" string
if need emulate "Enter" (for send filled form) - need add to script this line:
#sendkey(#T#R) #sleep(1000)

Delete recent programs list in start menu
We want:
- delete recent programs list in start menu
- softreset

#rgdelkey(HKCU;Software\Microsoft\Shell;TaskSwitch)
#regflush()
#sr()

Analize active connections
This script will show:
- status of WiFi/PC/BT connections
- list of active connections
In this script used #connections command, this command put to string variable list of current connections with type and interface name "/" delimiter. So we can check by #chkstrings which connections active and his types.
Possible types:

CELLULAR_UNKNOWN 
CELLULAR_CSD 
CELLULAR_GPRS 
CELLULAR_1XRTT 
CELLULAR_1XEVDO 
CELLULAR_1XEVDV 
CELLULAR_EDGE 
CELLULAR_UMTS 
CELLULAR_VOICE 
CELLULAR_PTT 
NIC_UNKNOWN 
NIC_ETHERNET 
NIC_WIFI
BLUETOOTH_UNKNOWN 
BLUETOOTH_RAS 
BLUETOOTH_PAN
UNIMODEM_UNKNOWN 
UNIMODEM_CSD 
UNIMODEM_OOB_CSD 
UNIMODEM_NULL_MODEM     Direct Cable Connect (DCC)
UNIMODEM_EXTERNAL_MODEM   Serial port attached modem
UNIMODEM_INTERNAL_MODEM 
UNIMODEM_PCMCIA_MODEM 
UNIMODEM_IRCOMM_MODEM    DCC over Irda
UNIMODEM_DYNAMIC_MODEM   Bluetooth modem
UNIMODEM_DYNAMIC_PORT   DCC over Bluetooth
VPN_UNKNOWN 
VPN_L2TP 
VPN_PPTP 
PROXY_UNKNOWN 
PROXY_NULL 
PROXY_HTTP 
PROXY_WAP 
PROXY_SOCKS4 
PROXY_SOCKS5 
PC_UNKNOWN
PC_DESKTOPPASSTHROUGH
PC_IR
PC_MODEM_LINK

Script:

#eval(PC=0)
#eval(WIFI=0)
#eval(BT=0)
#eval(GPRS=0)
#connections(Var3)
#IFFALSE(end)
#IFUNKNOWN(end)
#chkstrings(@Var3) #d(PC_)
#IFFALSE(next)
#IFUNKNOWN) #(next)
#eval(PC=1)
#label(next)
#chkstrings(@Var3) #d(WIFI)
#IFFALSE(next2)
#IFUNKNOWN(next2)
#eval(WIFI=1)
#label(next2)
#chkstrings(@Var3) #d(BLUETOOTH_)
#IFFALSE(next3)
#IFUNKNOWN(next3)
#eval(BT=1)
#label(next3)
#chkstrings(@Var3) #d(GPRS)
#IFFALSE(next4)
#IFUNKNOWN(next4)
#eval(GPRS=1)
#label(next4)
#msg(We check in this script:#R WiFi #WIFI# #R PC #PC# #R BT #BT# #R GPRS #GPRS# #R )
#msg(All connections with status "connected": @var3)
#label(end)

Play wav file with script 20 secound

#startsound(\Windows\Windows Default .wav;av1pr)
#stopsound() #sleep(20000)

Get size and CRC32 of file

#filesize(\Program Files\SK Software\SKSchema\skschema.exe;fsize)
#crc32(\Program Files\SK Software\SKSchema\skschema.exe;fcrc32)
#msg(SKSchema.exe size=#fsize#, crc32=#fcrc32#)

Play sound after receive message from defined sender

Create watch event for new message.
In Subject/Sender fiels enter all or part of sender e-mail. In Command field tap [...], select Multimedia->Play Wav file and select your file.
See this animated image:

Using Watch for phone location (by CellID)

On some devices SKScheMa can run any scripts or programs if phone change cell tower (changed CellID).
As example you can do some if you leave your home etc.
Note: if you not change location your phone can anyway register on other cell tower if "think" "this is better quality".
So need know list of cellids at current location.
This script (named area.sksc) can write to text file \My Documents\cellids.txt list of cellid changes and show on skschema today plugin panel current cellid.

#appendstr(\My Documents\cellids.txt) #d(@date(yyyy/MM/dd) @time(HH:mm:ss) New: @var1 Old: @var2 #r)
#todaytext(cid @var1)

Note: need enter manually in script commandline special variables @cellid @oldid (see image).

See this image for setup watch event with area.sksc:

After some time we will know list of cellids nearest cell towers.
Now possible make script for detect our location changes:

#setvar(MyLocationIDs) #d(11110;11111;11112;11113)
#rgget(HKCU;software\sk\schema;cellid;DWORD;currentid)
#rgget(HKCU;software\sk\schema;oldcellid;DWORD;oldid)
#chkstrings(#currentid#) #d(@MyLocationIDs)
#eval(InLocation=sysvar)
#chkstrings(#oldid#) #d(@MyLocationIDs)
#eval(OutLocation=sysvar)
#chkcondition(OutLocation>0 & InLocation>0)
#IFFALSE(skip1)
#msg(Location not changed.#rOld cell id #oldid##RNew cell id #currentid#)
#goto(end)
#label(skip1)
#chkcondition(OutLocation<1 & InLocation<1)
#IFFALSE(skip2)
#msg(We outside of our home location.#rOld cell id #oldid##RNew cell id #currentid#)
#goto(end)
#label(skip2)
#chkcondition(OutLocation>0 & InLocation<1)
#IFFALSE(skip3)
#msg(We have leave our home location.#rOld cell id #oldid##RNew cell id #currentid#)
#goto(end)
#label(skip3)
#chkcondition(OutLocation<1 & InLocation>0)
#IFFALSE(end)
#msg(We have arrived our home location.#rOld cell id #oldid##RNew cell id #currentid#)
#label(end)

Note:
11110;11111;11112;11113 - list of our cellids
This script only show message about location changed or not changed, so you can modify it for other do.

Lock screen in phone call

Create two watch event for phone.
First:

Second:

If you want unlock screen in call progress - press action button.