Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - BackSlash

Páginas: [1]
1
Visual Basic 6 / Re:Apagar XP
« en: Septiembre 03, 2010, 04:18:40 pm »
Claro miguel. Mira, de todas formas estaba pensando subir el programa gratuitamente y tengo razones para ello. Ahora mismo estoy solucionando unos detalles, pero este cibercontrol es muy superior al cibercontrol pro de lucio perri. yo tambien tengo ciber y el ciber control tiene muchos errores ademas de que estoy cansado de que me cracken el ciber puesto y consuman horas gratis sin pagar, asique me decidi a hacer uno. Este ciber control es casi invencible. El puesto trabaja en independencia del ciber control si este esta fuera de linea ( por ejemplo cuando te desconectan el cable de red justo cuando se tiene que apagar el ciberpuesto) asimismo el servidor tiene un agente que avisa los sucesos de los puestos para que no te pierdas nada. Si el servidor se apaga. no importa. no perderas ni un minuto. cuando se habre notaras que actulizo los tiempos. no como el cibercontrol que si lo apagas perdes los minutos que estas offline. tiene vista previa. Control remoto. Chat. y unos cuantos chiches mas. . esta es solo una previa. Apenas lo termino lo subo y lo comparto. saludos

2
Visual Basic 6 / Re:Apagar XP
« en: Septiembre 01, 2010, 04:23:03 pm »
Bueno. Desde que corri el codigo de ayer y se me apago la pc no volvi a prenderla hasta ahora ;D. Asique si, el problema estaba en los privilegios. Lo raro que no lo mensionaran en ningun otro lado. Gracias Leandro. El problema esta solucionado: habia que asignase privilegios para apagar o reiniciar el equipo:-[

Saludos :)

3
Pues a mi me parece buenisimo el codigo. Mas que nada para ver el shellaplication. Ya me lo he guardado. Gracias

4
Visual Basic 6 / Re:Apagar XP
« en: Agosto 31, 2010, 09:27:04 pm »
Si me parece que por ahi viene la mano. Lo pongo en practica y comento como me fue. Gracias.
 :D

5
Visual Basic 6 / Re:Apagar XP
« en: Agosto 31, 2010, 04:02:03 pm »
negativo colega. Probe el codigo de mil formas distintas. asimismo:

Código: [Seleccionar]
Public Sub ApagarPuesto()
Dim l As Long
 l = ExitWindowsEx(1, 0)
End Sub
el valor de l siempre es 0, nunca me devuelve 1

6
Visual Basic 6 / Apagar XP
« en: Agosto 31, 2010, 11:41:58 am »
Holas. Tengo un problema que tal vez sea sencillo pero ya estoy medio "bombeao", estoy haciendo un cibercontrol, y lo tendria listo si no fuera que no puedo hacer que se apague el terminal y le he dado muchas vueltas pero ya tengo la cabeza hecha sopa. Tal vez alguno me pueda decir donde esta el problema. Uso la conocida api ExitWindowsEx de  "User32", aplicando el codigo sensillito: retorno = ExitWindowsEx(cerrar, 0), pero no hay forma de que se me apague.

El codigo completo por las dudas es este:
Código: (vb) [Seleccionar]
Option Explicit

'Declaración de la función Api
Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'Constantes para pasarle a la función
Const cerrar = 1
Const reiniciar = 2

'Código del Botón
Private Sub Command1_Click()
'Variable para retornar un valor e indicarnos si handubo bien o falló la llamada
Dim retorno As Long


'Dependiendo el Option seleccionado reiniciamos o apagamos
If Option1 Then retorno = ExitWindowsEx(reiniciar, 0)
If Option2 Then retorno = ExitWindowsEx(cerrar, 0)

End Sub
que me faltara?
 Gracias desde ya.

Páginas: [1]