Bir arama motoru yapmaya çalışıyorum ve bu kodları kullanıyorum ama çalışmıyor. Nedeni nedir acaba? Kodlarda mı yanlış var?
Kodlar:
Private Sub google1()
Try
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.google.com.tr/search?q=" & TextBox1.Text & "&num=100&start=0")
Dim response As System.Net.HttpWebResponse = request.GetResponse
Dim stream As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
Dim page As String = stream.ReadToEnd
Dim regexobj As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("http://([\w+?\.\w+])+([a-zA-Z0-9\~\!\@\#\$\%\^\&\*\(\)_\-\=\+\\\/\?\.\:\;\'\,]*)?", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Dim matches As System.Text.RegularExpressions.MatchCollection = regexobj.Matches(page)
For Each item As System.Text.RegularExpressions.Match In matches
ListBox1.Items.Add(item.Value)
Label1.Text = ListBox1.Items.Count
End If
Next
catch ex As Exception
End Try
End Sub
Kodlar:
Private Sub google1()
Try
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.google.com.tr/search?q=" & TextBox1.Text & "&num=100&start=0")
Dim response As System.Net.HttpWebResponse = request.GetResponse
Dim stream As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
Dim page As String = stream.ReadToEnd
Dim regexobj As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("http://([\w+?\.\w+])+([a-zA-Z0-9\~\!\@\#\$\%\^\&\*\(\)_\-\=\+\\\/\?\.\:\;\'\,]*)?", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Dim matches As System.Text.RegularExpressions.MatchCollection = regexobj.Matches(page)
For Each item As System.Text.RegularExpressions.Match In matches
ListBox1.Items.Add(item.Value)
Label1.Text = ListBox1.Items.Count
End If
Next
catch ex As Exception
End Try
End Sub
