HTML GetStuff?

[titan0060]

Ok, the GetStuff command basicaly searches a text file, but is there any way i can have it search an INTERNET PAGE?  the page is like plain HTML, no flash or anything.

[Warrior]

You mean display the HTML? If you mean using a .html file for config.....wtf?

[titan0060]

i mean search my webbrowser (which is already on the site i want in frmBrowser) and look for a sertain string like "Yo"... Then display like in a msgbox,  what the next thing that comes after the word "Yo"...

Basicaly if i could convert the webbrowser into a string, i can just use the splt() command... but how do u convert it to a string.

[Newby]

The "GetStuff" function, if you are using the common one found in most open-source Visual Basic bots, utilizes API calls that don't access the internet.

You would have to re-code it using some sort of internet control, that would connect to the file, input its contents, and search through that.

[titan0060]

i never expected to use the exact getstuff code... i just want sumthing to search my WebBrowser1 for a sertain word...

[______]

i never expected to use the exact getstuff code... i just want sumthing to search my WebBrowser1 for a sertain word...

You mean something like this?

Code Select Expand


If InStr(WebBrowserText, myword) = 0 Then
MsgBox "Not found."
Else
MsgBox "Found!"
End If


[CrAz3D]

Look @ the webpage's source through the webbrowser control.  YAY, that is how I got my lovely gmail acct.

[Newby]

Look @ the webpage's source through the webbrowser control.  YAY, that is how I got my lovely gmail acct.

Idea stealer!

[LivedKrad]

What about GMail??

[titan0060]

Look @ the webpage's source through the webbrowser control.  YAY, that is how I got my lovely gmail acct.

how do i get my program to open the page source...

[CrAz3D]

Look @ the webpage's source through the webbrowser control.  YAY, that is how I got my lovely gmail acct.

how do i get my program to open the page source...

Don't remember, check pscode. (it pwns my mom)

[Dyndrilliac]

Use OpenURL on the inet control and give the value to a string variable.

[Imperceptus]

How I do it
Your Inet Control  = MyInetControl

*note untested code

Code Select Expand


Private Sub Form_Load()
MyInetControl.execute("http://yoni.valhallalegends.com")

End Sub


Private Sub MyInetControl_StateChanged(ByVal State As Integer)
    Dim vtData As Variant
    Dim StrData As String
    Dim bDone As Boolean: bDone = False

With MyInetControl
    Select Case State       
        Case icError        ' 11   ' In case of error, return ResponseCode and
                                            ' ResponseInfo.
           vtData = .ResponseCode & ":" & .ResponseInfo
           vtData = .ResponseCode & ":" & .ResponseInfo
           itProcessCount = itProcessCount - 1
       Case icResponseCompleted     ' 12 good Retrieve server response
                                                        '  using the GetChunk
            vtData = .GetChunk(1024, icString) ' Get first chunk.
            Do While Not bDone
               StrData = StrData & vtData
               vtData = .GetChunk(331000, icString) ' Get next chunk.
               DoEvents
               If Len(vtData) = 0 Then bDone = True
            Loop
           
        Case Else
    End Select
End Sub



Hope this provides some ideas, not you might want to change the GetChunk Sizes around I just mashed some numbers on the numpad.  Execute is hands down way faster then OpenUrl.

[YaYYo]

How I do it
Your Inet Control  = MyInetControl

*note untested code

Code Select Expand


Private Sub Form_Load()
MyInetControl.execute("http://yoni.valhallalegends.com")

End Sub
[/quote]

Shouldnt it be My.InetControl.Execute("http://yoni.valhallalegends.com")

?

[Dyndrilliac]

No, MyInetControl is the controls name.