Mensajes

Hola, no se si se dice programacion grafica. A lo que me refiero es a la programacion de ventanas, botoenes, checkbox,...

Para programar esas cosas, que es mejor añadirlas desde codigo, o crearlas con el raton(como VB). Esque he encontrado dos manuales. En uno sale como si fuera VB y en el otro lo unico que dice es como hacer una ventana desde codigo.

No se si me esplico bien.

A ver si alguien me puede ayudar.

Que buena Devilboy.Devil,
He intentado un par de veces con otros programa, en linux con wifislax y nada.
Con tu metodo, ha sido cosa de 10 minutos. Muchas gracias. Con wifislax, lo tube 17 horas, y nada, joder que pedazo de metodo tan facil!!!!!

Seguramente uses un bucle, si pones

Código [Seleccionar] Expandir

DoEvents en el, cre que funcionara

Puedes seleccionar el texto y almacenarlo en una variable.

Ejemplo:

Código (vb) [Seleccionar] Expandir


Dim Cadena As String

Private Sub Command1_Click()
    Text1.SelStart = 9
    Text1.SelLength = Len("llamo")
    Cadena = Text1.SelText
    Me.Print Cadena
End Sub

Private Sub Form_Load()
    Text1.Text = "Hola, me llamo HJ"
End Sub

o:

Código (vb) [Seleccionar] Expandir


Private Sub Command2_Click()
     Me.Print ObtenerCadena(Text1, 9, Len("llamo"))
End Sub

Private Sub Form_Load()
     Text1.Text = "Hola, me llamo HJ"
End Sub

Private Function ObtenerCadena(Text As TextBox, Start As Integer, Longitud As Integer) As String
     Text.SelStart = Start
     Text.SelLength = Longitud
     ObtenerCadena = Text.SelText
End Function


Funciona!!! Gracias Dessa.
Un par de cosillas, el &H102 a que corresponde? como &H100 es KEYDOWN, el otro?
La otra cosa es que lo del block de notas era para hacer una prueba, yo lo que quiero es hacer lo mismo pero para un juego, y no se me ocurre nada.

Ahora si no se que pasa.

Tengo esto:

Código (vb) [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_KEYDOWN As Long = &H100

Dim h As Long

Private Sub Command1_Click()
    h = FindWindow(vbNullString, "a - Bloc de notas")
    Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
    SendMessage h, WM_KEYDOWN, vbKeyA, 0&
End Sub


Pero en el block de notas no sale la "a" 

Alguna idea?

Hola otra vez,
He encontrado un ejemplo, muy bueno, y he descubierto que si hay una ventana oculta, ahora ya obtube el handle de esa ventana pero cuando hago sendmessage, sige sin funcionar. Alguna idea?
Gracias.

La pagina es:
http://www.recursosvisualbasic.com.ar/htm/listado-api/111-listar-ventana-de-window.htm

Gracias por responder,
Esque mira te comento lo que quiero hacer:
Hay un juego que te mueves por el teclado(tipico), pero si yo uso el keybd_event no las manda, pero cuando me sale un cuadro de texto para escribir, si funciona.
Entonces se me ha ocurrido hacer on SendMessage, por eso necesito el hWnd, y es posible que el hWnd que necesite no sea el de la ventana activa, sino de una ventana oculta.

Hola,
Para saber el handle de una ventana se puede hacer mediante el titulo o la clase segun he encontrado en internet, pero hay alguna otra manera de saberlo? Por ejemplo por la ventana activa?
Gracias.

Hola,
Con visual basic 6.0, en la carpeta donde se encuentra (Microsoft Visual Studio 6.0), hay una carpeta llamada "Herramientas de Microsoft Visual Studio 6.0" y dentro de esta un programa llamado "Asistente de empaquetdo y distribucion". Abre ese programa y suige los pasos, o busca en google informacion sobre esto.
Saludos.