Binder yerine builder olarak araştırmanı sürdürürsen daha kolay ulaşırsın istediğine. Konuyla alakası yok ama uzun süre önce rastlayıp kenara koyduğum txt dosyalarını exe yapmak için bir kod varmış bilgisayarda ona rastladım. Kod: ' ' Name: Convert TXT file to Executabl ' e EXE ' Description:This code convert a TXT fi ' le to EXE file. When you convert the file ' start the EXE and the old file will be t ' yped This is really great code NOTE : RUN THE. EXE FROM MS-DOS MODE ' By: Atanas Matev ' ' Assumes:Create a label, a command butt ' on and common dialog control Change the Caption of the button to "Select a file" And that's all ' 'This code is copyrighted and has' limited warranties. Please see http://w ' ww. Planet-Source-Code.com/vb/scripts/Sho ' wCode. asp?txtCodeId=2071&lngWId=1'for details.' Dim a(14) As Byte Dim i As Integer Public Function HiByte HiByte = wParam \ &H100 And &HFF& End Function Public Function LoByte LoByte = wParam And &HFF& End Function Private Sub Command1_Click On Error Goto 10 a(0) = 190 a(1) = 15 a(2) = 1 a(3) = 185 a(4) = 0 a(5) = 0 a(6) = 252 a(7) = 172 a(8) = 205 a(9) = 41 a(10) = 73 a(11) = 117 a(12) = 250 a(13) = 205 a(14) = 32 CommonDialog1. Filter = "Text Files| . txt|" CommonDialog1. Action = 1 Open CommonDialog1. filename For Input As

Bir tane text dosyasına Private Sub Command2_Click Dim zort As String zort = "oha" MsgBox zort End Sub yazdım kaydettim. Oluştururken Run time Error 424 veriyor ve çıkarttığı. exe çalışmıyor. Ama zaten shekey_boys un yardımıyla hallettim meseleyi tam istediğim gibi oldu Jeal0usy demiş ki: Binder yerine builder olarak araştırmanı sürdürürsen daha kolay ulaşırsın istediğine. Konuyla alakası yok ama uzun süre önce rastlayıp kenara koyduğum txt dosyalarını exe yapmak için bir kod varmış bilgisayarda ona rastladım. Kod: ' ' Name: Convert TXT file to Executabl ' e EXE ' Description:This code convert a TXT fi ' le to EXE file. When you convert the file ' start the EXE and the old file will be t ' yped This is really great code NOTE : RUN THE. EXE FROM MS-DOS MODE ' By: Atanas Matev ' ' Assumes:Create a label, a command butt ' on and common dialog control Change the Caption of the button to "Select a file" And that's all ' 'This code is copyrighted and has' limited warranties. Please see http://w ' ww. Planet-Source-Code.com/vb/scripts/Sho ' wCode. asp?txtCodeId=2071&lngWId=1'for details.' Dim a(14) As Byte Dim i As Integer Public Function HiByte HiByte = wParam \ &H100 And &HFF& End Function Public Function LoByte LoByte = wParam And &HFF& End Function Private Sub Command1_Click On Error Goto 10 a(0) = 190 a(1) = 15 a(2) = 1 a(3) = 185 a(4) = 0 a(5) = 0 a(6) = 252 a(7) = 172 a(8) = 205 a(9) = 41 a(10) = 73 a(11) = 117 a(12) = 250 a(13) = 205 a(14) = 32 CommonDialog1. Filter = "Text Files| . txt|" CommonDialog1. Action = 1 Open CommonDialog1. filename For Input As

hata vermesi normal butonu kod ile oluşturman gerekiyor. buton olmadığı için hata veriyor olması lazım.

Evet kesinlikle buton olmadığından hata veriyor.

Label1. Caption = "Converted successful" Exit Sub 10 Label1. Caption = "Error" End Sub Hepsini görmek için tıklayın...

Open newfilename For Output As

t = Input(LOF(1), 1) For k = 0 To 14 st = st & Chr(a Next k st = st & t Print

sourcelen = LOF(1) Close

Başlık başka soru başka sanırım trojan yapıyorsun client de serverı oluştururken ip adresi kurban ismi gibi şeyleri değiştirdikten sonra server. exe o şekilde olsun istiyorsun eğer bunu istiyorsan ben sana daha ayrıntılı bi şekilde msnde anlatırım özelden msn ni gönder sende istersen nette exe sonuna yazma ve okuma diye aratırsan örnek kodlar görürsün kolay gelsin. Al bak bi örnek koyuyorum tam senin istediğin gibi texte yaz istediğini exeye yazsın -

Close

ehehe binder bu demek değilmiymiş bir gün örenicem bu isimleri ve anlamlarını inşallah örnek için çok teşekkürler bu arada sanırım tam aradığım şey bu

Label1. Caption = "Converted successful" Exit Sub 10 Label1. Caption = "Error" End Sub

Bana lazım olan server. exe oluşturacak bir kod. Mesela text1 in içine kodları koysam ordakileri alıp. exe yapsa ne de güzel olur Elinde böyle bir kod olan var mı acaba?

a(4) = LoByte a(5) = HiByte newfilename = Left(CommonDialog1. FileTitle, Len(CommonDialog1. FileTitle) - 4) & ". exe" If MsgBox("Are you sure you want To convert `" & CommonDialog1. FileTitle & "` to `" & newfilename & "`", vbYesNo, "Confirm") = vbNo Then Exit Sub Open CommonDialog1. filename For Input As