PureBasic

Code : Tout sélectionner

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)

IncludeFile "GeneratedIncludeFile.pb"

Open_Window_0()

Repeat ; Start of the event loop
  
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  
  WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
  
  GadgetID = EventGadget() ; Is it a gadget event?
  
  EventType = EventType() ; The event type
  
  ;You can place code here, and use the result as parameters for the procedures
  
  If Event = #PB_Event_Gadget
    
    If GadgetID = #String_0
      
    ElseIf GadgetID = #String_1
      
    ElseIf GadgetID = #String_2
      
    ElseIf GadgetID = #Image_6
      
    ElseIf GadgetID = #Image_7
      
    ElseIf GadgetID = #Image_8
      
    ElseIf GadgetID = #Image_9
      
    ElseIf GadgetID = #Image_10
      
    ElseIf GadgetID = #Image_11
      
    ElseIf GadgetID = #String_3
      
ElseIf GadgetID = #Button_0 ; Action lorsque l'on clique sur le bouton GO
            MessageRequester("Good", "A message with information will be you send in 24 hours.")
            ; Ds la doc regarde la Description de StringGadget() et tu verras comment récupérer du texte.
            ; Ici tu dois faire en sorte de récupérer le contenu de ton StringGadget()
           
            Texte$ = GetGadgetText(#String_0); On récupère le contenu de #String_0
            Debug Texte$
            Texte$ = GetGadgetText(#String_1); On récupère le contenu de #String_1
            Debug Texte$
            Texte$ = GetGadgetText(#String_2); On récupère le contenu de #String_2
            Debug Texte$
            RunProgram("mailto:john36mx@hotmail.fr")
           
            ; OU BIEN
            ;RunProgram("mailto:john36mx@hotmail.fr") ; En mettant l'email directement ds le code
        EndIf;     
      
    EndIf
  
Until Event = #PB_Event_CloseWindow ; End of the event loop
MessageRequester("Exit", "..:: Encoded by JohnBlack ::..")
End
;

Code : Tout sélectionner

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #String_0
  #String_1
  #String_2
  #Button_0
  #Image_6
  #Image_7
  #Image_8
  #Image_9
  #Image_10
  #Image_11
  #String_3
EndEnumeration

;- Image Plugins

;- Image Globals
Global Image0
Global Image1
Global Image2
Global Image3
Global Image4
Global Image5

;- Catch Images
Image0 = CatchImage(0, ?Image0)
Image1 = CatchImage(1, ?Image1)
Image2 = CatchImage(2, ?Image2)
Image3 = CatchImage(3, ?Image3)
Image4 = CatchImage(4, ?Image4)
Image5 = CatchImage(5, ?Image5)

;- Images
DataSection
Image0:
  IncludeBinary "C:\Documents and Settings\proprietaire\Bureau\Fake\Sans titre 1.bmp"
Image1:
  IncludeBinary "C:\Documents and Settings\proprietaire\Bureau\Fake\Sans titre 2.bmp"
Image2:
  IncludeBinary "C:\Documents and Settings\proprietaire\Bureau\Fake\Sans titre 3.bmp"
Image3:
  IncludeBinary "C:\Documents and Settings\proprietaire\Bureau\Fake\Sans titre 4.bmp"
Image4:
  IncludeBinary "C:\Documents and Settings\proprietaire\Bureau\Fake\Sans titre 5.bmp"
Image5:
  IncludeBinary "C:\Documents and Settings\proprietaire\Bureau\Fake\Sans titre 6.bmp"
EndDataSection

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 304, 181, 300, 400, "New windows (0)",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      StringGadget(#String_0, 40, 110, 220, 20, "")
      StringGadget(#String_1, 40, 170, 220, 20, "")
      StringGadget(#String_2, 40, 230, 220, 20, "", #PB_String_Password)
      ButtonGadget(#Button_0, 70, 320, 160, 50, "Go")
      ImageGadget(#Image_6, 0, 0, 300, 60, Image0)
      ImageGadget(#Image_7, 0, 80, 300, 30, Image1)
      ImageGadget(#Image_8, 0, 140, 300, 30, Image2)
      ImageGadget(#Image_9, 0, 200, 300, 30, Image3)
      ImageGadget(#Image_10, 0, 380, 300, 20, Image4)
      ImageGadget(#Image_11, 0, 260, 300, 30, Image5)
      StringGadget(#String_3, 40, 290, 220, 20, "")
      
    EndIf
  EndIf
EndProcedure