Jaki kod pod taki formularz

Jaki kod pod taki formularz .Na screenie jest opisane krok po kroku bo dawno nie programowałem .

18 godzin temu, skot napisał:

Jaki kod pod taki formularz .Na screenie jest opisane krok po kroku bo dawno nie programowałem .

 

Żadnego screena nie ma.

Za darmo nikt Ci nie będzie dawał gotowego fake generatora do kont... Napisz temat w odpowiednim dziale do zleceń to moment się ktoś znajdzie za odpowiednie pieniądze.

Okey

W dniu 25.04.2020 o 19:38, skot napisał:

Jaki kod pod taki formularz .Na screenie jest opisane krok po kroku bo dawno nie programowałem .

	Dim dlugoscloginu As Integer
    Dim dlugoschasla As Integer
    Dim aktualnadlugosc As Integer
    Dim dozwoloneznaki As String
    Dim r As New Random
    Dim pozycjawstringu As Integer

    Dim login As String
    Dim password As String

    Sub generator()

        '---- Ustawienia

        dlugoscloginu = 10 'Długość loginu
        dlugoschasla = 8 'Długość hasła
        dozwoloneznaki = "abcdefghijklmnoprstowxyz0123456789" 'Lista dozwolonych znaków

        '---- Koniec Ustawień

        If ComboBox1.Text.Length > 0 Then
            Do Until aktualnadlugosc = dlugoscloginu
                pozycjawstringu = r.Next(0, dozwoloneznaki.Length.ToString - 1)
                login = login + dozwoloneznaki(pozycjawstringu)
                aktualnadlugosc = aktualnadlugosc + 1
            Loop
            aktualnadlugosc = 0
            pozycjawstringu = 0

            Do Until aktualnadlugosc = dlugoschasla
                pozycjawstringu = r.Next(0, dozwoloneznaki.Length.ToString - 1)
                password = password + dozwoloneznaki(pozycjawstringu)
                aktualnadlugosc = aktualnadlugosc + 1
            Loop

            aktualnadlugosc = 0
            dlugoscloginu = Nothing
            dlugoschasla = Nothing
            pozycjawstringu = 0

            MsgBox("Login: " + login + Environment.NewLine + "Hasło: " + password.ToString)

            'Dodawanie stringa do textboxa
            'Textbox1.text = password
            'Textbox2.text = login

            login = Nothing
            password = Nothing

        Else
            MsgBox("Wybierz program!")
        End If

    End Sub

Nazwy programów możesz dodać do comboboxa klikając na niego prawym przyciskiem myszy - z rozwijanej listy wybierz "Edit Items". Może nie jest to najkrótsza i najlepsza metoda na generowanie loginu i hasła ale dla Ciebie będzie łatwiejsza do edytowania.

Edit#

Pod przycisk który ma wykonać kod wrzucasz 

generator()