te si vas a trabajar con apis te recomiende te instales estas dos aplicaciones


ApiViewer 2004
El Api Viewer 2004 , es un visor de funciones api (constantes y estructuras, etc..) no te puede faltar!!!.

Descargar: ApiViewer2004 3.10

---

Api Guide
Esta es una aplicación con una colección con cientos de ejemplos utilizando el api de windows para visual basic 6.0 , y en menor cantidad para visual basic .net.
una herramienta casi indispensable para programar en VB6.0

Descargar: API-Guide 3.7.854

---

muy bien  , habia echo un monton de pruebas y me explotaba el vb, seguramente devia estar pasando mal algun valor con byval, y para los long no usaba varptr.

Gracias. y te felicito nuevamente.

Muy bueno Kar, che hay una duda con esto del callApi que me carcome no pude lograr nunca pasar estas funciones, vos que la tenes mas clara capas que las sacas.

Option Explicit
Private Declare Function RtlGetCompressionWorkSpaceSize Lib "NTDLL" (ByVal flags As Integer, WorkSpaceSize As Long, UNKNOWN_PARAMETER As Long) As Long
Private Declare Function NtAllocateVirtualMemory Lib "ntdll.dll" (ByVal ProcHandle As Long, BaseAddress As Long, ByVal NumBits As Long, regionsize As Long, ByVal flags As Long, ByVal ProtectMode As Long) As Long
Private Declare Function RtlCompressBuffer Lib "NTDLL" (ByVal flags As Integer, ByVal BuffUnCompressed As Long, ByVal UnCompSize As Long, ByVal BuffCompressed As Long, ByVal CompBuffSize As Long, ByVal UNKNOWN_PARAMETER As Long, OutputSize As Long, ByVal WorkSpace As Long) As Long
Private Declare Function RtlDecompressBuffer Lib "NTDLL" (ByVal flags As Integer, ByVal BuffUnCompressed As Long, ByVal UnCompSize As Long, ByVal BuffCompressed As Long, ByVal CompBuffSize As Long, OutputSize As Long) As Long
Private Declare Function NtFreeVirtualMemory Lib "ntdll.dll" (ByVal ProcHandle As Long, BaseAddress As Long, regionsize As Long, ByVal flags As Long) As Long
 
Public Function Compress(Data() As Byte, Out() As Byte) As Long
    Dim WorkSpaceSize As Long
    Dim WorkSpace As Long
    ReDim Out(UBound(Data) * 1.13 + 4)
 
    RtlGetCompressionWorkSpaceSize 2, WorkSpaceSize, 0
    NtAllocateVirtualMemory -1, WorkSpace, 0, WorkSpaceSize, 4096, 64
    RtlCompressBuffer 2, VarPtr(Data(0)), UBound(Data) + 1, VarPtr(Out(0)), (UBound(Data) * 1.13 + 4), 0, Compress, WorkSpace
    NtFreeVirtualMemory -1, WorkSpace, 0, 16384
    ReDim Preserve Out(Compress)
 
End Function
 
Public Function DeCompress(Data() As Byte, dest() As Byte) As Long
    If UBound(Data) Then
        Dim lBufferSize As Long
        ReDim dest(UBound(Data) * 12.5)
        RtlDecompressBuffer 2, VarPtr(dest(0)), (UBound(Data) * 12.5), VarPtr(Data(0)), UBound(Data), lBufferSize
        If lBufferSize Then
            ReDim Preserve dest(lBufferSize - 1)
            DeCompress = lBufferSize - 1
        End If
    End If
End Function
 

Saludos.

mm yo me marie pero la cosa es asi, el codigo de fuente siempre te va a mostrar loading..  lo que pone el numero en tiempo de ejecucion es el javascript, lo que vos tens que verificar es el html, document.body.innerHTML  eso te da el html actual,
otra forma que creo que es la mejor es llamar a la funcion javascript y esta deberia devlover ese numero pero bueno desde aca y sin saber la pagina es complicado poder ayudar.

Saludos.

si en local te conecta es problema de el router de la pc donde queres conectar, busca en internet como habilitar los puertos en un router.

Saludos.

Este tema esta algo viejo segun las reglas no se puede revivir. pero bueno para la proxima crea un nuevo post y pode hacer referencia al link

bueno la respuesta es utilizando hook

en un modulo .bas

Option Explicit
Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal hdc As Long) As Long
 
Private Const WH_MOUSE_LL As Long = 14
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Dim hHook As Long
Dim lDC As Long
 
Public Sub StartHook()
    hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, App.hInstance, 0)
    lDC = GetWindowDC(0&)
End Sub
 
 
Public Sub StopHook()
    Call UnhookWindowsHookEx(hHook)
    ReleaseDC 0&, lDC
End Sub
 
 
Private Function MouseProc(ByVal nCode As Long, ByVal wParam As Long, lParam As POINTAPI) As Long
    On Error Resume Next
 
    Dim lColor As Long
 
    lColor = GetPixel(lDC, lParam.x, lParam.y)
 
    If lColor = -1 Then
        ReleaseDC 0&, lDC
        lDC = GetWindowDC(0&)
        lColor = GetPixel(lDC, lParam.x, lParam.y)
    End If
 
    Form1.BackColor = lColor
 
End Function
 

y para el form1

Option Explicit
 
Private Sub Form_Load()
    StartHook
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    StopHook
End Sub
 

Saludos.

che me gusto esa libreria mirando la ayuda vi que se pueden enumerar todas las constantes eventos funcion etc de una librerira

Interesante che, que aplicación sera TLI? saves cual es la refencia¿?

Saludos.

sea como sea skyweb07 es mucho mejor programador que otros que lo critican.
Como decía karcrak si van a acusarlo de copy and paste por usar una api estamos todos fritos.

Lo cómico es que cuando alguien hace un aporte son dos o tres los que se toman la molestia para agradecer o aportar una critica constructiva. pero a la hora de criticar  hacemos un post bien completito donde todos tiran a matar.

Bue cha

Es un xml por lo tanto lo mejor seria utilizar el metodo para leer un xml, pero como en estos dias estuve con expreciones regulares pongo ese metodo.

PD: Raul338  si huviera ledio tu firma dos dias atras me ubieras servido de mucho pero bueno termine usando la que viste.