IP Adress

[Ar-S]

Une petite appli pour connaître son adresse IP externe (en ligne). il la copie dans le presse papier s'il la trouve.

OS : testé sur 7
Poids : 285 ko
Portable
Gratuit

Télécharger ICI

[venom]

Sympa le skin

j'avais fait ça a l'époque :

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #String_0
  #Button_0
EndEnumeration

Procedure.s OpenURL(Url.s, OpenType.b)
  isLoop.b = 1
  INET_RELOAD.l = $80000000
  hInet.l = 0 : hURL.l = 0 : Bytes.l = 0
  Buffer.s = Space(2048)
  
  hInet = InternetOpen_("PB@INET", OpenType, #Null, #Null, 0)
  hURL = InternetOpenUrl_(hInet, Url, #Null, 0, INET_RELOAD, 0)
  
  Repeat
    
    Delay(1)
    InternetReadFile_(hURL, @Buffer, Len(Buffer), @Bytes)
    If Bytes = 0
      isLoop = 0
    Else
      res.s = res + Left(Buffer, Bytes)
    EndIf
  Until isLoop = 0
  InternetCloseHandle_(hURL)
  InternetCloseHandle_(hInet)
  ProcedureReturn res
EndProcedure
HTML.s = OpenURL("http://www.monip.org/", 1)
debut.l = FindString(HTML, "<BR>IP : ", 1) + 9
fin.l = FindString(HTML, "<br>", 1)
ip.s = Mid(HTML, debut, (fin - debut))

If OpenWindow(#Window_0, 0, 0, 205, 70, "IP Public", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_TitleBar)
  SetWindowColor(#Window_0, RGB(0, 0, 0))

    TextGadget(#String_0, 10, 10, 185, 20, "" + ip.s, #PB_Text_Center)
    SetGadgetColor(#String_0, #PB_Gadget_BackColor, RGB(0, 0, 0))
    SetGadgetColor(#String_0, #PB_Gadget_FrontColor, RGB(255, 255, 255))
    
    HyperLinkGadget(#Button_0, 5, 40, 200, 20, " cliquez pour copier dans le presse papier", RGB(255, 0, 0))
    SetGadgetColor(#Button_0, #PB_Gadget_BackColor, RGB(0, 0, 0))
    SetGadgetColor(#Button_0, #PB_Gadget_FrontColor, RGB(255, 255, 255))
    
EndIf

Repeat
  EventID = WaitWindowEvent()
  If EventID = #PB_Event_Gadget
    Select EventGadget()
        
      Case #Button_0
        SetClipboardText(ip.s)
        End
        
    EndSelect
  EndIf
Until EventID = #PB_Event_CloseWindow

Fin la procédure ne doit pas être de moi je ne m'en rappel plus.






@++

[Le Soldat Inconnu]

Sympa mais il y a un raté sur les dégradés, Tu as utilisé SkinWindow ?

[Ar-S]

Sympa mais il y a un raté sur les dégradés, Tu as utilisé SkinWindow ?

Ouep,
Pour le contour, j'ai un peu queuté, mon item.png doit avoir des nuances sur les bords des items, faut dire je l'ai un peu fait à l'arrache cet aprem le skin. C'était plus pour me remémorer l'utilisation de ta lib. (et la doc ça avance ? ^^)

[Le Soldat Inconnu]

(pas trop, je viens juste de finir ma calculatrice)

[Ar-S]

Je suis encore en train de faire une interface pour un petit soft de sauvegarde. Cette fois j'ai pris mon temps (c'est pas pour moi)
du coup j'ai converti l'image item en png8 alligné sur le web en 16 couleurs, ça passe bien mieux.

Du coup j'ai skinné via une capture de fenêtre sous 7 ^^
C'est simple et permet aux utilisateurs d'avoir un beau rendu, qu'il soit sous xp ou +

voir capture ici : http://i.imgur.com/R5DMK.png

(ce que l'on voit autour de l'image c'est japbe, c'est pas un bavouillage )