MSN poligamy

#include <GuiConstants.au3>
#include <GuiButton.au3>
#NoTrayIcon

GUICreate("MSN poligamy",200,220)
$menu=GUICtrlCreateMenu("by Misterx")
$exit=GUICtrlCreateMenuItem("Esci",$menu)
$act=GUICtrlCreateButton("Attiva",10,10,180,180)
$reg="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Live\Messenger"
$reg1="MultipleInstances"
If RegRead($reg,$reg1)=@error Then
       _GUICtrlButton_SetText($act,"Attiva")
       $on=1
Else
       _GUICtrlButton_SetText($act,"Disattiva")
       $on=0
EndIf

GUISetState()
While 1
       $msg=GUIGetMsg()
       Switch $msg
       Case $act
               If $on=1 Then
                       RegWrite($reg,$reg1,"REG_DWORD","1")
                       If Not @error Then
                               MsgBox(0,"MSN poligamy","Operazione effettuata")
                               _GUICtrlButton_SetText($act,"Disattiva")
                               $on=0
                       Else
                               MsgBox(48,"MSN poligamy","Operazione fallita")
                       EndIf
               ElseIf $on=0 Then
                       RegWrite($reg,$reg1,"REG_DWORD","0")
                       If Not @error Then
                               MsgBox(0,"MSN poligamy","Operazione effettuata")
                               _GUICtrlButton_SetText($act,"Attiva")
                               $on=1
                       Else
                               MsgBox(48,"MSN poligamy","Operazione fallita")
                       EndIf
               EndIf
       Case $exit
               Exit
       Case $gui_event_close
               Exit
       EndSwitch
WEnd