elseif sresponse like "*http://img.tencent.com/face/*-1.gif*" then
msgbox "hide!"
end if
end sub
private sub winsockx_dataarrival(byval bytestotal as long)
dim s as string
winsockx.getdata s, vbstring
if check2.value = vbchecked then
msgbox s
end if
sresponse = sresponse & s
end sub
activex dll 例程下载:
