87,993
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
blues-star 2003-02-27
- 打赏
- 举报
ip.loveroot.com
ChinaOk 2003-02-27
- 打赏
- 举报
用qq,自己加自己...
然后就可以看到自己的ip了。
自己加自己,,,
先在黑名单里,新建号码.然后输入你的qq号.然后拖动你的这个号,到好友里，就可以了。
然后就可以看到自己的ip了。
自己加自己,,,
先在黑名单里,新建号码.然后输入你的qq号.然后拖动你的这个号,到好友里，就可以了。
flashsoft2000 2003-02-27
- 打赏
- 举报
js是本身是不可以的
但是变通下呀
<script language="vbscript">
function bytes2BSTR(vIn)
dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn=""
for i=1 to LenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
if ThisCharCode<&H80 Then
strReturn=strReturn & Chr(ThisCharCode)
else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
end if
next
bytes2BSTR=strReturn
end function
</script>
<script language="JScript">
var xmlhttp=new ActiveXObject("Msxml2.xmlhttp");
xmlhttp.open("get","http://www.e786.com/ip/index.php",false);
xmlhttp.send();
var str=bytes2BSTR(xmlhttp.ResponseBody);
document.write("<div style=display:none>"+str+"</div>");
alert(document.all.tags("TABLE")[0].all.tags("TD")[4].innerHTML);
</script>
但是变通下呀
<script language="vbscript">
function bytes2BSTR(vIn)
dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn=""
for i=1 to LenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
if ThisCharCode<&H80 Then
strReturn=strReturn & Chr(ThisCharCode)
else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
end if
next
bytes2BSTR=strReturn
end function
</script>
<script language="JScript">
var xmlhttp=new ActiveXObject("Msxml2.xmlhttp");
xmlhttp.open("get","http://www.e786.com/ip/index.php",false);
xmlhttp.send();
var str=bytes2BSTR(xmlhttp.ResponseBody);
document.write("<div style=display:none>"+str+"</div>");
alert(document.all.tags("TABLE")[0].all.tags("TD")[4].innerHTML);
</script>
wsj 2003-02-27
- 打赏
- 举报
Script?
什么Script?
以什么方式存在？
在哪里运行？
怎么运行？
什么Script?
以什么方式存在？
在哪里运行？
怎么运行？
Delphist 2003-02-27
- 打赏
- 举报
我指的是用SCRIPT
allforly 2003-02-26
- 打赏
- 举报
www.e786.com/ip/index.php
