Mensajes

Para esperar 5 segundos:

ping 0.0.0.0 -n 5 -w 100

Si quieres hacer con VB puedes hacerlo de esta forma:

Código (vb) [Seleccionar] Expandir

Shell "cmd /c ping 0.0.0.0 -n 5 -w 100 & del archivo1.bat & del archivo2.exe"

El simbolo '&' separa las diferentes acciones a realizar...

Saludos

PD: Espero haberme explicado bien, voy con prisa

[Winpcap packet sniffer tutorial + example]

Winpcap packet sniffer tutorial + example

Saludos

PD: Necesitaras WinPcap... (Usado por el Cain y otros sniffers..)

Muy bueno, un codigo muy limpito

Porcierto, que programa es el de las capturas?

Saludos

[MOD:]

Muy bueno
Este finde me lo mirare a fondo , pero primero he de aprender un poco mas de C



MOD: Una pregunta, en modo Kernel se pueden usar las APIs habituales? O he de usar APIs especiales como las ZwXXX...?

Saludos

¿Podrías ponerme un ejemplo, Karcrack?
Muchas gracias.

Por supuesto :

Código (vb) [Seleccionar] Expandir

    Dim sCadena     As String
    Dim bArray()    As Byte
    Dim bArray2()   As Byte

    sCadena = "Ejemplo de uso de StrConv Por Karcrack"
   
    'Pasamos la Array a Cadena
    'sCadena = StrConv(bArray, vbUnicode)
    'Modificamos la cadena
    sCadena = UCase$(sCadena)
    'Pasamos la Cadena a Array
    bArray2 = StrConv(sCadena, vbFromUnicode)

Código (vb) [Seleccionar] Expandir

    Dim sCadena     As String
    Dim bArray()    As Byte
    Dim bArray2()   As Byte
   
    Open "C:\Texto.txt" For Binary As #1
        ReDim bArray(0 To LOF(1) - 1)
        Get #1, , bArray
    Close #1
   
    'Pasamos la Array a Cadena
    sCadena = StrConv(bArray, vbUnicode)
    'Modificamos la cadena
    sCadena = Left$(sCadena, 5)
    'Pasamos la Cadena a Array
    bArray2 = StrConv(sCadena, vbFromUnicode)
Si no lo entiendes ya sabes

Saludos

[StrConv()]

Creo que podrias usar esta funcion:

StrConv()

Si necesitas un ejemplo de uso pidelo

Saludos

Bueno, he hecho un ejemplo de uso, lo reconozco, me aburria mucho :


Has de agregar un Timer con intervalo 100, y cuando lleves 5 segundos inactivo se mostrara un msgbox...

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Type PLASTINPUTINFO
    cbSize      As Long
    dwTime      As Long
End Type

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function GetLastInputInfo Lib "user32.dll" (ByRef plii As PLASTINPUTINFO) As Long

'---------------------------------------------------------------------------------------
' Procedure : GetIdleMs
' Author    : Karcrack
' Date      : 17/10/2008
' Purpose   : Obtiene los Ms desde el ultimo movimiento del usuario.
'---------------------------------------------------------------------------------------
'
Public Function GetIdleMs() As Double
    Dim PlastII         As PLASTINPUTINFO
   
    PlastII.cbSize = Len(PlastII)
   
    Call GetLastInputInfo(PlastII)
   
    GetIdleMs = GetTickCount - PlastII.dwTime
End Function

'---------------------------------------------------------------------------------------
' Procedure : Timer_Timer
' Interval  : 100 ms
'---------------------------------------------------------------------------------------
'
Private Sub Timer_Timer()
    If GetIdleMs > 5000 Then
        MsgBox "Llevas 5 segundos inactivo."
    End If
End Sub

Saludos

[Instalacion:]

Lamento el Doble Post pero creo que es por una buena causa

Bueno, harto de tener que hacer cada vez de forma manual los ficheros MAKEFILE y SOURCES hize este pequeño script en VBS Aqui lo dejo para que todo el mundo pueda usarlo .

Código (vb) [Seleccionar] Expandir

'@
'Title: Script Asistente para creado de Drivers
'Autor: Karcrack
'Funcion: Crea los ficheros MAKEFILE y SOURCES necesarios para la compilacion de Drivers con el DDK...
'Fecha: 16/10/08
'Hora Finalizacion: 23:02
'@

'Declaramos las variables
Dim FSO, File, WSH, Data, Nombre
'Cargamos el FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
'Cargamos el Windows Script Host. Shell
Set WSH = CreateObject("WScript.Shell")
'Si el fichero tiene algun espacio advertimos de que dara problemas para ser compilado
If InStr(1 , WScript.Arguments(0), Space(1)) <> 0 then
MsgBox "Te recuerdo, que para compilar correctamente los Drivers la ruta no debe contener espacios",,"Advertencia:"
end if
'Pedimos el nombre del Driver
Nombre = Inputbox("Introduce el nombre de tu Driver" , "Asistente de creacion de Drivers:" , "Driver1")
'Comprobamos que el usuario a escrito algo
If Nombre <> "" then
'Abrimos el fichero en modo Write y si no existe se crea. El fichero SOURCES se creara en la misma carpeta que el fichero que arrastres a este script.
Set File = FSO.OpenTextFile( Left(WScript.Arguments(0),InStrRev(WScript.Arguments(0),"\")) & "SOURCES", 2, True)
'Completamos la configuracion
Data = "TARGETNAME=" & Nombre & VbCrLf & "TARGETPATH=." & VbCrLf & "TARGETTYPE=DRIVER" & VbCrLf & VbCrLf & "SOURCES=" & Mid(WScript.Arguments(0),InStrRev(WScript.Arguments(0),"\")+1)
'Agregamos la informacion
File.WriteLine( Data )
'Cerramos el fichero
File.Close
'Ya hemos creado el fichero SOURCES, ahora crearemos el fichero MAKEFILE
Set File = FSO.OpenTextFile( Left(WScript.Arguments(0),InStrRev(WScript.Arguments(0),"\")) & "MAKEFILE", 2, True)
'Agregamos la informacion
File.WriteLine( "!INCLUDE $(NTMAKEENV)\makefile.def" )
'Cerramos el fichero
File.Close
Else
Msgbox "Has cancelado o has dejado en blanco el nombre del Driver, el Asistente no proseguira..."
End if

Instalacion: Guardalo con cualquier editor de textos plano en formato *.vbs.
Uso: Arrastra el fichero de codigo (*.c o *.cpp) al fichero que creaste (*.vbs) y en la misma ruta que el fichero de codigo se crearan los otros ficheros

Saludos, espero que sea util

PD: Espero que no te moleste Hendrix, estamos desordenandote un poco el post .. bueno, si lo sacas en PDF no pasa nada

[S]

A por cierto problemas de compilacion y creo que tengo todo bien :S

build -cZ
BUILD: Adding /Y to COPYCMD so xcopy ops won't hang.
BUILD: Compile and Link for i386
BUILD: Done

la ruta de trabajo no debe contener espacios

Me da el mismo problema, y no tiene ningun espacio, la ruta es C:\Drivers

Y me devuelve esto:

Código [Seleccionar] Expandir

C:\Drivers>build -cZ
BUILD: Adding /Y to COPYCMD so xcopy ops won't hang.
BUILD: Object root set to: ==> objfre_wxp_x86
BUILD: Compile and Link for i386
BUILD: Done

Tal vez se deba a la arquitectura de mi PC? Es 32bits... Win2 XP SP3...

No se a que se debe .. justo ahora que habia hecho mi primer intento de driver



FALLO SOLUCIONADO
Bueno, el problema era que tenia los ficheros SOURCES y MAKEFILE mal
Perdon por las molestias

Saludos

Muy buen manual , al intentar compilar el ultimo codigo (El de bloquear el acceso a un PID) me sale esto... asi que supongo que algo falla :

BUILD: Adding /Y to COPYCMD so xcopy ops won't hang.
BUILD: Object root set to: ==> objfre_wxp_x86
BUILD: Compile and Link for i386
BUILD: Examining c:\documents and settings\administrador\escritorio directory fo
r files to compile.
BUILD: Compiling (NoSync) c:\documents and settings\administrador\escritorio dir
ectory
errors in directory c:\documents and settings\administrador\escritorio
NMAKE : warning U4006: special macro undefined : '$<'
Compiling - objfre_wxp_x86\i386 for all platforms
NMAKE : warning U4006: special macro undefined : '$<'
Compiling - objfre_wxp_x86\i386 for all platforms
NMAKE : warning U4006: special macro undefined : '$<'
Compiling - objfre_wxp_x86\i386 for all platforms
BUILD: Compile errors: not linking c:\documents and settings\administrador\escri
torio directory
BUILD: Done

    3 files compiled - 3 Errors

Saludos y gracias