home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Odesa_Exe_2118986302008.psc / OdesaBinder2 / bind.frm next >
Text File  |  2008-06-28  |  8KB  |  255 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form frmBind 
  4.    BackColor       =   &H80000007&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Exe Binder By: Odesa - www.odesayazilim.com"
  7.    ClientHeight    =   3870
  8.    ClientLeft      =   45
  9.    ClientTop       =   435
  10.    ClientWidth     =   6930
  11.    Icon            =   "bind.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    Picture         =   "bind.frx":3CD2
  16.    ScaleHeight     =   3870
  17.    ScaleWidth      =   6930
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.TextBox Text1 
  20.       BackColor       =   &H00000000&
  21.       ForeColor       =   &H0000FF00&
  22.       Height          =   975
  23.       Left            =   120
  24.       MultiLine       =   -1  'True
  25.       ScrollBars      =   2  'Vertical
  26.       TabIndex        =   6
  27.       Text            =   "bind.frx":45BC4
  28.       Top             =   2760
  29.       Width           =   6615
  30.    End
  31.    Begin EXE_Binder.Button cmdMake 
  32.       Height          =   375
  33.       Left            =   2400
  34.       TabIndex        =   4
  35.       Top             =   1320
  36.       Width           =   1695
  37.       _ExtentX        =   2990
  38.       _ExtentY        =   661
  39.       ButtonStyle     =   8
  40.       ButtonTheme     =   7
  41.       CaptionEffect   =   3
  42.       BackColor       =   5737262
  43.       BackColorPressed=   8441155
  44.       BackColorHover  =   10485588
  45.       BorderColor     =   5737262
  46.       BorderColorPressed=   8441155
  47.       BorderColorHover=   10485588
  48.       Caption         =   "Bind File(s)"
  49.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  50.          Name            =   "Tahoma"
  51.          Size            =   8.25
  52.          Charset         =   162
  53.          Weight          =   400
  54.          Underline       =   0   'False
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.    End
  59.    Begin EXE_Binder.Button cmdRemove 
  60.       Height          =   375
  61.       Left            =   2400
  62.       TabIndex        =   3
  63.       Top             =   840
  64.       Width           =   1695
  65.       _ExtentX        =   2990
  66.       _ExtentY        =   661
  67.       ButtonStyle     =   8
  68.       ButtonTheme     =   6
  69.       CaptionEffect   =   3
  70.       BackColor       =   2504331
  71.       BackColorPressed=   4349166
  72.       BackColorHover  =   4678655
  73.       BorderColor     =   2504331
  74.       BorderColorPressed=   4349166
  75.       BorderColorHover=   4678655
  76.       Caption         =   "Remove Exe File(s)"
  77.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  78.          Name            =   "Tahoma"
  79.          Size            =   8.25
  80.          Charset         =   162
  81.          Weight          =   400
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.    End
  87.    Begin EXE_Binder.Button cmdAdd 
  88.       Height          =   375
  89.       Left            =   2400
  90.       TabIndex        =   2
  91.       Top             =   360
  92.       Width           =   1695
  93.       _ExtentX        =   2990
  94.       _ExtentY        =   661
  95.       ButtonStyle     =   8
  96.       ButtonStyleColors=   3
  97.       ButtonTheme     =   5
  98.       CaptionEffect   =   3
  99.       BackColor       =   181749
  100.       BackColorPressed=   11530238
  101.       BackColorHover  =   14875135
  102.       BorderColor     =   181749
  103.       BorderColorPressed=   11530238
  104.       BorderColorHover=   14875135
  105.       Caption         =   "Add Exe File(S)"
  106.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  107.          Name            =   "Tahoma"
  108.          Size            =   8.25
  109.          Charset         =   162
  110.          Weight          =   400
  111.          Underline       =   0   'False
  112.          Italic          =   0   'False
  113.          Strikethrough   =   0   'False
  114.       EndProperty
  115.    End
  116.    Begin VB.ListBox lstFiles 
  117.       Appearance      =   0  'Flat
  118.       BackColor       =   &H8000000C&
  119.       BeginProperty Font 
  120.          Name            =   "Verdana"
  121.          Size            =   8.25
  122.          Charset         =   0
  123.          Weight          =   400
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       ForeColor       =   &H0000FF00&
  129.       Height          =   1395
  130.       Left            =   120
  131.       TabIndex        =   1
  132.       Top             =   360
  133.       Width           =   2175
  134.    End
  135.    Begin MSComDlg.CommonDialog File1 
  136.       Left            =   1560
  137.       Top             =   600
  138.       _ExtentX        =   847
  139.       _ExtentY        =   847
  140.       _Version        =   393216
  141.       Filter          =   "Exe files (*.exe)|*.exe"
  142.    End
  143.    Begin VB.Image Image1 
  144.       BorderStyle     =   1  'Fixed Single
  145.       Height          =   1140
  146.       Left            =   4440
  147.       Picture         =   "bind.frx":45CE4
  148.       Top             =   360
  149.       Width           =   2310
  150.    End
  151.    Begin VB.Label Label1 
  152.       BackStyle       =   0  'Transparent
  153.       Caption         =   "Odesa eXe Binder - Source Code:"
  154.       ForeColor       =   &H0000FF00&
  155.       Height          =   255
  156.       Left            =   120
  157.       TabIndex        =   5
  158.       Top             =   2400
  159.       Width           =   2415
  160.    End
  161.    Begin VB.Label tag1 
  162.       BackColor       =   &H80000012&
  163.       Caption         =   "Binded EXE(s) Files list:"
  164.       BeginProperty Font 
  165.          Name            =   "Tahoma"
  166.          Size            =   8.25
  167.          Charset         =   0
  168.          Weight          =   400
  169.          Underline       =   0   'False
  170.          Italic          =   0   'False
  171.          Strikethrough   =   0   'False
  172.       EndProperty
  173.       ForeColor       =   &H0000FF00&
  174.       Height          =   255
  175.       Left            =   120
  176.       TabIndex        =   0
  177.       Top             =   120
  178.       Width           =   2175
  179.    End
  180. End
  181. Attribute VB_Name = "frmBind"
  182. Attribute VB_GlobalNameSpace = False
  183. Attribute VB_Creatable = False
  184. Attribute VB_PredeclaredId = True
  185. Attribute VB_Exposed = False
  186. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  187. ' eXe Binder Coded By: Alper ESKIKILIC - www.odesayazilim.com - odysseydhtbluefire@hotmail.com
  188. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  189. Private fPaths() As String
  190. Private fIndex As Integer
  191. Private fPoint As Long
  192.  
  193. Private Sub Form_Load()
  194. ReDim fPaths(10)
  195. End Sub
  196. Private Sub cmdAdd_Click()
  197. File1.Flags = 4096 Or 4: File1.ShowOpen
  198. If File1.FileName = vbNullString Then Exit Sub
  199.  
  200. lstFiles.AddItem File1.FileTitle
  201. fPaths(fIndex) = File1.FileName
  202. fIndex = fIndex + 1: File1.FileName = ""
  203.  
  204. If fIndex > UBound(fPaths) Then
  205. ReDim Preserve fPaths(fIndex + 10)
  206. End If
  207. End Sub
  208.  
  209. Private Sub cmdRemove_Click()
  210. Dim X As Long, OldIndex As Long
  211. If lstFiles.ListIndex = -1 Then Exit Sub
  212. OldIndex = lstFiles.ListIndex
  213. lstFiles.RemoveItem (OldIndex)
  214.  
  215. For X = OldIndex To lstFiles.ListCount
  216.     fPaths(X) = fPaths(X + 1)
  217. Next X: fIndex = fIndex - 1
  218. End Sub
  219.  
  220. Private Sub cmdMake_Click()
  221. Dim Buffer As String, X As Long, Path As String: Path = App.Path
  222. On Error Resume Next: Kill (Path & "\output.exe"): DoEvents
  223.  
  224. If lstFiles.ListCount = 0 Then Exit Sub
  225. Open Path & "\header.dat" For Binary As #1
  226.     fPoint = LOF(1): Buffer = Space$(fPoint)
  227.     Get #1, , Buffer
  228. Close #1: fPoint = fPoint + 1
  229. Open Path & "\output.exe" For Binary As #1
  230. Put #1, , Buffer
  231.  
  232. For X = 0 To lstFiles.ListCount - 1
  233.     Put #1, fPoint, strFile(X)
  234. Next X: Close #1: Me.Caption = "Made@ " & Time
  235.  
  236. End Sub
  237.  
  238. Private Function strFile(Index As Long) As String
  239. Dim hexSize As String, lof2 As Long
  240.  
  241. Open fPaths(Index) For Binary As #2
  242. lof2 = LOF(2): hexSize = Hex(lof2)
  243.  
  244.     Do Until Len(hexSize) = 6
  245.     hexSize = "0" & hexSize
  246.     Loop
  247.                                                 
  248.  
  249. strFile = Space$(lof2)
  250. fPoint = fPoint + lof2 + 6
  251. Get #2, , strFile: Close #2
  252.  
  253. strFile = hexSize & strFile
  254. End Function
  255.