Programming | Save the following code as an. htm file online.
<script language=vbscript>
Function GetURL (URL)
Set retrieval = CreateObject ("Microsoft.XMLHTTP")
With retrieval
. Open "Get", url, False, "", ""
. Send
GetURL =. ResponseText
End With
Set retrieval = Nothing
End Function
</script>
Small icon:
<script language=vbscript>
Dim T,start,length,picurl
T=geturl ("http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no=1924192")
Start=instr (1,t, "Showresult" ("+CHR" (34))
Start=instr (start,t, "http://")
Length=instr (START,T,CHR) + "," +CHR)-start
Picurl=mid (T,start,length)
' document.write ' '
document.write "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=1924192 target=_blank title= Qq:1924192></a> "
</script>
<br>
Large icon:
<script language=vbscript>
Dim T,start,length,picurl
T=geturl ("http://search.tencent.com/cgi-bin/friend/user_show_info?ln=1924192")
Start=instr (1,t, "img height=32")
Start=instr (start,t, "http://")
Length=instr (START,T,CHR) + "width=32")-start
Picurl=mid (T,start,length)
' document.write ' '
document.write "<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=1924192 target=_blank title= Qq:1924192></a> "
</script>
**************************************
Very funny. Brilliant idea Oh.
