Mensajes

Esto lo pregunte ace tiempo, y como no cntxto nadie lo vuelvo a preguntar..
Estoy haciendo un salvapantallas y quiero q al estar corriendo en el sistema, detecte cuadno el pc esta inactivo.. osea q no se mueva ni el raton ni s pulsen tecla, voy a buscar ahora aber si encuentro alguna api





Salu2

pon el el la propiedad min de la barra d progreso el valor maximo, y en la propiedad max el valor minimo. Suena raro ehh xDD









Salu2

lo q yo digo es q cuando en el menu q tienes arriba des a calculadora pongas esto...

Código [Seleccionar] Expandir

private sub form2_load
unload lipi 'seria el form1
end sub

y cuando des en el form2 a cerrar..

Código [Seleccionar] Expandir

private sub form2_unload
load lipi
end usb

se m ocurren varias formas...

1º calculadora.show vbmodal

2º cuadno carge la calculadora unload lipicalculator y cuando kieras q se vea el form principal pones load lipicalculator

Esto t puede ayudar....

Crea un nuevo exe con este codigo:

Código [Seleccionar] Expandir

Private Sub Form_Load()

Dim IPt                As String * 20          'es una varible con 10 espacios
Dim Ip                 As String               'es una variable
On Local Error Resume Next
me.caption = "SERVER"

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1 'se abre a si mismo en binario
Seek (1), LOF(1) - 19                              'se va a la parte dinal de todo su codigo,
                                                    'pero ojo no al final del todo sino exactamente 19 posiciones
                                                    'antes de tocar el final
Get #1, , IPt                                      ' y asi lee lo ultimo q tiene, q sera la ip
Close #1                                           'se cierra el archivo

Ip = Trim(IPt)                                     'lo q ahora tendremos seria la ip seguida de unos espacios,
                                                    'por ejemplo "127.0.0.1         ", lo q se acre es quitar esos espacios
                                                    'y ponerlos en la variable ip
MsgBox Ip                                          'aqui t lo muestra en pantalla
End Sub


despues aces el exe en el escritorio ( x poner un ejemplo ).

Habres otro vb para crear otro exe y en este pones en el archivo *.res, el primer ejecutable q emos exo, una imagen vale mas q mil palabras. xD



y escribes este codigo:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim Code()              As Byte                 'aqui se almacenara el codigo del otro exe, demomento esta vacio
Dim IP                  As String * 20          'aqui la ip q pasaremos al otro exe,demomento esta vacio

IP = "69.69.69.69"                              'la ip e escrito esa pero si agregas el winsock lo remmplazarias x la ip
Me.Caption = "EDITOR"                           'esto lo pongo pa q sepas q es el editor
Code = LoadResData(101, "CUSTOM")               'ahora carga del archivo de recursos, el archivo con numero
                                                '101 y q este en la categoria CUSTOM

Open "C:\Cacarutas.exe" For Binary Access Write As #1   'abre el archivo cacarutas
Put #1, , Code                                          'pone el code dentro del archivo
Put #1, , IP                                            'y luego la ip q esos escogido, 69.69....
Close #1                                                'y se cierra el archivo

End Sub

ahora solo t queda ejecutar el primer archivo

Tengo una tarjeta grafica (geforce4 mx 440), y ultimamente los juegos a los q quiero jugar no puedo x culpa d esto.

Recuerdo q ace tiempo cuando keria jugar a otros juegos tenia un programa q l acia pensar al juego q yo disponia d otra tarjeta..

Mi pregunta es el nombre de ese programa.

http://downloads.elguille.info/BajarZip.aspx?sección=/vb/&zip=ExeEnCurrentVersionRun.zip

Ok Gracias xDDD era eso.. q patoso 

Ponlo please...

Yo lo q ago es enumerar las ventanas de todo el pc y si alguna coincide cn el caption del formulario pos cerrar. Yase q si fuese una aplcacion normal ( un explorador, juego, etc...) no serviria xq el caption a veces lo tendria q cambiar, pero como lo utilizo para los server 




Salu2

Si fuese lo mismo no lo preguntaria, en algo tendre el fallo...

Yo lo q ago es esto

Código [Seleccionar] Expandir

a = loadresdata(1,"FILE")
open "C:\asd.exe" for binary as #1
put #1,, a
close #1