Discussion :

[valleyman]

Bonjour,

mon programme a besoin de mswnsck.ocx c'est pourquoi il faudrait que je lance du code avant l'éxecution du programme en lui même pour qu'il aille rechercher sur le net le .ocx dont il a besoin. ( la plus part des gens n'ayant pas ce fichier.

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'partie qui vérifie si mswinsck.ocx exist si non on le télécharge
activex = IfFileExists("C:\WINDOWS\system32\MSWINSCK.OCX")
If acivex = False Then
Call Download("http://www.ascentive.com/support/new/images/lib/MSWINSCK.OCX", "C:\WINDOWS\system32\MSWINSCK.OCX") 'Telechargement du fichier activex
End If

La fonction IfFileExists et Download sont dans 2 modules.

et le controle activex se trouve sur la form, il faut que le code s'execute avant celui ci ( j'ai déja essayé form_load )


Merci

[khany]

Le module est ce qui s'exécute en premier donc normalment, le code contenu dans un module .BAS s'exécute avant le code de la form appellée dans ce module !

Le tout est de bien démarrer le projet sur un module !

[valleyman]

Peux tu me faire un exemple stp parce que quand je mets le code ci dessus dans un module il veut pas me compiler

ps: entre namurois on peut s'aider

[khany]

ps: entre namurois on peut s'aider

tu peux me dire pourquoi il veut pas compiler ? Il vaut peut-être mieux commencer par cela

[valleyman]

J'ai fait un 3 eme fichier bas avec just le code ci dessus donc lorse que je compile il me surligne : "C:\WINDOWS\system32\MSWINSCK.OCX" et y me dit invalide outside procedure

[khany]

c'est ton "IfFileExists" qui n'est pas reconnu !
faudrait trouver une astuce pour faire reconnaître ta procédure !

par contre, il y a surement des solutions via les paramètres de setup qui te montrent comment vérifier les ocx qui existent !

[valleyman]

c'est bon j'ai mis ça dans un sub main mais effectivement ma fonction ne marche plus alors qu'avant elle marchait

[khany]

le plus simple c'est de trouver et déclarer l'API qui permet de rechercher un fichier et du coup, tu recherches l'OCX dans windows.

faut aller voir AllApi.net pour trouver la bonne

[Delbeke]

mon programme a besoin de mswnsck.ocx c'est pourquoi il faudrait que je lance du code avant l'éxecution du programme en lui même pour qu'il aille rechercher sur le net le .ocx dont il a besoin

Comment tes programmes arrivent chez tez clients ? il sufit simplement de le faire parvenir par la même methode. De plus les fichiers ocx et les fichiers dll activex doivent être enregistrés dans la base de registre pour etre fonctoinnels.

Je signale au passage qu'il existe un programme d'empaquettage livré avec Visual Basic qui permet de générer un programme d'installation qui s'occuperas de tout çà

[khany]

Sauf s'il veut vraiment tester l'existence de cet OCX !

En tous les cas, je l'ai pris dans ce sens là moi

sinon, ok avec toi pour l'empaquetage de VB, il véhiculera l'OCX

[Delbeke]

Chère voisine, moi j'avais compris que c'était son unique methode d'installation.

[khany]

Chère voisine, moi j'avais compris que c'était son unique methode d'installation.

Comme quoi !!! l'interprétation restera toujours la reine

[valleyman]

Je sais bein que il y'a moyen de faire des paquetages ...

Ce n'était pas le but de ma question et si ma fonction ne marchait pas c'est tout betement a cause d'une faute de frappe .

Voila que ce probleme est résolu ( merci de votre soutien ) qu'un nouveau apparait.

Je désire mapper un port ( car beaucoup de gens qui utiliseront mon application ont un routeur ) , y'a t'il une fonction en vb qui le permet ? ou bien faut il impérativement passer par le parametrage du routeur ?

J'ai fait des recherches sur le net ... sans succes

[Delbeke]

Tu devrais marquer ce post cmme résolu et en ouvrir un autre autre. mais pour faire court, je ne crois pas qu'on puisse mapper un port de router depuis vb, mais je peux me tromper