Here's a small example.
Note that it will write the proxies to a .txt file called proxylist.txt which is located in your main mIRC folder. Note that once you've retrieved the list, you shouldn't use the sockets all the time to message the proxies to a person, just read it from the file, and update the file with the code every once in a while.
alias getproxies {
var %e = echo -ac info * /getproxies:
if ($fopen(proxylist)) .fclose proxylist
.fopen -o proxylist proxylist.txt
if ($ferr) { %e error opening proxylist.txt | return }
sockclose gprox
sockopen gprox proxycn.net 80
%e retrieving proxy list
}
[color:red] [/color]
on *:sockopen:gprox:{
if ($sockerr) { echo -ac info * /getproxies: error opening socket | return }
var %s = sockwrite -n gprox
%s GET /proxy_irc/page1.htm HTTP/1.1
%s Host: www.proxycn.net $str($crlf,2)
}
[color:red] [/color]
on *:sockread:gprox:{
if ($sockerr) return
var %a, %token
sockread %a
while ($sockbr) {
%token = $remove($gettok(%a,1,32),</td>)
if (*.*.*.* iswm %token) sockmark gprox %token
elseif (%token isnum) && ($sock(gprox).mark) {
sockmark gprox $ifmatch %token
}
elseif (%token isalpha) && ($isupper(%token)) {
.fwrite -n proxylist $sock(gprox).mark %token
sockmark gprox
}
sockread %a
}
}
[color:red] [/color]
on *:sockclose:gprox:{
.fclose proxylist
echo -ac info * /getproxies: finished retrieving proxies
}After doing /getproxies, you will be notified when the process is finished. From this point on, you can use the /play command to message the contents of a file to a person/channel with a specified interval.
In its simplest form, this would look something like:
/play <channel> proxylist.txt 1500For more information about /play, type /help /play in mIRC and take a look at the flags and such.
Mod note: Code edited as per author's request
