Tengo problema con Joiner
Publicado: 25 Jun 2009, 22:58
hola atodos bueno tengo un problema con el joiner que hago les pongo el code que me marca el problema
es es en el Joiner
y en el stub
nose que pasa me podrian brindar su ayuda selo agradeseria mucho
saludos
Código: Seleccionar todo
Private Sub Command2_Click()
Ruta = App.Path & "\stub.exe"
Firma = "[**-_-**]"
SubFirma = "^^_~~_^^"
FileCopy App.Path & "stub.dll", App.Path & "Stub.exe" este es el problema que me marca
For n = 1 To Lv.ListItems.Count
Open Lv.ListItems.Item(n).SubItems(1) For Binary As #1
Dim Archivo As String
Archivo = Space(LOF(1))
Get #1, , Archivo
Close #1y en el stub
Código: Seleccionar todo
Private Function Ruta() As String
Dim ModuleName As String, FileName As String, hInst As Long
ModuleName = String$(128, Chr$(0))
hInst = GetWindowWord(Me.hWnd, GWW_HINSTANCE) este me arca error onde dice "GetWindowword"
ModuleName = Left$(ModuleName, GetModulefileName(hInst, ModuleName, Len(ModuleName)))
Ruta = ModuleName
End Functionsaludos