Probleme pour Shell

Version imprimable

Voir 40 message(s) de cette discussion en une page

11/03/2009, 23h53
Ramdoulou

Probleme pour Shell

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 =)
12/03/2009, 08h10
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 !!!
12/03/2009, 09h38
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...

=/
12/03/2009, 10h57
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 :

Citation:

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...=/
12/03/2009, 12h38
ProgElecT

Citation:

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.
12/03/2009, 12h43
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 ...
12/03/2009, 13h03
Ramdoulou

ProgElect : Vb m'indique que le fichier est introuvable (le raccourci quoi...) =/

Ucfoutu : je ne comprends pas bien ta question =/ j'utilise un ComboBox pour selectionner le jeu, et un CommandButton qui shell l'exectuable du jeu situé dans son repertoire.
12/03/2009, 17h20
ucfoutu

Citation:

Envoyé par Ramdoulou

ProgElect : Vb m'indique que le fichier est introuvable (le raccourci quoi...) =/

Ucfoutu : je ne comprends pas bien ta question =/ j'utilise un ComboBox pour selectionner le jeu, et un CommandButton qui shell l'exectuable du jeu situé dans son repertoire.

1) Et ce sont ces lignes de codes que je voudrais voir (comment est sélectionné l'article dans ta combo et ce que contient le code de ton CommandButton) !
Ainsi que le contenu exact de l'article sélectionné dans ta combo, donc
et
2) (comme déjà demandé !) ce que tu mets (et dont tu dis que ça marche ) dans Démarrer ===>> exécuter

Ce n'est pas difficile de comprendre que si tu veux une analyse, elle passe par cet examen de ton code et une comparaison ... non ?

Voici le code source de mon application :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Explicit
 
Private mFinInitialisation As Boolean
 
Private Sub Form_load()
Me.ReyFrame1.BackColor = &H808080
Form1.Top = 0
mFinInitialisation = False
 
With Combo1
 
.AddItem "Dark Messiah of Might and Magic"
.AddItem "Frets On Fire"
.AddItem "GTA IV"
.AddItem "Gunz"
.AddItem "Le Seigneur des Anneaux : L'Âge des Conquêtes"
.AddItem "Medieval II Total War"
.AddItem "Test Drive Unlimited"
.AddItem "Warhammer Dawn Of War II"
.AddItem "WarRock"
.AddItem "World of Warcraft"
 
.ListIndex = 0
End With
 
mFinInitialisation = True
End Sub
 
Private Sub Combo1_Click()
If mFinInitialisation = False Then
Exit Sub
End If
 
 
End Sub
 
Private Sub ReyCommand1_Click()
If Combo1.Text = "/quit" Then
End
Else
Select Case Combo1.Text
Case "Dark Messiah of Might and Magic": Shell "F:\Ubisoft\Dark Messiah of Might and Magic\mm.exe"
Case "Frets On Fire": Shell "C:\Program Files\Frets on Fire\FretsOnFire.exe"
Case "GTA IV": Shell "F:\GTA IV\Grand Theft Auto IV\LaunchGTAIV.exe"
Case "Gunz": Shell "F:\MAIET\Gunz\GunzLauncher.exe"
Case "Le Seigneur des Anneaux : L'Âge des Conquêtes": Shell "F:\Lord of the Ring\Conquest.exe"
Case "Medieval II Total War": Shell "F:\SEGA\Medieval II Total War\medieval2.exe"
Case "Test Drive Unlimited": Shell "F:\Atari\Test Drive Unlimited\TestDriveUnlimited.exe"
Case "Warhammer Dawn Of War II": Shell "F:\Warhammer Dawn of War II\Loader.exe"
Case "WarRock": Shell "F:\WarRock\WRLauncher.exe"
Case "World of Warcraft": Shell "F:\World of Warcraft\Launcher.exe"
End Select
End If
End Sub

Et voici ce que j'ai écrit dans Démarrer>Executer :
"F:\SEGA\Medieval II Total War\medieval2.exe"

Voilà

12/03/2009, 20h22
ucfoutu
Bon...
Il se peut que tu aies un problème à cause des espaces :
essaye, pour voir (en ajoutant un bouton de commande nommé titi :
Code:

1 2 3 4 5 6 Private Sub titi_Click() dim toto as string toto = "F:\SEGA\""Medieval II Total War""\medieval2.exe" Ret = Shell(toto) msgbox ret End Sub
Clkique sur titi et dis-nous tout ce quio se passe, y compris ce qui s'affiche dans la msgbox.
12/03/2009, 20h37
Ramdoulou

Alors ca me dit que l'argument ou l'appel de procédure est incorrect.
Ce qui est concerné : "ret = Shell(toto)" en me precisant que Ret est vide...

Pardonnez moi, mais sur ce coup jpige pas trop =/

Essais sur un Form tout neuf, avec un CommandButton

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Explicit
 
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
Private Type SHELLEXECUTEINFO
    cbSize As Long
    fMask As Long
    hwnd As Long
    lpVerb As String
    lpFile As String
    lpParameters As String
    lpDirectory As String
    nShow As Long
    hInstApp As Long
    lpIDList As Long
    lpClass As String
    hkeyClass As Long
    dwHotKey As Long
    hIcon As Long
    hProcess As Long
End Type
Private Declare Function ShellExecuteEx Lib "shell32.dll" (SEI As SHELLEXECUTEINFO) As Long
 
Private Sub Command1_Click()
'=====> adapter le chemin et nom du .lnk <===== 
   ShowProps "F:\SEGA\""Medieval II Total War""\Raccourci-medieval2.lnk", Me.hwnd
End Sub
 
Sub ShowProps(FileName As String, OwnerhWnd As Long)
    Dim SEI As SHELLEXECUTEINFO
    Dim r As Long
    With SEI
        'Set the structure's size
        .cbSize = Len(SEI)
        'Seet the mask
        .fMask = SEE_MASK_NOCLOSEPROCESS Or _
         SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
        'Set the owner window
        .hwnd = OwnerhWnd
        'Show the properties
        .lpVerb = "open"
        'Set the filename
        .lpFile = FileName
        .lpParameters = vbNullChar
        .lpDirectory = vbNullChar
        .nShow = 0
        .hInstApp = 0
        .lpIDList = 0
    End With
    r = ShellExecuteEx(SEI)
End Sub

ce code fonctionne pour un .lnk, sous VISTA, ShellExecute lui ne fonctionne pas ni le Shell de VB6
Avec ce code essais aussi directement avec le .exe

Code:

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

12/03/2009, 22h04
Ramdoulou

Merci pour ta réponse.
Je viens d'essayer, mais ca ne fonctionne toujours pas =/

Avec le .lnk aucun resultat (pas d'erreur, ni de lancement)
Avec le .exe, même erreur que précédement =/

C'est fou ça quand meme =o
12/03/2009, 22h50
ProgElecT

Citation:

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

Ayant fait un copier/coller :aie: , 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 ....
12/03/2009, 23h00
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
12/03/2009, 23h21
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.
12/03/2009, 23h58
iclic
Bonjour,

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

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:

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:

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
13/03/2009, 17h47
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.
13/03/2009, 21h25
iclic
bonjour,

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

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+

Merci pour ta réponse, mais ca ne fonctionne toujours pas, ca me remet la meme chose que précédemment à savoir : La méthode "Run" de l'objet "IWshShell3" a échoué

voici mon code :
Code:

1 2 3 4 5 6 Private Sub Command1_Click() Dim Myform As Object Dim resultat Set Myform = CreateObject("Wscript.shell") resultat = Myform.Run("F:\SEGA\Medieval II Total War" & "medieval2.exe", 1, True) End Sub

Voir 40 message(s) de cette discussion en une page