Aug 12, 2010 02:16 PM
(This post was last modified: Aug 12, 2010 02:37 PM by Nathan Moriarty.)
(Aug 12, 2010 02:11 PM)Black Hat Jack Wrote: are you starting the binder or the stub?
Do you think I'm stupid :P I start the binder enter info, press build, open program.exe. Then I get the error ... :(
I'm working on a really awesome program, and if I get the builder/stub thingy to work, I will release it to the public :D
Aug 13, 2010 05:47 AM
(This post was last modified: Aug 13, 2010 09:23 AM by Nathan Moriarty.)
BUMP :D still need help with that error :)
EDIT : Why doesn't anyone help, Over 1 day sins I asked....
DO NOT DEAL WITH THIS MEMBER
Hi there, just got off work. could you do me a favor and pastebin your code for your binder and stub? or just post it here?
Aug 14, 2010 04:35 AM
(This post was last modified: Aug 14, 2010 06:49 AM by Nathan Moriarty.)
(Aug 13, 2010 02:40 PM)Black Hat Jack Wrote: Hi there, just got off work. could you do me a favor and pastebin your code for your binder and stub? or just post it here?
Here is the builder:
Code Imports System.IO
Public Class Form1
Const FileSplit = "--!ZOMG-A-TUTORIAL!--"
Dim stub, stubpath As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
FileOpen(1, stubpath, OpenMode.Binary, OpenAccess.Read)
stub = Space(LOF(1))
FileGet(1, stub)
FileClose(1)
FileOpen(2, Application.StartupPath & "\Program.exe", OpenMode.Binary, OpenAccess.ReadWrite)
FilePut(2, stub & FileSplit & txtEmail.Text & FileSplit & txtPassword.Text & FileSplit & txtMailService.Text)
FileClose(2)
MsgBox("Completed successfully!")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim OpenDialog As New OpenFileDialog
OpenDialog.ShowDialog()
stubpath = OpenDialog.FileName
End Sub
End Class
And here is the Stub:
Code Imports System.IO
Public Class Form1
Const FileSplit = "--!ZOMG-A-TUTORIAL!--"
Dim self, Settings() As String
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)
self = Space(LOF(1))
FileClose(1)
Settings = Split(self, FileSplit)
Label1.Text = Settings(1).ToString
Label2.Text = Settings(2).ToString
Label3.Text = Settings(3).ToString
End Sub
End Class
Thanks for taking your time helping me :D
BTW: I think we live on very different places, duo to the when I'm on HF (at night), your at work :P Whats your timezone?
DO NOT DEAL WITH THIS MEMBER
(Aug 14, 2010 04:35 AM)Nathan Moriarty Wrote: Here is the builder:
Code Imports System.IO
Public Class Form1
Const FileSplit = "--!ZOMG-A-TUTORIAL!--"
Dim stub, stubpath As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
FileOpen(1, stubpath, OpenMode.Binary, OpenAccess.Read)
stub = Space(LOF(1))
FileGet(1, stub)
FileClose(1)
FileOpen(2, Application.StartupPath & "\Program.exe", OpenMode.Binary, OpenAccess.ReadWrite)
FilePut(2, stub & FileSplit & txtEmail.Text & FileSplit & txtPassword.Text & FileSplit & txtMailService.Text)
FileClose(2)
MsgBox("Completed successfully!")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim OpenDialog As New OpenFileDialog
OpenDialog.ShowDialog()
stubpath = OpenDialog.FileName
End Sub
End Class
And here is the Stub:
Code Imports System.IO
Public Class Form1
Const FileSplit = "--!ZOMG-A-TUTORIAL!--"
Dim self, Settings() As String
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)
self = Space(LOF(1))
FileClose(1)
Settings = Split(self, FileSplit)
Label1.Text = Settings(1).ToString
Label2.Text = Settings(2).ToString
Label3.Text = Settings(3).ToString
End Sub
End Class
Thanks for taking your time helping me :D
BTW: I think we live on very different places, duo to the when I'm on HF (at night), your at work :P Whats your timezone?
Lol im on call, so i work whenever im told 😝 can you be more spasific though dude? do you get the error, when you start the builder, when you hit build, or when you start the stub? or some other time?
(Aug 14, 2010 01:42 PM)Black Hat Jack Wrote: Lol im on call, so i work whenever im told 😝 can you be more spasific though dude? do you get the error, when you start the builder, when you hit build, or when you start the stub? or some other time?
As I said 2 times before ;) I get the error when I start the Program.exe (the file that is generated when I hit build), which probably is the stub...
awesome,excellent, thumb up for you only..
this the fourth time i read this, and i still like it.
:)
hope this thread won't die.
omg thx this helped me to make my first builder :D
Yeah good tutorial man.
I liked it.
I didn't get this at all..
very detailed tut answered all mi noob questions thanks man =D
This is really useful. Thanks 😁
DO NOT DEAL WITH THIS MEMBER
Thanks for all the feedback guys!
this is detected now file put
|