PureBasic

Code : Tout sélectionner

Enumeration
  #Window_0
  #Window_1
  #Button_0
  #Button_1
  #Button_2
  #String_0
  #String_1
  #Text_0
  #Frame3D_0
  #String_2
  #Text_1
  #Button_3
  #Text_3
  #String_3
  #String_4
  #String_5
  #Text_2
  #Text_4
  #Text_5
  #Text_6
  #Button_4
EndEnumeration

If InitNetwork() = 0
 End
EndIf

Procedure Open_Window_1()
  If OpenWindow(#Window_1, 306, 254, 347, 132,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered , "Session CybMail")
    If CreateGadgetList(WindowID())
      StringGadget(#String_0, 90, 20, 130, 20, "")
      StringGadget(#String_1, 90, 50, 130, 20, "")
      StringGadget(#String_2, 90, 90, 150, 20, "")
      TextGadget(#Text_0, 250, 95, 80, 20, "@cybermail.com")
      TextGadget(#Text_1, 10, 25, 60, 20, "Nom :")
      TextGadget(#Text_2, 10, 55, 60, 20, "Prénom :")
      TextGadget(#Text_3, 10, 95, 80, 20, "Adresse E-Mail :")
      ButtonGadget(#Button_0, 240, 20, 90, 50, "OK")
    EndIf
  EndIf
EndProcedure

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 188, 190, 514, 289,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered , "Cyber Mail")
    If CreateGadgetList(WindowID())
      ButtonGadget(#Button_0, 50, 220, 100, 30, "Deconection")
      ButtonGadget(#Button_1, 20, 100, 180, 30, "Vérifier la connection d'un client")
      ButtonGadget(#Button_2, 310, 30, 130, 30, "Envoyer un mail")
      StringGadget(#String_3, 250, 120, 250, 140, "")
      StringGadget(#String_4, 250, 80, 160, 20, "")
      TextGadget(#Text_0, 420, 83, 90, 20, "@cybermail.com")
      Frame3DGadget(#Frame3D_0, 230, 20, 280, 250, "MAIL")
      StringGadget(#String_5, 40, 70, 90, 20, "")
      TextGadget(#Text_1, 0, 75, 40, 20, "Client :", #PB_Text_Center)
      ButtonGadget(#Button_3, 50, 170, 100, 30, "Carnet d'adresse")
      TextGadget(#Text_3, 140, 70, 80, 20, "@cybermail.com")
    EndIf
  EndIf
EndProcedure

debut:
If OpenFile(0,"C:\WINDOWS\CybMail\Info")
  fichier_util$ = ReadString()
 CloseFile(0)
 OpenFile(1,"C:\WINDOWS\CybMail\Clients")
  fichier_clients$ = ReadString()
 CloseFile(1)
 open_window_0()
 connectID = OpenNetworkConnection("192.168.1.3",5650)
 If connectID
  Repeat
  
  Until WaitWindowEvent()=#PB_EventCloseWindow
  CloseNetworkConnection(connectID)
  End
 EndIf
Else
 open_window_1()
 Repeat
  If EventGadgetID() = #button_0
   nom$ = GetGadgetText(#String_0)
   prenom$ = GetGadgetText(#String_1)
   adresse$ = GetGadgetText(#String_2)
   Goto fin:
  EndIf
 Until WaitWindowEvent()=#PB_Event_CloseWindow
 fin:
 CloseWindow(#window_1)
 CreateFile(2,"C:\WINDOWS\CybMail\Info")
  WriteString("§!n%%o$o%%m$m%%n$!:="+nom$+"@§p%%r$r%%e$e%%?&?%%p$:="+prenom$+"@§%%&/$:="+adresse$)
 CloseFile(2)
 CreateFile(3,"C:\WINDOWS\CybMail\Clients")
 CloseFile(3)
 Goto debut:
EndIf