FAQ VB.NETConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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

1
2
3
4
5
6
7
8
9
10
11
12
13
Shared Sub Main(ByVal args As String()) 
  
    Dim msg As MailMessage = New MailMessage 
  
    msg.From = "expediteur@free.f" 
    msg.To = "atoi@free.fr;alui@free.fr" 
    msg.Cc = "encoreatoi@free.fr" 
    msg.Body = "Bonjour" & Convert.ToChar(10) & "" + "Ceci est le contenu du mail" & Convert.ToChar(10) & "" + "A bientôt" 
    msg.Attachments.Add(New MailAttachment("c:\fichierjoint.txt", MailEncoding.UUEncode)) 
    SmtpMail.SmtpServer = "smtp.nerim.fr" 
    SmtpMail.Send(msg) 
  
End Sub

1
2
Imports System.Net 
Imports System.IO

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
    Handles Button1.Click 
  
    Dim HttpWResponse As HttpWebResponse = Nothing 
    Dim sr As StreamReader = Nothing 
  
    Try 
        Dim HttpWRequest As HttpWebRequest = CType(WebRequest.Create(textBox1.Text), HttpWebRequest) 
        HttpWResponse = CType(HttpWRequest.GetResponse, HttpWebResponse) 
        sr = New StreamReader(HttpWResponse.GetResponseStream) 
        richTextBox1.Text = sr.ReadToEnd 
    Catch ex As Exception 
        MessageBox.Show(ex.Message) 
    Finally 
        If Not (HttpWResponse Is Nothing) Then 
            HttpWResponse.Close 
        End If 
        If Not (sr Is Nothing) Then 
            sr.Close 
        End If 
    End Try 
  
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
using System.Runtime.InteropServices; 
  
' Déclaration de l'API 
Private Declare Function InternetGetConnectedState Lib "wininet.dll" ( _ 
    ByRef lpdwFlags As Integer, _ 
    ByVal dwReserved As Integer) As Boolean 
  
  
' Utilisation de l'API 
Public Function IsConnected() as Boolean 
        Dim Desc As Integer 
    return InternetGetConnectedState(Desc, 0) 
End Function

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Imports System.DirectoryServices 
  
Private Function GetPCList(ByVal DomainPath As String)As ArrayList 
  
    Dim PCList As Arraylist 
    Dim DomainEntry As New DirectoryEntry(DomainPath) 
    Dim Entry As DirectoryEntry 
  
    DomainEntry.Children.SchemaFilter.Add("Computer") 
    For Each entry In DomaineEntry.Children 
        ComputerList.Add(entry.Name) 
    Next 
  
    Return PCList 
  
End Function

caspol -q -m -ag 1.2 -zone Intranet FullTrust -n My_Zone

caspol -q -m -rg My_Zone

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Imports System.Net 
  
Function GetIPaddresses(ByVal computername As String) As String() 
    Dim saddr As String() = Nothing 
    Dim addr As IPAddress() = Dns.Resolve(computername).AddressList 
  
    If addr.Length > 0 Then 
        saddr = New String(addr.Length) {} 
        Dim i As Integer = 0 
        While i < addr.Length 
            saddr(i) = addr(i).ToString 
            i = i + 1 
        End While 
    End If 
    Return saddr 
End Function

1
2
3
4
5
6
7
8
9
10
' Nom de la machine 
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

1
2
3
4
' Pinguer un machine 
Dim monPing As Ping = New Ping  
Dim Reply As PingReply = monPing.Send("192.168.1.31")  
Console.WriteLine("Statut du ping : {0}", Reply.Status)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Imports System.ServiceModel 
  
<ServiceBehavior(InstanceContextMode = InstanceContextMode.PerSession)> _ 
Public Class A 
    Inherits WcfInterface 
    Private i As String 
    Public ReadOnly Property I() As String 
        Get 
            Return I 
        End Get 
    End Property 
End Class 
' ... 
' ... 
Dim host As ServiceHost = New ServiceHost(monInstance) 
host.Open()

My.Computer.Network.DownloadFile(Fichier_a_Downloader, path)

My.Computer.Network.DownloadFile("http://www.zonegeeks.com/Documents/Cours/Autre/EAF_ecrit.pdf", "C:\cool.pdf")

My.Computer.Network.UploadFile(path, Destination, "", "")

ftp://coucou:5412@ftpperso.free.fr/temp/musique.mp3

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
' Création de la requête 
Dim objWebRequest As System.Net.WebRequest = System.Net.HttpWebRequest.Create("http://dotnet.developpez.com") 
' Envoi de la requête au serveur 
Dim objWebResponse As System.Net.WebResponse = objWebRequest.GetResponse() 
' Stream pour récupérer le résultat 
Dim objStreamReader As System.IO.StreamReader = Nothing 
  
Try 
    ' Récupération du résultat 
    objStreamReader = New System.IO.StreamReader(objWebResponse.GetResponseStream()) 
    ' Lecture du résultat 
    TextBox1.Text = objStreamReader.ReadToEnd() 
Finally 
    ' Fermeture de la connexion 
    If Not objWebResponse Is Nothing Then 
        objWebResponse.Close() 
    End If 
End Try