Ltonid
Сообщений: 4970
Оценки: 740
Присоединился: 2008-12-29 13:21:56.166666
|
Вобщем посидел подумал, что ж оно не пашет то. Посмотрел в дисе.
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
text3 = TextBox1.Text
text4 = TextBox2.Text
FileSystem.FileOpen(1, Application.StartupPath + "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default, -1)
stub = Strings.Space(CInt(FileSystem.LOF(1)))
FileSystem.FileGet(1, ByRef stub, CLng(-1), False)
Dim iArr1 As Integer() = New int() { 1 }
FileSystem.FileClose(iArr1)
If File.Exists("Server.exe") Then
MyProject.Computer.FileSystem.DeleteFile("Server.exe")
End If
FileSystem.FileOpen(1, Application.StartupPath + "\Server.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default, -1)
FileSystem.FilePut(1, stub + "@PrRpLKuSh@" + text3 + "@PrRpLKuSh@" + text4 + "@PrRpLKuSh@", CLng(-1), False)
iArr1 = New int() { 1 }
FileSystem.FileClose(iArr1)
Interaction.MsgBox("Server.exe file created !", MsgBoxStyle.ApplicationModal, Nothing)
End Sub
Переименовал Steam.exe в Stub.exe создался полноценный server.exe и в самом конце бессмысленно дописано @PrRpLKuSh@мыло@PrRpLKuSh@пароль@PrRpLKuSh@ Вобщем фейк есть фейк, а это не билдер. Фейк из темы http://forum.xakep.ru/m_2182593/mpage_1/key_/tm.htm#2183550
|