Temas

Ya no se como buscarlo en google me tengo q ue venir con los expertos...

Me mata la cabeza que siempre que veo el codigo fente de un programa en visual basic dificil siempre veo esto al principio cosas como estas:

Código (vb) [Seleccionar] Expandir


Private Declare Function ReleaseCapture Lib "user32" () As Long


Por lo que se, es que para que funcionen algunas funciones del programa necesita aparecer esto, pero ¿que es esto?, como se llama normalmente para poder buscar mas infomacion, es que no encuentro ni el nombre.

Un saludo.

Wenasss, tengo una dudilla con esto de los modulos.

Cuando me descargo algunos programas en visual basic veo que vienen con modulos. He buscado informacion sobre estos modulos pero no he encontrado nada util 

Cuando veo un modulo me doy cuenta de que eso parece visual basic pero para avanzados, asi que no entiendo nada ni puedo investigar por mi cuenta 

Si alguien sabe de algun sitio donde te expliquen bien lo que es un modulo, como hacer y para que sirven se lo agradeceria muchsimo 

Un saludo.

Wenassss estaba pensando el otro dia como se podria hacer algo como el boton de crear servidor de los troyanos pero con visual basic pero nada. Se me ocurrio crear un programa que se configurase con un archivo de texto y luego intentarlos juntar con un joiner, pero quisiera saber como se podria crear uno ya configurado al darle al boton para crearlo. He mirado algunos codigos fuente de programas que tienen esta funcion pero no lo entiendo  si alguien me pudiera inspirar un poco.

Un saludo.

[Servidor]

Ola a todos.

Hasta hoy nunca habia probado los Winsocks, pero hoy ya me he puesto al encontrar un manual sencillo y que parece bueno. En este manual te dan el codigo fuente de dos programas pero al ejecutarlos no consigo que funcionen.

Loc codigos son:

Servidor

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Winsock1.Listen
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub


El puerto se pone en las propiedades solo crearlo con el valor 888

Cliente

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Winsock1.RemoteHost = Text3.Text
Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
text1.Text = text1.Text + datos
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub


Lo mismo del puerto ya esta puesto al principio.

Pongo a la escucha el servidor, no pasa nada y lo curioso es que el cortafuegos del kaspersky no me dice nada de que se ponga un puerto a la escucha, tampoco se muy bien si tendria que saltar...

Ejecuto el cliente y al poner la ip 127.0.0.1 y darle a conectar sale un error en esta linea:

Winsock1.Connect

Nose que puede estar fallando agradezco cualquier cosa.

Un saludo.

En un programa necesito saber la letra del disco local, no es para ningun troyano ni nada que se le parezca.

Un saludo.

Wens a tod@ssssss

Estoy empezando un nuevo reto que tenia pensado pero me encuentro con el problema de que necesito un vector ilimtado por que nose cuantos voy a necesitar, y luego quiero introducir los vectores utilizados  en un ListView, y no se ni por donde empezar.

Agradezco cualquier ayuda.

Un saludoooo.

Ola a todos

Tengo un proyecto con diferentes formularios, y quiero pasar el valor de una variable de un formulario a los demas, ¿como puedo hacer esto?

Un saludo.

wens a tod@ss.

Estoy casi terminando un proyecto y me estoy volviendo loco intentando cambiar el color del texto de un label cuando pase el raton x encima.

Un saludo.