Publié : jeu. 27/sept./2007 21:48
				
				Pidgin est vraiment cool je trouve, une jolie interface, peu de ressource et assez complet dans les option....
++
			++
Forums PureBasic - Français
https://www.purebasic.fr/french/
gansta93 a écrit :S'il y en a qui connaissent le VB, j'ai deux URL : http://www.vbfrance.com/code.aspx?ID=27271 et http://www.vbfrance.com/code.aspx?ID=26217 donc j'espère parce que moi, je ne fais que du Purej'ai jamais réussi à faire autre chose.
Bien vue, j'avais pas pensé a LibCurl.Progi1984 a écrit :Regarde dans ses packages :
http://sourceforge.net/project/showfile ... _id=198426
Un wrapper pour LibCurl a été commencé...
Ouais je me débrouille très bien l'anglais mais c'est toujours plus agréable de discuter dans sa langue maternelleProgi1984 a écrit :Mais le projet est en Purebasic.
Surtout que l'anglais est assez simple !
Code : Tout sélectionner
InitNetwork()
;- Window Constants
Enumeration
  #Window_0
EndEnumeration
;- Gadget Constants
Enumeration
  #Text_0
  #Text_1
  #String_0
  #String_2
  #Button_0
EndEnumeration
  If OpenWindow(#Window_0, 216, 0, 220, 105, "test connexion par ip",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_0))
      FontID1 = LoadFont(1, "Comic Sans MS", 10, #PB_Font_Bold)
      TextGadget(#Text_0, 10, 10, 90, 20, " adresse ip :")
      SetGadgetFont(#Text_0, FontID1)
      TextGadget(#Text_1, 10, 40, 50, 20, " port :")
      SetGadgetFont(#Text_1, FontID1)
      StringGadget(#String_0, 110, 10, 100, 20, adresseip$)
      StringGadget(#String_2, 110, 40, 100, 20, port$)
      ButtonGadget(#Button_0, 10, 70, 200, 25, "tester la connexion")
      
    EndIf
  EndIf
  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
      Case #Button_0
      adresseip$ = GetGadgetText(#String_0)
      port$ = GetGadgetText(#String_2)
      port.l = Val(port$)
       ConnectionID = OpenNetworkConnection(adresseip$, port.l)
        If ConnectionID = 0
         MessageRequester("erreur", "impossible de se connecter au serveur", #MB_ICONERROR)
         ElseIf ConnectionID
         MessageRequester("good", "connexion reussi au serveur", 0)
        EndIf
      
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow