Visual Basic 2010 - exe builder problema , reiktu pagalbos.

Sveiki visi.

Susiduriau su problema , nerades sprendimo nusprendziau sukurti nauja tema.

Pasinaudojau siuo video : http://www.youtube.com/watch?v=PTcJyAuxL3o

Viskas tiko! Kol nepamaciau , kad Avira antivirus mato koda kaip povojinga.Kai padarai nauja exe Built.exe tada avira antivirusine ji istryna. Taip pat istryna ir Stub.exe . Nenoriu , kad mano programa atrodytu kaip virusas.

Gal zinote problemos sprendima. Gal kita su ta pacia funkcija koda? Ar kaip padaryti , kad avira nematytu kodo kaip viruso? Butu malonu jei pasidalintumete ir man padetumete , labai buciau dekingas.

Tai mano pirmoji sukurta tema. Atsiprasau jei tekste radote gramatiniu klaidu.

:D Nu čia jau avira stengiasi apginti, bet reikia pripažinti, kad bandymas keisti jau esamo executable kodą yra suspicious as ######. Geriau jau keisk source kodą ir tada buildink.

:D Nu čia jau avira stengiasi apginti, bet reikia pripažinti, kad bandymas keisti jau esamo executable kodą yra suspicious as ######. Geriau jau keisk source kodą ir tada buildink.

Tame esme ir yra , kad nezinau ka reikia keisti source kode , kad funkcija liktu ta pati , o avira nematytu.

Beje stai kodas kuri naudojau Form1.

Public Class Form1
   Const fileSplit = "@@Build@@"
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       FileOpen(1, Application.StartupPath & "\derig.exe", OpenMode.Binary, OpenAccess.Read)
       Dim derig As String = Space(LOF(1))
       FileGet(1, derig)
       FileClose(1)

       FileOpen(1, Application.StartupPath & "\Built.exe", OpenMode.Binary, OpenAccess.ReadWrite)
       FilePut(1, derig & fileSplit & TextBox1.Text & fileSplit & TextBox2.Text & fileSplit & cCheck.Checked)
       FileClose(1)
       MsgBox("done")
   End Sub

O vietoj stub pavadinau derig.exe. o jo kodas :

Public Class derig
   Const fileSplit = "@@Build@@"
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read)
       Dim derig As String = Space(LOF(1))
       FileGet(1, derig)
       FileClose(1)

       Dim options() As String = Split(derig, fileSplit)

       TextBox1.Text = options(1)
       TextBox2.Text = options(2)
       If options(3) = True Then
           CheckBox1.Checked = True
       Else
           CheckBox1.Checked = False
       End If
   End Sub
End Class

Gal zinai ka jame pakeisti? Ar prirasyti?