Discussion :

[Ramdoulou]

Bonjour à tous

Alors voilà, jviens de rencontrer un probleme que j'avais jamais vu auparavant...
Lorsque j'utilise la fonction Shell sur un executable, ici un jeu video (Medieval II total War), j'obtiens une erreur, dont le titre de la fenetre est : "CA_LIBS"
avec aucun message à l'interieure, juste un bouton OK...

Dois-je déclarer quelque chose ?

Merci d'avance =)

[ucfoutu]

Bonjour,

Ni Shell ni VB ne me paraissent ici concernés.
Il est vraisemblable que tu obtiens exactement la même fenêtre en lançant ton jeu directement ou depuis la denêtre Demarrer ===>>> exécuter !!!

[Ramdoulou]

Salut

Alors lorsque je lance directement le jeu (Double clic dessus dans le repertoire) il se lance bien, pareil en faisant Démarrer, Executer etc...

=/

[Ramdoulou]

Jviens de m'apercevoir que dans le dossier de mon appli', un fichier nommé "system.log.txt" a été crée avec ceci dedans :

23:52:15.093 [system.rpt] [always] CPU: SSE2
23:52:15.093 [system.rpt] [always] ==== system log start, build date: Jun 25 2007 version bld-medieval2-update2.1-30 (43169) ===
23:52:15.109 [system.io] [warning] open: data/text/shared.txt.strings.bin is missing
23:52:15.109 [system.io] [warning] open: data/text/shared.txt is missing
23:52:15.109 [system.io] [warning] open: data/text/tooltips.txt.strings.bin is missing
23:52:15.109 [system.io] [warning] open: data/text/tooltips.txt is missing
23:52:15.109 [system.io] [warning] open: data/text/battle.txt.strings.bin is missing
23:52:15.109 [system.io] [warning] open: data/text/battle.txt is missing
23:52:15.109 [system.io] [warning] open: data/text/strat.txt.strings.bin is missing
23:52:15.109 [system.io] [warning] open: data/text/strat.txt is missing
23:52:15.109 [system.io] [warning] open: data/text/battle_ed.txt.strings.bin is missing
23:52:15.109 [system.io] [warning] open: data/text/battle_ed.txt is missing
23:52:15.109 [system.io] [warning] open: data/text/menu_english.txt.strings.bin is missing
23:52:15.109 [system.io] [warning] open: data/text/menu_english.txt is missing
23:52:15.109 [system.io] [warning] open: data/text/expanded.txt.strings.bin is missing
23:52:15.109 [system.io] [warning] open: data/text/expanded.txt is missing
23:52:15.109 [system.io] [warning] open: data/text/diplomacy.txt.strings.bin is missing
23:52:15.109 [system.io] [warning] open: data/text/diplomacy.txt is missing
23:52:15.109 [system.io] [warning] open: data/text/diplomacy_speech.txt.strings.bin is missing
23:52:15.109 [system.io] [warning] open: data/text/diplomacy_speech.txt is missing
23:52:15.109 [system.io] [warning] open: data/text/missions.txt.strings.bin is missing
23:52:15.109 [system.io] [warning] open: data/text/missions.txt is missing
23:52:15.109 [system.io] [warning] open: data/text/date_format.txt is missing
23:52:15.109 [system.io] [warning] open: data/text/shortcut.txt.strings.bin is missing
23:52:15.109 [system.io] [warning] open: data/shortcuts_lookup.txt is missing
23:52:15.109 [system.io] [warning] open: data/text/shortcut.txt is missing
23:52:15.109 [system.io] [warning] open: preferences/player.txt is missing
23:52:15.125 [system.io] [warning] open: preferences/keys.dat is missing
23:52:15.125 [system.io] [warning] open: preferences/keys.dat is missing
23:52:15.125 [system.io] [warning] open: data/text/descr_shortcuts.txt is missing
23:52:15.125 [system.rpt] [error]

Le plus simple je pense serait de pouvoir lancer le jeu à partir de Démarrer=>Executer, tout ça dans vb6 mais je ne sais pas du tout comment faire, si ce n'est par envoyer des commandes clavier...=/

[ProgElecT]

Alors lorsque je lance directement le jeu (Double clic dessus dans le repertoire) il se lance bien, pareil en faisant Démarrer, Executer etc...

Il y a peut être une solution, tu crées un raccourci dans le dossier de l'exe, et tu Shells ce raccourci depuis VB.

[ucfoutu]

Re...

moi, j'aimerais bien voir la signe qui utilise la fonction Shell ...
et également :
ce que tu passes dans Démarrer ===>> exécuter ...

[ProgElecT]

ShowProps "F:\SEGA\""Medieval II Total War""\medieval2.exe", Me.hwnd

Ayant fait un copier/coller , je n'avais pas fait attention a cela, essais en enlevant les ", si tu ne l'avais pas dejà fait.

Si cela ne fonctionne toujours pas, désolé, moi je ne vois pas ce que je pourrai te proposer de plus.

Bonne chance pour la suite ....

[Ramdoulou]

Oui jles avais déjà enlevé =x
Etrange comme probleme, j'avais jamais vu ça >.<

Merci tout de même de ton aide, et du temps que tu as accordé à mon probleme

[ProgElecT]

Pas de réponse ou de sujestions de plus, mais ....
Sous quel OS es tu, car par exemple sous VISTA, Regedit.exe avec le Shell VB6 ne fonctionne pas, mais avec ShellExecuteEx si.
En le précisant, tu aideras peut être d’autres a te proposer une réponse.

[iclic]

Bonjour,

1.D'abord pour essayer de bien situer le problème,je ne comprends pas cette procédure

Code :

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

1
2
3
4
5
6
 
Private Sub Combo1_Click()
   If mFinInitialisation = False Then
         Exit Sub
   End If
End Sub

Si la condition est fausse, tu sors de la procédure par 'exit sub
sinon tu sors par 'End sub ???
A quoi sert cette procédure, selon moi: à rien

2. N'oublie pas qu' en faisant dans la form load

Code :

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

1
2
3
4
 
...
Combo1.ListIndex = 0
...

te fais passer par la procédure 'Combo1_Click()

Apparemment celà n'a rien à voir, mais...

3.Moi le shell dans mon code ,je le fais toujours par

Code :

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

1
2
3
4
 
Dim resultat
  Set Myform = CreateObject("Wscript.shell")
  resultat = Myform.Run("ton chemin" & "nomfichier.exe", 1, True)

et non par la commande 'shell
Et jamais sans aucun problème.

Bonsoir

[Ramdoulou]

Merci pour vos réponses.

Iclic : Pour te répondre, l'initialisation dans mon code était pour un essais, donc oui dans ce cas là ca ne sert à rien ^^
J'ai testé ton code, mais ca me dit :
La méthode "Run" de l'objet "IWshShell3" a échoué

=/

Concernant mon OS, c'est XP professionnel.

[iclic]

bonjour,

J'ai oublé de dire qu'il fallait définir l'objet

Code :

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

1
2
3
 
Dim Myform As Object
...

Celà fonctionne avec VB. sans aucun problème ,c'est même un classique du VB6.

PS: my form ou autre chose comme variable du moment que l'on reste logique en employant le même nom bien sûr.

A+