papydall
Nombre de messages : 7017 Age : 74 Localisation : Moknine (Tunisie) Entre la chaise et le clavier Date d'inscription : 03/03/2012
| Sujet: Votre nom en lumière Sam 21 Mar 2015 - 3:35 | |
| Modifier le texte en ligne 12 et adapter le chemin de la KGF.dll en ligne 20. C'est tout. Le reste est dans le code. - Code:
-
rem ============================================================================ rem Texte animé rem ============================================================================ dim hnd%, res%, url$,x1,y1,x2,y2,t$ full_space 0 hnd% = handle(0) ' t$ est le texte qui sera animé, il sera transformé en majuscule ' Tout caractère non alphabétique (en plus de l'espace) sera ignoré ' Les voyelles accentuées sont acceptées ' Si t$ est vide (t$ = "") il sera considéré comme ANOMYMOUS
t$ = "Salut Papydall" : ' Texte à modifier
' Remarque : ' Dans le contenu de url$ (ligne en-dessous) il ne doit pas y avoir d'espace ' ni AVANT ni APRES le signe = final, sinon votre texte sera considéré ' comme ANONYMOUS url$ = "http://www.notcelebrity.co.uk/flashcontent/flashHeader.swf?thename=" url$ = url$ + t$ dll_on "C:\Users\acer\Desktop\kgf.dll" : ' Chemin à adapter Texte_En_Lumiere(100,100,width(0)-200,height(0)-200,t$) end rem ============================================================================ ' x1,y1 : coordonnées du coin supérieur gauche de la fenêtre de vision ' x2,y2 : coordonnées du coin inférieur droit de la fenêtre de vision ' t$ : texte à animer sub Texte_En_Lumiere(x1,y1,x2,y2,t$) res% = dll_call1("WBCreate",hnd%) res% = dll_call4("WBLocate",x1,y1,x2,y2) res% = dll_call1("WBUrl",adr(url$)) res% = dll_call2("WBScrollBars",0,0) end_sub rem ============================================================================
| |
|
Jicehel
Nombre de messages : 5947 Age : 52 Localisation : 77500 Date d'inscription : 18/04/2011
| Sujet: Re: Votre nom en lumière Sam 21 Mar 2015 - 9:42 | |
| Le programme est simple et le résultat sympa | |
|