Indetectables

Wenas , bueno mi duda es aparentemente sencilla y creo que el título no representa muy bien la real duda, en fín , la pregunta es como hago para que al tener una opción en el cliente , esta se copie en el Stub, probé creado una variable, y que comprobara que si el check1.enable = true, luego le diera el valor de " 1 " a la variable , y que si nó nada, y luego en el stub , obtenía la variable y si valia " 1 " pues que isiera algo( solo para ver si así funcionaría ) , pero parece que nó.


Os pongo la manera que intente hacerlo:


" Cliente "


Dim var1 As String * 200
Dim var2 As String


Private Sub Command1_Click()
FileCopy App.Path & "\stub.exe", App.Path & "\final.exe"
If Check1.Enabled = True Then
var2 = Caption
Else
var2 = no
End If
Open App.Path & "\final.exe" For Binary As #1
var1 = Text1.Text
Put #1, LOF(1) + 1, var1
Put #1, , var2
Close #1
MsgBox "yata"

End Sub




*******************************************************

" STUB "


Dim var1 As String * 200
Dim var2 As String



Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 199, var1
Get #1, , var2
Close #1
MsgBox Trim(var1)
If var2 = Caption Then
MsgBox " activado"
End If
If var2 = no Then
MsgBox " no "
End If
End

End Sub


**************************************************

Olomejor ahi datos de más , pero es que lo intente de varias maneras y nada..

Saludos !




EDIT: una duda más , yo por ejemplo lo del CHECK lo quería hacer , así:

si el Check esta enable , pues le das el valor 1 a la variable, y luego en el stub, compruebo que valor tiene la variable y si es igual a 1 pues haces esto.

Pero ahora la duda , la variable sería normal no ? es decir con el simple " Dim var1 as string " valdría o no ?

Tio te estas complicando muxo, mucho mas facil asi, ponlo asi:

No lo había pensado, mañana lo intento y te comento, gracias man.

Dudillas, no deverían haber las mismas variables en ambos lugares ( stub cliente, )), luego el Split sé que es para separar los datos vale, pero una duda el " Signo " que se utiliza para el split puede ser el que sea no ?, o deve ser el "$$$" .

Otra duda, lo de :

" open app.path & "\Stub.exe" for binary as #1 'leemos el stub
stub = space(lof(1))

" ,,

Haber te habres y todo bien , pero lo de " Stub = space(lof(1)) " es para decir que esta variable es todo el archivo o qué :S ?


Bueno , tengo que practicar lo del SPLIT , y tambien lo del " Stub = space(lof(1)) " , porque yo esa parte no lo hacía así , yo las variables las ponía asi:

Put #1, Lof(1) +1, variable

y luego empesaba a leer un numero menos la variable, por lo que veo soy de los pocos que usan esa manera xD
Saludos

te deje t9do el ejemplo exo, hazlo como dije

salu2

Ok, en principio parece funcionar, me podrías explicar lo que comenté un poco más arriba please.




EDIT: No entiendo el porque lees el stub en el cliente :S , haber sinceramente lo que no entiendo es esto:

Yo = Space(LOF(1))

:S

Por si alguien le pasa lo mismo, digamos que al decir " variable = space(lof(1)) " estamos diciendo que variable engloba a TODO el archivo.

Ya lo entendí despues de 5 minutos usandolo xD, Gracias feote