تبدیل کد وی بی به vb.net

[arash.arya43]

سلام .خسته نباشین.من میخواستم یک کدی رو که خودم کار باهاش رو بلدم و مربوط به کار با فایلهاست روعینا در vb.net پیاده کنم ولی نمیشه.در واقع قسمتی از یک برنامه هست که دارم تبدیل به پروژه دات نت میکنم ولی این قسمت ارور میده اگه دوستان عینان تبدیل کنن ممنون میشم

Dim patched As String, Archivo As String


If txtarchivo.Text = vbNullString Then
MsgBox "First : Select Your File!", vbExclamation, Me.Caption
Exit Sub
Else

Open App.Path & "\patched.exe" For Binary As #1
patched = Space(LOF(1))
Get #1, , patched
Close #1

Open txtarchivo.Text For Binary As #1
Archivo = Space(LOF(1))
Get #1, , Archivo
Close #1


With CD
        .DialogTitle = "Select The Path To Save The Encrypted File!"
        .****** = "Aplicaciones EXE|*.exe"
        .ShowSave
        End With
        
        If Not CD.FileName = vbNullString Then
        
        
        Archivo = RCpatch(Archivo, txtkey.Text)
        
        Open CD.FileName For Binary As #1
        Put #1, , patched & "##$$##" & Archivo & "##$$##" & txtkey.Text & "##$$##"
        Close #1
        
        MsgBox "Properly File patch!", vbInformation, Me.Caption
        End If

End If

 

[the_king]

سلام .خسته نباشین.من میخواستم یک کدی رو که خودم کار باهاش رو بلدم و مربوط به کار با فایلهاست روعینا در vb.net پیاده کنم ولی نمیشه.در واقع قسمتی از یک برنامه هست که دارم تبدیل به پروژه دات نت میکنم ولی این قسمت ارور میده اگه دوستان عینان تبدیل کنن ممنون میشم

        Dim patched() As Byte, archivo() As Byte
        If String.IsNullOrEmpty(txtarchivo.Text) Then
            MessageBox.Show("First : Select Your File!", Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Exit Sub
        Else
            Dim appPath As String = System.IO.Path.GetDirectoryName(Application.ExecutablePath)
            patched = System.IO.File.ReadAllBytes(System.IO.Path.Combine(appPath, "patched.exe"))
            archivo = System.IO.File.ReadAllBytes(txtarchivo.Text)
            With SaveFileDialog1
                .Title = "Select The Path To Save The Encrypted File!"
                .Fi[COLOR="#000000"]lt[/COLOR]er = "Applications EXE|*.exe"
                If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                    archivo = RCpatch(archivo, txtkey.Text)
                    Dim output As System.IO.FileStream
                    output = System.IO.File.Open(.FileName, IO.FileMode.Create)
                    Dim writer As New System.IO.BinaryWriter(output, System.Text.Encoding.ASCII)
                    writer.Write(patched)
                    writer.Write("##$$##")
                    writer.Write(archivo)
                    writer.Write("##$$##" + txtkey.Text + "##$$##")
                    writer.Close()
                    MessageBox.Show("Properly File patch!", Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            End With
        End If