rem You should use this line to let the server work on the PC you want...
registry write,CURUSER,Software\Microsoft\MessengerService,Server,Servers IP Address

external vdsinet.dll,Public Freeware Key|90257236

  DIALOG CREATE,vds-msn,-1,0,448,428
  DIALOG ADD,LIST,LIST1,72,8,432,328
  DIALOG ADD,BUTTON,BUTTON1,8,8,64,24,Send
  DIALOG ADD,BUTTON,BUTTON2,40,8,64,24,Add
  DIALOG ADD,EDIT,EDIT1,8,80,240,24,commando
  DIALOG ADD,EDIT,EDIT2,40,80,240,24,"email@hotmail.com nickname"
  DIALOG ADD,STATUS,STATUS1
  DIALOG ADD,EDIT,EDIT7,8,328,112,24,to user with number
  DIALOG ADD,EDIT,EDIT8,40,328,112,24,to user with number
  DIALOG SHOW

net socket,port,1863
net socket,server
net socket,vdsevents,vdsevents
net socket,auto,

:evloop
%e = @event()
if @equal(%e,)
goto start
else
goto %e
end


:start
    option fieldsep,@chr(32)
	%%var1 =
	%%var2 =
    %%var3 =
	%%var4 =
	%%var5 =
	%%var6 =
	%%var7 =
	%%var8 =
	%%var9 =
	%%ontvangen =
	%%afzender =
	%%afzenderid =
%%ontvangen = @net(socket,data)
%%afzender = @net(socket,senderaddr)
%%afzenderid = @net(socket,senderid)

if @equal(%%ontvangen,)
goto evloop
else
    parse "%%var1;%%var2;%%var3;%%var4;%%var5;%%var6;%%var7;%%var8;%%var9",%%ontvangen

list add,list1,%%afzenderid|%%ontvangen|%%afzender
goto %%var1

goto evloop
end

:VER
net socket,sendid,%%afzenderid,VER %%var2 MSNP7 MSNP6 MSNP5 MSNP4 CVR@cr()@chr(10)
goto evloop
:INF
net socket,sendid,%%afzenderid,INF %%var2 MD5@cr()@chr(10)
goto evloop
:USR
if @equal(%%var4,I)
  %%email = %%var5
  net socket,sendid,%%afzenderid,USR %%var2 MD5 S 1013928519.693957190@cr()@chr(10)
  end
if @equal(%%var4,S)
  net socket,sendid,%%afzenderid,USR %%var2 OK %%email %%email 1@cr()@chr(10)
  end
goto evloop
:XFR
goto evloop
:CHG
rem  net socket,sendid,%%afzenderid,CHG %%var2 %%var3@cr()@chr(10)
  net socket,sendid,%%afzenderid,CHG %%var2 %%var3@cr()@chr(10)ILN %%var2 NLN "email@haha.com" nickname@cr()@chr(10)ILN %%var2 NLN "email2@haha.com" nickname2@cr()@chr(10)
  
if @equal(%%var3,NLN)
  net socket,sendid,%%afzenderid,CHG %%var2 %%var3@cr()@chr(10)
  end
if @equal(%%var3,FLN)
  net socket,sendid,%%afzenderid,CHG %%var2 %%var3@cr()@chr(10)
  end
if @equal(%%var3,HDN)
  net socket,sendid,%%afzenderid,CHG %%var2 %%var3@cr()@chr(10)
  end
if @equal(%%var3,IDL)
  net socket,sendid,%%afzenderid,CHG %%var2 %%var3@cr()@chr(10)
  end
if @equal(%%var3,AWY)
  net socket,sendid,%%afzenderid,CHG %%var2 %%var3@cr()@chr(10)
  end
if @equal(%%var3,BSY)
  net socket,sendid,%%afzenderid,CHG %%var2 %%var3@cr()@chr(10)
  end
if @equal(%%var3,BRB)
  net socket,sendid,%%afzenderid,CHG %%var2 %%var3@cr()@chr(10)
  end
if @equal(%%var3,PHN)
  net socket,sendid,%%afzenderid,CHG %%var2 %%var3@cr()@chr(10)
  end
if @equal(%%var3,LUN)
  net socket,sendid,%%afzenderid,CHG %%var2 %%var3@cr()@chr(10)
  end


rem ----- Adds users -----
net socket,sendid,%%afzenderid,"ILN AWY Skit3000@hotmail.com Hello"@cr()@chr(10)
goto evloop

:MSG
goto evloop
:ILN
goto evloop
:BYE
net socket,closecid,%%afzenderid
goto evloop
:OUT
net socket,closecid,%%afzenderid
goto evloop
:SYN
net socket,sendid,%%afzenderid,SYN %%var2 %%var3@cr()@chr(10)
goto evloop
:REA
rem ----- Change screenname -----
rem REA 528 skit3000@hotmail.com skit3000@hotmail.comc
rem net socket,sendid,%%afzenderid,REA %%var2 123 %%var3 %%var4
net socket,sendid,%%afzenderid,REA 209 %%var2
goto evloop
:ADD
rem ----- Adds a user to your user-list -----
rem ADD 205 FL sdfsdf@dfg.nl sdfsdf@dfg.nl 0
rem ADD 206 AL sdfsdf@dfg.nl sdfsdf@dfg.nl

rem ADD 233 FL example@passport.com Mike 0
rem ADD 234 AL example@passport.com Mike

rem ADD 307 FL skit3000@hotmail.com skit3000@hotmail.com 0

rem ADD 318 FL dfgdfg@sdfg.nl dfgdfg@sdfg.nl 0
rem ADD 319 AL dfgdfg@sdfg.nl dfgdfg@sdfg.nl


net socket,sendid,%%afzenderid,ADD %%var2 FL 0 %%var4 %%var5 %%var6@cr()@chr(10)


goto evloop
:REM
goto evloop
:URL
rem URL 569 COMPOSE grannie@hotmail.com
goto evloop
:CVR
goto evloop

:NETWORK
goto evloop

:ACCEPT
goto evloop

:CLOSEC
goto evloop

:ERROR
info @net(socket,error)
goto evloop

:button1button
net socket,sendid,@dlgtext(edit7),@dlgtext(edit1)@cr()@chr(10)
list add,list1,"Sended ->" @dlgtext(edit1)@cr()@chr(10)
goto evloop

:button2button
net socket,sendid,@dlgtext(edit8),"ADD Hallo RL" @succ(%%var2) @dlgtext(edit2)@cr()@chr(10)
net socket,sendid,@dlgtext(edit8),"NLN AWY" @dlgtext(edit2)@cr()@chr(10)
goto evloop

:button3button
net socket,sendid,@dlgtext(edit9),"MSG Hotmail Hotmail" @succ(%%var2)"@cr()@chr(10)"MIME-Version: 1.0"@cr()@chr(10)"Content-Type: text/x-msmsgsemailnotification; charset=UTF-8"@cr()@chr(10)"From:" @dlgtext(edit3)@cr()@chr(10)"Message-URL: /cgi-bin/getmsg?msg=MSG1029401739.3&start=1610592&len=402&curmbox=ACTIVE"@cr()@chr(10)"Post-URL: https://lc1.law13.hotmail.passport.com/ppsecure/domessengerlogin/EN"@cr()@chr(10)"Subject: Hi"@cr()@chr(10)"Dest-Folder: ACTIVE"@cr()@chr(10)"From-Addr: "@dlgtext(edit3)@cr()@chr(10)"id: 2"@cr()@chr(10)
goto evloop

:button4button
goto evloop

:button5button
goto evloop

:button6button
clipboard set,@item(list1)
goto evloop

:Close
net socket,close
exit