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 en el, cre que funcionara

Puedes seleccionar el texto y almacenarlo en una variable.

Ejemplo:

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:

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:

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.