此套接字不工作,我尝试了一切,但它从来没有真正显示报价。只有事先的文本。
on $*:TEXT:/^[!@](motivate|mqod|mqotd)/Si:#:{ if ($chan !isin %notlist) {
if ($sock(Motivation)) { notice $nick Please try again in a few seconds. | halt }
set %Motivation $iif($left($1,1) == @, msg $chan, notice $nick) $col
sockopen Motivation motivateus.com 80
} }
on *:SOCKOPEN:Motivation: {
sockwrite -nt $sockname GET /thoughts-of-the-day.htm HTTP/1.1
sockwrite -nt $sockname Host: motivateus.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:Motivation: {
if ($sockerr) { halt }
else {
var %sockreader | sockread %sockreader
if ($regex(%sockreader,(.+)"<br>)) {
%Motivation $+ Today's motivational quote is: $regm1(1) $+
unset %Motivation | sockclose $sockname
}
}
}发布于 2011-06-16 03:09:14
我没有太多使用mIRC的经验,但它不应该是$regml而不是$regm1吗?
发布于 2011-06-16 03:12:54
我的计算机上有一个更改数字字体的脚本,这样我就可以看到那种错误:)
https://stackoverflow.com/questions/6362933
复制相似问题