Mensajes

ok gracias perfecto, ya ta puesto en uso.
Saludos!

hola, gracias a ambos, he probado los dos mentodos, muchas gracias. Al final me he dado cuenta que en la parte que cargo las fotos, con form1.picture = a lo que sea, al ser todas las instancias del mismo nombre, ahi era donde daba parte del problema, de manera que lo hice: me.picture asi se referia al propio formulario en cuestion olvidando el nombre.
Muchas gracias y saludoS!

Hola, es es un codigo que trata de hacer lo siguiente:
Cada tres segundos cambia la imagen de fondo del formulario aleatoriamente entre 6 imagenes. Si pasas el raton por encima del formulario, el formulario se mueve por la pantalla para que no puedas cogerlo. Si le pulsas a la X para cerrarlo, abre un nuevo formulario igual. Y todo va bien hasta aqui. Cuando pulso la X si abre un nuevo formulario, pero yo quiero que el nuevo formulario siga con las propiedades del inicial, y en el primero se ven las fotos cambiando, y al pinchar en la X y en las sucesivas vece que se pinchen se abren nuevos formularios, pero en estos formularios no se cargan las fotos. Osea solo el primero funciona bien y aunque luego se abre el formuliario en este no aparecen fotos ni nada.
Este es el codigo, gracias:

Código [Seleccionar] Expandir

Dim ancho As Integer
Dim alto As Integer
Dim altornd As Integer
Dim anchornd As Integer
Dim ventana() As Form
Dim j As Byte
Private Sub Form_Load()
cambia
alto = Screen.Height
ancho = Screen.Width
altornd = calculo(alto)
anchornd = calculo(ancho)
If altornd > alto - Form1.Height Then
altornd = alto - Form1.Height
End If
If anchornd > ancho - Form1.Width Then
anchornd = ancho - Form1.Width
ElseIf anchornd < Form1.Width Then
anchornd = 0
End If
Form1.Top = altornd
Form1.Left = anchornd
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
alto = Screen.Height
ancho = Screen.Width
altornd = calculo(alto)
anchornd = calculo(ancho)
If altornd > alto - Form1.Height Then
altornd = alto - Form1.Height
End If
If anchornd > ancho - Form1.Width Then
anchornd = ancho - Form1.Width
ElseIf anchornd < Form1.Width Then
anchornd = 0
End If
Form1.Top = altornd
Form1.Left = anchornd
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then 'Significa que se ha cerrado con la X:
    i = i + 1
ReDim Preserve ventana(1 To i)
Set ventana(i) = New Form1
ventana(i).Show
    Cancel = 1
End If
End Sub
Public Function calculo(valor)
calculo = Int(Rnd * valor)
End Function
Private Sub cambia()
j = Rnd * 6
Select Case j
Case 1
Form1.Picture = Image1.Picture
Case 2
Form1.Picture = Image2.Picture
Case 3
Form1.Picture = Image3.Picture
Case 4
Form1.Picture = Image4.Picture
Case 5
Form1.Picture = Image5.Picture
Case 6
Form1.Picture = Image6.Picture
End Select
End Sub
Private Sub Timer1_Timer()
cambia
End Sub




Hola, quedria saber primero, como se pueden cambiar los botones de maximizar, minizar y cancel, y tambien y mas importante, si se puede cambiar el evento, por ejemplo de pinchar la X y que no cierre el formulario si no que invoque otro procedimiento distinto. Gracias y saludos!

no se si te refieres a que si abria que poner ws.close y algo mas despues? eso te refieres?, si es a esto no, cierra la conexion abierta en ese momento. Si previamente pusiste
ws.listen "2000"
ws.close
cierra la escucha en el puerto 2000.
no tienes que poner ws.close 200
solo el ws.close
no se si te referias  a esto.
saludos

Me parece intersante. Hace tiempo que pensaba en algo asi para hacer una aplicacion que escondiese el msn, como hace el msn plus. Pero me han surgido unas dudas, pues con el findwindow, le estamos escribiendo nosotros directamente el nombre del form que se quiere ocultar. Entonces, creo que deberia haber alguna forma de contar los formularios empleados, en ellos sacar su caption del form, y luego por ejemplo con righ y el nombre de cada formulario encontrar los que las ultimas 12 letras sean conversación, y ocultar esas. Entonces, alguna funcion API para contar los formularios abiertos?, pues con esto ya se podria sacar el hwnd y obtener el caption, hacer la comprobacion y ya ocultar. Gracias y saludos!

Puedes poner en el form_load los valores iniciales para que cuando entre los carge, aunque de todas formas si tu insertas un comando, y le pones en sus propiedades algo, esto ya se queda asi desde que inicia el programa hasta que se cambie.
como dice  i686:
private sub form_load ()
option1.value = true
option2.value = false
option3.value = false
end sub
Esto logicamente entraria en la aplicacion y el boton 1 apareceria marcado, y el resto sin marcar. Si estand dentro de un frame, poniendo a un en true, el resto ya se supone que no has de ponerlos pues solo 1 puede estar activo. Supongo que te referiras a esto con activo, pq si es que puedas actuar sobre el o no (osea marcado en gris clarito) pues seria enabled como dijo i686, y si quieres que se vean o no, seria visible.
Saludos.

No se como se podria hacer, pero para eso se me ocurriria, que seguro se puede, acceder con un programa que hagas, y seguro que con una API, a los protocolos de conexion de las tarjetas de red, al TCIP y ahi es donde estan los datos de tu conexion, que puede que sean automaticos, o hayas tenido que establecerlos previamente. De cualquier manera, se podria hacer un programa que estuviera por ejemplo cargado como proceso activo siempre que inicies windows, y que con una combinacion de teclas, por ejemplo ALT+T o algo asi, como programases, automaticamente te cambiara estos valores a otros incorrectos para que no pudieras conectar a internet, y que de nuevo pulsando esas teclas u otras, volviera a restablecer los valores originales. Asi podrias hacerlo, lo unico que no se como podrias acceder a esta parte de windows para sustituir estos valores y jugar con ellos, pero seguro que de alguna manera se puede hacer, ya sea desde msdos o desde alguna API. Alguien sabe como se podria acceder a ello?.
Saludos!

Am y otra cosa, para abrir y cerrar puertos, no se si te referiras directamente a los puertos del router. Esto es, que por ejemplo si tienes un router, lo primero que tienes que hacer es abrir los puertos en el router. Aunque tu te pongas un puerto a la escucha, si en el router lo tienes cerrado, no estara accesible desde internet, si desde una red interna, pero no desde internet, de ahi que por ejemplo para los troyanos d conexion inversa, que la victima se conecta a ti, primero has de poner el puerto en cuestion abierto. Entonces, para abrir o cerrar puertos, debes trabajar con el router si es que tienes,  y si no tienes, como dice Soplo, tan solo has de dejar el puerto a la escucha, pues no estan bloqueados por nada, a no ser que tengas algun firewall que tambien bloque los puertos. Y nuevamente si es eso lo que quieres, deberias programar algun programa que te automatizase estas tareas de abrir los puertos del router, lo cual, aunque fijo que es posible, tampoco se como se haria, pero bueno, son ideas.
Saludos!

ok, ok, ya lo he sacado basandome en el codigo de  Celaya
kedaria asi:
Private Sub Command1_Click()
Dim x As Image
Set x = Image1
Image2.Picture = x.Picture
End Sub

saludos!

Zeroql, no me reconoce la setencia for... esto que me has dicho es para VB6???. o para .net? u otro.
Gracias y saludos!