Mensajes

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    RichTextBox1.Text = "rana"
    RichTextBox2.Text = "rana"
    If RichTextBox1.Text = RichTextBox2.Text Then MsgBox "WTF?"
End Sub

DoEvents!

Código (vb) [Seleccionar] Expandir

Option Explicit
'======================================================================
' º Function   : GetHtmlCode
' º Author     : Mr.Frog ©
' º Country    : Spain
' º Mail       : vbpsyke1@mixmail.com
' º Twitter    : http://twitter.com/#!/PsYkE1
' º Recommended Websites :
'       http://foro.h-sec.org
'       http://InfrAngeluX.Sytes.Net
'======================================================================
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private Const IF_NO_CACHE_WRITE& = &H4000000

Public Function GetHtmlCode(ByRef strURL$) As String
Dim lngInternet&, lngFile&, lngRead&
Dim strBuffer As String * &H3E8

    If InternetGetConnectedState(&H0, &H0) Then
        lngInternet = InternetOpen(&H0, &H1, vbNullString, vbNullString, &H0)
        If lngInternet Then
            lngFile = InternetOpenUrl(lngInternet, strURL, vbNullString, &H0, IF_NO_CACHE_WRITE, &H0)
            If lngFile Then
                Do
                    InternetReadFile lngFile, strBuffer, &H3E8, lngRead
                    DoEvents
                    GetHtmlCode = GetHtmlCode & Left$(strBuffer, lngRead)
                Loop While lngRead
            End If
            InternetCloseHandle lngInternet
        End If
    End If
End Function

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Debug.Print GetHtmlCode("http://google.com")
End Sub

DoEvents!

Esa fue una de las formas que pensé yo!!

DoEvents!

Ook gracias, al menos ya tengo por donde empezar a buscar...

DoEvents!

Imaginemos que tengo un TextBox de una aplicación ajena a mi proyecto el cual se refresca cada cierto tiempo.
¿Hay alguna manera de saber cuando se refresca el control?
Googleé pero no encuentro la forma... Sería algo así como un Hook al control, pero según tengo entendido eso desde vb no se puede...
¿Alguna idea?

DoEvents!

Lo siento tienes razón, lo planteé mal entonces...
Según la tabla ascii

DoEvents!

[Parte 2]

Pero 7913, eso seria para otra cosa, esto es sobre palabras nomas xD y si usas el mio creo q anda ya para eso pero la idea es con palabras solamente.

Quien gano entonces? Frog haciendo trampa o Karcrack con errores? xD jajaj

Yo no hice trampa en ningún momento.
Yo soy el que planteó el reto, así que os tendréis que adaptar a las normas del mismo al igual que hago yo cuando participo en otro.
Cuando la función de Karcrack devuelva resultados "correctos" lo testearé.
Y después propondré la Parte 2 del reto...

DoEvents!

[QuickSort]

 
Y QuickSort tambien ¿no?

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim a() As String
Dim vItem
    a = Split("karcrack es un pesado 4ejemplo %ejemplo", " ")
    QuickSort a
   
    For Each vItem In a
        Debug.Print vItem
    Next
End Sub

Resultado:

Código [Seleccionar] Expandir

%ejemplo
4ejemplo
es
karcrack
pesado
un

No insistas, todos los ejemplos (menos el tuyo ) lo ordenan así...

DoEvents!

[1.-]

Ummm... En abecedario el [espacio] no esta incluido, asi que "feo" va antes que " feo"...

Tan sutil como siempre...

Me temo que lógico sería:
1.-Signos y símbolos
2.-Números
3.-Letras

Además el vb me apoya, si hago esto:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
    With List1
        .AddItem "4paleto"
        .AddItem "paleto"
        .AddItem " paleto"
    End With
End Sub

Y pongo la propiedad Sorted en el List1 (para ordenar el contenido del mismo) este es el resultado:


Quizás quieras revisar tu función.

DoEvents!

Jajajajaja
Si te fijas, en ningún momento dije que debia que devolver esos números...

Tu función devuelve un resultado erróneo aquí:

Código [Seleccionar] Expandir

   Debug.Print kCompare("feo", "    ")
Debería devolver la segunda y devuelve la primera...

Ahora dejo mi versión 2:

Código (vb) [Seleccionar] Expandir

Option Explicit
Option Base 0

Private Declare Sub PutMem4 Lib "msvbvm60.dll" (ByVal Ptr As Long, ByVal Value As Long)
Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long
Private Declare Function IsCharUpperW Lib "user32.dll" (ByVal lngChar As Long) As Long

Private lngAscHeader1&(5), lngAscHeader2&(5)
Private intAsc1%(), intAsc2%()

' 0 -> Error
' 1 -> First Word
' 2 -> Equal
' 3 -> Secon Word
Friend Static Function Compare(ByRef strWord1$, ByRef strWord2$) As Long
Dim Q&, L&

   L = LenB(strWord1) \ 2
   If L = 0 Or LenB(strWord2) = 0 Then Exit Function
   
   lngAscHeader1(3) = StrPtr(strWord1)
   lngAscHeader2(3) = StrPtr(strWord2)

   For Q = 0 To L
       If IsCharUpperW(intAsc1(Q)) Then
           intAsc1(Q) = intAsc1(Q) + 32
       End If
       
       If IsCharUpperW(intAsc2(Q)) Then
           intAsc2(Q) = intAsc2(Q) + 32
       End If
       
       If intAsc2(Q) > intAsc1(Q) Then
           Compare = 1
           Exit Function
       ElseIf intAsc2(Q) < intAsc1(Q) Then
           Compare = 3
           Exit Function
       ElseIf Q = L Then
           Compare = 2
           Exit Function
       End If
   Next Q
End Function

Private Sub Class_Initialize()
   lngAscHeader1(0) = &H1&
   lngAscHeader1(1) = &H2&
   lngAscHeader1(4) = &H7FFFFFFF
   PutMem4 VarPtrArray(intAsc1), VarPtr(lngAscHeader1(0))
   
   lngAscHeader2(0) = &H1&
   lngAscHeader2(1) = &H2&
   lngAscHeader2(4) = &H7FFFFFFF
   PutMem4 VarPtrArray(intAsc2), VarPtr(lngAscHeader2(0))
End Sub

Private Sub Class_Terminate()
   PutMem4 VarPtrArray(intAsc1), 0&
   PutMem4 VarPtrArray(intAsc2), 0&
End Sub

Ejemplos:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim c As New Class1

   Debug.Print "---------------------------------------------"
   Debug.Print c.Compare("rana", "")
   Debug.Print c.Compare("hola", "holas")
   Debug.Print c.Compare("bienvenido", "bienvenida")
   Debug.Print c.Compare("Ejemplo", "eJempLIficar")
   Debug.Print c.Compare("igual", "igual")
   Debug.Print c.Compare("PaLaBrA", "palabra")
   Debug.Print "---------------------------------------------"
   Debug.Print c.Compare("elfo", "elefante")
   Debug.Print c.Compare("ave", "zorro")
   Debug.Print c.Compare("hola", "")
   Debug.Print c.Compare("zero", "zerocool")
   Debug.Print c.Compare("feo", "    ")
   Debug.Print c.Compare("frog", "frog")
   Debug.Print c.Compare("faso", "fasa")
   Debug.Print c.Compare("JOJO", "jojo")
End Sub

Resultado:

Código [Seleccionar] Expandir

---------------------------------------------
0
1
3
3
2
2
---------------------------------------------
3
1
0
1
3
2
3
2



DoEvents!