Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

[MANUAL] Apagar, Reiniciar Sistema, Reiniciar Windows con Visual Basic

Estas en el tema de [MANUAL] Apagar, Reiniciar Sistema, Reiniciar Windows con Visual Basic en el foro de Visual Basic clásico en Foros del Web. Hola! Aqui vengo de nuevo yo con otro manual, el segundo para ser exactos. En este desarollaremos una aplicacion que bien puede ser de utilidad ...
  #1 (permalink)  
Antiguo 19/07/2006, 11:29
Avatar de Dark Wolf  
Fecha de Ingreso: julio-2006
Ubicación: En Uruguay
Mensajes: 32
Antigüedad: 17 años, 9 meses
Puntos: 0
[MANUAL] Apagar, Reiniciar Sistema, Reiniciar Windows con Visual Basic

Hola!
Aqui vengo de nuevo yo con otro manual, el segundo para ser exactos.
En este desarollaremos una aplicacion que bien puede ser de utilidad propia, pero es una buena oportunidad tambien para tratar el tema de las declaraciones, ya que esta vez habra una.

Veamos:
Abre el Visual Basic y crea un nuevo Form con tres botones, que les pondras en la propiedad Caption: "Apagar, Reiniciar Windows, Reiniciar Sistema"



Listo, la interfaz ya esta lista¿sencillo no?, bien, ahora toca escribir el código que hara que esos botones sirvan para algo.
Lo primero es hacer una declaración,¿cómo se hace?, sencillo, debajo de Option Explicit, pon el siguiente código:

Código:
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
Explicemos: Ningun lenjuage de programacion es cuestion de hacer la interfaz y listo, Visual Basic no es la excepcion, aunque, en realidad Visual Basic es el lenjuage mas sencillo(al menos para mi).
Una declaracion es algo que debes mostrarle al programa para que te deje hacer algo, viene a ser algo como explicarle a Visual Basic que quieres desarrollar.
Es muy comun tender que hacer una declaracion, por eso elegi hacer este manual, para dejar un poco mas claras las cosas.

Sigamos
Bien, ahora que ya escribiste la declaración hay que asignarle los eventos a los 3 Commands.

En el código del Command 1 va esto:

Cita:
Private Sub Command1_Click()
* *Dim i As Integer
* *i = ExitWindowsEx(1, 0&) 'Apaga el equipo
End Sub
En Command 2:

Cita:
Private Sub Command2_Click()
* Dim i As Integer
* *i = ExitWindowsEx(0, 0&) 'Reinicia Windows
End Sub
Y en Command 3:

Cita:
Private Sub Command3_Click()
Dim i As Integer
* *i = ExitWindowsEx(2, 0&) 'Reinicia el Sistema
End Sub
Como notaras, los 3 códigos tienen escritas despues de un ' la funcion que van a realizar, te preguntaras ¿que es eso, les puedes dar asi ordenes?, no, son Comentarios.
Los comentarios son una utilidad que solo brinda VB y te permite escribir cualquier cosa al lado del codigo para acordarte luego para que sirve lo que escribiste.
Los comentarios no afectan en absoluto la aplicacion, pueden estar ahi en el código ayúdandonte, pero no te generan ningun problema en cuanto al desarrollo.
Si te fijas cuando lo escribas, estan de Verde, ese es el color que identifica los comentarios.




Bien, ya he explicado todo, la aplicacion ya esta lista para usar.
Descarga el código fuente de este manual clickando aquí


Hasta el próximo manual!

DW



Manual creado por: Darkwolf
  #2 (permalink)  
Antiguo 20/07/2006, 07:26
Avatar de GeoAvila
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 20 años, 4 meses
Puntos: 53
Creo que tu Post lo ubieras colocado directamente en las Faq's, si podes hacerlo te lo agradecería mucho

nos vemos..
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas (incluyéndote)




La zona horaria es GMT -6. Ahora son las 05:29.