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

Du même auteur (Scooby1)