Bloquear un PC

[Iodem Asakura]

Alguien sabe como puedo hacer un programa que bloquee una computadora desde otra?

Como lo hacen en los cybers que si quieres usar un pc tienes que decirle al que atiende el lugar que te abra una de las computadoras, entonces el desde su computadora habilita la que vaya a usar el cliente y cuando se termina el tiempo se deshabilita.

[Iodem Asakura]

??????????

[vbx3m]

Con un programa cliente/servidor... En el cliente haces el programa que deshabilite el taskbar, el boton inicio y los iconos del desktop y en el servidor con el winsock le mandas una contraseña o una orden para que se active, si quieres le pones un timer que al cumplirse un tiempo se deshabilite...

[Iodem Asakura]

Me podrias dar alguna instruccion sobre como hacerlo, porque en realidad se lo que necesita el hacer el program (por lo menos en parte), pero el problema es que no se como hacerlo. Por ejemplo, como hago para que me quite la barra del menu de inicio, o que me deshabilite el administrador de tareas, o que me quite los iconos del escritorio ( en realidad quisiera, poder poner una imagen por encima de todo eso).

No se que necesito usar para hacerlo. Me podrias guiar un poco?

[vbx3m]

En las FAQ¿S esta el codigo para deshabilitar el taskbar y los iconos del desktop... Para cambiar el fondo usa este codigo:

Private Declare Function SystemParametersInfo Lib `user32` Alias
`SystemParametersInfoA` (ByVal uAction As Long, ByVal uParam As
Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
Dim fallo As Integer
fallo = SystemParametersInfo(20, 0, "ruta", 0)
End Sub

[Iodem Asakura]

Voy a esperimentar un poco y luego te aviso como me fue. Gracias

[Iodem Asakura]

Excusame que sea tan novato, pero podrias expliarme un poco como puedo hacer una prueba con esto?

Porque copie y pegue el texto que me pusiste, y cambie los caracteres " ' " por comillas porque el visual basic no lo aceptaba (ponia en color rojo toda la fila). Luego lo ejecute, pero no pasa nada.

[vbx3m]

Pero en ese codigo no habian comillas simples... La primera parte la pones en un modulo y la segunda en el form... ahi esta especificado... Hasta tiene programados de 6 botones, solo agregalos... Luego le haces los cambios que quieras...

[Iodem Asakura]

Iniciado por vbx3m

En las FAQ¿S esta el codigo para deshabilitar el taskbar y los iconos del desktop... Para cambiar el fondo usa este codigo:

Private Declare Function SystemParametersInfo Lib `user32` Alias
`SystemParametersInfoA` (ByVal uAction As Long, ByVal uParam As
Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
Dim fallo As Integer
fallo = SystemParametersInfo(20, 0, "ruta", 0)
End Sub

A este codigo es que me refiero. Visual basic me dice: "Invalid character", señalandome al caracter que esta antes de "user32", o sea, el caracter " ´ ".

Disculpa la molestia , se que te he preguntado mucho, pero no logro dar con lo que debo hacer, o mas bien, con lo que estoy hacinedo mal.

[vbx3m]

No te preocipes, aqui todos estamos para ayudarnos ... El codigo va así:

Private Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As
Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
Dim fallo As Integer
fallo = SystemParametersInfo(20, 0, "ruta", 0)
End Sub

Este codigo lo probe y lo unico que hace es quitarme el que tenia pero no pone el que le indico... Cuando logre que funcione te digo como haces... Ok... Si tienes alguna otra pregunta con respecto a lo demas que llevaria este programa?...

[Iodem Asakura]

Gracias por tu disponibilidad.

Ejecute el codigo que me pasaste, pero aun asi no lo logro. Es lo mismo que yo corra una aplicacion sin ningun codigo a correrla con el codigo que me pasaste, no hace absolutamente nada. Tu me dices que te quita el que tenias, pero no te pone el nuevo. A mi no me hace nada de nada, ni quita ni pone.

[vbx3m]

Prueba con este codigo para cambiar la imagen del desktop, lo que debes hacer es poner la imagen en un picture:

Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam _
As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Const SPIF_SENDWININICHANGE = &H2

Private Sub Command1_Click()
Call SavePicture(Picture1, "c:\" & "Wallpaper.bmp")
kfile = "c:\" & "Wallpaper.bmp"
x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, kfile, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub


Con este deberia de cambiar el wallpaper, a mi me funciono... Pruebalo y me dices que tal...

[Iodem Asakura]

Que emocion !!! Al fin me funciono.

Gracias por no cansarte de mi problema. Por lo menos ahora llevo una de tres de las cosas que necesito hacer, ahora voy a ver los faqs para hacer las otras dos.

Gracias de nuevo.

[David]

No me funciona una parte
Ya que al bloquear los iconos del escritorio
Igual se puede acceder al menu inicio
pulsando doble click

[vbx3m]

lo que hace el codigo es poner invisible el boton de inicio, loe elementos de escritorio y el taskbar, no deshabilitar el boton...

[Nasa-Science]

alguien sabe como crear un valor DWORD en el registro por visual basic6.0?

[MaxExtreme]

Iniciado por Nasa-Science

alguien sabe como crear un valor DWORD en el registro por visual basic6.0?

Y si buscas un poquito, lo encuentras solito.

[Nasa-Science]

sabes como se crea un valor DWORD en el registro desde visual basic 6.0

[MaxExtreme]

Iniciado por Nasa-Science

sabes como se crea un valor DWORD en el registro desde visual basic 6.0

Spammer. No repitas que ya te he respondido.

[VisualGuallabo]

Iniciado por Iodem Asakura

Alguien sabe como puedo hacer un programa que bloquee una computadora desde otra?

Como lo hacen en los cybers que si quieres usar un pc tienes que decirle al que atiende el lugar que te abra una de las computadoras, entonces el desde su computadora habilita la que vaya a usar el cliente y cuando se termina el tiempo se deshabilita.

Escribeme a pribado y te mando la solución.

[VisualGuallabo]

Iniciado por Nasa-Science

sabes como se crea un valor DWORD en el registro desde visual basic 6.0

Yo tengo el codigo escribeme a privado y te lo mando. ahora mismo no puedo.

[mcssnt]

Iniciado por VisualGuallabo

Yo tengo el codigo escribeme a privado y te lo mando. ahora mismo no puedo.

Bueno soy nuevo en el foro me acabo de registrar y quisiera asber si me puedes ayudar ami tambien pero no se como mandar privador que onda que se hace.. o si puedes poner el codigo better... bueno pues gracias!!