1
2
3
4
5
6
7
8
9
 
    string Uri = "http://www.letrot.com/stats/fiche-cheval/diane-des-champs/ZWF8ZQoHCgoR/courses/dernieres-performances-paginate-2";
    //// ou 
    // string Uri = "https://www.letrot.com/stats/fiche-cheval/diane-des-champs/ZWF8ZQoHCgoR/courses/dernieres-performances-paginate-2";
    using (System.Net.WebClient wc = new System.Net.WebClient())
    {
        System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Tls | System.Net.SecurityProtocolType.Tls11 | System.Net.SecurityProtocolType.Tls12 | System.Net.SecurityProtocolType.Ssl3;
        wc.DownloadFile(Uri, @"D:\urlContent.txt");
    }

1
2
3
 
System.Net.SecurityProtocolType.Tls11
System.Net.SecurityProtocolType.Tls12

1
2
3
4
5
6
 
Dim processes As Process() = Process.GetProcessesByName("TestApp")
If Not processes Is Nothing AndAlso Not processes.Length = 0 Then
      Dim hwnd As IntPtr = processes(0).MainWindowHandle
 
End If

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 <DllImport("user32.dll")>
    Private Shared Function EnumChildWindows(window As IntPtr, callback As EnumWindowProc, i As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
 
  Private Delegate Function EnumWindowProc(hWnd As IntPtr, parameter As IntPtr) As Boolean
 
  Private Shared Function ChildWindowsFromHandle(parent As IntPtr) As List(Of IntPtr)
        Dim result As New List(Of IntPtr)()
        Dim listHandle As GCHandle = GCHandle.Alloc(result)
        Try
            Dim childProc As New EnumWindowProc(AddressOf EnumWindowFromHandle)
            EnumChildWindows(parent, childProc, GCHandle.ToIntPtr(listHandle))
        Finally
            If listHandle.IsAllocated Then
                listHandle.Free()
            End If
        End Try
        Return result
    End Function
 
   Private Shared Function EnumWindowFromHandle(handle As IntPtr, pointer As IntPtr) As Boolean
        Dim gch As GCHandle = GCHandle.FromIntPtr(pointer)
        Dim list As List(Of IntPtr) = TryCast(gch.Target, List(Of IntPtr))
        If list Is Nothing Then
            Throw New InvalidCastException("La cible de GCHandle ne peut pas être castée en type List<IntPtr>")
        End If
        list.Add(handle)
        Return True
    End Function

1
2
3
4
5
6
7
Dim processes As Process() = Process.GetProcessesByName("TestApp")
        If Not processes Is Nothing AndAlso Not processes.Length = 0 Then
            Dim hwnd As IntPtr = processes(0).MainWindowHandle
            For Each wind In ChildWindowsFromHandle(hwnd)
 
            Next
        End If

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
<DllImport("User32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function GetClassName(hwnd As IntPtr, lpClassName As StringBuilder, nMaxCount As Long) As Long
    End Function
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function GetWindowTextLength(hWnd As IntPtr) As Integer
    End Function
 
    <DllImport("user32.dll")>
    Private Shared Function GetWindowText(ByVal hWnd As IntPtr, ByVal lpString As StringBuilder, ByVal nMaxCount As Integer) As Integer
    End Function
 
   Private Function CaptionFromHandle(hwnd As IntPtr) As String
        Dim cName As String = String.Empty
        Dim cText As StringBuilder = Nothing
        Try
            Dim cLength As Integer = GetWindowTextLength(hwnd)
            cText = New StringBuilder(String.Empty, cLength + 5)
            GetWindowText(hwnd, cText, cLength + 2)
            If Not String.IsNullOrEmpty(cText.ToString()) AndAlso
                Not String.IsNullOrWhiteSpace(cText.ToString()) Then
                cName = cText.ToString()
            End If
        Catch ex As Exception
            cName = ex.Message
        Finally
            cText = Nothing
        End Try
        Return cName
    End Function
 
    Private Function ClassNameFromHandle(hwnd As IntPtr) As String
        Dim cName As String = String.Empty
        Dim cText As StringBuilder = Nothing
        Try
            Dim cLength As Integer = 1000
            cText = New StringBuilder(String.Empty, cLength + 5)
            GetClassName(hwnd, cText, cLength + 2)
            If Not String.IsNullOrEmpty(cText.ToString()) AndAlso
                Not String.IsNullOrWhiteSpace(cText.ToString()) Then
                cName = cText.ToString()
            End If
        Catch ex As Exception
            cName = ex.Message
        Finally
            cText = Nothing
        End Try
        Return cName
    End Function

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 <DllImport("user32.dll", SetLastError:=True)>
    Private Shared Function PostMessage(hWnd As IntPtr, Msg As UInteger, wParam As IntPtr, lParam As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
 
    Const WM_KEYDOWN As UInteger = &H100
    Const WM_KEYUP As UInteger = &H101
    Const VK_ENTER As Integer = &HD
 
  Dim processes As Process() = Process.GetProcessesByName("TestApp")
        If Not processes Is Nothing AndAlso Not processes.Length = 0 Then
            Dim hwnd As IntPtr = processes(0).MainWindowHandle
            For Each wind In ChildWindowsFromHandle(hwnd)
                If CaptionFromHandle(wind) = "Button1" Then
                    PostMessage(wind, WM_KEYDOWN, CType(VK_ENTER, IntPtr), IntPtr.Zero)
                    PostMessage(wind, WM_KEYUP, CType(VK_ENTER, IntPtr), IntPtr.Zero)
                End If
            Next
        End If

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  Const VK_TAB As Integer = &H9
 
  Dim processes As Process() = Process.GetProcessesByName("TestApp")
        If Not processes Is Nothing AndAlso Not processes.Length = 0 Then
            Dim hwnd As IntPtr = processes(0).MainWindowHandle
            For Each wind In ChildWindowsFromHandle(hwnd)
                If CaptionFromHandle(wind) = "Button2" Then
                    PostMessage(wind, WM_KEYDOWN, CType(VK_TAB, IntPtr), IntPtr.Zero)
                    PostMessage(wind, WM_KEYUP, CType(VK_TAB, IntPtr), IntPtr.Zero)
                End If
            Next
        End If

1
2
3
4
5
6
7
8
9
//On associe l'extension .Dev à ton projet basé sur cette librairie : http://www.codeproject.com/Articles/43675/C-FileAssociation-Class
 
{
	AF_FileAssociator assoc = new AF_FileAssociator(".Dev");
	if (assoc.Exists == false) {
		// Il faut bien veiller à ce que l'exécutable de ton projet possède toujours le même chemin : prévoir un installeur !!!!
		assoc.Create("Dev", "Association example", new ProgramIcon("C:\\Program Files (x86)\\TonProgram\\TonProgram.ico"), new ExecApplication("C:\\Program Files (x86)\\TonProgram\\TonProgram.exe"), new OpenWithList(new string[] { "Dev" }));
	}
}

1
2
3
4
5
6
7
8
9
10
11
string[] args = Environment.GetCommandLineArgs();
if ((args != null)) {
	if (args.Count > 1) {
		//Ici le programme est exécuté en double cliquant sur un fichier portant l'extension .Dev
		if (File.Exists(args(1))) {
                    //Ici tu traites ton fichier .....
		}
	} else if (args.Count == 1) {
		//Ici le programme est exécuté directement.
	}
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
 
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Text
 
Public Class Ini
 
#Region "Natives Methods"
 
    Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringW" (lpApplicationName As String,
                                                                                                               lpKeyName As String, lpDefault As String,
                                                                                                               lpReturnedString As String, nSize As Integer,
                                                                                                               lpFileName As String) As Integer
 
    Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringW" (lpApplicationName As String,
                                                                                                               lpKeyName As String, lpString As String,
                                                                                                               lpFileName As String) As Integer
 
    <DllImport("kernel32")>
    Private Shared Function GetPrivateProfileString(Section As String, Key As Integer, Value As String, <MarshalAs(UnmanagedType.LPArray)> Result As Byte(), Size As Integer, FileName As String) As Integer
    End Function
 
    <DllImport("kernel32")>
    Private Shared Function GetPrivateProfileString(Section As Integer, Key As String, Value As String, <MarshalAs(UnmanagedType.LPArray)> Result As Byte(), Size As Integer, FileName As String) As Integer
    End Function
 
#End Region
 
#Region "Public Methods"
 
    'Suppression de section
    Public Shared Sub DeleteSection(INIPath As String, SectionName As String)
        Dim lpKeyName As String = Nothing
        Dim lpString As String = Nothing
        WritePrivateProfileString(SectionName, lpKeyName, lpString, INIPath)
    End Sub
 
    'Suppression de clé
    Public Shared Sub DeleteKey(INIPath As String, SectionName As String, KeyName As String)
        Dim lpString As String = Nothing
        WritePrivateProfileString(SectionName, KeyName, lpString, INIPath)
    End Sub
 
    'Lecture Valeur d'une section et clé spécifiée
    Public Shared Function ReadValue(INIPath As String, SectionName As String, KeyName As String) As String
        Return ReadValue(INIPath, SectionName, KeyName, "")
    End Function
 
    'Lecture Valeur d'une section et clé spécifiée (retourne valeur par défaut si elle n'existe pas)
    Public Shared Function ReadValue(INIPath As String, SectionName As String, KeyName As String, DefaultValue As String) As String
        Dim lpReturnedString As String = Strings.Space(2048)
        Dim length As Integer = GetPrivateProfileString(SectionName, KeyName, DefaultValue, lpReturnedString, lpReturnedString.Length, INIPath)
        If length > 0 Then
            Return lpReturnedString.Substring(0, length)
        End If
        Return ""
    End Function
 
    'Ecriture Clés/Valeurs dans une section spécifiée
    Public Shared Sub Write(INIPath As String, SectionName As String, KeyName As String, TheValue As String)
        WritePrivateProfileString(SectionName, KeyName, TheValue, INIPath)
    End Sub
 
    'Détecte si section spécifiée existe
    Public Shared Function SectionExists(INIPath As String, SectionName As String) As Boolean
        Return SectionNames(INIPath).Any(Function(s) s.ToLower = SectionName.ToLower)
    End Function
 
    'Retourne tous les noms des sections existantes dans le fichier de configuration
    Public Shared Function SectionNames(INIPath As String) As String()
        Dim maxsize As Integer = 500
        While True
            Dim bytes As Byte() = New Byte(maxsize - 1) {}
            Dim size As Integer = GetPrivateProfileString(0, "", "", bytes, maxsize, INIPath)
            If size < maxsize - 2 Then
                Dim Selected As String = Encoding.ASCII.GetString(bytes, 0, size - (If(size > 0, 1, 0)))
                Return Selected.Split(New Char() {ControlChars.NullChar})
            End If
            maxsize *= 2
        End While
        Return Nothing
    End Function
 
    'Retourne toutes les clés existantes d'une section spécifiée
    Public Shared Function SectionKeys(INIPath As String, sectionName As String) As String()
        Dim maxsize As Integer = 500
        While True
            Dim bytes As Byte() = New Byte(maxsize - 1) {}
            Dim size As Integer = GetPrivateProfileString(sectionName, 0, "", bytes, maxsize, INIPath)
            If size < maxsize - 2 Then
                Dim entries As String = Encoding.ASCII.GetString(bytes, 0, size - (If(size > 0, 1, 0)))
                Return entries.Split(New Char() {ControlChars.NullChar})
            End If
            maxsize *= 2
        End While
        Return Nothing
    End Function
 
#End Region
 
End Class

Ini.Write("C:\YourIniFile.ini", "Section0", "Key0","Value0")

Dim Val as string = Ini.ReadValue("C:\YourIniFile.ini", "Section0","Key1")

1
2
3
4
 
For Each Section In Ini.SectionNames("C:\YourIniFile.ini")
    MsgBox(Section)
Next

1
2
3
4
5
6
7
8
 
[Section0]
Key0=Value0
Key1=Value1
 
[Section1]
Key0=Value0
Key1=Value1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Function ParseBetween(Source$, Before$, After$) As String()
    Dim Results As New List(Of String)
    Dim T As New List(Of String)
    With T
        .AddRange(System.Text.RegularExpressions.Regex.Split(Source, Before))
        .RemoveAt(0)
        For Each Item$ In T
           Results.Add(System.Text.RegularExpressions.Regex.Split(Item, After)(0))
        Next
    End With
    Return Results.ToArray
End Function
 
Private Function ParseBetween(Source$, Before$, After$, Offset%) As String
    If String.IsNullOrEmpty(Source) Then 
        Return String.Empty
    End If
    If Source.Contains(Before) = True Then
        Dim Result$ = Source.Substring(Source.IndexOf(Before) + Offset)
        If Result.Contains(After) = True Then
            If Not String.IsNullOrEmpty(After) Then 
                Result = Result.Substring(0, Result.IndexOf(After))
            End If
        End If
        Return Result
    Else
        Return String.Empty
    End If
End Function

1
2
3
4
5
6
7
   Dim TextToParse = "<div> <span id=""programme"">Programme TF1</span> <span>Mes infos</span> </div>" & vbNewLine &
                            "<div> <span id=""programme"">Programme fr2</span> <span>Mes infos</span> </div>"
 
        Dim Result() As String = ParseBetween(TextToParse, "<span id=""programme"">Programme TF1</span> <span>", "</span>")
        For Each occur In Result
            MsgBox(occur)
        Next

1
2
3
4
5
6
7
   Dim TextToParse = "<div> <span id=""programme"">Programme TF1</span> <span>Mes infos</span> </div>" & vbNewLine &
                            "<div> <span id=""programme"">Programme fr2</span> <span>Mes infos</span> </div>"
 
  Dim Result() As String = ParseBetween(TextToParse, "<span id=""programme"">", "</span>")
        For Each occur In Result
            MsgBox(occur)
        Next

1
2
3
4
5
6
7
8
 
<Serializable>
Public Class Evaluation
 
    Public Version As String
    Public EtudeRendement As EtudeRendement
 
End Class

1
2
3
4
5
6
7
8
9
 
<Serializable>
Public Class EtudeRendement
 
    Public DateDeb As String
    Public NbTx As String
    Public Apr As String
 
End Class

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Imports System.Xml.Serialization
Imports System.IO
 
    <Serializable>
    Public Class AppSettings
 
#Region " Fields "
        Public Evaluation As Evaluation
        <XmlIgnore()>
        Public XmlPath As String = My.Application.Info.DirectoryPath & "\Conf.xml"
#End Region
 
#Region " Methods "
        ''' <summary>
        ''' Enregistre l'état courant de la classe dans un fichier au format XML.
        ''' </summary>
        Public Sub SaveFile()
            Dim serializer As New XmlSerializer(GetType(AppSettings))
            Dim ecrivain As New StreamWriter(XmlPath)
            serializer.Serialize(ecrivain, Me)
            ecrivain.Close()
        End Sub
 
        ''' <summary>
        ''' Charge l'état courant du fichier XML.
        ''' </summary>
        ''' <returns>Valeur de type AppSettings</returns>
        Public Shared Function LoadFile() As AppSettings
            Dim deserializer As New XmlSerializer(GetType(AppSettings))
            Dim lecteur As New StreamReader(My.Application.Info.DirectoryPath & "\Conf.xml")
            Dim p As AppSettings = DirectCast(deserializer.Deserialize(lecteur), AppSettings)
            lecteur.Close()
            Return p
        End Function
 
#End Region
 
    End Class

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Public Class Form1
 
    Private m_Settings As AppSettings
 
    Sub New()
        InitializeComponent()
        m_Settings = New AppSettings
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim etud As New EtudeRendement With {.DateDeb = TextBox1.Text,
                                             .NbTx = TextBox2.Text,
                                             .Apr = TextBox3.Text}
        Dim eval As New Evaluation With {.EtudeRendement = etud,
                                         .Version = "3.1"}
 
        m_Settings.Evaluation = eval
        m_Settings.SaveFile()
    End Sub
End Class

1
2
3
4
5
6
7
8
9
10
11
12
 
<?xml version="1.0" encoding="utf-8"?>
<AppSettings xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Evaluation>
    <Version>3.1</Version>
    <EtudeRendement>
      <DateDeb>01/12/2016</DateDeb>
      <NbTx>Trvx</NbTx>
      <Apr>0</Apr>
    </EtudeRendement>
  </Evaluation>
</AppSettings>

1
2
3
4
5
6
7
 
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        If Not Bgw.IsBusy Then
            Bgw.RunWorkerAsync()
        End If
    End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
   Private Sub Bgw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles Bgw.DoWork
        Try
            '' la requête pour récupérer la taille du fichier 
            Dim dlReq As FtpWebRequest = CType(WebRequest.Create("ftp://x.x.x.x//folder/sub/distantFile.bin"), FtpWebRequest)
            dlReq.Credentials = New NetworkCredential("user", "pass")
            dlReq.Method = WebRequestMethods.Ftp.GetFileSize
            Dim response As FtpWebResponse = DirectCast(dlReq.GetResponse(), FtpWebResponse)
            Dim fileSize = response.ContentLength
 
            '' la requête pour télécharger le fichier
            dlReq = CType(WebRequest.Create("ftp://x.x.x.x//folder/sub/distantFile.bin"), FtpWebRequest)
            dlReq.Credentials = New NetworkCredential("user", "pass")
            dlReq.Method = WebRequestMethods.Ftp.DownloadFile
            Dim dlResp As FtpWebResponse = DirectCast(dlReq.GetResponse(), FtpWebResponse)
            Dim dlFile As Stream = dlResp.GetResponseStream()
 
            Using localFile As New FileStream("C:\tmp\localFile.bin", FileMode.Create)
 
                Dim Length As Integer = 2048
                Dim buffer As Byte() = New Byte(Length - 1) {}
                Dim bytesRead As Integer = dlFile.Read(buffer, 0, Length)
                Dim bytes As Integer = 0
 
                Dim totalBytesRead As Long = bytesRead
                While bytesRead > 0
                    localFile.Write(buffer, 0, bytesRead)
                    Bgw.ReportProgress(CInt(totalBytesRead * 100 / fileSize), fileSize)
                    bytesRead = dlFile.Read(buffer, 0, Length)
                    totalBytesRead += bytesRead
                End While
            End Using
            'On vérifie que le fichier téléchargé existe et qu'il pèse le bon poids.
            e.Result = Tuple.Create(File.Exists("C:\tmp\localFile.bin") AndAlso New FileInfo("C:\tmp\localFile.bin").Length = fileSize, "Opération réussie")
        Catch ex As Exception
            e.Result = Tuple.Create(False, "Echec de l'opération : " & vbNewLine & ex.ToString)
        End Try
    End Sub

1
2
3
4
5
6
 
   Private Sub Bgw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles Bgw.ProgressChanged
        If Not e.ProgressPercentage > 100 Then
            ProgressBar1.Value = e.ProgressPercentage
        End If
    End Sub

1
2
3
4
5
6
7
8
9
10
11
 
  Private Sub Bgw_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles Bgw.RunWorkerCompleted
        Dim tup = TryCast(e.Result, Tuple(Of Boolean, String))
        If Not tup Is Nothing Then
            If tup.Item1 = True Then
                MessageBox.Show(tup.Item2, "Réussite", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show(tup.Item2, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End If
        End If
    End Sub