Mensajes

hola de nuevo amigos
ya se como guardar el contenido de un texbox en un archivo txt, mi duda surge ahora
al pulsar el boton de cerrar el formulario ese que esta en la parte alta junto al de minimizar y maximizar, quiero que me haga la misma accion pero  no se como hacerlo

Ya lo dijo EON, para eso usas el eveto Unload del formulario, puedes agregarle un mensaje de advertencia y que se efectue determinada acción dependiendo de la respuesta, mira este ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Unload(Cancel As Integer)
    Cancel = (MsgBox("¿Realmente desea Salir?", vbQuestion + vbYesNo, _
                   "Salir") = vbNo)
    If Cancel = 0 Then
        Guardar 'llamamos a la rutina encargada de guardar
    End If
End Sub

Incluso podrías usar una variable booleana que indique cuando se ha realizado un cambio en el textbox y de esta manera al cerrar el form solo guarde si se ha producido un cambio o si nunca se ha guardado.

¡S4lu2!

[Buscar]

Ese tema se ha tratado muchas veces:
http://foro.elhacker.net/index.php/topic,173739.msg825470.html#msg825470
usa el botoncito que dice "Buscar" y encontraras unos cuantos temas relacionados con lo que quieres.

Echale un vistazo al enlace que te dejo, tambien hay varias funciones en este subforo para determinar la existencia de un archivo y ejercer una acción dependiendo del valor que devuelva.

Pd: y si no entiendes algo lo posteas acá mismo.

¡S4lu2!

[Connect]

A alguien se le ocurre una solucion?¿

Pero se te olvido tomar en cuenta los eventos!!!

Cuando la conexión se efectua se produce un evento denominado: Connect y es hay donde deberias colocar la siguiente instrucción ¡prueba a ver!

Código (vb) [Seleccionar] Expandir

Private Sub Winsock1_Connect()
'Este evento Ocurre cuando hemos establecido con éxito la conexión al servidor
    Winsock1.SendData "lo_que_sea"
End Sub

Cuando la conexión se establece se envia la cadena.

¡S4lu2!

busca!!! me aparecio en la primera opcion en google bueno te dejo el ejemplo
http://www.lawebdelprogramador.com/codigo/down.php?idp=1400
fuente:lawebdelprogramador.com
autor:Diego Astudillo

¡cierto! antes de postear se googlea 

http://www.recursosvisualbasic.com.ar/htm/listado-api/73-apagar-monitor.htm

 

[Cobein]

Sigo sin conseguirlo.
Me da error Sub or Function not defined en la linea que pone Clipboard...

Simplemente no te detuvistes a leer un poco, te dije lo siguiente y me cito:

Usa el modulo que dejo Cobein

Eso es justamente lo que debés hacer, adapta el modulo que te indique a tu proyecto y luego puedes usar el ejemplo que te cite, (porque ese ejemplo es el mismo que Cobein publico modificando solo los datos que carga el array y funciona perfectamente).

Tu error es justamente por eso, no puedes usar una función que no reconozca el vb, si no le pertenece al lenguaje tienes que declararla y establecer su rutina, esa será la función o el objetivo que cumplirá el modulo en este caso...

¡no se si me entendistes! ¡s4lu2!

[Cobein]

pero me podeis decir como se copia al portapapeles en VB???

Usa el modulo que dejo Cobein:
http://www.recursosvisualbasic.com.ar/foro/copiar-archivos-al-portapapeles-t1630.0.html


Si el enlace no te funciona entones usa este otro, ya había sido posteado es este subforo.
http://foro.elhacker.net/index.php/topic,199434.msg948044.html

http://foro.elhacker.net/index.php/topic,180904.0.html

Código (vb) [Seleccionar] Expandir

Private Sub CmdCopiarArchivo_Click()
Dim Cadena As String
    Cadena = App.Path & "/" & App.EXEName & ".exe"
    CopyClipboard Me.hWnd, Array(Cadena)
End Sub

¡S4lu2!

alguna persona sabe una funcion para crear caracteres aleatorios como en random

Usa los valores de la tabla ASCII para esta operación, puedes definirlo como mas te guste.

Podras generar un caracter haciendo algo como esto:

Código (vb) [Seleccionar] Expandir

MsgBox Chr$(Int(Rnd * 33) + 127

Si deseas generar una cadena aleatoria de (ejemplo) 5 caracteres:

Código (vb) [Seleccionar] Expandir

For I = 1 To 5
   Cadena = Cadena & Chr$(Int(Rnd * 33) + 127)
Next

Espero haberte ayudado, ¡S4lu2!

Echale un vistazo a esto -->
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/13.htm


¡S4lu2!

Disculpen mi intromisión pero llamo mi atención...

En su primer post mojolloyo20 usa tres timer para ejecutar tres aplicaciones en los minutos 4, 5 y 7 por separado, eso me da a entender que quiere ejecutarlos por grupo de 3 minutos de diferencia y por aplicación, por dos minutos, en ese sentido, este seria la manera mas simplificada de hacerlo:

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim Minuto As Integer

Private Sub Form_Load()
    Timer1.Interval = 60000
    Minuto = 0
End Sub

Private Sub Timer1_Timer()
    Select Case Minuto
        Case 4: Shell ("explorer.exe")
        Case 5: Shell ("notepad.exe")
        Case 7: Shell ("regedit.exe"): Minuto = 0   
    End Select
    Minuto = Minuto + 1
End Sub

Cabe acotar que errores como estos solo confunden mas al principiante:

Private Sub Form_Load()
dim bloqueo1 --> dentro del sub?
dim bloqueo2 --> ||

if minuto = 5 then and bloqueo2 = "no" then 

Hay que asegurarse de lo que se esta postiando... por lo demás todo esta bien...

¡S4lu2!

[Ws.Listen ' Escucha en x puerto]

Cuando pasan los 3 segundos me marca el siguiente Error:

Error '10037' en tiempo de ejecucion:
The operation is completed. No blocking operation is in progress.
Me señala la linea    Ws.Listen       ' Escucha en x puerto

Prueba a usar comprobación de estado antes de la linea donde te marca el error:

Código (vb) [Seleccionar] Expandir

'Si el socket no esta conectado ni en escucha entonces...
If Ws.State <> 2 And Ws.State <> 7 Then

Aunque no te recomendaria lo del Timer, deberías hacer lo que dice juancho77 despues de que la conexión se cierre

tendrias que ponerle que lo llame de vuelta. Eso seria en el evento Error y Close del winsock.