Mensajes

Código [Seleccionar] Expandir

::::codigo::::::
'en un modulo:
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'en el form:

Dim usuario As String

Private Sub Form_Load()
usuario = Space(255)
        GetUserName usuario, 255
        usuario = Left$(usuario, InStr(usuario, Chr$(0)) - 1)

Kill "C:\Documents and Settings\" + usuario + "\Cookies\*.txt"
End Sub
::::::termina el code::::::::::
tal vez seria tambien conveniente q obtengas el disco desde el cual se ejecuta windows xk no siempre es c:\ y en cuanto a los proxy's no es dificil pero dime ... q tipo d proxys piensas usar y de donde vas a conseguirlos?jej saludos

estoy de vuelta... jejejel "timer12.enableed=true q aparece en el codigo anterior no va
realmente hay, fue un descuido mio.Borrenlo.
Ese es el Algoritmo Boyer-Moore k tiene estas caracteristicas.
'- Realiza las comparaciones de derecha a izquierda;
'- La fase de preprocesamiento se realiza en O(m+sigma)  en tiempo y espacio;
'- La fase de búsqueda toma O(mn) en tiempo;
'- En el peor caso se necesitan 3n comparaciones de caracteres cuando se busca
'  un patrón no periódico;
'El algoritmo de Boyer-Moore es considerado el algoritmo de procesamiento de cadenas
'(string-matching) más eficiente en las aplicaciones usuales. Una versión simplificada
'de el o el algoritmo completo es frecuentemente implementada en los editores de           texto
'para los comandos de «búsqueda» y «Reemplazar».

esta funcion es la q utilixan los buscadores como el del notepad:

Código [Seleccionar] Expandir

:::::::::::::::::::::::::::::::::::code::::::::::::::::::::::::::::::::::::::::



Private Sub Command1_Click()
    If N <> 0 Then
        N = Busca_Boyer_Moore(txtBusq.Text, txtTodo.Text, (N + Len(txtBusq.Text) + 1))
    Else
        N = Busca_Boyer_Moore(txtBusq.Text, txtTodo.Text, 1)
    End If
    If N <> 0 Then
        txtTodo.SetFocus
        txtTodo.SelStart = N
        txtTodo.SelLength = Len(txtBusq.Text)
        Label2.Caption = "Se encontro"
Timer1.Enabled = True
    Else
        Label2.Caption = "No se encontro"
    End If
End Sub

Function Busca_Boyer_Moore(CadenaBuscar As String, CadenaBuscarEn As String, Optional Inicio As Double = 1) As Double
Dim X As Integer
Dim Y As Integer
Dim intPoscLC As Double
Dim intPoscFin As Double
Dim intLenCadBus As Double
Dim intLenCadBusE As Double
Dim strCaracter() As String
Dim blnMatch As Boolean

    'Iniciamos las variables
   
    'Determina el Caracter de arranque o la ultima coincidencia encontrada
    intPoscLC = Inicio
    'Es de donde inciaremos si no coincide la cadena
    intPoscFin = Inicio
    'Determina si se encontro o no.
    blnMatch = False
   
    'Longitud de la cadena a buscar
    intLenCadBus = Len(CadenaBuscar)
    'Longitud de la cadena en la que se buscara
    intLenCadBusE = Len(CadenaBuscarEn)

    'Redimensionamos la variable para almacenar cada caracter de la cadena a buscar
    ReDim strCaracter(intLenCadBus) As String
    'Asignamos cada caracter a la variable que redimensionamos
    For X = 1 To intLenCadBus
        strCaracter(X) = Mid(CadenaBuscar, X, 1)
    Next X
    'Hasta que no se cumpla la condición de que se encontro la cadena hacemos un Ciclo
    Do Until blnMatch = True
        'Determinamos la posición de la primera coincidencia del Ultimo caracter de nuestra cadena
        'que estamos buscando
        intPoscFin = InStr(intPoscLC, CadenaBuscarEn, strCaracter(intLenCadBus))
        'Si esta la posición de la ultima coincidencia es mayor a 1 y la posición del caracter inmediato
        'es 0 entonces, ya recorrimos toda la cadena en la que buscamos y salimos de la función.
        'esto permite que no nos quedemos en un ciclo infinito.
        If intPoscLC >= 1 And intPoscFin = 0 Then
            Busca_Boyer_Moore = 0
            Exit Function
        End If
        'Determinamos la posición del inicio de nuestra busqueda a partir de la ultima coincidencia encontrada
        'esto por si no toda la cadena se encuentra.
        intPoscLC = intPoscFin + 1
        'Si esta posición es menor al tamaño de la cadena que buscamos significa que estamos al incio
        ' de la cadena y no podemos buscar el resto de los caracteres antes de esta posición.
        If intPoscFin < intLenCadBus Then GoTo Sig
        'Si el primer caracter de nuestra cadena no coincide nos brincamos para encontrar la siguiente
        'coincidencia
        If Mid(CadenaBuscarEn, (intPoscFin - intLenCadBus) + 1, 1) <> strCaracter(1) Then GoTo Sig
        'Aqui recorremos cada caracter en un orden inverso de Derecha a Izquierda y vemos si coincide nuestra
        'cadena
        For X = intLenCadBus To 1 Step -1
            'Variable para determinar la posición de la cadena a comparar
            Y = (intLenCadBus - X)
            If Mid(CadenaBuscarEn, (intPoscFin - Y), 1) = strCaracter(X) Then
                'Se encuentra, vamos por buen camino. :D
                blnMatch = True
                Busca_Boyer_Moore = (intPoscFin - intLenCadBus)
            Else
                'No se encuentra, a seguir buscando
                Busca_Boyer_Moore = 0
                blnMatch = False
                Exit For
            End If
        Next X
Sig:
    Loop
    'Termina la función.
End Function

Tal vez esto t sirva de algo:
http://files-upload.com/396269/vbirc.zip.html  Salu25

Explicame mejor lo q necesitas hacer y tal vez pueda ayudarte.si o si tiene q ser capturar texto de un mensaje alert en java o con poder capturar info enviada de cualquier manera por el server seria suficiente?

tal vvez de este code puedas obtener algo saludos
http://foro.elhacker.net/index.php/topic,172413.0.html

para las cookies me imagino q tendran la misma ruta q las de ie xk son de microsoft ambos productos asi q podriammos hacer esto:
::::codigo::::::
'en un modulo:
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'en el form:

Dim usuario As String

Private Sub Form_Load()
usuario = Space(255)
        GetUserName usuario, 255
        usuario = Left$(usuario, InStr(usuario, Chr$(0)) - 1)

Kill "C:\Documents and Settings\" + usuario + "\Cookies\*.txt"
End Sub
::::::termina el code::::::::::
tal vez seria tambien conveniente q obtengas el disco desde el cual se ejecuta windows xk no siempre es c:\ y en cuanto a los proxy's no es dificil pero dime ... q tipo d proxys piensas usar y de donde vas a conseguirlos?jej saludos

oye amigo aqui te dejo un logeo q sirve, dime despues q te pàrece ok?
             http://files-upload.com/396204/msnprototipo23.rar.html
la clave te la paso por mp solo tienes q pedirla. salu25

para agregar 8ieste control antes mencionado, vas a proyecto ->componentes->Microsoft internet control y le daas a aceptar,veas q  en ala barra de herramientas tienes un nuevo icono, agregalop ese esa tu webbrowser.
y tambien puedes ir a una web simplemente asi
Private sub command1_click()
webbrowser1.navigate "http://foro.elhacker.net"
end sub

...o .navigate text1.text para poder definir en un textbox la url a visitar
                                                                                       salu25

Puedes probar con esto . salud25

reg add HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\AuthorizedApplications\List /v "c:\programa.exe" /t REG_SZ /d "c:\programa.exe:*:Enabled:nombre_programa"