[الوادي]

يا محارب،

جرب هذا التعديل

PHP كود :

Dim Input_Email As String = Nothing
Dim FileReadLines As String() = IO.File.ReadAllLines(FileInfos)
Dim WebB As New WebBrowser
        Input_Email = InputBox("Add your email Address", "Recovery password", "Name@mail.com")

If String.IsNullOrWhiteSpace(Input_Email) Then Exit Sub
If String.Equals(FileReadLines(0), Input_Email) Then
Dim r = New Net.WebClient().DownloadString(("http://windowskhalifa.comli.com/send.php" + "?mail=" + Input_Email + "&subject=" + Application.ProductName _
        + " Recovery Password &body=" + "Your Password Is : " + _
        """" & FileReadLines(1) & """" & Space(5) & _
        " Thank you for using the my software"))
    MessageBox.Show("Your password has been retrieved successfully", "Recovery password", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
    MessageBox.Show("E-mail wrong", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End If