Mensajes

Y a que se debe toda tu explicacion de lo q usas y q no? xD jeje gracias por la info!

Ah claro, ya entendi xD

Entonces tendria q andar, pero porq no te buscas un troyano q es mejor? Spy-Net 2.6 por ejemplo

Como q no te deja? no anda en los sistemas operativos nuevos o q?
No sera q el Antivirus de la otra pc lo ha detectado?

Y como hace el JDownloader por ejemplo para sacar esos captcha?

Che Fran, me parece a mi o haces un tipo de trampa? xD es decir q es eso de dividir entre 2 xD?

@Karcrack fijate con esto a ver si anda tu funcion..

Código [Seleccionar] Expandir


Private Sub Form_Load()

    Debug.Print kCompare("elfo", "elefante")
    Debug.Print kCompare("ave", "zorro")
    Debug.Print kCompare("hola", "")
    Debug.Print kCompare("zero", "zerocool")
    Debug.Print kCompare("feo", "    ")
    Debug.Print kCompare("frog", "frog")
    Debug.Print kCompare("faso", "fasa")
    Debug.Print kCompare("JOJO", "jojo")
   
   
End Sub


Ma q asco q das Karcrack xD !!

Cuando aprendere a programar como ustedes no se rien q todavia q lo hago jaja:

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()

    Debug.Print CheckWord("elfo", "elefante")
    Debug.Print CheckWord("ave", "zorro")
    Debug.Print CheckWord("hola", "")
    Debug.Print CheckWord("zero", "zerocool")
    Debug.Print CheckWord("feo", "    ")
    Debug.Print CheckWord("frog", "frog")
    Debug.Print CheckWord("faso", "fasa")
    Debug.Print CheckWord("JOJO", "jojo")
   
   
End Sub

Function CheckWord(sFirst As String, sSecond As String) As Long
    Dim i       As Integer
    Dim max     As Integer

    sFirst = LCase$(Trim$(sFirst))
    sSecond = LCase$(Trim$(sSecond))

' Verificar error
    If sFirst = "" Or sSecond = "" Then
        CheckWord = 0: Exit Function
    End If

' Establecer valor maximo del bucle
    If Len(sFirst) < Len(sSecond) Then
        max = Len(sFirst)
    Else
        max = Len(sSecond)
    End If

'Bucle
For i = 1 To max

    If (Left(sFirst, i) < Left(sSecond, i)) Then
        CheckWord = 1
        Exit Function

    ElseIf (Left(sFirst, i) > Left(sSecond, i)) Then
        CheckWord = 2
        Exit Function

' Si por ahora es igual..
    ElseIf (Left(sFirst, i) = Left(sSecond, i)) Then

        If i = max Then ' Si ya termina el bucle comprobamos..

            If Len(sFirst) > Len(sSecond) Then
                CheckWord = 2
                Exit Function
            End If

            If Len(sFirst) < Len(sSecond) Then
                CheckWord = 1
                Exit Function
            End If

' Por descarte..

            CheckWord = 3
            Exit Function

        End If
    End If

Next i

End Function



Salida:

Código [Seleccionar] Expandir


2
1
0
1
1
3
2
3


Edit: Ahora veo q me falto lo de comparar con las mayusculas fuck, conrazon se mataban ustedes jaja, no creo q me den las bolas para hacer

root@ubuntu:/home/yakuza# lspci -k
00:00.0 Host bridge: Silicon Integrated Systems [SiS] 730 Host (rev 02)
   Kernel driver in use: agpgart-sis
   Kernel modules: sis-agp
00:00.1 IDE interface: Silicon Integrated Systems [SiS] 5513 [IDE] (rev d0)
   Subsystem: Silicon Integrated Systems [SiS] SiS5513 EIDE Controller (A,B step)
   Kernel driver in use: pata_sis
00:01.0 ISA bridge: Silicon Integrated Systems [SiS] SiS85C503/5513 (LPC Bridge)
   Kernel driver in use: sis630_smbus
   Kernel modules: i2c-sis630
00:01.1 Ethernet controller: Silicon Integrated Systems [SiS] SiS900 PCI Fast Ethernet (rev 82)
   Subsystem: Silicon Integrated Systems [SiS] SiS900 10/100 Ethernet Adapter onboard [Asus P4SC-EA]
   Kernel driver in use: sis900
   Kernel modules: sis900
00:01.2 USB Controller: Silicon Integrated Systems [SiS] USB 1.1 Controller (rev 07)
   Subsystem: Silicon Integrated Systems [SiS] USB 1.1 Controller
   Kernel driver in use: ohci_hcd
00:01.3 USB Controller: Silicon Integrated Systems [SiS] USB 1.1 Controller (rev 07)
   Subsystem: Silicon Integrated Systems [SiS] Onboard USB Controller
   Kernel driver in use: ohci_hcd
00:01.4 Multimedia audio controller: Silicon Integrated Systems [SiS] SiS PCI Audio Accelerator (rev 02)
   Subsystem: Silicon Integrated Systems [SiS] SiS PCI Audio Accelerator
   Kernel driver in use: Trident4DWaveAudio
   Kernel modules: snd-trident
00:02.0 PCI bridge: Silicon Integrated Systems [SiS] Virtual PCI-to-PCI bridge (AGP)
   Kernel modules: shpchp
01:00.0 VGA compatible controller: Silicon Integrated Systems [SiS] 630/730 PCI/AGP VGA Display Adapter (rev 31)
   Subsystem: Silicon Integrated Systems [SiS] 630/730 PCI/AGP VGA Display Adapter
   Kernel driver in use: sisfb
   Kernel modules: sisfb

Ni idea tengo xD

Ups, recien vi bien q era en vb.net, mala mia