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