Salut à tous !
Aujourd'hui je vous propose une variante d'un aménagement Yannick Daniel Youalé
La programmation est une religion. Aimez-la, ou quittez-la.
Mon site: www.visuweb.net
Void Function SendURLToVLCApp (string sURL)
; envoi une url à VLC
var
string s,
string sVLCPath,
object oFSO,
object oFil
; le chemin vers votre version de VLC installé
let sVLCPath = "C:\\Program Files\\adslTV\\VLC\\vlc.exe"
; via le fileSystemObject, on recherche le nom court du chemin vers ce fichier
; cela pour éviter les erreurs de chemin dûs aux caractères d'espacement.
let oFSO = CreateObject("Scripting.FileSystemObject")
let oFil = oFSO.GetFile(sVLCPath)
let sVLCPath = oFil.ShortPath()
; libération des objets
let oFil = null()
let oFSO = null()
; constitution de la commande
let s = sVLCPath + " " + sURL + ""
; exécution de la commande
Run (s)
; annonce de l'évènement
SayString ("Envoi du lien de la vidéo vers VLC")
; SayString (sURL)
EndFunction
Script SendURLToVLC ()
; ctrl+shift+v
; envoi l'url du lien sous le curseur à VLC
var
string sURL,
string sLink,
string s,
int i
; on recherche l'adresse URL du lien
let sURL = GetElementDescription (true,false )
; SayFormattedMessage (ot_user_buffer, surl)
; if 1 then return endif
; recherche de la première ligne avec href
let s = StringLower(sURL)
let i = 0
while (i < 10)
let i = i+1
if StringContains (StringSegment (s, "\n", i), "href") then
let sURL = StringSegment (sURL, "\n", i)
let i = 15 ; on force la sortie de la boucle en marquant le succès à la
recherche
endif
EndWhile
; si rien de trouvé
if i < 15 then
SayString ("erreur: le lien n'est pas reconnu")
return
EndIf
; on prend la partie après href
let sURL =stringChopLeft (sURL, 5)
; si adresse incomplète de youtube,
if StringLeft (StringLower (sURL), 6) == "/watch" then
let sURL = "http://www.youtube.com"; + sURL
EndIf
; envoi à vlc
SendURLToVLCApp(sURL)
EndScript
fin du code jawsscript
Voilà ! J'espère que cela plaiera au moins à quelques uns.
Yannick Daniel Youalé
Du Cameroun
La programmation est une religion. Aimez-la, ou quittez-la.
Mon site: www.visuweb.net
