Menú

Mostrar Mensajes

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ú

Mensajes - seba123neo

#2631
Programación Visual Basic / Re: ForoWeb+Vbasic
12 Febrero 2009, 02:31 AM
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.
#2632
con la api CopyMemory podes saber las dimesniones de un array...despues buscas vos...
#2633
Hola, proba..

Código (vb) [Seleccionar]
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


saludos.
#2634
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  :huh:

gracias saludos

chequea este post que habia respondido..

Ayuda con el parametro de esta API?

saludos.

#2635
bajate el MSCOMCLT.OCX de internet , ponelo en la carepta del sistema y registralo...
#2636
¿porque no lo probas vos y listo?  :xD
#2637
Hola, proba:

Código (vb) [Seleccionar]
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


ahi le digo que capture una longitud de 100 pixeles en tanto en X como en Y y le digo que empieze desde el pixel 10 en X/Y

saludos.
#2638
Hola, ¿vos le queres cambiar el nobre a la api? proba asi:

Código (vb) [Seleccionar]
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


saludos.
#2639
es que estos programas llevan a la confusión, porque son todos iguales...
#2640
gracias por el aporte, pero sin source no va aca...