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.

Code:
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 1500
For 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

Last edited by Mentality; 05/10/05 10:39 AM.

Gone.