Intégrer un script dans VB6

Bonjour, j'ai deux problèmes:

1er problème: Comme j'ai mis dans le titre, je voudrais pourvoir intégrer un script dans une form VB6, plus précisément dans un bouton "Connexion". Est ce possible??


Voici le sript qui fonctionne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit Dim objNetwork, strDrive, objShell, objUNC Dim LettreLecteur, CheminReseau, NomLecteur   LettreLecteur = "Z:" CheminReseau = "\\192.81.95.99\Analytique" NomLecteur = "Archivage Datas Analytique"   Set objNetwork = CreateObject("WScript.Network" )   objNetwork.MapNetworkDrive LettreLecteur, CheminReseau ,"True","ARCHIVES\used","password"   Set objShell = CreateObject("Shell.Application" ) objShell.NameSpace(LettreLecteur).Self.Name = NomLecteur   WScript.Quit

---

2éme problème: Si le premier est possible, je voudrais que lorsque l'utilisateur c'est connecté une première fois (qu'il a renseigné son login et mot de passe), si il ferme la page sur laquelle il c'est mappé, et qu'il veuille la ré ouvrir, il n'est pas besoin de retaper login et mdp. Et ceci jusqu'à la fermeture de la page VB6.

En espérant avoir été assez clair et précis. Merci d'avance pour votre aide.

Bonjour,

Pour le premier problème, regarde ce post
http://www.developpez.net/forums/d40...s/#post2464938

A+, Hervé

Merci rv26t, cela m'a permis de résoudre mon premier problème. Et ce fut assez simple à faire :oops:.
Néanmoins, il me reste toujours mon problème de reconnexion sans demande de login et mot de passe. Si quelqu'un a un éclair de génie, il sera le bienvenue!!!
Merci d'avance.

Si tu ne l'ouvres pas en modal il suffit de faire un hide pour la cacher, et un show pour la réafficher, elle gardera les info saisies.
A+, Hervé.

Citation:

---

Envoyé par rv26t

Si tu ne l'ouvres pas en modal il suffit de faire un hide pour la cacher, et un show pour la réafficher, elle gardera les info saisies.
A+, Hervé.

---

Merci pour ta réponse, mais je ne comprends pas ou mettre le hide et show. Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Command1_Click()   LettreLecteur = "P:" CheminReseau = "\\Ordi1\C" NomLecteur = "Data 2006"   Set objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive LettreLecteur, CheminReseau, "True", "nom_user", "password"     Set objShell = CreateObject("Shell.Application") objShell.NameSpace(LettreLecteur).Self.Name = NomLecteur   Shape1.Visible = True Shape2.Visible = False         End Sub

---

Et merci encore de ton aide

je parlais de la "Form" (vb6) sur laquelle l'utilisateur a saisit son nom et son mot de passe.
Mais apparement, il les saisit en dehors de VB6.

Peux-tu préciser à ce niveau ? (s'il les saisit dans vb6 ou pendant le déroulement du script)

Citation:

---

Envoyé par rv26t

Peux-tu préciser à ce niveau ? (s'il les saisit dans vb6 ou pendant le déroulement du script)

---

Et oui, malheureusement, il les saisit lors du déroulement du script. :cry:

Et en les passant comme paramètres au script, comme ça ils pourraient être saisies dans une form vb6 et ainsi utilisable tout le temps de l'utilisation de ton application.

Peux être, mais je ne suis pas assez calé pour les passer en paramètre script, je découvre tout juste le script.:cry:

Je ne connais pas le langage script mais

Citation:

---

Envoyé par petit rabot

Code:

---

1 2 3

... objNetwork.MapNetworkDrive LettreLecteur, CheminReseau, "True", "nom_user", "password" ...

---

---

C'est peut-être sur cette ligne que tu dois passer tes paramètres nom et mot de passe au lieu de les mettre en dur.