Mensajes

algo asi

Código [Seleccionar] Expandir

Msgbox Text1(3), vbinformation, "Soy textbox1 #4 xD"

ten en cuenta k el index komienza en 0

y numControles te sirve de guia para saber kuantos hay en el form

al komienzo ya debes tener esos text boxes kon index en 0 k lo puedes poner en la propiedades donde dice Index ponle 0 a text1, text2 y a label3 eso es lo k da a pensar ese kodigo xD...

en vez de usar too ese kodigo en timers yo pondria lo k haria dentro de este Sub

Código [Seleccionar] Expandir


Private Sub Label1_Change()
   '######Codigo a ejecutar#######
End Sub


y kon respekto a lo de detectar k tekla k pulso xk no usas

Código [Seleccionar] Expandir


Private Declare Function GetAsyncKeyState Lib "user32.dll" ( ByVal vKey As Long) As Long


fijate en esto

Código [Seleccionar] Expandir

Put #1,1, Datos()

Trata kmbiandolo a

Código [Seleccionar] Expandir

Put #1, , Datos

y declara Datos as string

jeje.... Solo era un ejemplo para k pudiera komprender -.- .... ya teniendo la idea el podia hacer lo k c imagine               ........

Exacto la ultima parte k pusiste es lo k necesitas y lo deberias d poner al momento d encryptar osea en el evento de click a cmdProteger algo asi....

Código [Seleccionar] Expandir



Private Sub cmdProteger_Click()
Dim Stub As String, Archivo As String



If txtarchivo.Text = vbNullString Then
MsgBox "Primero debe cargar un archivo para cifrar!", vbExclamation, Me.Caption
Exit Sub
Else


Datos = LoadResData(101, "CUSTOM")         
            Open App.Path & "\stub.exe" For Binary As #1   
                Put #1,1, Datos()                   
            Close #1 

Open App.Path & "\Stub.exe" For Binary As #1
Stub = Space(LOF(1))
Get #1, , Stub
Close #1

.
.
.
.....





Ya luego al terminar d encryptar el archivo puedes elminar el stub.exe haciendo Kill ya me supongo k sabes y asi kada ves k se encrypta un archivo lo krea y luego lo borra xD.... Salu2

OK!...Mira tu solamente has metido el stub dentro del crypter como recurso pero tu no haz kambiando el codigo por eso krea un archivo roto y krea un stub xk al hacer

Código [Seleccionar] Expandir


    Open "\stub.exe" For Binary As #1


al no encontrar el archivo krea uno kon ese nombre y como el crypter toma el stub pa fucionarlo kon el archivo encryptado y al no haber nada keda roto Gotcha??


Ahora lo k tendrias k hacer es modifikar tu codigo y cargar el archivo que esta dentro en los recursos y krear un stub.exe y meter ahi los datos puedes guardarlo en TEMP para tenerlo temporalmente eso es lo k hacen la mayoria d los crypter k tienen un stub como recurso...espero haberte ayudado ...Salu2

Ya has intentado usar Codejock??

Genial esto esta bueno se mira cool el degradado pa una app xD..... Salu2s

tu te refieres a HTML Injections o komo tmb SQL Injections algo k kreo k no seria kapas d hacer en una aplicacion hexa en vb o algun otro lenguage de escritorio al star kompilado no podria generar un codigo a traves de un textbox ........
x lo menos hasta ahi llego yo...a menos k alguien aya podido hacerlo no soy un experto