Appel de l'api WiFi : erreur non documentée

Version imprimable

Bonjour à tous.

Je suis désolé de vous saouler, mais je n'arrive ni à avancer, ni à comprendre ce qui cloche...

Je suis sous Windows 10 64 bits et VB 6. J'ai plusieurs programmes qui font appel à diverses API, et qui marchent nickel.

Mais, avec WLanAPI, il n'y a rien à faire, et dès le premier appel : WlanOpenHandle.

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Timer1_Timer() Dim Version As Long Dim negotiatedVersion As Long Dim clientHandle As Long Dim lastError As Long Dim pReserved As Long pReserved = 0 clientHandle = 0 Version = 2 lastError = WlanOpenHandle(Version, ByVal pReserved, negotiatedVersion, clientHandle) .....
Sachant que la fonction est déclarée comme ceci :
Code:

1 2 3 Public Declare Function WlanOpenHandle Lib "wlanapi" (dwClientVersion As Long, ByRef pReserved As Long, _ ByRef pdwNegotiatedVersion As Any, ByRef phClientHandle As Any) As Long
L'appel me retourne LastERROR à 50 : “ERROR_NOT_SUPPORTED”.

La dll WlanAPI.dll est bien dans c:\windows\sysWOW64, en version 10.0.17134.1. J'ai essayé en la déclarant avec le chemin complet : ça donne (comme prévu !) exactement le même résultat.

J'ai le même résultat sur 3 postes... et pourtant, la gestion interne de Windows du WiFi marche tout à fait normalement : on ne peut pas imaginer qu'il utilise d'autres routines, n'est-ce pas ?

Serait-il possible que la (toute nouvelle ?) api et VB 6 soient incompatibles ? Et quand cela serait, d'où pourrait venir l'incompatibilité ?

Je suis dans des abîmes de perplexité : est-ce que VB 6 n'aurait pas tel ou tel droit pour s'adresser au système, pour adresser certaines zones de mémoire ?

Au secours, aidez-moi, donnez-moi des idées de recherche, je n'en peux plus !!!!

Merci d'avance.

AMIcalement.

28/12/2018, 13h34
ProgElecT

Salut

Essais de passer les variables negotiatedVersion et clientHandle de type attendu Any en Variant (voir sans typer, laisser VB ce débrouiller :aie:)
28/12/2018, 16h48
L'AMI Yves

Salut.

Merci de ta tentative.

Exactement le même résultat dans les deux cas.

Encore des idées, SVP.

AMIcalement.
28/12/2018, 22h02
ProgElecT

Arf

Pourquoi dans l'appel à la fonction passes tu le 2ém paramètre en ByVal alors qu'il est attendu un ByRef

Code:

lastError = WlanOpenHandle(Version, ByVal pReserved, negotiatedVersion, clientHandle)

Citation:

Envoyé par MSDN

ByRef représente l'option par défaut et peut donc être implicite. ...

Essais

Code:

lastError = WlanOpenHandle(ByVal Version, pReserved, negotiatedVersion, clientHandle)
28/12/2018, 23h30
L'AMI Yves

Bonsoir, et merci de répondre.

Je passe le paramètre ByVak par ce qu'il doit être NULL. Je ne sais pas où j'ai vu cette façon de faire, mais je dois dire que je ne vois pas comment VB 6 pourrait faire autrement pour passer un pointyeur NULL. J'ai mis quelques lignes avant "pReserved = 0", mais j'ai aussi essayé "-1" et "&H8000000" sans aucun résultat.

Je viens d'essayer d'enlever le "ByVal", et alors j'obtiens LastError=87, ce qui correspond bien à la doc : "pReserved is not NULL". Pour les deux autres valeurs ci-dessus, je ne me souviens plus si j'avais 87 ou 50, mais de toutes façon, ça ne marchait pas.

Encore des idées, SVP.

AMIcalement.
29/12/2018, 10h03
ProgElecT

Re re re re :D

Citation:

J'ai mis quelques lignes avant "pReserved = 0", mais j'ai aussi essayé "-1" et "&H8000000" sans aucun résultat.

Il me semble bien que vbNull = 1 8O
29/12/2018, 10h31
L'AMI Yves
Encore une fois MERCI, je me sens moins seul.

Mais malheureusement, sans connaître personnellement la valeur binaire de vbNull, si je mets "preserved=0" dans le code que j'ai publié, j'obtiens le code retour "50", et "87" pour toutes les autres valeurs que j'ai essayées, savoir "-1", "1", "&h80000000". Je suis pret à faire d'autres essais, mais sans y croire, car la doc µ$ dit que le code 87 correspond à
Code:

1 2 ERROR_INVALID_PARAMETER pdwNegotiatedVersion is NULL, phClientHandle is NULL, or pReserved is not NULL.
J'ai l'impression d'avoir épuisé toutes mes idées de recherche. Pensez-vous que l'on puisse espérer une aide sur un forum µ$ ? En connaissez-vous ?

Encore merci.

AMIcalement.
29/12/2018, 16h25
L'AMI Yves

En réfléchissant à mon problème, voici ce que je me dis : tant que j'ai de mauvais paramètres, je reste au début de la macro, qui teste la validité des paramètres. Comme ils sont mauvais, ça ne va pas plus loin, et elle me répond ce qui est prévu : code erreur 87.

Si les paramètres sont bons, elle essaie d'aller plus loin. J'ai vu, dans les commentaires de mon ami Google sur tel ou tel "Dependencies Walker", que µ$ avait introduit des nouveautés dans la façon dont les DLL sont liées entre elles (je ne sais plus si ça date de Windows 10 ou d'avant). Est-il possible que VB 6 ne soit pas compatible avec ces nouveautés ? (Histoires de droit d'accès à des zones de mémoire, ou d'exécution de certaines portion de code, ou de chargement de certains fichiers, ou dieu sait...?)

Je ne suis pas trop pointu sur les entrailles de Windows. Ça serait bien si quelqu'un pouvait m'éclairer.

Merci d'avance.

AMIcalement.
08/01/2019, 14h20
L'AMI Yves
Incroyable ! Ahurissant ! Invraisemblable ! J'ai trouvé !!!!!!!!!

Et c'était d'un bête...............!

J'ai déclaré
Code:

1 2 Public Declare Function WlanOpenHandle Lib "wlanapi" (dwClientVersion As Long, ByRef pReserved As Long, ...
Et là, tout d'un coup, aujourd'hui, je ne sais pas pourquoi il me saute aux yeux qu'il fallait déclarer
Code:

1 2 Public Declare Function WlanOpenHandle Lib "wlanapi" (ByVal dwClientVersion As Long, ...
Et là, ça marche nickel...

Eh, les gars, je ne suis pas doué, hein !

Mais je l'avais montrée à tout le monde, ma déclaration...

Avec toutes mes excuses pour les multiples déranxgements.

AMIcalement
08/01/2019, 14h44
ProgElecT

Salut

:ccool: Tu débutes bien l'année, que je te souhaite bonne bien sûr.

Citation:

Envoyé par MSDN

ByRef représente l'option par défaut et peut donc être implicite. ...

cela aurai dût nous mettre la puce à l'oreille, cela sous entendait qu'il ne fallait pas laisser l'option par défaut. :aie:
On en apprend tous les jours.

En tout cas, merci pour le suivit.

Ah ben je suis bien déçu de m'être réjoui trop tôt : j'ai bien obtenu un code retour 0, mais ça ne marche pas quand-même.

Pour être sûr de ne pas me perdre dans tout un fatras, j'ai créé un projet minimal, qui comporte une fenêtre pour deux messages,
un module pour les déclarations :

Code:

1
2
3
4
5
6
7
8
Public Declare Function WlanOpenHandle Lib "wlanapi" (ByVal dwClientVersion As Long, ByRef pReserved As Long, _
                     ByRef pdwNegotiatedVersion, ByRef phClientHandle) As Long
Public Declare Function WlanCloseHandle Lib "wlanapi" (ByVal hClientHandle As Long, ByRef pReserved As Long) As Long
 
Public negotiatedVersion As Long
Public ClientHandle As Long
Public lastError As Long
Public pReserved As Long

et le formLoad pour la fenêtre :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
    ' Ouverture du dialogue avec l'API
    pReserved = 0
    lastError = WlanOpenHandle(2&, ByVal pReserved, negotiatedVersion, ClientHandle)
    Text1.Text = "lastError = " + Format(lastError) + " - ClientHandle = " + Hex(ClientHandle) + _
                " - NegociatedVersion = " + Hex(negotiatedVersion)
 
    lastError = WlanCloseHandle(ClientHandle, ByVal pReserved)
    Text2.Text = "CloseHandle : " + Format(lastError)
End Sub

Je ne sais pas le faire en images, mais le résultat est le suivant :

Code:

1
2
3
4
 
Text1.Text = lastError = 0 - ClientHandle = 0 - NegociatedVersion = 0 
 
Text2.text = CloseHandle : 87

Peut-être que demain j'aurai une nouvelle illumination, mais ce soir, je suis sec !

Peut-être pas vous...

AMIcalement.

Si certains lisent encore ce fil... Pourtant, il me semble qu'il pourrait être très utile - du moins dans la mesure où il reste des développeurs en VB6...

Oui, la nuit m'a porté conseil, une fois de plus : j'ai vu s'inscrire sur le tableau noir de mes (mauvais !) rêves le mot "VarPtr"

En fait, je ne suis pas du tout sûr d'avoir bien tout compris, mais j'ai utilisé diverses combinaisons, jusqu'à ce que j'en trouve une qui marche : la voici :
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 Private Sub Timer1_Timer() Dim ret As Long Dim pNegotiatedVersion As Long, pClientHandle As Long Message.BackColor = vbWhite pNegotiatedVersion = VarPtr(negotiatedVersion) pClientHandle = VarPtr(ClientHandle) ' Ouverture du dialogue avec l'API pReserved = 0 ret = WlanOpenHandle(2&, ByVal pReserved, pNegotiatedVersion, pClientHandle) If ret = 0 Then Message.BackColor = vbYellow Message.Text = "ClientHandle = " + Hex(ClientHandle) + _ " - NegociatedVersion = " + Hex(negotiatedVersion) ret = WlanCloseHandle(ClientHandle, ByVal pReserved) If ret = 0 Then Message.BackColor = vbGreen Else Interface(0).Text = ret End If Else Message.Text = Format(ret) Timer1.Enabled = False End If End Sub
avec les déclarations de points d'entrée ci-dessous :
Code:

1 2 3 4 5 Public Declare Function WlanOpenHandle Lib "wlanapi" (ByVal dwClientVersion As Long, ByRef pReserved As Long, _ ByVal pdwNegotiatedVersion As Long, ByVal phClientHandle As Long) As Long Public Declare Function WlanCloseHandle Lib "wlanapi" (ByVal hClientHandle As Long, pReserved As Long) As Long
Il semblerait qu'une croyance encore très répandue ne soit qu'une légende urbaine : les constantes dans les paramètres d'appels de fonction (en VB6) sont passées comme les autres par défaut, en "ByRef".

A bon entendeur...

AMIcalement