Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 00:39:23

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : FICHIER TEXT UN PEUT COMME UNE DLL (JE CROIS) par PCPT

RE : FICHIER TEXT UN PEUT COMME UNE DLL (JE CROIS) par rolodo

+ de logiciels à télécharger

1 464 499 membres
7 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 096 codes, 1 302 907 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CARAMAIL ENTER (CARAPROUTAGE...)

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 910 / 110

Auteur : c00ol

Ecrire un message privé

Note :

1,67 / 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

CRYPTEUR D'IP

SERPENT JEUX GSM

Toutes les sources de c00ol

Sources de la même categorie

VOTRE MÉTÉO VILLE AVEC GOOGLE MÉTÉO! par vbnino

VELLEMAN K8055 PROGRAMME POUR COMPRENDRE ET UTILISER LE CODE... par nono7380

PSEUDO EMULATEUR D'EXE par Frelon

POO ET UTILISATION DE QUELQUES BOITES DE DIALOGUE (SAVE ET O... par kilvanox

EXPORTER MFLEXGRID DANS DOCUMENT WORD par garoui1

Toutes les sources de la catégorie Divers

Commentaires et avis

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