Aide - Recherche - Membres - Calendrier
Version complète : Utilisation de scripts MortScript
PPCCool > Tutoriaux, Tests & Bricolages > Tutoriaux
makuu
Depuis quelques versions déja Mortscript devient de plus en plus intéressant à utiliser si on le compare à nscriptM ceci car il continue à être maintenu et amélioré par son auteur (alors que nScriptM ne l'est plus depuis longtemps déja).

Ce qui suit concerne l'optimisation de son PPC par utilisation du language de script de Mortscript.

Le but de ce tuto n'est pas de vous initier au language de script de Mortscript mais de vous donner des exemples de scripts à retoucher en fonction de l'installation des softs sur votre machine.

Je joins donc à titre d'exemple ceux que j'utilise quotidiennement sur mes machines. Les scripts sont écris via un éditeur de texte et doivent avoir l'extension .mscr .

Script correctif des preférences liées au paramètres par défaut de l'éclairage.
(correctif du bug lié à l'utilisation de spb Backup sur les x5xv en aku WM5 2.3.1)
Placer ce script sous \Windows\Startup

CITATION
#Suppression du retro-éclairage sur batterie à 5 min soit 300 s
RegWriteDWord HKCU, "ControlPanel\Backlight", "BatteryTimeout", 300
#Désactivation de la suppression du retro-éclairage sur secteur
RegWriteDWord HKCU, "ControlPanel\Backlight", "ACTimeout", 0



Script de lancement de TomTom avec volume sonore max.
(le script est inspiré de celui figurant sur GPS Passion mais en plus il rétabli le volume sonore original à la sortie de TomTom)


CITATION
##################################
# Lancement TomTom Navigator v6 #
##################################

If not procExists "TomTom Navigator.exe"

#On historise le son
RegReadDWord HKCU,ControlPanel\Volume,Volume,volume

# on met le son à fond
SetVolume 255

# on lance TomTom Navigator
RunWait "\SD Card\Program Files\Navigator\TomTom Navigator.exe"

# on remet le son
Switch %volume%
Case 0
SetVolume 0
Case 858993459
SetVolume 50
Case 1717986918
SetVolume 100
Case -1717986919
SetVolume 150
Case -858993460
SetVolume 200
Case -1
SetVolume 250
EndSwitch

Else

# on réaffiche TomTom Navigator
Show TomTom Navigator

EndIf

#fin


Script de lancement de iGO avec activation du BT et optimization de la ram.
(Il vous faut le switcher BT et le programme Hibernate voir thread de config x51v)

CITATION
############################################
# Lancement iGo #
############################################

#On historise l'etat BT (Vérifier sur votre PDA que c'est bien cette clé qui stocke l'état du BT,
#c'est celle-ci pour les dell en WM5 aku 2.3.1
RegReadDWord HKLM,System\State\Hardware,Bluetooth,btState

#Si BT inactif
If ( btState = 8 )

# on active le BT
RunWait "\Program Files\BTswitch\BTSwitch.exe"

EndIf

# on lance Hibernate
RunWait "\Program Files\Hibernate.exe"

# on lance iGO
RunWait "\SD Card\Program Files\iGo\iGo.exe"

# on arrete le BT
RunWait "\Program Files\BTswitch\BTSwitch.exe"


Script de lancement de iExplorer et utilisation du cache en ram.
(necessite RamDisk et la modification de registre suivante:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache=\Ramdisk ,
Ne pas changer les clés Cookies et History car sinon les cookies et l'historique seront perdus à chaque fois que vous fermererez pie
)

CITATION
############################################
# Lancement iexplore #
############################################

# on crée RamDisk-4096 4Mo de cache
Run "\Windows\ramdisk.exe" ,4096

# on lance pie
RunWait "\Windows\iexplore.exe"

# on supprime le RamDisk-unload
Run "\Windows\ramdisk.exe" ,/U
Huck33
pour lancer en mode paysage avec le volume à fond



CITATION
############################################
# Lancement TomTom Navigator v6 en paysage #
############################################

If not procExists "TomTom Navigator.exe"

# on met le son à fond
SetVolume 255

# on passe en mode paysage
Rotate 90

# on lance TomTom Navigator
RunWait "\Program Files\Navigator\TomTom Navigator.exe"

# on met le son moyen
SetVolume 50

# on passe en mode portrait
Rotate 0

Else

# on réaffiche TomTom Navigator
Show TomTom Navigator

EndIf

#fin
makuu
CITATION(Huck33 @ 19-04-2007, 09:08 ) [snapback]49138[/snapback]
pour lancer en mode paysage avec le volume à fond
############################################
# Lancement TomTom Navigator v6 en paysage #
############################################

If not procExists "TomTom Navigator.exe"

# on met le son à fond
SetVolume 255

# on passe en mode paysage
Rotate 90

# on lance TomTom Navigator
RunWait "\Program Files\Navigator\TomTom Navigator.exe"

# on met le son moyen
SetVolume 50

# on passe en mode portrait
Rotate 0

Else

# on réaffiche TomTom Navigator
Show TomTom Navigator

EndIf

#fin


C'est bien de ce script que je suis parti mais j'ai supprimé la rotation car je reste en portrait.

Par contre quand tu fait

# on met le son moyen
SetVolume 50


Tu met forcement le volume en moyen en sortant de tomtom,
Il vaut mieux faire

#On historise le son
RegReadDWord HKCU,ControlPanel\Volume,Volume,volume


en début de script avant de monter le son à fond pour mémoriser le volume sonore initial avant lancement de tomtom.

Puis

# on remet le son
Switch %volume%
Case 0
SetVolume 0
Case 858993459
SetVolume 50
Case 1717986918
SetVolume 100
Case -1717986919
SetVolume 150
Case -858993460
SetVolume 200
Case -1
SetVolume 250
EndSwitch


après le runwait qui lance tomtom, pour restituer le volume sonore initial avant lancement de tomtom (et non pas forcément remettre un volume sonore moyen). wink.gif
makuu
Script de rotation avec optimisation de l'affichage de pocketbreeze sur l'écran today.
(l'example gere les deux affichage trueVGA et standard VGA à customiser si votre PPC est QVGA)

Je part de mon écran today à titre d'example:



Si je fais une rotation d'écran voila ce que j'obtiens:



En utilisant ce script:

CITATION
RegReadDWord HKLM, Drivers\Display\GPE, LogicalPixelsX, pixelMode

if equals %pixelMode%,96

If ( Screen( "portrait" ) = 1 )

#put 230 pixels for PocketBreeze Limit Height for Landscape in trueVGA mode
#mettre 230 pixels pour la limite en hauteur de PocketBreeze en Paysage mode trueVGA
RegWriteDWord( "HKCU", "Software\SBSH\PocketBreeze", "dHeightLimit",230 )
RedrawToday
Rotate( 90 )
Else
#put 390 pixels for PocketBreeze Limit Height for Portrait in trueVGA mode
#mettre 390 pixels pour la limite en hauteur de PocketBreeze en Portrait mode trueVGA
RegWriteDWord( "HKCU", "Software\SBSH\PocketBreeze", "dHeightLimit",390 )
RedrawToday
Rotate( 0 )
Endif

Else

If ( Screen( "portrait" ) = 1 )

#put 200 pixels for PocketBreeze Limit Height for Landscape in native VGA mode
#mettre 200 pixels pour la limite en hauteur de PocketBreeze en Paysage mode VGA standard
RegWriteDWord( "HKCU", "Software\SBSH\PocketBreeze", "dHeightLimit",200 )
RedrawToday
Rotate( 90 )
Else
#put 360 pixels for PocketBreeze Limit Height for Portrait in native VGA mode
#mettre 360 pixels pour la limite en hauteur de PocketBreeze en Portrait mode VGA standard
RegWriteDWord( "HKCU", "Software\SBSH\PocketBreeze", "dHeightLimit",360 )
RedrawToday
Rotate( 0 )
Endif

EndIf


Voila ce que j'obtiens:



L'affichage est optimisé à l'ecran avec tous mes pluggin et sans l'ascenseur à droite. smile.gif
Huck33
il existe un site qui donne des scripts :

ici

un script "intéressant" pour HTC

CITATION
This script turns off your display and turns on your camera's flash so that you can use it as a flashlight.

At the end of a nine second delay, settings are returned to normal.

This script requires vijay candela which is available here and only works on HTC phones.

Works on: HTC PPCs. (Maybe others, use at your own risk either way)


ce script éteind votre écran et allume le flash de l'appareil pour l'utiliser comme une lampe pendant 9 secondes
Il faut avoir Vijay candela sur la amchine pour utiliser ce script

le script ets dispo ici

sinon le voici

CODE
# Flashlight Script By Sam Garfield
# [url=http://gthing.net]http://gthing.net[/url]
# Turns on your camera flash for nine seconds and turns off the display
#
# Requires vijay Candela available here: [url=http://www.vijay555.com/?Releases:VJCandela]http://www.vijay555.com/?Releases:VJCandela[/url]
# vijay Candela only works on HTC devices
# If you found a similar program for other phones, you could call it here
# Released under Creative Commons Attribution-Noncommercial-Share Alike 2.5 License
#


SetBackLight (0, 0)
Run( "\Windows\Start Menu\Programs\Vijay555\VJCandela\VJCandelaLite.lnk")
Sleep (9000)
Run( "\Windows\Start Menu\Programs\Vijay555\VJCandela\VJCandelaLite.lnk")
SetBackLight (100,100)
P@sc@l
Vous êtes trop fort les gars....

Je voudrai un script pour mon X500 qui me lance mon PDA en lampe de poche, me conduise à 6h du mat avec le GPS jusqu'à la machine à café, lance le BT pour démarrer la cafetière, envoie en infrarouge la la télé la chaine 3 pour télématin, vérifie si j'ai du courrier dans ma boite aux lettres électronique, et commande ce qu'il manque dans le frigo.

Merci eusa_clap.gif
Huck33
Pour ta commande frigo, toute les marques de frgio ne sont pas gérées c'est le seul point noir de mortscript.
Ta cafetière gère-t-elle le BT2.0?

sinon aucun pb happy.gif
P@sc@l
Je l'avais dit plus haut, vous êtes vraiment au top les gars... je vous garde sur PPCCool blush.gif
Huck33
CITATION(P@sc@l @ 16-05-2007, 16:20 ) [snapback]50364[/snapback]
Je l'avais dit plus haut, vous êtes vraiment au top les gars... je vous garde sur PPCCool blush.gif


dance1.gif dance1.gif
makuu
Script de passage en Haute résolution pour surfer avec PIE en mode paysage.
(Ce script force PIE en High Resolution Paysage pour un PPC VGA)

Exemple en surfant sur imdb.com avec PIE en natif VGA:



En plein écran:



Si l'os de votre PPC est en WM5 aku 3 ou WM6, vous pouvez utiliser en mode haute résolution. Sinon vous pouvez aussi surfer avec PIE en haute résolution en basculant en mode TrueVGA.

En général j'utilise mes axims en TrueVGA. Mais dans le cas ou je suis en vga Natif, j'utilise ce script pour surfer en haute résolution. Cela me permet de le faire sans soft reset.

En utilisant ce script:

CITATION
RegReadDWord HKLM, Drivers\Display\GPE, LogicalPixelsX, pixelMode

#Check that device is running in Native VGA Mode
#On vérifie que l'appareil est en mode VGA Natif
if equals %pixelMode%,192

#Check that display is on Portrait Mode
#On verifie que l'affichage est en mode portrait
If ( Screen( "portrait" ) = 1 )

#some PIE settings backup
#sauvegarde des parametres d'affichage de PIE
ViewMode = RegRead( "HKCU", "Software\Microsoft\Internet Explorer\Main", "MakeFit")
ZoomMode = RegRead( "HKCU", "Software\Microsoft\Internet Explorer\Main", "ZoomSetting")


#Modifying system settings for High Res display
#Changement des parametres systeme pour affichage High Res
RegWriteDWord( "HKLM", "Drivers\Display\GPE", "LogicalPixelsX",96 )
RegWriteDWord( "HKLM", "Drivers\Display\GPE", "LogicalPixelsY",96 )
#Forcing PIE Display to Desktop mode and Zoom for Largest Font
#On force l'affichage de Pie en Mode Desktop et Font les plus grandes
RegWriteDWord( "HKCU", "Software\Microsoft\Internet Explorer\Main", "MakeFit",0 )
RegWriteDWord( "HKCU", "Software\Microsoft\Internet Explorer\Main", "ZoomSetting",4 )

#Rotate to Landscape and loading High Res change in system
#Rotation mode Paysage et prise en compte des paramètres High Res par le systeme
Rotate( 90 )

# Launching PIE
# on lance pie
RunWait "\Windows\iexplore.exe"

#After closing PIE, we reverse to original PIE settings and restore native VGA mode to system
#A la fermeture de PIE, on retabli les paramètres d'origine de PIE et on rétablie les valeurs VGA

native au systeme
RegWriteDWord( "HKCU", "Software\Microsoft\Internet Explorer\Main", "MakeFit",ViewMode )
RegWriteDWord( "HKCU", "Software\Microsoft\Internet Explorer\Main", "ZoomSetting",ZoomMode )
RegWriteDWord( "HKLM", "Drivers\Display\GPE", "LogicalPixelsX",192 )
RegWriteDWord( "HKLM", "Drivers\Display\GPE", "LogicalPixelsY",192 )

#We check if the display is on portrait for double rotation to be sure the proper VGA system

settings are loaded in system
#On verifie si on est en mode portrait pour une double ratation afin d'etre sur que les paramètres

VGA sont coherents dans le systeme
If ( Screen( "portrait" ) = 1 )

Rotate( 90 )
Rotate( 0 )

Else

Rotate( 0 )

Endif

Else

Message( "This script will only run from Portrait mode", "Warning" )


EndIf

Else

Message( "You are already in High Res mode !!!", "" )


EndIf




et en plein écran:



Le résultat est 100% fonctionel en mode plein écran. Par contre en mode normal, l'affichage dans la zone des softkeys n'est pas parfait, elle reste cependant fonctionnelle. Il peut y avoir des problèmes d'affichage du clavier d'origine pour la saisie dans PIE, dans ce cas pour rétablir l'affichage, il suffit de reselectionner le clavier dans la zone SIP.

Warning
Je conseille fortement l'installation des dll trueVGA, car comme le script modifie les valeurs des LogicalPixels si jamais vous faites un soft reset avant de fermer PIE, vous vous retrouverez en mode trueVGA. Pour éviter tout effet de bord n'utilisez pas d'autres applications avant de fermer PIE.

Utilisez ce script avec précaution et aprés avoir fait un backup de votre machine. L'utilisation de ce script est
sous votre entière responsabilité.


ci-joint le script PIEhighRES.mscr et PIEhighRES_Ramdisk.mscr si vous avez insallé Ramdisk.
makuu
Scrip de lancement d'Opera 8.65 avec utilisation du cache en Ram (via

Ramdisk).

(Necessite un RamDisk, le script vérifie l'installation de Ramdisk si Ramdisk n'est pas correctement installé vous serez prévenu par un warning, la re-location du cache doit être faite au préalable en éditant le fichier \Application Data\Opera\opera.ini et en lui ajoutant cette ligne:
Cache Directory4=\Ramdisk (dans [User Prefs])
Le script essaye de monter un Ramdisk de 8192 Mo, 6144 Mo ou 4096 Mo, s'il n'y a pas assez de ram disponible il fait un abort avec message.


CITATION
############################################
# Opera Launcher using Ramdisk Cache #
############################################


#Check if Ramdisk is properly installed
if ((FileExists( "\Windows\ramdisk.exe" ) = 0) || (FileExists( "\Windows\ramdisk.dll" ) = 0))

Message( "RamDisk not properly installed", "Abort" )

Else

#Try to load RamDisk-8192
RunWait "\Windows\ramdisk.exe" ,8192

#Test if successfully loaded 8192 Mo Ramdisk
if ( DirExists("\Ramdisk") = 0 )
#If not try a smaller 6144 Mo Ramdisk
RunWait "\Windows\ramdisk.exe" ,6144
Endif

#Test if successfully loaded 6144 Mo Ramdisk
if ( DirExists("\Ramdisk") = 0 )
#If not try a smaller 4096 Mo Ramdisk
RunWait "\Windows\ramdisk.exe" ,4096
Endif

#Test if successfully loaded 4096 Mo Ramdisk
if ( DirExists("\Ramdisk") = 0 )
#If not end with warning
Message( "Could not create Ramdisk, you need to free some Ram and Re-Run!!!", "Abort" )

Else

#Read Opera Path
OperaPath = RegRead( "HKLM", "Security\AppInstall\Opera Software Opera", "InstallDir")

#Launching Opera

RunWait ( OperaPath & "\OperaWM.exe" )

#RamDisk-unload
Run "\Windows\ramdisk.exe" ,/U

Endif

Endif


Warning
Noubliez pas d'ajouter la ligne Cache Directory4=\Ramdisk dans le fichier opera.ini file (sous [User Prefs]). Le script a été seulement testé avec 8.65 béta, le script ne fonctionnera pas si après l'installation
d'opéra vous avez deplacé le .exe.


Nota
Ce script est fortement recommandé si vous utilisez un x50v ou un hx4700 sous WM5.
camomille
EXEMPLE D'AUTOMATISATION DES REGLAGES WIFI POUR UN PARC DE X50V

Script intervenant après un Hard Reset permettant :
de differencier 2 (ou plus) PDAs
d'arreter les timings ON/OFF et éclairage (optionnel)
d'effectuer tous les réglages de la connection Wifi en fonction du X50V reconnu.

Il suffit d'avoir :
Numeros UUID dans Demarrer/Parametres/Systeme/Iformations Systeme
Nom des PDAs (arbitraire) terminé par un numero d'ordre (pour ActivSync ou Pocket Controller)
Adresses IP et passerelle
Nom du reseau et Clef WEP
et le programme free device info version 1.2
http://www.hfrmobile.com/DeviceInfo/index.htm

CITATION
v1="## ## ## ## ## ## ## ## ## ##" # UUID 1er PDA (10 premiers octets)
v2="## ## ## ## ## ## ## ## ## ##" # UUID 2e PDA (10 premiers octets)
Run \Carte SD\MortScript\EXE\DeviceInfo.exe # Chemin de DeviceInfo
Sleep 1500
MouseClick 10,630
Sleep 1500
SendCR
Sleep 1500
SendOK
Sleep 1500
SendOK
Sleep 1500
x=ClipText()
Sleep 1500
y=Find(x,v1)
If(y<>0)
idt="X50v1" #Nom 1er PDA
Endif
z=Find(x,v2)
If(z<>0)
idt="X50v2" #Nom 2e PDA
Endif
If(y+z=0)
idt="Invité"
Endif
RegWriteString("HKLM","Ident","Name",idt)
RegWriteDWord("HKLM","System\CurrentControlSet\Control\Power\Timeouts","BattSuspendTimeout",0)
RegWriteDWord("HKCU","ControlPanel\Backlight","BatteryTimeout",0)
x=Length(idt)
y=SubStr(idt,x,1)
w=y+4 #No adresse IP (pour moi 5 et 6)
Run \Windows\remnet.exe
Sleep 1500
MouseClick 136,574
Sleep 1500
MouseClick 300,200
Sleep 1500
MouseClick 450,200
Sleep 1500
MouseClick 224,235
Sleep 1500
SendOK
Sleep 1500
SendOK
Sleep 1500
Run \Windows\WLANUtility.exe
Sleep 1500
MouseClick 115,417
Sleep 1500
MouseClick 215,407
Sleep 1500
MouseClick 32,189
Sleep 1500
MouseClick 228,239
Sleep 1500
SendKeys("192.168.000.00"&w) #Adresse IP moin dernier chiffre
Sleep 1500
MouseClick 228,291
Sleep 1500
MouseClick 228,344
Sleep 1500
SendKeys("192.168.000.001") #Adresse passerelle
Sleep 1500
MouseClick 207,412
Sleep 1500
MouseClick 207,220
Sleep 1500
SendKeys("192.168.000.001") #Adresse DNS
Sleep 1500
SendOK
Sleep 1500
SendOK
Sleep 1500
SendOK
Sleep 1500
MouseClick 115,266
Sleep 8000
MouseClick 115,417
Sleep 1500
MouseClick 132,136
Sleep 1500
MouseClick 197,131
Sleep 1500
SendKeys("#######") # Nom reseau
Sleep 1500
MouseClick 452,186
Sleep 1500
MouseClick 228,253
Sleep 1500
MouseClick 154,413
Sleep 1500
MouseClick 450,135
Sleep 1500
MouseClick 264,171
Sleep 1500
MouseClick 31,229
Sleep 1500
MouseDown 195,284
Sleep 3000
MouseUp 195,284
Sleep 1500
MouseClick 363,530
Sleep 1500
SendKeys("##########") # Clef WEP
Sleep 1500
MouseClick 250,412
Sleep 1500
MouseClick 31,130
Sleep 1500
SendOK
Sleep 2000
SendOK
Sleep 2000
SendOK


Bien entendu ,il faut l'addapter à son besoin car les position sont pour X50V sous WM2003SE.
Tout ceci car je n'ai pas decouvert les registre BDR à modifier directement
Dans tous les cas ne pas oublier de faire ses sauvegardes.

@+
camomille
MOUSECLICK , MOUSEDBLCLICK , MOUSEDOWN , MOUSEUP Plus facile



Methode empirique pour recupérer les coordonées x,y d'un PDA sous Pocket Controller Pro grace au logiciel gratuit MouseZoom

http://www.neuber.com/free/mousezoom/index.html

Programme permettant :
Loupe 0 à 50x (Grande precision de la position surtout pour les coches)
Position souris x,y absolue
Position souris x,y relative à une fenetre (Celui qui nous interesse)
Pipette couleur

La seule difficulté vient du fait que la position relative 0,0 n'est pas programmable et qu'il
faut appliquer un offset aux coordonnées lues sur le Skin.

Pour le Skin X50V

0,0 = 62,88
480x640 =302,408
On en deduit la formule
x reel =(x lu - 62)*2
y reel =(y lu - 88)*2)

Il faut jouer de la calculette mais par rapport à des screenShots le gain de temps est appreciable
surtout s'il y a beaucoup de valeurs à récuperer

@+
toniolol
Bien vu Camomille, je vais avoir besoin de ça sous peu...dès que je me sors de ma galère qui est la suivante :

Je veux contrôler l'activation/désactivation du blutooth avec gestion du son comme sur TomTom mais je ne veux pas utiliser un programme tiers, je lance donc le Comm Manager intégré à mon S300+ mais il plante sur l'attente deenêtre active en me disant qu'elle n'existe pas !
Une idée ?

Voici ce qui nous intéresse dans le script :

CODE
#Def
AppDir = "\Windows"
App = "CommManager.exe"
AppWindowName = "Comm Manager"

#Activation
Run (AppDir \ App)
WaitForActive( AppWindowName, 10 )


Et paf ça plante sur la dernière ligne bien que le Comm Manager se soit lancé...
J'ai vérifié dans le task manager, l'appli s'appelle bien Comm Manager !?!
makuu
Voici un autre exemple de script que j'ai écris pour gerer l'activation du BT pour igo.

Sinon tu peux essayer ozBT. wink.gif
toniolol
Je vais temporairement utiliser BTswitch, merci du lien...
Mais je suis tétu et je n'arrive pas à comprendre pourquoi il ne reconnait pas la fenêtre active Comm Manager....
camomille
Programmes simples et legers pour actionner le BT à deposer à la racine Windows CE ,c'est ce que j'utilise sur X50V

BTOFF
BTON

@+
toniolol
Merci pour les liens, je les garde sous le coude !
Ce sont des applis que tu as développé ?

Sinon j'ai avancé dans mon idée et je constate que SetVol modifie la key Volume qui correspond au volume du PDA mais je ne trouve rien pour modifier la key ringer qui correspond au volume du tél.
Si j'écris directement dans le registre, les modifs ne semblent pas être prises en compte immédiatement, la jauge du volume ne bouge pas d'un poil...y a t'il un SetRinger caché quelque part ?

Merci d'avance !
toniolol
Re bonjour !

J'ai avancé depuis hier et finalement le volume de la sonnerie "Ringer" ne m'interesse pas pour le moment...
Donc voici ce que je voulais :
* un script qui lance TomTom avec au prélalable un "préchauffage" du GPS avec VisualGPSce et également la mise à fond du son avec en sortie de TomTom le retour à la valeur initiale.
* un script qui lance le bluetooth avec une mise à fond du son et un retour à la normale lors de l'arrêt de ce dernier.

Donc il m'a fallu gérer l'implication des deux scripts pour ne pas toucher au volume, le monter ou le baisser en fonction de qui démarre, qui s'arrête et qui tourne en même temps, je stocke donc le volume initial dans une clé de registre.
De là sont nés 4 scripts...
Ils sont également dans le fichier joint qui contient aussi les dll pour les icônes de TomTom et du Bluetooth.

Merci d'avance de vos critiques et/ou avis !

Fichiers connexes :
* VisualGPSse : le démarrer une première fois pour régler dans "CONNECT" le COM9 à 115200.
* BTswitch 0.1 : pour switcher le Blutooth

CODE
##################################
# Lancement TomTom Navigator v6  #
# TomTom.mscr - v0.1             #
# toniolol - 09/08/2007          #
##################################


#Variables
AppUp = "\Carte de stockage\Scripts\SoundUp.mscr"
AppDown = "\Carte de stockage\Scripts\SoundDown.mscr"
AppTTN = "\Carte de stockage\Navigator\TomTom Navigator.exe"
AppTTNname = "TomTom Navigator"
AppVGps = "\Carte de stockage\Program Files\VisualGPSce\VisualGPSce.exe"
AppVGpsName = "VisualGPSce"
BTState = RegRead("HKLM", "System\State\Hardware", "Bluetooth")
TTNState = procExists("TomTom Navigator.exe")


#Si TTN off -> Démarrage de TomTom
If (TTNState = 0)
    #Si BT off
    If (BTState = 8)
        Run(AppUp)
    EndIf
    #Lancement Visual GPS pour accélerer le fix
    Run(AppVGps)
    Sleep(1000)
    SendCR
    Sleep(6000)
    Close(AppVGpsName)
    
    #Lancement TTN
    RunWait(AppTTN)
    
    #Arrêt TTN
    ##Si BT off
    If (RegRead("HKLM", "System\State\Hardware", "Bluetooth") = 8)
        Run(AppDown)
    EndIf
else
#Si TTN déjà on -> Affichage de TomTom
    Show(AppTTNname)
EndIf


CODE
############################################
# Changement d'état du Bluetooth et du son #
# Bluetooth.mscr - v0.1                    #
# toniolol - 09/08/2007                    #
############################################


#Variables
AppBT = "\Carte de stockage\Scripts\BTSwitch.exe"
AppUp = "\Carte de stockage\Scripts\SoundUp.mscr"
AppDown = "\Carte de stockage\Scripts\SoundDown.mscr"
BTState = RegRead("HKLM", "System\State\Hardware", "Bluetooth")
TTNState = procExists("TomTom Navigator.exe")

#Si BT off -> Démarrage
If (BTState = 8)
    SleepMessage(2,"Activation du Bluetooth...","Information",0)
    #Si TTN off
    If (TTNState = 0)
        Run (AppUp)
    EndIF
else
#Si BT on -> Arrêt
    SleepMessage(2,"Arrêt du Bluetooth...","Information",0)
    #Si TTN off
    If (TTNState = 0)
        Run (AppDown)
    EndIF
EndIF

#Switch du BT qu'il soit on ou off...c'est le but du script !
Run (AppBT)
Vibrate(1000)


CODE
#######################################
# Historisation et mise au max du son #
# SoundUp.mscr - v0.1                 #
# toniolol - 09/08/2007               #
#######################################


#Sauvegarde des vol actuel dans registre (HKEY_USERS)
RegWriteDWord("HKUS","toniolol","Volume",RegRead("HKCU","ControlPanel\Volume","Volume"))


#Mise au max du volume du PDA
SetVolume 255


CODE
##############################
# Retour à la normale du son #
# SoundDown.mscr - v0.1      #
# toniolol - 09/08/2007      #
##############################


#Lecture du registre (HKEY_USERS) (si inexistant vol à 100)
If { RegKeyExists("HKUS","toniolol") = 1 }
    Volume=RegRead("HKUS","toniolol","Volume")
else
    Volume=-1717986919
EndIf

#Remise du son à l'état d'origine (si existant)
Switch %Volume%
    Case 0
        SetVolume 0
    Case 858993459
        SetVolume 50
    Case 1717986918
        SetVolume 100
    Case -1717986919
        SetVolume 150
    Case -858993460
        SetVolume 200
    Case -1
        SetVolume 250
EndSwitch
camomille
***********************FIX musical**************************

Bonjour et merci à toniolol de m'avoir inspirer en parlant de "prechauffage de GPS".

Ecrit pour Mortscript 4.01 b17
Pour un X50V permet :

Lancement BT
passage en mode Landscape sur ecran externe.
Attente du Fix avec signalisation sonore du niveau.
Attente du niveau 3 pour lancer MN6.
Elimination du message d'information

CITATION
Run BTConnManagerCE.exe
Sleep 6000
Rotate 90
Run mirror.exe
SetComInfo("COM7:",10000,38400,"None",8,1,"None")
Sleep 1000
WriteFile("COM7:","",0)
While(flag=0)
x=ReadFile("COM7:",1000)
Sleep 1500
y=Find(x,"$GPGSA")
Sleep 1500
Switch(SubStr(x,y+9,1))
Case(1)
Playsound("Loudest")
Case(2)
Playsound("Alarm2")
Case(3)
Playsound("Alarm4")
flag=1
EndSwitch
Endwhile
Kill("BTConnManagerCE.exe")
Run \Carte SD\MN6\MN6.exe
Sleep 50000
MouseClick 465,400
Exit


à+
camomille
MOUSECLICK , MOUSEDBLCLICK , MOUSEDOWN , MOUSEUP encore plus facile

Voila le complément idéal pour Pocket Controller Pro .
Il suffit de positionner le curseur (croix ou pipette) dans l'angle Superieur Gauche de l'ecran du Skin et d'appuyer sur Ctrl pour memoriser le 0,0 relatif. rolleyes.gif
Il faut maintenir la touche souris sinon le curseur monté sur elastique retourne au chaud près de sa loupe et repart en absolu. cry2.gif
Pour lire les valeurs x,y exacte en fonction de son format d'ecran :
En QVGA (240x320) sur PCP Zoom à 50% et affichage du Skin.
En VGA (480x640) sur PCP Zoom à 100% et elliminer le Skin (Setting/Edit profile et decocher View in Skin )
Utilisable en portrait comme en Landscape.
Il existe en plusieures langues dont le Français.
Il fait loupe , pipette , etc....
Et il est gratuit eusa_clap.gif eusa_clap.gif



Vous trouverez cette petite merveille ici :
http://prall.net/colorcop

@+
toniolol
Script de désactivation de la veille, de mise au max du rétro éclairage et de lancement d'OziExplorer

Bonjour,
le coeur du script provient directement de chez Mort, adapté à mes besoins concernant l'utilisation de mon S300+ en rando à pied et VTT !

CODE
####################################
# Lancement OziExplorer Full Light #
# OziExplorer.mscr - v0.1          #
# toniolol - 21/08/2007            #
####################################

#Lecture registre
BattSuspendTimeout = RegRead ("HKLM", "System\CurrentControlSet\Control\Power\Timeouts","BattSuspendTimeout")
ACSuspendTimeout = RegRead ("HKLM", "System\CurrentControlSet\Control\Power\Timeouts","ACSuspendTimeout")
BatteryTimeout = RegRead ("HKCU", "ControlPanel\Backlight", "BatteryTimeout")
ACTimeout = RegRead ("HKCU", "ControlPanel\Backlight", "ACTimeout")
Brightness = RegRead ("HKCU", "ControlPanel\Backlight", "Brightness")
ACBrightness = RegRead ("HKCU", "ControlPanel\Backlight", "ACBrightness")

#Ecriture registre
RegWriteDword ("HKLM", "System\CurrentControlSet\Control\Power\Timeouts","BattSuspendTimeout",0)
RegWriteDword ("HKLM", "System\CurrentControlSet\Control\Power\Timeouts","ACSuspendTimeout",0)
RegWriteDword ("HKCU", "ControlPanel\Backlight", "BatteryTimeout", 0)
RegWriteDword ("HKCU", "ControlPanel\Backlight", "ACTimeout", 0)
RegWriteDword ("HKCU", "ControlPanel\Backlight", "Brightness", 10)
RegWriteDword ("HKCU", "ControlPanel\Backlight", "ACBrightness", 10)

#Application
RunWait ("\Carte de stockage\OziExplorer\OziExplorerCE.exe")

#Retour à la normale des valeurs du registre
RegWriteDword ("HKLM", "System\CurrentControlSet\Control\Power\Timeouts","BattSuspendTimeout",BattSuspendTimeout)
RegWriteDword ("HKLM", "System\CurrentControlSet\Control\Power\Timeouts","ACSuspendTimeout",ACSuspendTimeout)
RegWriteDword ("HKCU", "ControlPanel\Backlight", "BatteryTimeout", BatteryTimeout)
RegWriteDword ("HKCU", "ControlPanel\Backlight", "ACTimeout", ACTimeout)
RegWriteDword ("HKCU", "ControlPanel\Backlight", "Brightness", Brightness)
RegWriteDword ("HKCU", "ControlPanel\Backlight", "ACBrightness", ACBrightness)


C'est un code très simple, modifiable facilement pour n'importe quelle application !

En pièce jointe la dll pour l'icône d'Ozi pour le raccourci. (Comme toujours l'icône a pour n° le 1)

Armaniz
Salut à vous,

je viens de faire un ptit script tout mignon pour virer Odissey Client :
évidement c'est pour les oiseaux rares comme moi, qui seraient restés sous 2003 SE...

CITATION
SetFileAttribute ( "\Program Files\Funk Software\Odyssey Client\OdClientCE.exe", "readonly", FALSE )

Delete ( "\Program Files\Funk Software\Odyssey Client\OdClientCE.exe" )


Ensuite il suffit de faire un raccourcis du script dans le "startup" et hop il est déchargé à chaque démarrage.

smile.gif
toniolol
Bonjour,

j'ai besoin d'aide de scripteurs pour automatiser l'installation de Cabs vers la carte de stockage, celle vers le device existe ici.

Le but est donc de lancer un Cab.
Choisir l'option 'Carte de Stockage'
Lancer l'install.
Cliquer sur 'OK' puis passer à la suivante.

Le hic c'est que je ne peux pas lancer des WaitForWindows car elles ne semblent pas avoir de nom.
Pour le moment je jongle avec des timers mais c'est pas propre et selon l'install ca va foirer...
Voici le script :

CODE
#Lancement du cab
Run("\Carte de stockage\Test Cab\PocketCM-0.15.cab")

#Attente
Sleep(3000)

#Un fois vers le bas pour sel Carte de Stockage
SendDown

#Appui sur entrée pour sélectionner le radiobutton
SendCR

#Clic sur "Installer"
MouseClick(46,306)

#Attente
Sleep(6000)

#Clic sur "OK"
MouseClick(230,12)


Merci d'avance de votre aide.
Jeoffrey
Bonjour à tous,

Je posséde un Pocket PC GPS Fujitsu Siemens Loox N560 avec TomTom Navigator 6 et je voudrais créé un script avec mortscript pour automatiser les manipulations que j'ai à faire avant de lancer tomtom. J'ai commencé le script mais je bloque à certain endroit (je sais pas ce que je dois mettre) et en plus je sais pas si je l'ai fait de la meilleur maniére car je n'ai pas mis les if (je sais plus si c'est if) pour dire qu'avant d'effectué la commande suivante, la commande actuel doit se terminer. Alors voila si il y a des connaisseurs qui peuvent jeter un coup d'oeil et m'aider sa serais vraiment trés gentille.

################################################################################
########
# Lancement de TomTom Navigator v6 en paysage + CPU max + voyants éteints + son au max #
################################################################################
########

If not procExists "TomTom Navigator.exe"

# on desactive l'infrarouge


# on augmente le cpu au max en mode turbo


# on eteint les voyants
Run "\Program Files\LooxLight\LooxLightCtrl.exe"
Sleep 1000
MouseClick 410, 91
Sleep 1000
MouseClick 410, 151
Sleep 1000
MouseClick 410, 211
Sleep 1000
MouseClick 410, 266
Sleep 1000
MouseClick 410, 324
Sleep 1000

# on met le son à fond
SetVolume 255

# on passe en mode paysage
Rotate 270

# on lance TomTom Navigator
RunWait "\Program Files\Navigator\TomTom Navigator.exe"

# on met le son moyen
SetVolume 100

# on passe en mode portrait
Rotate 0

# on eteint les voyants


Else

# on reaffiche TomTom Navigator
Show TomTom Navigator

# on remet le cpu sur automatique


EndIf

#fin

Pour désactiver l'infrarouge, il faudrait décocher la case dans paramétres / connexions / envoyer / recevoir toutes les données entrantes. (Ou le faire directement via la base de registre).
Pour augmenter le CPU, il faudrait cocher la case dans paramétres / Systémes / Processor / Mode turbo. Ou le faire directement via la base de registre).
Ensuite pour éteindre les leds du pda, mettre le son à fond, passer en mode paysage et lancer tomtom => ça fonctionne mais si vous avez d'autres idées pour améliorer je suis preneur.
Idem lorsque je quitte tomtom, le son se remet normal et le pda se remet en portrait => ça fonctionne.
Par contre aprés je voudrais savoir comment je pourrais faire pour qu'une fois que j'ai rallumé les leds le softs se referme automatiquement (je crois que sa se fait avec la commande close) et comment remettre la vitesse du cpu en automatique.

Merci d'avance pour les futures réponses.
Jeoffrey
Personne ne sait ??? personne ne peut m'aider ???


CITATION(Jeoffrey @ 19-01-2008, 01:15 ) *
Bonjour à tous,

Je posséde un Pocket PC GPS Fujitsu Siemens Loox N560 avec TomTom Navigator 6 et je voudrais créé un script avec mortscript pour automatiser les manipulations que j'ai à faire avant de lancer tomtom. J'ai commencé le script mais je bloque à certain endroit (je sais pas ce que je dois mettre) et en plus je sais pas si je l'ai fait de la meilleur maniére car je n'ai pas mis les if (je sais plus si c'est if) pour dire qu'avant d'effectué la commande suivante, la commande actuel doit se terminer. Alors voila si il y a des connaisseurs qui peuvent jeter un coup d'oeil et m'aider sa serais vraiment trés gentille.

################################################################################
########
# Lancement de TomTom Navigator v6 en paysage + CPU max + voyants éteints + son au max #
################################################################################
########

If not procExists "TomTom Navigator.exe"

# on desactive l'infrarouge


# on augmente le cpu au max en mode turbo


# on eteint les voyants
Run "\Program Files\LooxLight\LooxLightCtrl.exe"
Sleep 1000
MouseClick 410, 91
Sleep 1000
MouseClick 410, 151
Sleep 1000
MouseClick 410, 211
Sleep 1000
MouseClick 410, 266
Sleep 1000
MouseClick 410, 324
Sleep 1000

# on met le son à fond
SetVolume 255

# on passe en mode paysage
Rotate 270

# on lance TomTom Navigator
RunWait "\Program Files\Navigator\TomTom Navigator.exe"

# on met le son moyen
SetVolume 100

# on passe en mode portrait
Rotate 0

# on eteint les voyants


Else

# on reaffiche TomTom Navigator
Show TomTom Navigator

# on remet le cpu sur automatique


EndIf

#fin

Pour désactiver l'infrarouge, il faudrait décocher la case dans paramétres / connexions / envoyer / recevoir toutes les données entrantes. (Ou le faire directement via la base de registre).
Pour augmenter le CPU, il faudrait cocher la case dans paramétres / Systémes / Processor / Mode turbo. Ou le faire directement via la base de registre).
Ensuite pour éteindre les leds du pda, mettre le son à fond, passer en mode paysage et lancer tomtom => ça fonctionne mais si vous avez d'autres idées pour améliorer je suis preneur.
Idem lorsque je quitte tomtom, le son se remet normal et le pda se remet en portrait => ça fonctionne.
Par contre aprés je voudrais savoir comment je pourrais faire pour qu'une fois que j'ai rallumé les leds le softs se referme automatiquement (je crois que sa se fait avec la commande close) et comment remettre la vitesse du cpu en automatique.

Merci d'avance pour les futures réponses.


antoineklein
Salut makuu,

je me plonge également dans cet outil de dvlp très sympa.

J'ai modifié un peu ton script de lancement de tomtom ou autre avec maximisation du son, démarrage du BT et arrêt du Wifi, lancement de hibernat et tomtom puis son au moyen, arrêt du BT.


voici les codes de registre pour ceux que ca intéresserait :

pour le BT : 8=arrêté, 9=Démarré
Pour le wifi : 0=arrêté, 1=démarré mais pas connecté, 18=démarré en cours de connexion, 19=démarré est connecté.

pour ma part, n'ayant BTSwitch.exe comme dans ton exemple

# on active le BT
RunWait "\Program Files\BTswitch\BTSwitch.exe"

je suis obligé de passé par le switcher AXIM.

Je le lance en RUN, 2x pour arrêter ou démarrer le BT

et 3 fois pour le WIFI.

C'est pas nickel, je cherche une autre solution, peut tu me dire d'où proviens ce BTSwitch.exe et s'il est compatible X51 ?
toniolol
Bonjour les PDAcros tongue.gif

Je suis en train de réaliser un script (enfin trois) qui pourront peut-être en interesser certains.
C'est un projet un peu geek sur les bords mais pas trop donc si certains sont preneurs je pourrais le mettre en ligne ici.

Donc mon projet à pour but d'avoir des arrières plans de l'écran today qui varient en fonction de la météo mise à jour dans le HTC Home Weather.
La population des PDA concernés est donc limitée car il faut :
* avoir HTC Home
* utiliser sa fonction météo
* être en 320*240 ou 240*320 (la taille au dessus est réalisable je pense mais à tester...)
* vouloir avoir son papier peint qui change en fonction du temps

Donc voilà un parfait programme qui ne sert à rien....des intéressés ?

Pour la partie techniques je m'appuie essentielememt sur le registre et sur les copies et renommage de fichiers.
La mise à jour se fait lorsque l'on allume l'écran de son PDA ou peut-être lancée manuellement, eventuellment je pourrais mettre un timer.
Niveau ressource ça ne mange rien car ça se lance que quand nécessaire.

La suite c'est de forcer les mises à jour du HTC Home Weather lorsque l'on est connecté en WIFI ou ActiveSync mais là je n'ai pas encore de piste pour l'update.
Pour la connection c'est bon mais pour la suite....

A bientôt tongue.gif
Ceci est une version "bas débit" de notre forum. Pour voir la version complète avec plus d'informations, la mise en page et les images, veuillez cliquer ici.
Invision Power Board © 2001-2008 Invision Power Services, Inc.