求助求助关于inet的使用
如果要用inet截取QQ空间的说说怎么弄
Private Sub TYC_Timer()
Dim b() As Byte
Dim a, c
b = Inet1.OpenURL("http://rsh.qzone. QQ &i_login_uin=0&mode=4&style=12&version=6&needDelOpr=true&transparence=true&hideExtend=false&showcount=15&MORE_FEEDS_CGI=http%3A%2F%2Frsh.qzone., icByteArray)
'把上行中的QQ换成自己的QQ号
htm = Utf8ToUnicode(b)
a = "</a>" '"<span class=""c_tx3"">：</span>"
c = "</div>"
Text1.Text = Split(Split(htm, a)(1), c)(0)
If Text1.Text <> zl Then
If Text1.Text = Text2.Text Then
sendbuf(0) = &H7F
ComPort.Output = sendbuf
'Sleep 3000
'ComPort.Output = sendbuf '发送开启指令
k = k + 1
ElseIf Text1.Text = Text3.Text Then
sendbuf(0) = &HBF
ComPort.Output = sendbuf
'Sleep 3000
'ComPort.Output = sendbuf '发送关闭指令
k = k + 1
End If
zl = Text1.Text
End If
End Sub
text1.text出来是乱码。。