举报
$htmlstr=BinaryToString(InetRead("http://sj.zhijinwang.com/ag.asp",1)) $out=StringRegExp($htmlstr,'纸白银</a></font></td>\s*?<td[^>]+><font[^>]+>(.+?)</font></td>',3) MsgBox(0,0,$out[0])
#include <INet.au3> $s_URL = 'http://sj.zhijinwang.com/ag.asp' $sText = _INetGetSource($s_URL) $sQuery = InputBox('查询数据', '输入你要查询的数据 - 如 纸白银', '纸白银') If $sQuery Then $aSre = StringRegExp($sText, $sQuery & '.+?\r\n.+?#FF0000">([^<]+)', 3) If IsArray($aSre) Then MsgBox(0, '', $sQuery & ' 现价格 ' & $aSre[0]) EndIf
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2026-6-14 07:49 , Processed in 0.118774 second(s), 23 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2026 Discuz! Team.