04/05/2024 		Windev et les Api WindowsNb de visiteurs en ligne : 1
>> Introduction << >> Codes et Forum << >> Download <<

Rubrique : 1 - Windows Général       Sujet : Etablir une connexion réseau
Auteur Message
 °¨¨ JL ¨¨° Posté le : 23/06/2000 12:00:00

// Etablir une connexion réseau

NET2 est compose de
    dwScope est un entier long
    dwType est un entier long
    dwDisplayType est un  entier long
    dwUsage est un entier long
    lpLocalName est un entier long
    lpRemoteName est un entier long
    lpComment est un entier long
    lpProvider est un entier long
fin

disklocal est une chaine asciiz de 32 = "R:"
diskres est une chaine asciiz de 128 = "\Serveur_ntPartage"

net2.dwType = 0x1
net2.lpLocalName = &disklocal
net2.lpRemoteName = &diskres
net2.lpProvider = null
//  non utilisé sous w95.98
passw est une chaine asciiz de 64 = null
utilisateur est une chaine asciiz de 64 = null
//  

err est un entier long=appeldll32("mpr","WNetAddConnection2A", &net2 , &passw , &utilisateur , 1)
si err alors
    erreur("Erreur "+err)
fin