Menu utilisateur






Mot de passe oublié ?
Pas encore de compte ? Enregistrez-vous

Enter Amount:

Qui est connecté

Membres: 92
Publications: 78
Liens: 7
Visiteurs: 77392

Syndicate

Accueil
RESILIATION DU SITE TROXSA
Appréciation des utilisateurs: / 0
Écrit par TroXsA   
17-09-2008

 

Bonjour a tous,

 

C'est avec déception que je vous annonce la Résiliation du site Troxsa.info, car n'est n'est plus le temps de m'en occuper, j'ai trop de chose a faire entre ma vie personnel et ma vie dans le monde du travail

cependant je vais faire une sauvegarde de tout les article sur ce site et les mettre a un autre endroit http://planetenova.free.fr/ vous y serez les bienvenu ! :)

3 Ans que ce site est ouvert est pas beaucoup de chose on evolué durent ce temps, c'est a dire que personne ne met de nouvelle article et que personne ne participe au forum, donc c'est pas une perte !

J'espere que vous m'en voudrer pas trop !

Cordialement,

Troxsa

 
Récuperer l'adresse IP ...
Appréciation des utilisateurs: / 1
Écrit par troxsa   
18-07-2006

 Il existe plusieurs facon d'avoir son IP
la premiere que j'aime bien c'est le WMI, 2 autres avec System.Net et peut et d'aure que je ne connais pas forcement

Pour le code donné en WMI 

   Imports System.Management

     Public Sub AdresseIPWmi()
        Dim query As ManagementObjectSearcher = New _
            ManagementObjectSearcher("SELECT * FROM WIN32_NetworkAdapterConfiguration WHERE IPEnabled = 'TRUE'")
        Dim queryCollection As ManagementObjectCollection = query.Get()
        Dim mo As ManagementObject
        For Each mo In queryCollection
            Dim addresses() As String = CType(mo("IPAddress"), String())
            Dim defaultgateways() As String = CType(mo("DefaultIPGateway"), String())

            Console.WriteLine("Network Card: {0}", mo("Description"))
            Console.WriteLine("MAC Address: {0}", mo("MACAddress"))
            Dim ipaddress As String
            For Each ipaddress In addresses
                Console.WriteLine("IP Address: {0}", ipaddress)
            Next
            Dim gateway As String
            For Each gateway In defaultgateways
                Console.WriteLine("Gateway: {0}", gateway)
            Next
        Next
    End Sub

 

Dernière mise à jour : ( 18-07-2006 )
Lire la suite...
 
Crytage / Decryptage
Appréciation des utilisateurs: / 0
Écrit par troxsa   
13-06-2006

Les Imports puis ajouter une référence System.Security

Imports System.Security.Cryptography
Imports System.Text

 La fonction de Cryptage

Public Function Cryptage(ByVal StrCryptage As String)
Dim ConvertBytes() As Byte = Encoding.Default.GetBytes(StrCryptage)
Dim CryptData() As Byte = ProtectedData.Protect(ConvertBytes, Nothing, DataProtectionScope.CurrentUser)
Dim s As String = Convert.ToBase64String(CryptData)
Return s
End Function

Dernière mise à jour : ( 21-06-2006 )
Lire la suite...
 
<< Début < Précédente 1 2 3 Suivante > Fin >>

Résultats 1 - 4 sur 9
Valid XHTML & CSS - Design by ah-68 - Copyright © 2007 by Firma