Kajete mi pls.....

Interesuva me kak moga da si napravia tursachka v Visual Basic? Molia otgovorete mi burzo speshno e !

Blagodaria predvaritelno

Бързо!

Vij chovek ..... naistina .....mi triabva i to burzo....... mnogo shte se radvam ako niakoi mi pomogne!

VB 6 si ima vgraden browser. Prosto triabva ot "Project -> Components" da si dobavish kakvito dopalnitelni neshta ti triabvat. Az izpolzvam oshte i Rich Textbox i ADO data control(za SQL servera), i ne pomnia osshte kakvo ... Eto ti malko primeren kod:
Dim oRS As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim strSQL As String, sAlt As String ' the Alt tag
Dim arrData() As String ' Array to hold the links and maybe other stuff
Dim rootFolder As String, curFolder As String
Dim moreSites As Boolean
Dim numVisited As Integer, numRemaining As Integer

Private Sub cmdGo_Click()
Call delVisited ' Tova te pita dali da pochva novo tarsene ili da prodalzhi staroto
Call NavigateToURL _
(Inet1, rtbSource, txtStartAddress.Text)
Call fillArray
End Sub

Private Sub NavigateToURL(inetCtrl As Inet, _
rtbCtrl As RichTextBox, _
strURL As String)
On Error GoTo lblOpenError
rootFolder = LCase(Left(strURL, InStr(9, strURL, "/") - 1))
curFolder = LCase(Left(strURL, InStrRev(strURL, "/")))
If InStr(rootFolder, _
"Tova e ako pretarsvash opredelen site, gore-dolu az kavoto pravia") Then
inetCtrl.URL = strURL
inetCtrl.AccessType = icDirect

rtbCtrl.Text = inetCtrl.OpenURL
numVisited = numVisited + 1
lblVisited = numVisited
numRemaining = numRemaining - 1
lblRemaining = numRemaining
Call RemoveComments(rtbCtrl)
lblCurURL = strURL
lblCurFolder = curFolder
lblRootFolder = rootFolder

strSQL = "Select * From kakvoto_tam Where url = '" & strURL & "'"
oRS.Open strSQL, cnn, adOpenDynamic, adLockOptimistic

Call storeURL(strURL)
Call parseTitle(rtbCtrl, "<title>", "</title>", strURL)
Call parseMulty(rtbCtrl, "<meta ", ">", "description", strURL)
Call parseMulty(rtbCtrl, "<meta ", ">", "keywords", strURL)

oRS.Update
oRS.Close

Call parseMulty(rtbCtrl, "<a ", "</a>", "links", strURL)
Call storeVisited(strURL)
End If

Exit Sub
lblOpenError:
MsgBox "Error # " & Err.Number
End Sub

Prosto niakakva ideia za zapochvane... Uspeh!

Търсачка на какво?