; My First script in syscript
; The name of this script is heart.spt
; Here we take the pictures we need
SET IMAGELIST1=%SCRIPTPATH%\heart.bmp
SET imagelist5=%scriptpath%\icon1.cur
; Drawing of the heard interface
ASKDIALOG TRANSP,SKIN,%IMAGELIST1%
ASKDIALOG TRANSP,SCROLLBAR,MyScroll,15,60,80,9
ASKDIALOG TRANSP,UPDATE,MyScroll,10,100
ASKDIALOG TRANSP,TOOLTIPBALLOON,MyScroll,transparency of scroll cursor
ASKDIALOG TRANSP,BACKCOLOR,MyScroll,255,0,0
ASKDIALOG TRANSP,BUTTON,End,60,40,40,15,Exit
SET SITE=www.sinetis.com
ASKDIALOG TRANSP,LABEL,Web,14,80,80,14,%SITE%
ASKDIALOG TRANSP,FONT,Web,Arial,9,UNDERLINE
ASKDIALOG TRANSP,TEXTCOLOR,Web,0,0,255
ASKDIALOG TRANSP,BACKCOLOR,Web,250,86,86
ASKDIALOG TRANSP,ACTIVE,Web
ASKDIALOG TRANSP,ONMOUSEOVER,Web,TEXTCOLOR,255,255,255
ASKDIALOG TRANSP,ONMOUSEDOWN,Web,TEXTCOLOR,0,255,0
ASKDIALOG TRANSP,HIDE
; Here the window display
ASKDIALOG TRANSP,ON,,,113,116,
; here set of attributes
ASKDIALOG TRANSP,ATTRIBUTES,MyScroll
VARSEP °
ASKDIALOG TRANSP,LABEL,LabTransp,15,45,25,15,°attributes.p°%
VARSEP %
ASKDIALOG TRANSP,BACKCOLOR,LabTransp,241,92,96
ASKDIALOG TRANSP,FONT,LabTransp,arial,8
ASKDIALOG TRANSP,ANIMATETRANSPARENT,50,100,%attributes.p%,5
;here waiting for infinite events of users
:TEST
ASKDIALOG TRANSP,WAIT
ASKDIALOG TRANSP,ATTRIBUTES,MyScroll
SWITCH ON,%ASKDIALOGTRANSP%
SWITCH CASE,End
ASKDIALOG TRANSP,ANIMATETRANSPARENT,25,%attributes.p%,100,5
CALLSUB Shortcutcreation
WAIT 1
SWITCH CASE,MyScroll
VARSEP |
ASKDIALOG TRANSP,UPDATE,LabTransp,|attributes.p|%
VARSEP %
ASKDIALOG TRANSP,TRANSPARENT,%attributes.p%
GOTO TEST
SWITCH CASE,Web
CALLSub DisplayWebPage,%SITE%
GOTO TEST
SWITCH ELSE
GOTO TEST
SWITCH OFF
;This routine displays a skin web page on a personnal window
; when user click on www.sinetis.com
Sub DisplayWebPage
SET IMAGELIST100=%SCRIPTPATH%\Skin.gif
ASKDIALOG 1,SKIN,%IMAGELIST100%
SET $SITE1=http://www.google.com
SET $SITE2=http://www.yahoo.com
SET $SITE3=http://www.sinetis.com
SET $SITE4=http://www.msn.com
ASKDIALOG 1,COMBOEDIT,SITE,20,15,600,120,$SITE
ASKDIALOG 1,ACTIVE,SITE
ASKDIALOG 1,DROP,SITE,PASTE
ASKDIALOG 1,ACTIVE,SITE
ASKDIALOG 1,BUTTON,OK,780,15,50,30,Ok
ASKDIALOG 1,CORNER,OK,10,10
ASKDIALOG 1,FONT,OK,Arial,9,BOLD,UNDERLINE
ASKDIALOG 1,DEFAULT,OK
ASKDIALOG 1,BUTTON,END,840,15,50,30,Quit
ASKDIALOG 1,CORNER,END,10,10
ASKDIALOG 1,FONT,END,Arial,9,BOLD,UNDERLINE
ASKDIALOG 1,NSELECT,SITE,3
ASKDIALOG 1,BORDER,MYWEB
ASKDIALOG 1,WEB,MYWEB,20,55,900,600,%ARG1%
ASKDIALOG 1,ON,,,940,680,
:Loop
ASKDIALOG 1,WAIT
SWITCH ON,%ASKDIALOG1%
SWITCH CASE,%ESC%,END
ASKDIALOG 1,OFF
EXITSUB
SWITCH CASE,SITE
ASKDIALOG 1,UPDATE,MYWEB,%SITE%
SWITCH CASE,OK
ASKDIALOG 1,UPDATE,MYWEB,%SITE%
ASKDIALOG 1,FOCUS,MYWEB
SWITCH OFF
GOTO Loop
ExitSub
SUB Shortcutcreation
FILENAME "%USERPROFILE%\Bureau\heart SyScript.lnk"
BEFORE LAST,%FILENAME%,%USERPROFILE%\Bureau\heart SyScript.lnk
SET DIR=%BEFORE%
BEFORE LAST,".",%FILENAME%
SET FIL=%BEFORE%
BEFORE LAST,"\",%APP%
IF NOT EXIST "%USERPROFILE%\Bureau\heart SyScript.lnk" THEN
CENTER ON
ECHO " a shortcut "heart" will be created on desktop to use application again
ENDIF
DEL "%USERPROFILE%\Bureau\heart SyScript.lnk"
CREATESHORTCUT %DIR%,%FIL%,%APP%,%SCRIPTPATH%\%SCRIPT%,
ExitSub
|
This sample is a heart design with:
- an exit button
- a link to a personnal WEB browser
The heart design contains an heart image with the capabilities
to make transparent every identical color of the
first left top pixel of the original picture
with ASKDIALOG "dialogname",SKIN,"image" command.
A click on display link displays
a personnal WEB browser
The commands SET IMAGELISTnn=path\image
is used to indicate the image to use on the script.
When the script will be transformed as a plugin (.spg file),
images will automaticaly inserted inside the compiled script.
The equivalent command exist for any type of files integration :
SET ADDONLISTnn=path\file
et d'embarquer un fichier dans le script transformé en "pluging"(.spg)
To execute the script, you just have to launch :
path\syscript.exe path\script.spt
If you have made the plugin :
path\syscript.exe path\script.spg (see next step)
here : path\SyScript.exe Script_path\heart.spt
test here WEB sample (heart.spg)
|
