\'J\'ai oublié de modif certains chose donc je vous renvoi un nouveau code

Imports System.IO

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Inscription(999999999999999999)
    End Sub
  
    Public Function Inscription(ByVal nb As String)
        Dim wb As New WebBrowser
        For i = 0 To nb - 1
            wb.Navigate(\"http://hwc-crew.com/inscription.php\")
            Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
                Application.DoEvents()
            Loop
            wb.Document.GetElementById(\"pseudo\").InnerText = GenerateRandompseudo()
            wb.Document.GetElementById(\"password\").InnerText = \"IamAFl00der\"
            wb.Document.GetElementById(\"verif_password\").InnerText = \"IamAFl00der\"
            wb.Document.GetElementById(\"email\").InnerText = GenerateRandompseudo() & \"@gmail.com\"
            wb.Document.GetElementById(\"verif_email\").InnerText = GenerateRandompseudo() & \"@gmail.com\"
            wb.Document.GetElementById(\"submit\").InvokeMember(\"click\")
        Next
    End Function
    Public Function GenerateRandompseudo()
        Dim rand As New Random()
        Dim Chars() As Char = \"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLOMNOPQRSTUVWXYZ0123456789\".ToCharArray()
        Dim pseudo As String = String.Empty
        For i As Integer = 0 To 8
            pseudo += Chars(rand.Next(Chars.Length - 1))
        Next
        Return pseudo
    End Function
End Class