Si vous rencontrez ce message d'erreur lorsque vous téléchargez un fichier depuis une url : La demande a été abandonnée : Impossible de créer un canal sécurisé SSL/TLS il peut être judicieux de procéder à cette vérification :
Le problème vient du fait que la nouvelle url est en https..... Il faut donc oublier l'utilisation de la classe My.Computer.Network.DownloadFile et utiliser une autre classe (System.Net.WebClient) qui gère les protocoles de sécurité de type SSL/TLS (dans le cas
Pour l'exemple j'ai codé une application type Windows Forms (Framework 4.0 ciblé) nommée "TestApp" dans laquelle j'ai ajouté 2 boutons (Button1 et Button2).
Lorsqu'on clique sur Button1 ça affiche une msgBox.
---> Dans un premier temps on récupère le handle du processus et on vérifie qu'il existe bien :
Code vb.net : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Dim processes As Process() = Process.GetProcessesByName("TestApp") If Not processes Is Nothing AndAlso Not processes.Length
Ce que tu souhaites faire débute ici :
https://www.codeproject.com/articles...ociation-class
1- Dans un premier temps tu créés un installeur pour ton application car cette dernière devra toujours être exécuté depuis le même chemin (%program files%) comme tout autre programme qui sont associés à une extension sur ton système d'exploitation Windows.
2- Tu penses à placer dans le chemin de ton application un fichier icône (.ico) qui sera utilisé lors de l'association
Il existe cette classe très simple d'usage :
Code VB.NET : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 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,
Il existe 2 fonctions bien pratiques pour obtenir du texte contenu entre 2 balises :
Code VB.NET : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 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,
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.