Recherche du site vbfrance.com

0/5 (2 avis)

Snippet vu 2 976 fois - Téléchargée 44 fois

Contenu du snippet

Représente le Module de recherche du site VBFrance.com

Source / Exemple :


' Pour le module des dernère recherche

Private Sub Form_Load()

Open App.Path & "\Recherch.sys" For Input As #1
Do While Not EOF(1)
Line Input #1, R
Line Input #1, D
Line Input #1, T
Line Input #1, Ty
List.ListItems.Add , , R & "   " & D & "   " & T & "   " & Ty
Loop
Close

End Sub

Private Sub Form_Resize()
    List.Width = Me.ScaleWidth - 100
    List.Height = Me.ScaleHeight - 100
End Sub

Private Sub List_ItemClick(ByVal Item As ListItem)
A = InStr(Item, " ")
Form2.text1 = Left(Item, A)
TypeR = Right(Item, 7)
A = InStr(TypeR, " ")
TypeR = Trim(Mid(TypeR, A, Len(TypeR) - A + 1))

If TypeR = "tout" Then Form2.Combo2.ListIndex = 0
If TypeR = "source" Then Form2.Combo2.ListIndex = 1
If TypeR = "rcf" Then Form2.Combo2.ListIndex = 2
If TypeR = "forum" Then Form2.Combo2.ListIndex = 3
If TypeR = "news" Then Form2.Combo2.ListIndex = 4
If TypeR = "icone" Then Form2.Combo2.ListIndex = 5

Form1.Visible = 1
Form1.Web.Navigate "http://www.vbfrance.com/recherche.aspx?recherche=" & Form2.text1.Text & "&type=" & TypeR & "&x=23&y=17"
Unload Form3
End Sub

' Pour le module de recherche

Private Sub Command1_Click()
If Combo2.ListIndex = 0 Then TypeR = "tout"
If Combo2.ListIndex = 1 Then TypeR = "source"
If Combo2.ListIndex = 2 Then TypeR = "rcf"
If Combo2.ListIndex = 3 Then TypeR = "forum"
If Combo2.ListIndex = 4 Then TypeR = "news"
If Combo2.ListIndex = 5 Then TypeR = "icone"

Form1.Visible = 1
Form1.Web.Navigate "http://www.vbfrance.com/recherche.aspx?recherche=" & text1.Text & "&type=" & TypeR & "&x=23&y=17"

Open App.Path & "\Recherch.sys" For Append As #1
Print #1, text1.Text
Print #1, Date$
Print #1, Time$
Print #1, TypeR
Close

End Sub

Private Sub Command2_Click()
Form3.Visible = 1

End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

' Pour le module de visualisation des résultats

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

Private Sub Form_Resize()
Web.Height = Form1.Height - 600
Web.Width = Form1.Width - 300

End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

' Noter bien comment j'ai fait pour lancer la recherche, c'est tout con :
' Form1.Web.Navigate "http://www.vbfrance.com/recherche.aspx?recherche=" & text1.Text  
' & "&type=" & TypeR & "&x=23&y=17"

Conclusion :


Ce principe fonctionne sur tout les site web utilisant le même principe.
en ce moment je fait une liste de tout ces site, si vous en trouver,
merci de me contacter Scoob79@hotmail.com objet : VBfrance.com.

A voir également

Ajouter un commentaire Commentaires
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

Mouarf
Messages postés
517
Date d'inscription
samedi 3 février 2001
Statut
Modérateur
Dernière intervention
24 octobre 2006
1
c incroyable le nombre de con qui mettent 36x les meme les choses !!! en une seule fois ...

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.