Pour les dix ans de PANORAMIC

Tout est dans le titre et n'oubliez pas de régler vos haut-parleurs!

Code:: rem ============================================================================
rem Longue vie à PANORAMIC
rem ============================================================================
label quit
dim hnd%,res%,fin%,url$

hnd% = handle(0) : caption 0, "LONGUE VIE A PANORAMIC"
dll_on "c:\users\acer\desktop\dll\kgf.dll" : ' Adapter le chemin qui mène à PANORAMIC, heu à la DLL
full_space 0 : color 0,255,0,0
alpha 10 : top 10,5 : left 10, screen_x /2-200 : top 10, screen_y-200 : font_bold 10 : font_size 10,14
font_color 10,255,255,0 : caption 10,"Cliquez dans la bande rouge pour quitter" : on_click 0,quit

' Essayer une à une ces quatre URL
url$ = "http://fr.picinmotion.com/process.php?clipart_id=34&date=2015-06-14&picname=1-fr-8f0c4ad725b0906a9d15a09980c5a69a"
' url$ = "http://fr.picinmotion.com/process.php?clipart_id=27&date=2015-06-14&picname=1-fr-8f0c4ad725b0906a9d15a09980c5a69a"
' url$ = "http://fr.picinmotion.com/process.php?clipart_id=22&date=2015-06-14&picname=1-fr-8f0c4ad725b0906a9d15a09980c5a69a"
' url$ = "http://fr.picinmotion.com/process.php?clipart_id=15&date=2015-06-14&picname=1-fr-8f0c4ad725b0906a9d15a09980c5a69a"

Animation(url$,50,100,screen_x-100,screen_y-100)

end
rem ============================================================================
sub Animation(Url$,x1,y1,x2,y2)
res%=dll_call1("WBCreate",hnd%)
res%=dll_call4("WBLocate",x1,y1-300,x2,y2)
res%=dll_call1("WBUrl",adr(url$))
res%=dll_call2("WBScrollBars",0,0)
end_sub
rem ============================================================================
quit:
fin% = dll_call1("KillProcessByHandle",handle(0))
rem ============================================================================

Belle déclaration d'amour !!! Laughing

Personnellement, je préfère la 3 ème option qui représente (avec un peu d'imagination) la progression de Panoramic jour après jour.

A+

J'ai regadé les 4 animations, c'est très réussi Papydall Wink

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

pas mal papybal!!!

moi à ta place j'ai installé kgf.dll dans le dossier c:\windows\system32
a partir de là je n'ai a dir ou ce trouve kgf.dll a panoramic
puisque c:\windows\system32 est assigné par windows

Bonne idée, Pascal10000 ! Je n'ai jamais osé le suggérer, ne voulant pas intervenir sur la structure des systèmes des autres. Mais c'est certain: cela résout le problème du chemin d'accès à KGF.dll !

@ Pascal10000,

Est ce qu' en placant kgf.dll dans c:\windows\system32,
ce dossier accepte les mises à jour par un programme ?

Ca dépendra des droit d'accès (écriture, suppression) que tu donnes à l'utilisateur qui fait ma mise à jour.

Ideallement tu devrais avoir un message pop up qui te demande si tu veux bien authoriser cette opération. C'est un peu pénible mais c'est plus sûr

Un moment, je prépare un petit texte pour ajouter un chemin à la variable d’environnement PATH

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

ygeronimi
normalement lorsque tu fais une mise a jour c'est un téléchargement
et un dossier est prévus pour. par contre les mise a jour sont gérées
par windows a ses propre programmes et par certain qui ont le monopole
de le faire automatiquement donc si tu es un bon programmeur tu doit
pouvoir le faire perso je ne sait pas le faire moi je télécharge et je fait un
glisser déplacer ça demande 3 seconde

Jicehel
sur ce point je n'ai plus ce problême que windows me demande oui ou non
pour faire un changement au system!!

C'est fait : c'est ici

» Aide-mémoire des mots-clés Panoramic
» Logithèque : une base de données en Panoramic pour Panoramic
» Des DLL pour Panoramic ?
» Des DLL pour Panoramic
» POUR PANORAMIC