Mensajes

buenas una duda que tengo como se limpia una extructura para poder dejarla default

osea

Código [Seleccionar] Expandir

Private Type ElementProperty
    Blond As Boolean
    Italic As Boolean
    Underline As Boolean
    FontFace As String
    FontSize As Integer
    Aling As String
End Type

Dim EP As ElementProperty

bien suponido que ya modifique a EP y quiero recetearlo yo podria poner

Código [Seleccionar] Expandir


EP.Aling = ""
EP.Blond = False
EP.FontFace = ""
EP.FontSize = 0
ETC.

o bien

Código [Seleccionar] Expandir

dim EmptyEP as   ElementProperty

EP =  EmptyEP

Pero se que hay forma mas elegante de hacer esto, creo que con un api se podia pero no recuerdo cual.

Saludos

Che esta muy bueno, pero la verdad no cacho una como lo hace, esto esta haciendo un hook a las dll?, de esta forma se puede engañar a un shell?

Saludos

ahora de bronca no lo pongo y listo, la verdad no vi nada de malo en poner el lugar de donde se descarga, ademas asi esta link para copy and paste.

Buenas, este es un modulo clase para cambiar el aspecto de los ToolBar tanto de la version CommonControls 6  como de la 5.
En el ejemplo puse 10 Skin de muestra, que tambien pueden crear los suyos. no pongo explicacion de como crearlos pero si miran el de Skin_XP.bmp un poco se daran cuenta.
no tiene niguna funcion extra excepto alinear el texto a la derecha para la version 5, lo demas es solo para cambiar el skin.




Bueno cualquier Bugs que vean notificarmelo. uno que puedo anticipar es que no pude hacer funcionar el Wrappable para la version 6, con lo demas creo que fui cuidadoso con las propiedades o en menos las mas comunes.

Saludos

PD: para las imagenes disabled si no tiene el imagelist correspondiente, tal como nos limita la version 5, este dibuja un icono disabled del mismo que lo hace el toolbar.

Solucionado, chateando con Cobein me dijo que el lo havia utilzado en su proyecto Check-Summer


LenFile = 3921
SegmentCount = LenFile \ Buffer
LenRest = LenFile - SegmentCount * Buffer

el secreto es usar \ y no / ya que el primero devuelve un numero entero.

Saludos

Buenas vengo utilizando una forma vastante fea para partir un archivo, y ahora me doy cuenta que si la configuracion local esta cambiada las cuentas me dan cualquier cosa,

Explico:

Código [Seleccionar] Expandir


Const Buffer = 4096

Private Sub Form_Load()
Dim LenFile As Long
Dim TotInteger As Long
Dim SegmentCount As Long
Dim LenRest As Long

LenFile = 3921
SegmentCount = Val(LenFile / Buffer)
TotInteger = SegmentCount * Buffer
LenRest = LenFile - TotInteger
Debug.Print SegmentCount, TotInteger, LenRest
End Sub


yo deseo saber cuanas veces entra LenFile en el Buffer lo que esto me da como resultado SegmentCount, y a su ves LenRest seria el resto de lo que no llego a completar el tamaño del Buffer

ejemplo

Código [Seleccionar] Expandir

si el archivo pesa 3921 SegmentCount = 0 y lenResto = 3921
si el archivo pesa 8192 SegmentCount = 2 y lenResto = 0
si el archivo pesa 8195 SegmentCount = 2 y lenResto = 3
si el archivo pesa 6000 SegmentCount = 1 y lenResto = 1904

como pueden notar estoy trabjando con numeros enteros

bien el ejemplo que puse por mas feo que sea funciona pero el tema es que si la configuracion local esta cambiada me tira cualquier resultados

por ejemplo

Código [Seleccionar] Expandir


Simbolo Decimal = .
Simbolo de separacion de miles = ,

correctamente en el debug deve mostrar esto
0             0             3921
incorrectamente si la configuracion esta cambiada me muestra esto
1             4096         -175

hay alguna forma elegante de hacer lo que quiero, pero sin tener que verificar la configuracion local

Saludos

Hola Gracias por los comentarios
bueno le encontre un bugs mas que en algunas ocasiones aparece en algunos controles que no son de tipo password. la verdad que por ahora no se bien como solucionarlo yo lo estoy haciendo de esta manaera

If (GetWindowLong(handle, GWL_STYLE) And ES_PASSWORD) <> 0 Then

pero bien en algunos casos toma las ventanas de tipo Treeview y otras que detecte como por ejemplo un boton en FrontPage. seguramente me esta faltando algun Flag mas aparte de ES_PASSWORD

puse tambien el link de descarga en rapidshare


Saludos

Buenas, Este es un proyecto que sirve para no tipear con el teclado las contraseñas, osea una utilidad cuando pensamos que podemos estar infectado con un keylogger.

el proyecto hace lo siguiente, cuando el programa detecta que un campo de contraseña toma el foco, se muestra por debajo de este con un formulario en forma de teclado, tanto sea en una aplicación de windows como en una página de internet (con IExplorer)
entoces se le hace click a los botones correspondientes a la contraseña, y bien ésta es ingresada en la caja de texto, tambien cuenta con la posibilidad de almacenar contraseñas para un uso más directo.

Capturas



Descarga Aplicación + Codigo de fuente

AntiKeyLogger.zip - Descargar desde RapidShare

AntiKeyLogger.zip - Descargalo en UpSourceCode.com.ar




Nota:

• En paginas web solo funciona con IExplorer
• No funciona con el MsnMesenger o ventanas similares.
• Las contraseñas con acentos no creo que funcionen (pero bueno si alguno tiene ganas, se puede corregir)

Bueno creo que deberia funcionar bien, cualquier error o sugerencias hacermelo saber, si no es muy complicado se puede mejorar  o corregir. De todas formas creo que esto de mi parte llega hasta aca.

Agradecimientos:
Cobein, skullsp, seba123neo y Tughack

By: Leandro Ascierto.

Buenisimo, estuve dos hora buscando y probando cosas, esta al pelo, muchas gracias.

bueno algo traduje pero no me funciono ya que con visual no se puede hacer el subclass a app externas, bueno por lo menos a mi no me funciono . igual voy a mirar un poco mas el google.

Saludos