| Ver tema anterior :: Ver siguiente tema |
| Autor |
Mensaje |
zark
Forero
Registrado: 10 Jul 2004
Mensajes: 126
Ubicación: SOLLER
|
 Publicado: Sab Jul 10, 2004 8:20 pm Título del mensaje: alguien me puede decir algunos comandos....... |
 |
|
e empezado a aprender a programar com VB alguien me podria decir kual es el comando para apagar el ordinador, reiniciarlo i modificar cosas de windows.
o tambien podeis acer un listado de comandos i aci os dejare de loestar XD
salu2  
_________________
es mi batalla de elepnato en la k caigo contra mcs i me levanto, decian k andaba alreves pero aki me ves con la cabeza bien alta i el mundo bajo mis pies |
|
| Volver arriba |
|
 |
ExTeRnAl
Moderador
Registrado: 24 Mar 2004
Mensajes: 2526
Ubicación: Montevideo - Uruguay
|
| Publicado: Dom Jul 11, 2004 3:22 am Título del mensaje: |
|
|
jje queres hacer un trojano o solo me parecio??
jeje
no se de vb si no te ayudo
Salu2
_________________
|
|
| Volver arriba |
|
|
zark
Forero
Registrado: 10 Jul 2004
Mensajes: 126
Ubicación: SOLLER
|
| Publicado: Vie Jul 23, 2004 10:22 pm Título del mensaje: |
|
|
no no kiero hacver m=ningun troyano pero si un programa 'puta' si mpierdes pc apagado.........
io tambien keria hacer un programa k kuando lo abres el fondo de pantalla la basura i todo se te vuelve con fotos porno i eso enviar lo al vaticano XDXDXDX
soy cabron XD
salu2
_________________
es mi batalla de elepnato en la k caigo contra mcs i me levanto, decian k andaba alreves pero aki me ves con la cabeza bien alta i el mundo bajo mis pies |
|
| Volver arriba |
|
|
jec
Yo soy el foro
Registrado: 01 Jun 2004
Mensajes: 1062
Ubicación: Mexico
|
| Publicado: Sab Jul 24, 2004 2:07 am Título del mensaje: |
|
|
eso no se hace muy bueno, pero bueno...
solo buscate informacion de las librerias del visual , para apagar y reiniciar, etc, tienes k llamas librerias y esas cosas, te las diria pero no recuerdo por el momento.
y si lo kieres hacerlo remoto busca info hacerca del winsock..
pd:sacale proveho a la programacion en visual para hacer utilidades, no putadas, es un consejo bro 
_________________
Revista ConHACKto, Revista deSeguridad Informática Mexicana
Ultima edición por jec el Sab Jul 24, 2004 3:27 am; editado 1 vez |
|
| Volver arriba |
|
|
ExTeRnAl
Moderador
Registrado: 24 Mar 2004
Mensajes: 2526
Ubicación: Montevideo - Uruguay
|
| Publicado: Sab Jul 24, 2004 2:12 am Título del mensaje: |
|
|
bueno pasanos tus resultados, jec sabe de esto asi que el te puede ayudar....
Jec donde estas???
Salu2
_________________
|
|
| Volver arriba |
|
|
DarkSigma
Conociendo Foroz
Registrado: 23 Sep 2004
Mensajes: 24
|
| Publicado: Vie Sep 24, 2004 3:11 am Título del mensaje: |
|
|
mmm cosa sencilla pero como ahora mi host esta lleno pues les dejo aqui todo el *.FRM asi que solo crean un *.FRM con el editor que prefieran y pegan todo esto, ahora abierto este nuevo *.FRM en VB podran ver el codigo mas un ejemplo de como se usan estas API's
| Código: |
VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 3 'Fixed Dialog
Caption = ".:: SigmaSystem ::."
ClientHeight = 1860
ClientLeft = 2955
ClientTop = 3120
ClientWidth = 2535
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1860
ScaleWidth = 2535
ShowInTaskbar = 0 'False
Begin VB.Frame FrameOpt
Caption = "Tipo de Apagdo"
Height = 1095
Left = 120
TabIndex = 1
Top = 120
Width = 2295
Begin VB.CheckBox optForzar
Alignment = 1 'Right Justify
Caption = "Forzar"
Height = 195
Left = 120
TabIndex = 3
Top = 720
Width = 1995
End
Begin VB.ComboBox cmbTipoApagado
Height = 315
Left = 120
Style = 2 'Dropdown List
TabIndex = 2
Top = 360
Width = 2055
End
End
Begin VB.CommandButton btnApagar
Caption = "&Apagar"
Height = 435
Left = 120
TabIndex = 0
Top = 1320
Width = 2295
End
Begin VB.Timer Timer1
Interval = 1000
Left = 120
Top = 1320
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' CONSTANTES Y DECLARACIONES PARA SALIR DE WINDOWS
' Cerrar todos los programas e iniciar la sesión como
' un usuario distinto
Private Const EWX_LOGOFF = 0
' Apagar el equipo
Private Const EWX_SHUTDOWN As Long = 1
' Reiniciar el equipo
Private Const EWX_REBOOT = 2
' Forzar el apagado. Los ficheros abiertos se pueden perder. Las
' aplicaciones no preguntarán si se quieren guardar las modificaciones
Private Const EWX_FORCE As Long = 4
'
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
'DECLARACIONES PARA OBTENER EL PERMISO NECESARIO EN NT
Private Type LUID
UsedPart As Long
IgnoredForNowHigh32BitPart As Long
End Type
Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
TheLuid As LUID
Attributes As Long
End Type
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal _
ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" _
Alias "LookupPrivilegeValueA" _
(ByVal lpSystemName As String, ByVal lpName As String, lpLuid _
As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" _
(ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, _
NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, _
PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Sub AdjustToken()
Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2
Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long
hdlProcessHandle = GetCurrentProcess()
OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle
' Get the LUID for shutdown privilege
LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid
tkp.PrivilegeCount = 1 ' One privilege to set
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED ' Enable the shutdown privilege in the access token of this process
AdjustTokenPrivileges hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded
End Sub
Private Sub btnApagar_Click()
Dim ret As Long, Forzar As Long
AdjustToken
Forzar = IIf(optForzar.Value, 4, 0)
ret = ExitWindowsEx(cmbTipoApagado.ItemData(cmbTipoApagado.ListIndex) + Forzar, 0&)
End Sub
Private Sub Form_Load()
cmbTipoApagado.AddItem "LOGOFF"
cmbTipoApagado.ItemData(cmbTipoApagado.NewIndex) = EWX_LOGOFF
cmbTipoApagado.AddItem "SHUTDOWN"
cmbTipoApagado.ItemData(cmbTipoApagado.NewIndex) = EWX_SHUTDOWN
cmbTipoApagado.AddItem "REBOOT"
cmbTipoApagado.ItemData(cmbTipoApagado.NewIndex) = EWX_REBOOT
cmbTipoApagado.ListIndex = 0
End Sub
|
| Cita: |
Porcierto si aun usan en ApiViewer pues aburranse no? busquen el ApiGenerator pues es la coleccion mas completa de declaracion para VB y VB.net ademas de dar las declaraciones completas + constantes + valores y pues es solo un EXE nada de DLL's ni OCX's
|
_________________
.:: DarkSigma ::.
[Wenn Sie Hier Hineingehen... Sie Beloren Den Himmel...]
.:: SigmaSystem ::. |
|
| Volver arriba |
|
|
Link
Forero
Registrado: 07 Sep 2004
Mensajes: 123
|
| Publicado: Lun Oct 04, 2004 12:06 am Título del mensaje: |
|
|
muchas gracias dark sigma!! tu post me sirvio muchisimo..fue mi introduccion a los API's....bueno te queria hacer una pequeña pregunta..sabes como hacer que un exe creado en vb apenas se le haga doble click se añada a los startup programs??(a los programas que se ejecutan automaticamente apenas se prende la computadora)
bueno muchas gracias y saludos |
|
| Volver arriba |
|
|
ExTeRnAl
Moderador
Registrado: 24 Mar 2004
Mensajes: 2526
Ubicación: Montevideo - Uruguay
|
| Publicado: Lun Oct 04, 2004 12:20 am Título del mensaje: |
|
|
Tiene que crear una shell l programa... no se como es visual basic pero tiene que crear una llave de registro en el current version/run
Salu2
_________________
|
|
| Volver arriba |
|
|
jec
Yo soy el foro
Registrado: 01 Jun 2004
Mensajes: 1062
Ubicación: Mexico
|
| Publicado: Lun Oct 04, 2004 1:04 am Título del mensaje: |
|
|
o simplemente mete el ejecutable dentro de la carpeta de los programas de inicio 
_________________
Revista ConHACKto, Revista deSeguridad Informática Mexicana |
|
| Volver arriba |
|
|
Link
Forero
Registrado: 07 Sep 2004
Mensajes: 123
|
| Publicado: Lun Oct 04, 2004 1:54 am Título del mensaje: |
|
|
cual es esa carpeta??..bueno pero la idea es hacer que al ejecutar el programa se coloque automaticamente en la carpeta o se cree una llave de registro en el current version/run ..pero se puede hacer eso con un codigo de visual basic??
saludos a todos |
|
| Volver arriba |
|
|
|
|
|
