问题描述
|
该套接字无法正常工作,我尝试了所有操作,但实际上从未显示过引用。只是事先的文字。
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
}
}
}
解决方法
我在mIRC上没有很多经验,但是不是应该是$ regml而不是$ regm1吗?
, 我的计算机上有一个脚本可以更改数字的字体,因此我可以看到这种错误:)