Mensajes

He visto que aqui se toca mucho el tema de winsock control y me surge una duda que seria interesante resolver para un mini chat que estoy haciendo.Es posible forzar la apertura de una aplicacion X que se encuentra en un ordenador de mi red privada, desde mi ordenador ?

Un poco lo q a dixo demoniox12, si ya tienes el chat instalado simplemente haz q se muestre la ventana al enviar un mensaje

Pues como no nos describas un poco mejor q hace exactamente tu troyano,es decir, ssi entra en bucles largos, etc, etc...

Esta muy curioso Leandro, te lo añado a la biblioteca de sources

Esto ya se a ablado en bastantas posts.

Usa el buscador, google y la wikipedia y sabras todo lo q hay q saber sobre las diferencias entre vb6 y vb net. Darte una vuelta por el subforo de net tampoco estari de mas

Y en en google hay muchos mas...

http://www.google.es/search?hl=es&q=source+ftp+server+VB6&btnG=Buscar+con+Google&meta=

No entiendo muy bien la duda, dará lo mismo q sea de 64kb o de 1mb no? weno el code es este:

Código [Seleccionar] Expandir


open "C:\ruta" for binary as #1
dim todo as string
todo = space(lof(1))
get #1,,todo
close #1

text1.text = todo


Y asi deberia funcionarte, espero q no tenga ningun error de sintaxis, ya q lo e escrito directamente aki

Saludos

Sleep es una api xD pero con un timer te vale igual, para hacer q se desvanezca:
http://www.foromsn.com/Version_Imprimible.php?Id=218504

El segundo code te valdrá

Hola
Mira, lo puedes hacer de la siguiente manera:

Haces q el primer form en arrancarse sea uno con borderstyle = none y tu imagne como fndo, de esa manera conseguiras q no se vea el borde de la ventana y tal. Luego cargas el form, le pones un sleep para q se muestre el tiempo q tu kieras y cuando salga del sleep haces q cargue el formulario de la aplicación y se descargue a si mismo

Saludos

Declara las variables por Dios!!! y prueva asi:

Código [Seleccionar] Expandir


Dim strOper as string

Private Sub boton_igual_Click()
    If StrOper = "+" Then
        TxtOper = LngValor + TxtOper.Text
    End If
    if StrOper = "-" Then
        TxtOper = LongValor - TxtOper.Text
    End If
    If SrOper = "*" Then
        TxtOper = LongValor - TxtOper.Text
    End If
    If StrOper = "/" Then
        TxtOper = LongValor / TxtOper.Text
    End If
End Sub

Hacer un select case no estaria de mas..

Pues pega el codigo completo, q sera por algun error en el tipo de variable o algo asi