View source for Little sockets tutorial

This tutorial shows how to use [[:Category:Socket|sockets]] to get info from http://checkip.dyndns.org/index.php and how to use that info to set the ip in mirc correct. This can be usefull if you've a router and a bnc.

 ;this is a little tutorial about sockets
 ;
 ;it's about how to connect to http://checkip.dyndns.org/index.php with mirc, then take your ip out
 ;
 ;and use that ip to set [[$ip]]
 ;
 ;this can be useful if you've a router and a bnc, depending on your mirc settings, mirc will normally
 ;make $ip your bnc serverip, or your local ip, like 192.168.0.2
 ;
 ;
 
 
 ;on connect event, with timer, so if you connect to 3 different servers on start up, it'll only be triggered once :)
 [[On_connect|on *:connect]]:{ .[[timer]]myip 1 5 myip }
 
 
 [[Aliases|alias]] myip {
  ;if the socket already is open, close it, you can only have one connection with the same name at the same time
  [[If-Then-Else|if]] ([[$sock]](myip)) { [[sockclose]] myip }
  ;to open a socket with name myip to address checkip.dyndns.org on port 80
  [[sockopen]] myip checkip.dyndns.org 80
 }
 ;this event is triggered on the moment the sockets is opened
 [[On_sockopen|on *:sockopen]]:myip:{
  ;to tell the server which file you want to receive
  [[sockwrite]] -n [[$sockname]] GET /index.php HTTP/1.0
  sockwrite -n $sockname Host: checkip.dyndns.org
  ;this is only needed for a few websites, but it's just more complete to have it ;)
  sockwrite -n $sockname user-agent: Mozilla/??
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname [[$crlf]]
 }
 [[On_sockread|on *:sockread]]:myip:{
  ;same way as in mirc helpfile with the :nextread
  if ([[$sockerr]] > 0) [[return]]
  :nextread
  [[sockread]] %temp
  if ([[$sockbr]] == 0) return
  ;to check if we got the right line, it's pretty easy for this file, but usually more complicated,
  ;use $gettok or variables to get the right line.
  if (<html> [[If-Then-Else#isin|isin]] %temp) {
    ;%temp will contain something like:
    ;<html><head><title>Current IP Check</title></head><body>Current IP Address: 217.20.116.184</body></html>
    ;an easy way to 'strip' it is with $remove
    [[var]] %z = [[$remove]](%temp,<html><head><title>Current IP Check</title></head><body>Current IP Address:,</body></html>)
 
    ;scon -a is to send a command to all servers mirc is connected to
    [[scon]] -a localinfo [[$chr]](10) %z
    scon -a [[echo]] 4 -s ip is set to $ip
  }  
  [[Goto_loops|goto]] nextread
 }
 
 ;If your knowledge about sockets is still [[$null]] or just not enough yet ;), maybe read this tutorial:
 ; http://www.mircscripts.org/showdoc.php?type=tutorial&id=1128 or check /help Sockets

[[Category:Tutorials]][[Category:Socket]]