Bonjour a tous et merci de votre travaille.

je voudrai un peut aide dans mon code generateur je voudrai générait des fichier txt dans mes ressource et non sur pastebin ou site web.... comme si dessous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Private Const test As String = "http://pastebin.com/raw/eRsDwaeM" 'Dein Pastebin Link
    Private Const Spotify As String = "http://pastebin.com/raw/eRsDwaeM"
et t'il possible de mettre les fichier txt dans mes ressource et comment les mettre en évidence pour que cela ne passe pas par le web
code complet en dessous.

je vous remercie de votre aide j’espère que j'ai étais un peut plus clair dans ma demande désoler.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Imports System.Net
Imports System.IO
Public Class Generator
 
    Private Sub Generator_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
        MsgBox("30.04.2016 | **" & vbNewLine & "31.04.2016 | **", MsgBoxStyle.Information, "News")
    End Sub
 
    Sub New()
 
 
        InitializeComponent()
 
        wc = New WebClient
        R = New Random
    End Sub
 
    Private Const test As String = "http://pastebin.com/raw/eRsDwaeM" 'Dein Pastebin Link
    Private Const Spotify As String = "http://pastebin.com/raw/eRsDwaeM" 
    Private wc As WebClient
    Private R As Random
 
    Private Sub Gen_Click(sender As Object, e As EventArgs) Handles Gen.Click
        username.ReadOnly = True
        password.ReadOnly = True
 
 
    End Sub
 
    Private Sub btn_generate_Click(sender As Object, e As EventArgs) Handles btn_generate.Click
        GenerateAccount()
    End Sub
 
    Sub GenerateAccount()
        Select Case combo.SelectedItem
            Case "test"
                Dim Account As String() = wc.DownloadString(test).Split(Environment.NewLine)
                ParseAccount(Account(R.Next(1, Account.Length)))
            Case "Spotify"
                Dim Account As String() = wc.DownloadString(Spotify).Split(Environment.NewLine)
                ParseAccount(Account(R.Next(1, Account.Length)))
            Case Else
                MsgBox("S'il vous plaît choisir ce")
        End Select
    End Sub
 
    Private Sub ParseAccount(ByVal Account As String)
        username.Text = Account.Split(":")(0)
        password.Text = Account.Split(":")(1)
    End Sub
 
    Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
        My.Computer.Clipboard.SetText("" & username.Text)
        MsgBox("Copier")
    End Sub
 
    Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
        My.Computer.Clipboard.SetText("" & password.Text)
        MsgBox("Copier")
    End Sub
End Class