Hola, si el foro tiene un RSS/XML como por ejemplo este, entonces es facil sacar los datos...con la libreria de Microsoft XML lo podes hacer...
saludos.
saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Command1_Click()
Dim ArrayX(1 To 6, 1 To 8) As String
MsgBox "El array es de (" & LBound(ArrayX, 1) & " a " & UBound(ArrayX, 1) & "," & LBound(ArrayX, 2) & " a " & UBound(ArrayX, 2) & ")"
End Sub
Cita de: fabricioAngel en 10 Febrero 2009, 13:54 PM
Hola a todos el tema me parecio muy interesante... podrian explicar un poco mas sobre las funciones FindWindows para obtener el Hwnd de la ventana y FindWindowsEx
gracias saludos
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Sub Command1_Click()
Dim DesktopDC As Long
DesktopDC = GetWindowDC(GetDesktopWindow())
BitBlt Me.hDC, 0, 0, 100, 100, DesktopDC, 10, 10, vbSrcCopy
End Sub
Private Declare Function ElNombreQueQuieras Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long