ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment activer une connexion de reseau avec Shell.Application   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Windows Scripting

Comment activer une connexion de reseau avec Shell.Application
# 0000000456
ajouté le 30/06/2007 14:10:38 et modifié le 01/07/2007
consulté 9231 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0

Description
Voici comment activer un connexion de réseau avec Shell.Application. Pour deactiver on a qu'a rajouter un fonction qui fait l'inverse.
Code source :
Public Array aconnections[1]
aconnections[1]=''
LOCAL singleconnection
i = 1
o = Createobject("Shell.Application")
ns=o.NameSpace (3)
For Each oItems In  ns.Items
  If oItems.Name ="Network Connections"  && Windows Anglais
    colNetwork = oItems.getfolder
    If Vartype(colNetwork) = "O"
      For Each colConn In colNetwork.Items
        If Alen(aconnections)= 1 And Empty(aconnections[1])
        Else
          Dimension aconnections[ALEN(aconnections)+1]
        Endif
        aconnections[i]=colConn.Name
        i = i +1
      Next
    Endif
  Endif
Next
For i = 1 To Alen(aconnections)
  If "Titan" $ aconnections[i]  &&Un example
    Connect(aconnections[i])
  Endif
Next
Function Connect(lcConnexion)
For Each colConn In colNetwork.Items
  If colConn.Name = lcConnexion
    singleconnection = colConn
    Exit
  Endif
Next
For Each clsVerb In singleconnection.Verbs
    If "C&onnect" = clsVerb.Name Or "En&able" = clsVerb.Name
      Try
        singleconnection.InvokeVerb("C&onnect")
      Catch
        singleconnection.InvokeVerb("En&able")
      ENDTRY
    Endif
  Next
Endfunc


Commentaires
le 01/07/2007, eric leissler a écrit :
Très intéressant cette fonction Mike !
Bravo


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3