getule

hors charte !

Requêtes paramétrées contre les injections SQL voir sujet: http://diaf.no-ip.org/yaf_postst33_Requetes-parametrees-contre-les-injections-SQL.aspx

une offre intéressante asp.net et php, sql server, mySql souce: diafdz

Comment afficher le nombre des utilisateurs connectés à votre site ASP.NET. Pour qu’un utilisateur soit ajouté au nombre de connectés, il faut l’ajouter à l’ouverture d’une page de votre site. Pour ce faire, vous devez ajouter 1 (ie : +1 lors d’ouverture de session). Dans le fichier Global.asax , ajouter ces deux procédures Code: [TABLE=width: 0] [TR] [TD=class: gutter] 1 2 3 4 5 6 7 8 9 10 11 12 [/TD] [TD=class: code, bgcolor: #F9F9F9]Sub Session_OnStart() 'demarrage de session Application.Lock() Application("achal") = Application("achal") + 1 'incrémenter 1 Application.UnLock() End Sub Sub Session_OnEnd() 'fermeture de session Application.Lock() Application("achal") = Application("achal") – 1 ' enlever 1 à la fermeture de session Application.UnLock() End Sub[/TD] [/TR] [/TABLE] Maintenant, dans la page où vous souhaiteriez afficher le nombre d’utilisateurs en temps réel de votre site, ajouter : Code: [TABLE=width: 0] [TR] [TD=class: gutter] 1 [/TD] [TD=class: code, bgcolor: #F9F9F9]Le nombre de personnes utilisant le site en ce moment : [/TD] [/TR] [/TABLE] Source: http://forum.getule.com/yaf_postst27_Comment-afficher-le-nombre-des-utilisateurs--connectes-et-anonymes-sur-votre-site-ASP-NET.aspx

Pourquoi asp.net? Ce code fonctionne meme en html, juste pour le controle asp "hyperlink" on peut utiliser la balise le lien

Pour ajouter une captcha gratuitement à votre site, nous vous proposons une captcha compatible asp.net et simple à installer. captcha de mondor software Source http://forum.diafdz.com/yaf_postst26_Ajouter-une-image-captcha-a-votre-formulaire-d-envoi.aspx Installation: 1 - Décompresser le fichier téléchargé 2 - Copiez MSCaptcha.dll et MSCaptcha.xml dans le répretoire BIN de votre application web 3 - Modifiez votre fichier web.config, en ajoutant cette ligne dans la section : Code: Si vous utiliser IIS 7 ajouter le paramètre "Add name" dans la section : Code: Comment l'utiliser? 1 - Ajouter cette ligne dans votre page aspx Code: 2 - Là où vous voulez insérer le control captcha ajouter ce code: Code: Vous pouvez faire des paramétrage en changeant les valeurs et autres ... 3 - Insérer un Textbox quelque part où l'utilsateur sera obligé de taper les caractères de l'image dans notre exemple, le nom du textbox est "captb". voici le code pour valider l'utilisateur VB Code: ccJoin.ValidateCaptcha(Me.captb.Text) If ccJoin.UserValidated = False Then ' erreur .... Else ' votre code ici End If C# Code: ccJoin.ValidateCaptcha(captb.Text); if (!ccJoin.UserValidated) { //erreur // return; } Télécharger la captcha et voila amicalement getule

c'est vrai, t'as raison. merci

vous avez effectivement raison d'instancier le nouveau objet StreamReader et StreamWriter à l'interieur de try car pour une quelconque raison qui empêche la liaison au fichier, l'exception n'est pas portée. to^^^^ois, vous n'avez pas raison quand vous posez une condition pour finally alors que le catch permet ceci directement. donc je me rectifie : [left][color=#000000][font=Consolas]Sub LireFichier()[/font][/color] [color=#000000][font=Consolas] Dim MonSR As StreamReader = Nothing 'déclaration d'une instance StreamReader[/font][/color] [color=#000000][font=Consolas] Try[/font][/color] [color=#000000][font=Consolas] MonSR = File.OpenText(Server.MapPath("Monfichier.txt")) 'ouverture du fichier[/font][/color] [color=#000000][font=Consolas] Me.Literal1.Text =MonSR.ReadToEnd ' affichage des données du fichier dans un Literal[/font][/color] [color=#000000][font=Consolas] MonSR.Close() 'Fermeture du StreamReader (à ne pas oublier)[/font][/color] [color=#000000][font=Consolas] Catch ex As Exception[/font][/color] [color=#000000][font=Consolas] [/font][/color] [color=#000000][font=Consolas] End Try[/font][/color] [color=#000000][font=Consolas] End Sub[/font][/color][/left] et pour l’écriture: [left][color=#000000][font=Consolas]Sub EcrireFichier()[/font][/color] [color=#000000][font=Consolas] Try[/font][/color] [color=#000000][font=Consolas] Dim MonSR As StreamWriter = New StreamWriter(Server.MapPath("Monfichier.txt"))[/font][/color] [color=#000000][font=Consolas] MonSR.Write(Me.TextBox1.Text) 'Ecriture du contenu du textbox sur mon fichier[/font][/color] [color=#000000][font=Consolas] MonSR.Close()[/font][/color] [color=#000000][font=Consolas] Catch ex As Exception[/font][/color] [color=#000000][font=Consolas] [/font][/color][color=#000000][font=Consolas] End Try[/font][/color] [color=#000000][font=Consolas] End Sub[/font][/color][/left]

Il est presque toujours nécessaire lors du développement d'un site web de pouvoir écrire et lire sur des fichiers. La procédure pour y arriver est relativement simple avec vb.net et c#. Il suffit de faire appel à la classe à deux classes StreamReader et StreamWriter de l'espace de noms System.IO StreamReader permet de lire un flux de caractères depuis un fichier. StreamWriter permet d'écrire un flux de caractères sur un fichier. Passons au code: Tout d'aobord importons System.IO Imports System.IO Procédure de lecture: Sub LireFichier() Dim MonSR As StreamReader 'déclaration d'une instance StreamReader Try MonSR = File.OpenText(Server.MapPath("Monfichier.txt")) 'ouverture du fichier Me.Literal1.Text =MonSR.ReadToEnd ' affichage des données du fichier dans un Literal MonSR.Close() 'Fermeture du StreamReader (à ne pas oublier) Catch ex As Exception End Try End Sub Procédure d'écriture: Sub EcrireFichier() Dim MonSR As StreamWriter = New StreamWriter(Server.MapPath("Monfichier.txt")) Try MonSR.Write(Me.TextBox1.Text) 'Ecriture du contenu du textbox sur mon fichier MonSR.Close() Catch ex As Exception End Try End Sub et voila, source: http://forum.diafdz.com/yaf_postst23_Asp-net--comment-lire-et-ecrire-sur-un-fichier-text-avec-VB-net.aspx

Comment supprimer définitivement son compte Facebook source : http://forum.diafdz.com/yaf_postst22_Comment-supprimer-definitivement-son-compte-facebook.aspx

Le composant BackgroundWorker du framework .net permet d’utiliser un "multithreading" facilement. source http://forum.diafdz.com/yaf_postsm24_Comment-travailler-avec-un-BackgroundWorker-vb-net.aspx#post24 prenons un exemple utile. durant le temps de la connexion à la base de donnée d'un LoginForm, celle ci parait bloquée (Freeze de l'interface utilisateur). au lieu d'utiliser un multithreading, voyons cela avec le BackgroundWorker. Nous allons utiliser une ProgressBar pour faire patienter l'utilisateur durant la connexion à la base. [left][color=#000000][font=Consolas]Public username, password, tt As String ' Déclarons username et pasword et une valeur tt comme des string[/font][/color] [color=#000000][font=Consolas] Public c As Boolean 'déclarons c comme booléen[/font][/color] [color=#000000][font=Consolas]Private Sub LoginForm2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load[/font][/color] [color=#000000][font=Consolas] Me.ProgressBar1.Visible = False 'mettons la progressbar en mode invisible au chargement de la loginform[/font][/color] [color=#000000][font=Consolas]'évènement du bouton Ok[/font][/color] [color=#000000][font=Consolas] Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click[/font][/color] [color=#000000][font=Consolas] Me.ProgressBar1.Visible = True 'mettons la progressbar visible[/font][/color] [color=#000000][font=Consolas] username = Me.UsernameTextBox.Text [/font][/color] [color=#000000][font=Consolas] password = PasswordTextBox.Text[/font][/color] [color=#000000][font=Consolas] Me.BackgroundWorker1.RunWorkerAsync() 'lançons le composant BackgroundWorker en mode asynchrone[/font][/color] [color=#000000][font=Consolas] End Sub[/font][/color] [color=#000000][font=Consolas] Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click[/font][/color] [color=#000000][font=Consolas] Me.Close()[/font][/color] [color=#000000][font=Consolas] End Sub[/font][/color] [color=#000000][font=Consolas]'c'est ici dans la procédure de l'évènement DoWork qu'on va se connecter à la base [/font][/color] [color=#000000][font=Consolas] Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork[/font][/color] [color=#000000][font=Consolas] Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)[/font][/color] [color=#000000][font=Consolas] Dim Ds = New MonDataSet 'création de l'objet dataset[/font][/color] [color=#000000][font=Consolas] Dim BS = New BindingSource 'création d'un BindingSource [/font][/color] [color=#000000][font=Consolas] Dim maTA = New MonDataSetTableAdapters.MatableTableAdapter 'Création d'un table adapter [/font][/color] [color=#000000][font=Consolas] maTA.FillByUsernameAndMp(Ds.Matable, username, password) ' Appel de ma requête FillByUsernameAndMp créée auparavant. [/font][/color] [color=#000000][font=Consolas] BS.DataSource = Ds.Matable 'liaison de mon bindingsource[/font][/color] [color=#000000][font=Consolas] If BS.Current Is Nothing Then 'Si mon binding source ne contient aucune valeur malgrés le lancement de la requête filtrée (username et mot de passe), [/font][/color] [color=#000000][font=Consolas] e.Cancel = True 'on arrête le travail du Backgroundwork [/font][/color] [color=#000000][font=Consolas] tt = "ERREUR D'IDENTIFICATION" [/font][/color] [color=#000000][font=Consolas] c = False 'on affecte la valeur "false" à c qu'on récupérera ultérieurement[/font][/color] [color=#000000][font=Consolas] Exit Sub[/font][/color] [color=#000000][font=Consolas] Else[/font][/color] [color=#000000][font=Consolas]'sinon, on affecte la valeur "true"à c qu'on récupérera ultérieurement[/font][/color] [color=#000000][font=Consolas] c = True[/font][/color] [color=#000000][font=Consolas] BackgroundWorker1.Dispose() 'on termine le travail du backgroundWorker[/font][/color] [color=#000000][font=Consolas] End If[/font][/color] [color=#000000][font=Consolas] End Sub[/font][/color] [color=#000000][font=Consolas]' lançons la progressbar en mode asynchrone[/font][/color] [color=#000000][font=Consolas] Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged[/font][/color] [color=#000000][font=Consolas] Me.ProgressBar1.Value = e.ProgressPercentage[/font][/color] [color=#000000][font=Consolas] End Sub[/font][/color] [color=#000000][font=Consolas]' procédure de l'évènement RunWorkerCompleted ( quand le travail est treminé)[/font][/color] [color=#000000][font=Consolas] Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted[/font][/color] [color=#000000][font=Consolas] If c = False Then 'c est la travaille avec la baleur c booléen, ici on n est pas connecté[/font][/color] [color=#000000][font=Consolas] Me.Label1.Text = tt[/font][/color] [color=#000000][font=Consolas] Me.ProgressBar1.Visible = False[/font][/color] [color=#000000][font=Consolas] Exit Sub[/font][/color] [color=#000000][font=Consolas] Else[/font][/color] [color=#000000][font=Consolas] Form1.Show() 'on est connecté on passe à l'autre form[/font][/color] [color=#000000][font=Consolas] Me.Close() [/font][/color] [color=#000000][font=Consolas] End If[/font][/color][/left]

ok R.Lyes: tu vois, désfois sur un site, on voit une barre en bas ou à gauche ou en haut! (tout dépend de l'humeur du programmeur) cette barre ne bouge pas meme si on active la barre de défilement! (celle ou on clique pour tchatcher sur facebook). alors si tu vois de quelle barre je te parle, je donne le code pour la placer sur un site. 1 - on crée une div avec un id ( on place ce qu'on veut sur cette barre ) 2 - dans un fichier css on parametre cette barre cordialement

Comment ajouter la barre à la facebook en bas de la page http://forum.diafdz.com/yaf_postsm11_ajouter-la-barre-en-bas-de-la-page-a-la-facebook.aspx#post11 [TABLE=width: 0] [TR=bgcolor: initial !important] [TD=class: code, bgcolor: #F9F9F9] NavigateUrl="http://www.diafdz.com/Default.aspx" Target="_blank">site diaf [/TD] [/TR] [/TABLE] fichier css Code: ? [TABLE=width: 0] [TR=bgcolor: initial !important] [TD=class: gutter, bgcolor: initial !important] 1 2 3 4 5 6 7 8 [/TD] [TD=class: code, bgcolor: #F9F9F9]#barre { background:#dddddd; width:100%; height:20px; position:fixed; bottom:0; } [/TD] [/TR] [/TABLE]

Pourquoi je prèfère l'asp.net? Des controles puissants : en effet en asp.net on peu trouver des controles trés puissants, bien plus puissant que les controles html standards. En fait en asp.net il y a les webforms qui sont des controles qui gènèrent du html et du javascript vers le navigateur client. Un exemple parmis d'autres, le datagrid te permet d'afficher des données tabulaire et de les éditer bien plus rapidement qu'en php, juste un objet à lier à une source de données. Des pages compilées : l'une des grosses différences entre asp.net et php est que le php est un script interprété, l'asp une application compilée. La compilation permet d'optimiser le code qui s'exécute et facilite aussi le débuggage. Lisibilitée et maintenance du code : en php on a les script qui s'exécutent coté client, ceux qui s'exécutent coté serveur et le code html qui sont mélangé dans un seul fichier et avec plusieurs scripts "entrelacés", en asp.net, le modèle webform limite l'utilisation du javascript dans les pages asp.net (le controle génère le javascript et le html nécessaire au rendu souhaité) et les partie de code qui s'éxécutent coté client et coté serveur sont clairement séparés, on peut même ne pas les mettre dans le même fichier. Un code 100% objet : même si le php permet de coder de mannière objet, les traitement asp.net coté serveur se font en VB.NET, C# ou J#, mais ces 3 langages sont trés orientés objet. On peu faire de l'objet en php, mais le langage s'y prette moins, parait que ça s'est amélioré dans php5 Les applets : pour un intranet plus "riche" tu peux faire des applets .NET, mais attention chaque client qui utilise une applet devra alors avoir le framework .NET installé. L'avantage est que tu peux avoir access à des controle beaucoup plus riches trés proches de la MFC, des controles bien plus riches que dans une applet java. et puis c'est une question de choix primaire et d'habitude. je n'ai pas pour autant oublié que php est opensource et gratuit (:-))! alors que les ide professionnels comme visual studio professionnel n'est pas du tout gratuit, to^^^^ois des ide pour asp gratuit ça existe.

Le datalist est nativement dépourvu d'un pager contrairement au datagridview. c'est d’ailleurs l'une des raison de qui le rend moins utilisable par les développeurs asp.net, alors qu'il offre une facilité de de paramétrage intéressante. un datalist avec un pager sera un composant intéressant d'affichage de donner (idem pour le repeater). voyons comment en ajouter un pager à un datalist ou à un repeater avec le PagedDataSource. je vous donne ici le code en vb fonctionnant correctement chez moi voir l'exemple cliquez ici pour voir l'exemple (source: http://forum.diafdz.com/yaf_postst4_ASP-NET-VB-Comment-ajouter-un-pager-a-un-datalist.aspx Tout d'abord il faut importer System.Data Code: ? [TABLE=width: 0] [TR=bgcolor: initial !important] [TD=class: gutter, bgcolor: initial !important] 1 [/TD] [TD=class: code, bgcolor: #F9F9F9] Imports System.Data [/TD] [/TR] [/TABLE] Puis créons une procédure de mon pager Code: ? [TABLE=width: 0] [TR=bgcolor: initial !important] [TD=class: gutter, bgcolor: initial !important] 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 [/TD] [TD=class: code, bgcolor: #F9F9F9] Private Sub Monpager() 'Faisons instancier un objet PagedDataSource Dim objPds As New PagedDataSource() 'Déclarons un dataview qui sera remplit par les données de monSqlDataSource (le SqlDataSource utilisé pour se connecté avec votre table) Dim dv As DataView = DirectCast(MonSqlDataSource.[select](DataSourceSelectArguments.Empty), DataView) ' Pointer le dataSource de votre objetPagedDataSource vers le DataView rempli au préalable avec Monsqldatasource objPds.DataSource = dv objPds.AllowPaging = True objPds.PageSize = 5 ' nombre d'enregistrement à afficher sur une page objPds.CurrentPageIndex = CurrentPage 'Ajouter un label qui affichera le nombre de pages et la page courante Label1.Text = "Page: " & (CurrentPage + 1).ToString() & " sur " & objPds.PageCount.ToString() ' Ajouter deux LinkButton (Suivant et Précédent) ' Ces boutons serons désactivés s'il sont à la fin du déroulement du pager Me.LinkButton1.Enabled = Not objPds.IsFirstPage Me.LinkButton2.Enabled = Not objPds.IsLastPage ' Lier votre datalist avec ObjetDataSource déja rempli DataList1.DataSource = objPds 'N'oublie pas de binder votre datalist DataList1.DataBind() End Sub [/TD] [/TR] [/TABLE] Maintenant faites un appel à la procédure pager en chargeant la page Code: ? [TABLE=width: 0] [TR=bgcolor: initial !important] [TD=class: gutter, bgcolor: initial !important] 1 2 3 4 5 [/TD] [TD=class: code, bgcolor: #F9F9F9] Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then ppager() End If End Sub [/TD] [/TR] [/TABLE] Créons la propriété currentPage Code: ? [TABLE=width: 0] [TR=bgcolor: initial !important] [TD=class: gutter, bgcolor: initial !important] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 [/TD] [TD=class: code, bgcolor: #F9F9F9] Public Property CurrentPage() As Integer Get ' Cherchons la la ViewState de lapage courante Dim o As Object = Me.ViewState("_CurrentPage") If o Is Nothing Then Return 0 Else ' sinon affiche la première page Return CInt(o) End If End Get Set(ByVal value As Integer) Me.ViewState("_CurrentPage") = value End Set End Property [/TD] [/TR] [/TABLE] enfin créons les procédures évènementielles des LinkButton (suivant et précédent) Code: ? [TABLE=width: 0] [TR=bgcolor: initial !important] [TD=class: gutter, bgcolor: initial !important] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 [/TD] [TD=class: code, bgcolor: #F9F9F9] Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton2.Click CurrentPage -= 1 Monpager() End Sub Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton3.Click CurrentPage += 1 Monpager() End Sub [/TD] [/TR] [/TABLE] Et vous voilà avec un datalist fonctionnant avec une pagination cordialement

Je vous propose de lister les forums et sites de programmation algérien pour l'entraide ***********************

D’après le journal en ligne PC Impact : Neuf sites internet de préfecture sont depuis plusieurs semaines inaccessibles. L'administré arrivant sur chacun de ces sites peut lire ces messages placardés sur la page d'accueil. Des messages souvent laconiques jusqu'aux plus explicatifs en passant par l'excuse de de la maintenance : détails et image http://diaf.zenzas.com

voici une procédure simple pour imprimer un gatagridview via excel (vb.net) source : http://forum.diafdz.com [color=#008200][font=Consolas]' on importe [/font][/color] [left][font=Consolas]Imports Microsoft.Office.Interop[/font] [font=Consolas] 'la procédure pour imprimer[/font] [font=Consolas] Sub imprimer()[/font] [font=Consolas] Dim xlApp As Excel.Application ' Application excel[/font] [font=Consolas] Dim xlBook As Excel.Workbook ' Classeur excel[/font] [font=Consolas] Dim xlSheet As Excel.Worksheet ' Feuille excel[/font] [font=Consolas] xlApp = CType(CreateObject("Excel.Application"), Excel.Application)[/font] [font=Consolas] xlBook = xlApp.Workbooks.Open("D:\MonRepertoire\Monfichier.xls")[/font] [font=Consolas] xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet) [/font] [font=Consolas] Try[/font] [font=Consolas] ' ici on compte le nombre de lignes et de colonnes du datatable[/font] [font=Consolas] Dim nbrLigne As Integer = Me.DataGridView1.Rows.Count - 1[/font] [font=Consolas] Dim nbrColon As Integer = Me.DataGridView1.Columns.Count - 1[/font] [font=Consolas] Dim x, y As Integer[/font] [font=Consolas] For x = 1 To nbrColon[/font] [font=Consolas] ' Pour chaque colonne et chaque ligne on transfert les données [/font] [font=Consolas] ' On commence par la ligne 7 et la colonne 2 pour laisser un espace [/font] [font=Consolas] For y = 0 To nbrLigne[/font] [font=Consolas] xlSheet.Cells(y + 7, x + 1) = Me.Vente_FactureDataGridView.Item(x, y).Value [/font] [font=Consolas] Next[/font] [font=Consolas] Next[/font] [font=Consolas] ' ici on affiche les résultat dans excel[/font] [font=Consolas] xlSheet.Application.Visible = True[/font] [font=Consolas] xlSheet.PrintPreview()[/font] [font=Consolas] ' on peut sauvegarder notre document sur le disque[/font] [font=Consolas] ' xlSheet.SaveAs("D:\MonRep\" Monfichier.xls")[/font] [font=Consolas] xlApp.DisplayAlerts = False[/font] [font=Consolas] ' on quitte l'application et on détruit les objets[/font] [font=Consolas] xlApp.Quit()[/font] [font=Consolas] xlSheet = Nothing[/font] [font=Consolas] xlBook = Nothing[/font] [font=Consolas] xlApp = Nothing[/font] [font=Consolas] Catch ex As Exception[/font] [font=Consolas] xlApp.DisplayAlerts = False[/font] [font=Consolas] xlApp.Quit()[/font] [font=Consolas] xlSheet = Nothing[/font] [font=Consolas] xlBook = Nothing[/font] [font=Consolas] xlApp = Nothing[/font] [font=Consolas] End Try[/font] [/left] [font=Consolas] End Sub[/font] on peut aussi faire plus de choses (en insérant le Numero de facture, le nom du client etc...) exemple [font=Consolas]xlSheet.Cells(4, 4) = " FACTURE N° : " & Me.Label1.Text[/font] [left][font=Consolas]xlSheet.Cells(1, 6) = Me.Label2.Text[/font][/left] [font=Consolas]xlSheet.Cells(2, 4) = " DOIT A : " & Me.Label3.Text[/font]

j'ai un algoritme pour effacer les mots de passes vba excel, si ça t'interesse

le lien pour la dll est donnée en haut une page spéciale sur mon site (je le redonne, cliquez ici) . vous pouvez la télécharger. cette dll est la nouvelle version (mise à jour de DotMsn) de Xih Solutions. pour vous servir et vous orienter à la place de google (sans rancunes), visiter ce lien amicalement getule

ok!!! je vois que vous etes vraiment sur vos gardes comme si en vous piratant je n'aurais plus à me lever tot pour avoir mon bout de pain!!!!! c'est incroyable, cet exemple, je l'ai donné dans plusieurs forum francophones et anglosaxons!!!! la majorité des développeurs l'ont testé et m'ont remercier pour leur avoir facilité le boulot. nous les algeriens, rien à gratter, on doute de tout. ecoutez!!! pour la dll, c'est aussi une open source, vous pourrez la consulter avec vs 2008 ou autre!! il suffit d' y comprendre un peu. pour ceux qui veulent l'avoir directement, je leur dit qu'ils n ont pas à avoir peur!!!! je sais que les developpeurs sous c# et vb net savent que c'est juste un simple code sans portée malsaine. si j'ai decidé de mettre ce code dans ce forum c'est juste pour aider à regroupper la comunauté de développeurs algeriens. il faut nous entre aider. Ps: personne n'est obligé de tester ce code. seulement s'il vous plait, ne faites pas en sorte de decourager ceux à l'avenir veulent partager leur travail. A bon entendeurs, salut

en plus j ai met cet exemple aux développeurs qui auront besoin d'avoir un code envoyer des emails aux contacts par site asp.net

mais je t'ai donné le code Quand meme

Récupération des contacts mail MSN avec VB.net 2008 en usant de msnPsharp.dll Ajouter la référence MsnPsharp.dll au projet, La dll : MsnPSharp Formulaire : Nommer : Le textbox relatif à user (email): TextBox1 Le textbox relatif au mot de passe : TextBox2 Le bouton « connecter » : Button1 Le bouton « deconnecte » : Button2 Une listBox nommée : ListBox1 Code : Imports MSNPSharp Imports MSNPSharp.Core Public Class Form1 Dim c As New Messenger Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click c.Credentials = New Credentials(Me.TextBox1.Text, Me.TextBox2.Text, MsnProtocol.MSNP18, "MSNP18", MsnProtocol.MSNP18) c.Connect() Threading.Thread.Sleep(2000) AddHandler c.Nameserver.SignedIn, AddressOf contlist End Sub Private Sub contlist(ByVal sender As Object, ByVal e As EventArgs) If InvokeRequired = True Then Invoke(New EventHandler(AddressOf contlist), sender, e) Return End If For Each cont As Contact In c.ContactList.All Dim t As String = cont.Mail Me.ListBox1.Items.Add(t) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button2.Click c.Disconnect() End Sub End Class