POur vous inscrire sur caramail il vous suffit de precisez votre login + pass le programme fait tout!!
mllmhh@hotmail.com
Le code en dessous met tout est dans le zip!
Source / Exemple :
'Le code met tout est dans le zip!
'Le code met tout est dans le zip!
'Le code met tout est dans le zip!
'Le code met tout est dans le zip!
Dim Xi As Integer
Dim Yi As Integer
Dim login As String
Private Declare Function URLDownloadToCacheFile Lib "urlmon" Alias "URLDownloadToCacheFileA" (ByVal lpUnkcaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwBufLength As Long, ByVal dwReserved As Long, ByVal IBindStatusCallback As Long) As Long
Private Function DownloadFile(URL As String) As String
Dim lngRetVal As Long
Dim sLocalFilename As String
'procedure de telechargement de l'image (trouvé sur le net???)
'(pour eviter d'utiliser un contrôle Inet...)
sLocalFilename = Space(300)
lngRetVal = URLDownloadToCacheFile(0, URL, sLocalFilename, Len(sLocalFilename), 0, 0)
If lngRetVal = 0 Then
DownloadFile = Trim(sLocalFilename)
End If
End Function
Function RndStr(nb As Integer) As String
Dim i As Integer
'renvoie une chaine de nb caracteres aléatoires...(de a à z)
RndStr = ""
For i = 1 To nb
RndStr = RndStr + Chr(CInt(Rnd * 25) + 97)
Next i
End Function
Private Sub Command1_Click()
Dim coul As Long
Dim max As Long
Dim plus As Integer
ReDim Couleur(1 To 2, 1 To 1)
Form1.MousePointer = 11
Randomize
Dim IE As Object
Dim sLocalFilename As String
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://wwwv2-25.caramail.lycos.fr/Local/Bin/Registration/Step1_Name.jsp"
Do While IE.ReadyState <> 4
DoEvents
Loop
IE.Document.All("FIRSTNAME").Value = Text1.Text
IE.Document.All("LASTNAME").Value = 0
IE.Document.All("BUTTON").Click
Do While IE.ReadyState <> 4
DoEvents
Loop
adresse = RndStr(15)
IE.Document.All("OTHERLOGIN").Value = Text1.Text
IE.Document.All("button").Click
Do While IE.ReadyState <> 4
DoEvents
Loop
IE.Document.All("PASSWORD1").Value = Text2.Text
IE.Document.All("PASSWORD2").Value = Text2.Text
IE.Document.All("ZIPCODE").Value = "75001"
IE.Document.All("CITY").Value = "Paris"
IE.Document.All("DAY").Value = "7"
IE.Document.All("MONTH").Value = "7"
IE.Document.All("YEAR").Value = "198" + CStr(CInt(Rnd * 9))
IE.Document.All("QUESTION").Value = 4
IE.Document.All("ANSWER").Value = RndStr(8)
IE.Document.All("SEX").Item(1).Checked = True
IE.Document.All("PERSONSPERHOUSEHOLD").Value = 2
IE.Document.All("OCCUPATION").Value = 500
IE.Document.All("INDUSTRY").Value = 0
IE.Document.All("EDUCATION").Value = 7
IE.Document.All("INTEREST_HIGHTECH").Checked = True
IE.Document.All("INTEREST_GAMES").Checked = True
sLocalFilename = DownloadFile("http://wwwv2-25.caramail.lycos.fr/CodedKeyImage?cryptedId=" + IE.Document.All("CODEDKEYHIDDEN").Value)
IE.Document.All("CODEDKEY").Value = lol
IE.Document.All("BUTTON").Click
Do While IE.ReadyState <> 4
DoEvents
Loop
IE.Document.All("button").Click
Do While IE.ReadyState <> 4
DoEvents
Loop
Text1.Text = adresse
Text2.Text = pass
Form1.MousePointer = 0
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
Private Sub Command3_Click()
MsgBox "IL vous suffit de marker votre login dans la case voulu le login seras le nom du compte" & vbCrLf & _
"Et votre mot de passe dans la case voulu aussi,Le Mot de passe que vous aurez ecrit seras le mot de votre compte!"
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.