Recherche du site vbfrance.com

Commenter

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

S'inscrire maintenant

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.

Du même auteur (Scooby1)