Se connecter avec
S'enregistrer | Connectez-vous

Fou, schizophrène, crétin fini?

Dernière réponse : dans Le Bistrot

Tu discutes encore avec dylandu? :D 

Il a aussi sévi ici...

Tu remarqueras qu'il a édité tous ses messages.

Je ne sais pas s'il s'agit d'un brusque éclair de lucidité ou d'un accès de colère puérile mais dans tous les cas, je peux t'assurer qu'il me semble inutile d'essayer de le raisonner... :spamafote: 

Apparemment il s'est trouvé un copain... :sweat: 

Putain les gars faut prévenir plus tôt quand y'a du bon comme ça !!!!

Ma préférée :" j'ai 40 ans je sais ce que je fait moi !ok !! "

J'adore.

Il apeut être qq compétence mais gros boulet inside et peut être en effet déséquilibre psy...

salut

une petite idée !
si on allait le flatter sur l'autre topic
lui dire qu'il est le meilleur , le plus competent, que heureusement qu'il daigne venir a notre aide, juste pour voir la dimension de son "ego"
si ca vous tente passer un petit mot a la suite pour concertation avant la ruée (de compliments) sur l'animal !

Petit MP

Citation :
voila comment je peu l'avoir ton IP
Code :
Imports System.Net
Function GetIPaddresses(Optional ByVal computername As String = "localhost" ) As String()
Dim saddr() As String
Dim addr() As IPAddress = Dns.Resolve(computername).AddressList()
Dim i As Integer
If addr.Length > 0 Then
saddr = New String(addr.Length - 1) {}
For i = 0 To addr.Length - 1
saddr(i) = addr(i).ToString
Next
End If
Return saddr
End Function

et crois moi ça fonctionne très bien
alors ne me prend pas pour un petit joueur je t'emmerde pas alors ne memerde pas ok
sinon j'te promet que je met tout à exécution avec mes potes
alors qu'on en reste la ok
j'ai pas envie de me taper encore de la tôle pour une histoire de jalousie
laisse moi aider les gens c'est tout ce qu'il me reste à faire
le piratage c'est mon domaine mais j'en est payer les frais crois moi
alors stop ok
sinon je tiens toujours mes paroles
alors c'est toi qui vois
@+
et me fait plus chier j'te previens !!

et avec le nom de la machine c'est encore mieux
Code :
Nom de la machine=PC Portable*
Sony Vaio VGN-NW31EF
Dim NomMachine As String = Dns.GetHostName
' Récupération de la liste des IP de la machine
Dim InfoIps As IPHostEntry = Dns.GetHostEntry(NomMachine)
Dim MesIp As IPAddress() = InfoIps.AddressList
For Each CurrentIp As IPAddress In MesIp
Console.WriteLine("Ip : {0}", CurrentIp.ToString)
Next
alors reste à ta place ok
c'est toi qui vois pas moi!c'est pour te prouver mes dires !!et avec google map c'est géant^^!ha!ha!

:lol: 

alexandreB64 a dit :
Besoin de s'affirmer ? Ou est-ce qu'il joue un jeu ? Bizarre ce type ... Le bout de code, il a très bien pu le tiré de quelque part sur le net ...

Surtout que c'est très profond comme code. :sweat:  

  1. Imports Microsoft.VisualBasic
    

  2. Imports System.Net
    

  3. Imports NetPing.Common
    

  4.  
  5. Namespace NetPing.AddIns
    

  6.         Friend Class ComputerNameColumn
    

  7.                 Inherits ColumnProviderBase
    

  8.  
  9.                 Public Sub New()
    

  10.                         MyBase.New("Name", 125)
    

  11.                 End Sub
    

  12.  
  13.                 Public Overrides Function Execute(ByVal ipAddress As IPAddress) As ColumnValue
    

  14.                         Dim hostEntry As IPHostEntry
    

  15.  
  16.                         Try
    

  17.                                 hostEntry = Dns.GetHostEntry(ipAddress)
    

  18.                         Catch
    

  19.                                 hostEntry = Nothing
    

  20.                         End Try
    

  21.  
  22.                         Dim hostName As String
    

  23.  
  24.                         If hostEntry Is Nothing Then
    

  25.                                 hostName = ""
    

  26.                         Else
    

  27.                                 hostName = hostEntry.HostName
    

  28.                         End If
    

  29.  
  30.                         Return New ColumnValue(ColumnIndex, hostName)
    

  31.                 End Function
    

  32.         End Class
    

  33. End Namespace


Aidons le ce petit :o 

thyrion a dit :
Petit MP

Citation :
voila comment je peu l'avoir ton IP
Code :
Imports System.Net
Function GetIPaddresses(Optional ByVal computername As String = "localhost" ) As String()
Dim saddr() As String
Dim addr() As IPAddress = Dns.Resolve(computername).AddressList()
Dim i As Integer
If addr.Length > 0 Then
saddr = New String(addr.Length - 1) {}
For i = 0 To addr.Length - 1
saddr(i) = addr(i).ToString
Next
End If
Return saddr
End Function

et crois moi ça fonctionne très bien
alors ne me prend pas pour un petit joueur je t'emmerde pas alors ne memerde pas ok
sinon j'te promet que je met tout à exécution avec mes potes
alors qu'on en reste la ok
j'ai pas envie de me taper encore de la tôle pour une histoire de jalousie
laisse moi aider les gens c'est tout ce qu'il me reste à faire
le piratage c'est mon domaine mais j'en est payer les frais crois moi
alors stop ok
sinon je tiens toujours mes paroles
alors c'est toi qui vois
@+
et me fait plus chier j'te previens !!

et avec le nom de la machine c'est encore mieux
Code :
Nom de la machine=PC Portable*
Sony Vaio VGN-NW31EF
Dim NomMachine As String = Dns.GetHostName
' Récupération de la liste des IP de la machine
Dim InfoIps As IPHostEntry = Dns.GetHostEntry(NomMachine)
Dim MesIp As IPAddress() = InfoIps.AddressList
For Each CurrentIp As IPAddress In MesIp
Console.WriteLine("Ip : {0}", CurrentIp.ToString)
Next
alors reste à ta place ok
c'est toi qui vois pas moi!c'est pour te prouver mes dires !!et avec google map c'est géant^^!ha!ha!

:lol: 


Votre roi du crack programme en VB :ouch:  :heink:  :/  .... [:marsien]

Créer un nouveau sujet

  • Contenus similaires :
Tags :