Vb.Net Gömme

[ExcFire]

Vb.netde bir exe dosyasını projeye gömmek istiyorum ve bir butona tıklayınca exe'nin açılmasını istiyorum nasıl yaparım

 

[lealperen]

Tam olarak istediğin bu mu bilemiyorum ama bu işlem ile dosyayı bulunulan konuma çıkarıp çalıştırabilirsin.
Proje ayarlarında(Project Settings) Kaynaklara(Resources) var olan dosyayı ekle (add existing file)

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
        Dim FileName As String = IO.Path.Combine(Application.StartupPath, "ColorCop.exe")
        Dim BytesToWrite() As Byte = My.Resources.ColorCop
        Dim FileStream As New System.IO.FileStream(FileName, System.IO.FileMode.OpenOrCreate)
        Dim BinaryWriter As New System.IO.BinaryWriter(FileStream)
        BinaryWriter.Write(BytesToWrite)
        BinaryWriter.Close()
        FileStream.Close()
        Process.Start(FileName)
    End Sub
End Class

Bu kodda ColorCop adında program çalıştırılmış uygun şekilde düzenlersen problem olmaz. My.Resources.ColorCop uda değiştirmeyi de unutma

 

[ExcFire]

Tam olarak istediğin bu mu bilemiyorum ama bu işlem ile dosyayı bulunulan konuma çıkarıp çalıştırabilirsin.
Proje ayarlarında(Project Settings) Kaynaklara(Resources) var olan dosyayı ekle (add existing file)

Public Class Form1
    Private Sub Button1_Click(
        ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles Button1.Click
        Dim FileName As String = IO.Path.Combine(Application.StartupPath, "ColorCop.exe")
        Dim BytesToWrite() As Byte = My.Resources.ColorCop
        Dim FileStream As New System.IO.FileStream(FileName, System.IO.FileMode.OpenOrCreate)
        Dim BinaryWriter As New System.IO.BinaryWriter(FileStream)
        BinaryWriter.Write(BytesToWrite)
        BinaryWriter.Close()
        FileStream.Close()
        Process.Start(FileName)
    End Sub
End Class

Bu kodda ColorCop adında program çalıştırılmış uygun şekilde düzenlersen problem olmaz. My.Resources.ColorCop uda değiştirmeyi de unutma

Teşekkürler buydu istediğim

 

[firehackturk]

çözülmemiş devam

 

[ExcFire]

Tam olarak istediğin bu mu bilemiyorum ama bu işlem ile dosyayı bulunulan konuma çıkarıp çalıştırabilirsin.
Proje ayarlarında(Project Settings) Kaynaklara(Resources) var olan dosyayı ekle (add existing file)

Public Class Form1
    Private Sub Button1_Click(
        ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles Button1.Click
        Dim FileName As String = IO.Path.Combine(Application.StartupPath, "ColorCop.exe")
        Dim BytesToWrite() As Byte = My.Resources.ColorCop
        Dim FileStream As New System.IO.FileStream(FileName, System.IO.FileMode.OpenOrCreate)
        Dim BinaryWriter As New System.IO.BinaryWriter(FileStream)
        BinaryWriter.Write(BytesToWrite)
        BinaryWriter.Close()
        FileStream.Close()
        Process.Start(FileName)
    End Sub
End Class

Bu kodda ColorCop adında program çalıştırılmış uygun şekilde düzenlersen problem olmaz. My.Resources.ColorCop uda değiştirmeyi de unutma

hocam hata var

 

[Plans]

hocam hata var

Dostum o kod o şekilde kullanılmaz bence sen ilk mantığını bi kavra. Sonra alıştırmalarla kendini geliştirip istediğin programa yönelirsin.

 

[lealperen]

hocam hata var

Baya karıştırmısınız kodu ben komple class atmıştım Kodun sadece bu kısmını event handler içine koyarsanız

Dim FileName As String = IO.Path.Combine(Application.StartupPath, "ColorCop.exe")
        Dim BytesToWrite() As Byte = My.Resources.ColorCop
        Dim FileStream As New System.IO.FileStream(FileName, System.IO.FileMode.OpenOrCreate)
        Dim BinaryWriter As New System.IO.BinaryWriter(FileStream)
        BinaryWriter.Write(BytesToWrite)
        BinaryWriter.Close()
        FileStream.Close()
        Process.Start(FileName)

Kodda yanlışlıkla boşluk bırakmışım.:yorgun düzelttim. String in niye dönüştürülmesi konusunda bende böyle bir problem cikmamıştı (biraz eski bir kod) ama şu şekilde halledebilirsiniz.

Dim BytesToWrite() As Byte = Encoding.ASCII.GetBytes(My.Resources.ColorCop)