本帖最后由 pcl_test 于 2015-7-6 21:47 编辑
批处理- @set @n=0; /* & echo off&cscript -nologo -e:jscript "%~f0"|clip&echo;外网IP已写入剪贴板&ping -n 2 0 >nul&exit /b& rem */
- var url = "http://city.ip138.com/ip2city.asp";
- http = new ActiveXObject("Msxml2.XMLHTTP");
- stream = new ActiveXObject("ADODB.Stream");
- http.open("GET", url, false);
- http.send(null);
- stream.Type=1;
- stream.Mode=3;
- stream.Open();
- stream.Write(http.responseBody);
- stream.Position=0;
- stream.Type=2;
- stream.Charset="gb2312";
- var m = stream.ReadText.match(/\[(\d+\.\d+\.\d+\.\d+)\]/);
- stream.Close();
- WSH.Echo(m[1]);
复制代码
|