基础资料
- 主题：
- 积分：3815
- 帖子：0
- 金币：
- 精华：
- 关注：
- 粉丝：
|
以下代码是批处理获取IP同时生成TXT文本：- @echo off
- <"%~f0" more +5 >tmp.vbs
- cscript //NoLogo /e:vbscript tmp.vbs %1>ip.txt
- echo >nul && del tmp.vbs
- goto:eof
- set oDOM = WScript.GetObject("http://www.duosc.com/ip.aspx")
- do until oDOM.readyState = "complete"
- WScript.sleep 200
- Loop
- s=oDOM.documentElement.innerText
- set re = New RegExp
- re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
- For Each m in re.Execute(s)
- WScript.Echo m
- Next
|
|
西城派出所开展校园安全大排查
吴山镇政府组织开展无偿献血活动
湖北福彩青年创业第三期学位火热预订！
4月被举报最多的钓鱼网站
窥视卡
雷达卡
发表于 2013-10-12 11:12:46
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡