Multi file binder in vb6 sours code
exemple
exemple
کد:
Public Sub Main() On Error Resume Next 'Declarations Dim StrFile As String 'data du stub, stub data Dim StrBuffer As String 'Chaine de params utilisateur, user param's string Dim z, y As Long 'Var long, for var Dim LngParam(1 To 2) As Long 'Ret instr, returned instr Dim strSplited() As String 'Param Split "#" ''''''''''''''''''''''''''''''' Dim StrExec As String 'Param execution Dim strFilePath As String 'Param path Dim LngFileLen As Long 'param taille de fichier, param file size Dim LngFileName As String 'Param Nom du fichier, param filename Dim LngCursor As Long 'Pointeur de position dans StrFile, file position pointer ''''''''''''' 'A_ On récupere le code du stub 'A_ all the stub code in the string Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1 StrFile = Space(FileLen(App.Path & "\" & App.EXEName & ".exe")) Get #1, 1, StrFile Close #1 ''''''''''''''''''''''''''''''' 'B _ On isole les params utilisateurs 'B _ user param get LngParam(1) = InStr(1, StrFile, "<&&>", vbBinaryCompare) LngParam(2) = InStr(1, StrFile, "###", vbBinaryCompare) StrBuffer = Mid(StrFile, LngParam(1) + 5, LngParam(2))
نظر