Mensajes

[en VB]

Buenooo se me fue la pinza quería decir:


sobre los hooks casi no hay info a nivel de teclado en VB

Te equivocas y bastante...

Yo mismo hice un articulo para un Ezine sobre eso mismo, bien explicado y tal:

Código [Seleccionar] Expandir

http://foro.code-makers.es/1_cm_ezine-t3059.0.html;msg15008#msg15008

Ale, a disfrutar

No se permite rell() as string, ya que la funcion Array() devuelve variant...

los arrays deben ser del mismo tipo, no todo es perfecto, jodido vb
devuelve variants incluso si el contenido del array son cadenas 

Tampoco hay problema al trabajar con Variants

Supongo que esta hecho por ejemplo para poder crear Arrays con umeros letras y objetos a la vez.. o yo que se!

Antes que nada, para vaciar un Array no necesitas recorrer todos sus valores, simplemente con:

Código (vb) [Seleccionar] Expandir

Redim matriz(0)
sobra...

Y bueno, la verdad es que te recomiendo trabajar envez de con matrices de 2 dimensiones trabajar con una matriz de un Type... me explico:

Código (vb) [Seleccionar] Expandir

Private Type t_USB
    Letra_Unidad    As String
    Nombre_Volume   As String
    numero_Volume   As String
End Type

Dim Matriz_USB()    As t_USB

De todas formas no acabo de entender donde esta el problema.... que es lo que pasa? que si hay mas de dos USB no los reconoce?

Saludos

[karcrack]

hola karcrack, si me premites la sugerencia, la condición del bucle sería algo así a mi parecer:

Código (vb) [Seleccionar] Expandir

For i = Len(pass) To 1 Step -1

Código [Seleccionar] Expandir

Dim rell()  As String

saludos

No se permite rell() as string, ya que la funcion Array() devuelve variant...

En cuanto al bucle es cierto, traduci mal el bucle de C

Saludos

[MOD:]

Si no me equivoco seria así:

Código (vb) [Seleccionar] Expandir

Public Function EncriptPassRunReg(ByVal pass As String) As String
    Dim i       As Long
    Dim buf     As String
    Dim rell()  As Variant
   
    rell = Array("KK", "cB", "0x", "z2", "A6")
   
    For i = 1 To Len(pass)
        Call Randomize(Timer)
        buf = buf & rell(CInt(Rnd * 4)) & Chr$(Asc(Mid$(pass, i, 1)) + 1)
    Next i
   
    EncriptPassRunReg = buf
End Function

MOD: Retoque un fallo, por cierto, en caso de que el valor Ascii de uno de los caracteres fuera 255 daria error...

Saludos

PD:Feliz primer post

Código (vb) [Seleccionar] Expandir

Private Const HWND_DESKTOP As Long = 0

Private Declare Function GetWindowDC Lib "user32.dll" (ByVal hwnd As Long) As Long

Sub Main()
    Debug.Print GetWindowDC(HWND_DESKTOP)
End Sub


Bueno, esto es por lo que preguntabas no?

Aunque el ejemplo de Leandro es todavia mejor, lastima que necesites el WMP

Saludos

Código [Seleccionar] Expandir

EnumWindows() + GetWindowThreadProcessId() + GetWindowText() + Loop = Solucion

[[KPC], cifra tus proyectos en VB]

Que tal si encriptas las cadenas?

[KPC], cifra tus proyectos en VB

Saludos

Código (vb) [Seleccionar] Expandir

If InStr(Texto, Chr(3)) > 0 Then
    Texto = Replace(Texto, Chr(3), "")
End If

No funciona.

Pues deberia.. puedes pegar el texto?

Saludos

En eso estaba pensando pero no se cúal es el valor ascii del ^C (no creo que sea Chr(3) o si?)

Código (vb) [Seleccionar] Expandir

Cierto? =(Asc("") = 3)

Mira a ver que devuelve