Skocz do zawartości
  • 0

Jak przerobić ten kod by poprawnie zakładał konta?


Vilche

Pytanie

A wiec mam pytanko, mam taki oto kodzik, i nic poza tym że "tworzy" przykladowe emaile. 

Tylko jak to przerobić by on faktycznie zakładał je, a nie tworzył liste proponowanych nazw do emaili?

 

Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.IO
Imports System.Threading
Imports System.Windows.Forms










Public Class Form1
    '==================
    Private i As Integer 'Counter
    '==================


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Timer1.Stop()
    End Sub


    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim dialog As New SaveFileDialog With { _
                .Filter = "*.txt|*.txt", _
                .FileName = "Resultat.txt" _
            }
        If (dialog.ShowDialog = DialogResult.OK) Then
            File.WriteAllText(dialog.FileName, Me.TextBox1.Text)
            MessageBox.Show("Done")
        End If
    End Sub


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Timer1.Start()
    End Sub


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Control.CheckForIllegalCrossThreadCalls = False
        Me.ComboBox1.SelectedIndex = 0
    End Sub


    '-------------------------------------------------------------------- Genrate Random Strings
    Public Function Generate(ByVal lenght As Integer) As String
        Dim str As String = ""
        Dim str2 As String = "azertyuiopqsdfghjklmwxcvbnAZERTYUIOPQSDFGHJKLMWXCVBN0123456789-_"
        Dim random As New Random
        Dim num As Integer = lenght
        Dim i As Integer = 0
        Do While (i <= num)
            str = (str & Conversions.ToString(str2.Chars(random.Next(0, (str2.Length - 1)))))
            i += 1
        Loop
        Return str
    End Function
    '-------------------------------------------------------------------- Genrate Random Strings
    '-------------------------------------------------------------------- 
    Private Sub start()
        Dim ch As Char
        For Each ch In Me.Generate(0)
            Me.TextBox1.Text = Convert.ToString(Operators.AddObject(Me.TextBox1.Text, Operators.ConcatenateObject(Operators.ConcatenateObject((Me.TextBox2.Text & Me.Generate(Convert.ToInt32(Me.NumericUpDown1.Value))), Me.ComboBox1.Text), ChrW(13) & ChrW(10))))
            Me.i += 1
            Me.label2.Text = Me.i.ToString
        Next
    End Sub
    '--------------------------------------------------------------------
    '-------------------------------------------------------------------- Start Creating emails
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim kk As New Thread(New ThreadStart(AddressOf Me.start))
        kk.Start()
        '--------------------------------------------------------------------
        '-------------------------------------------------------------------- 
    End Sub
End Class

 

Czerwone jest piękne! Kocham <3

Odnośnik do komentarza
Udostępnij na innych stronach

1 odpowiedź na to pytanie

Rekomendowane odpowiedzi

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

  • Ostatnio przeglądający forum Jak przerobić ten kod by poprawnie zakładał konta?   0 użytkowników
    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
×
×
  • Dodaj nową pozycję...