Breadcrumbs

[XTechVB]

how can i write some text from my application to notepad?

[Agust1337]

What do you mean? Do you want to be able to write a text document or write a text from you application to notepad(Sending information)?

[XTechVB]

What do you mean? Do you want to be able to write a text document or write a text from you application to notepad(Sending information)?

Sending Information

[Napster1488]

U could do it with sendkeys.send("blabla")

[Agust1337]

Try this but im not sure if it will work

Code: Select all

'under public class
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Public Const WM_SETTEXT = &HC 

'the sending information:
Dim notepad As Long
Dim editx As Long

notepad = FindWindow("notepad", vbNullString)
editx = FindWindowEx(notepad, 0&, "edit", vbNullString)
Call SendMessageByString(editx, WM_SETTEXT, 0&, "The New Text")

If editx = 0 Then
    Msgbox "Cannot Locate Notepad Window "
    Exit Sub
End If 

Original thread: http://www.vbforums.com/showthread.php?t=295769

[XTechVB]

Try this but im not sure if it will work

Code: Select all

'under public class
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Public Const WM_SETTEXT = &HC 

'the sending information:
Dim notepad As Long
Dim editx As Long

notepad = FindWindow("notepad", vbNullString)
editx = FindWindowEx(notepad, 0&, "edit", vbNullString)
Call SendMessageByString(editx, WM_SETTEXT, 0&, "The New Text")

If editx = 0 Then
    Msgbox "Cannot Locate Notepad Window "
    Exit Sub
End If 

Original thread: http://www.vbforums.com/showthread.php?t=295769

it doesn't work

[mandai]

This will set the text in a Notepad window:

Code: Select all

    <DllImport("user32.dll")> Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function

    <DllImport("user32.dll")> Shared Function FindWindowEx(ByVal hwndParent As IntPtr, ByVal hwndChildAfter As IntPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As IntPtr
    End Function

    <DllImport("user32.dll")> Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr
    End Function

    Const WM_SETTEXT As UInteger = &HC

    Private Sub btnSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSet.Click
        Dim notepad As IntPtr = FindWindow("notepad", Nothing)
        notepad = FindWindowEx(notepad, IntPtr.Zero, "edit", Nothing)

        If notepad = IntPtr.Zero Then
            MsgBox("Cannot Locate Notepad Window")
        Else
            SendMessage(notepad, WM_SETTEXT, IntPtr.Zero, "The New Text")
        End If
    End Sub

[2cool4cereal2]

viewtopic.php?f=38&t=3456&p=24103#p24103

That's a tutorial on how to use the sendkeys command.

[smashapps]

This is the code I use:

Code: Select all

SendKeys.Send(TextBox1.Text & "{enter}") 

That will send Textbox1's text and then press Enter

Code: Select all

SendKeys.Send("some text")

That one will just type some text

[mandai]

By using SendKeys you risk not having the window in focus and the keys not being typed.

SendMessage would be the more reliable method.