<div id=................&item_type=b&ends=1426925168000&starts=1426320368000&item_id=43292423867&user................</div>
例如以上是网页源代码的一部分。
我想做个软件，TEXT1框输入网址， 然后获取这个网页源代码中指定ends=后面的10个数字。
aa= Inet1.OpenURL("你的网址")
text1.text=mid(aa,instr（aa,"ends="）
+3
,10）
这个代码不行 输入的内容居然是 <!doctype

网页源代码前面应该还有一个end= 吧

分割

Dim A$, B() As Byte, C
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.Url = ""
Inet1.Url = Text1
B() = Inet1.OpenURL(, icByteArray)
A = StrConv(B, vbUnicode)
C = Split(A, "ends=")
Text1 = Left(C(1), 10)

楼主