CARAMAIL ENTER (CARAPROUTAGE...) , Source N°19745

Information sur la source

Catégorie :Divers Niveau : Débutant Date de création : 25/01/2004 Date de mise à jour : 25/01/2004 08:36:52 Vu / téléchargé: 2 676 / 106

Auteur : c00ol

Ecrire un message privé

Note :

1,67 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Se programme a été fait car je voulait voir si en utilisant pas shell sa donnait la même impression quand ont se logg...Malheureusement non! Et oui , quand on arrive sur sa boîte au lettre on n'arrive plus a aller sur le t'chatte via un WebBrowser...Pourquoi?! Aucune idée...
L'url pour se logger c'est :
http://auth.caramail.lycos.fr/?membername=&password=

Si vous oulez tester le programme et que vous n'avez pas de boîte caramail . Ne vous inscrivez pas j'ai un pseudo et mot de passe pour vous je vous demanerez de pas le changer si possible...Enfin bref voila le pseudo et la mot de passe
Pseudo : je-la-mrd
Mot de passe : cool

Voilà pour les expliquation.

Il vous faut deux forms

Dans la from1 il vous faut : une Command1 et un Text1 et un Text2
Pour la form2 il vous faut : Un WebBrowser1

Si vous voulez une capture pas de problème...

Source

'Dans la form1.Show :
Private Sub Command1_Click()
Form2.WebBrowser1.Navigate "http://auth.caramail.lycos.fr/?membername=" & Text1.Text & "&password=" & Text2.Text ' Ici on se log omme je l'ai dit dans la présentarion , c'est l'adresse plus les textBox pour se logger.
Form2.Show ' On ouvre la form2.Show
Unload Me ' On ferme cette fernêtre pour que se soit plus bô:)
End Sub
'Pour la form2 maintenant! :
Private Sub Form_Load()
Caption = "CaraProutage : welcom sur cara " + Form1.Text1.Text'on change la caption de la form comme sa sa fai plus beau.
End Sub
Private Sub Command1_Click()
Form1.Show ' on ouvre la form1
Unload me ' on ferme la form2
EndSub

 'Dans la form1.Show :
Private Sub Command1_Click()
Form2.WebBrowser1.Navigate "http://auth.caramail.lycos.fr/?membername=" & Text1.Text & "&password=" & Text2.Text ' Ici on se log omme je l'ai dit dans la présentarion , c'est l'adresse plus les textBox pour se logger.
Form2.Show ' On ouvre la form2.Show
Unload Me ' On ferme cette fernêtre pour que se soit plus bô:)
End Sub


'Pour la form2 maintenant! :

Private Sub Form_Load()
Caption = "CaraProutage : welcom sur cara " + Form1.Text1.Text'on change la caption de la form comme sa sa fai plus beau.
End Sub

Private Sub Command1_Click()
Form1.Show ' on ouvre la form1
Unload me ' on ferme la form2
EndSub

Conclusion

Il y a surement beaucoup de bug.
Aller visiter www.carabidule.net
C'est une communauter et inscrivez-vous!
++:)

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Form1.frm 2 452 octets
Form2.frm 1 531 octets
Projet1.vbp 641 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de c00ol

Sources de la même categorie

Toutes les sources de la catégorie Divers

Commentaires

Commentaire de c00ol le 25/01/2004 09:06:56

Noter et commenter s'il vous plait:) ++
HéHé
Commentaire de hvb le 25/01/2004 14:45:46

http://francite.net/education/cyberprof/page9.html
Commentaire de bubble44 le 25/01/2004 20:10:34

Sisi on peut arriver a tchatter depuis un webbrowser (lancer l'applet), teste mon client cara vb, et fait le teste CON : dans la partie "Accueil caramail" (2eme onglet) (qui ouvre ta boite mail aussi en webbrowser, essaye de cliquer pour aller tchatter (ce qui te deconnectera du tchat vu que l'on peut pas utiliser 2 comptes principaux en dial).
Mais tu verras que l'applet etait bien lancé hehe, dans la nll mdi child.

http://board.quick-web.com/index.php3?login=tr0piiic

Je t'expliquerais apres ton probleme quand t'auras verifié.
A pluche.
Commentaire de RayBan le 26/01/2004 12:10:35

Pas mal, sauf que le mot de passe est en clair dans l'URL... Vous allez me dire que dans un formulaire il est aussi en clair, mais il faudrait un soft pour récupérer les trames tcp pour obtenir les données du formulaire...beaucoup moins facile...

Ray

Do more with less... Simply .NET...
Commentaire de bubble44 le 26/01/2004 15:10:57

Bon je pensais que tu updaterais ta source avec le bout de code que je t'avais donné a mettre dans form2 :

---

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

Dim frmWB As Form2
Set frmWB = New Form2

frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.Application
frmWB.Visible = True

End Sub

---

je le passe ici, vbcodeurs interessés pourront donc essayer.
Commentaire de c00ol le 26/01/2004 17:24:18

On peu aussi ajouter une fonction de Enter dans une TextBox car c chian de devoir kliker sur Entrer...

Le code es de Nix:O) :
Private Sub TextAEnvoyer_KeyDown(KeyCode As Integer, Shift As Integer)
If Not Shift And KeyCode = 13 Then

    Command1_Click
    KeyCode = 0

End If
End Sub
Commentaire de c00ol le 25/12/2004 15:04:43

dégouté dla note:]