p2pfire
asked on
vb6 InetControl Problem
In VB6 put the Internet Control and a ListBox.
Then this code:
-------------------------- ---------- --------
Dim str As String
Dim ary() As String
List1.Clear
DoEvents
strHTML = Inet1.OpenURL(Trim("xxxxxx xx"), icString)
str = strHTML
ary = Split(str, vbLf)
Dim x As Integer
For x = 0 To UBound(ary)
If ary(x) <> "" Then
List1.AddItem (ary(x))
End If
Next
-------------------------- ---------- ---------- -
for "xxxxxxxx" put in:
http://www.USATODAY.com
and try it. YOu see the list box fills with text.
Now try:
http://www.whitepages.com/search/ReverseAddress?site_id=10583&street=7004%20POTTER%20RD&where=14047
and see the list box does not fill. Why ?
If you put the last URL into a browser.. you get a page and page source. ?
That is what I'm trying to get into the list box...page source for that URL.
Then this code:
--------------------------
Dim str As String
Dim ary() As String
List1.Clear
DoEvents
strHTML = Inet1.OpenURL(Trim("xxxxxx
str = strHTML
ary = Split(str, vbLf)
Dim x As Integer
For x = 0 To UBound(ary)
If ary(x) <> "" Then
List1.AddItem (ary(x))
End If
Next
--------------------------
for "xxxxxxxx" put in:
http://www.USATODAY.com
and try it. YOu see the list box fills with text.
Now try:
http://www.whitepages.com/search/ReverseAddress?site_id=10583&street=7004%20POTTER%20RD&where=14047
and see the list box does not fill. Why ?
If you put the last URL into a browser.. you get a page and page source. ?
That is what I'm trying to get into the list box...page source for that URL.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER