Mais je n'ai aucune idée de comment générer les urls, et je voudrais juste un début de code.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim code1 As New StreamWriter(SaveFileDialog1.ShowDialog & ".txt")
code1.WriteLine(RichTextBox1.Text)
code1.Close()
Dim code2 As Integer
For code2 = ComboBox1.Text To ComboBox2.Text
RichTextBox1.SelectedText = (TextBox1.Text & code2 & vbNewLine)
Next code2
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "Fichiers texte (*.txt)|*.txt"
saveFileDialog1.OverwritePrompt = True
saveFileDialog1.ShowDialog()
Dim code1 As New StreamWriter(saveFileDialog1.FileName, True)
code1.WriteLine(RichTextBox1.Text)
code1.Close()
Catch
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RichTextBox1.Clear()
End Sub