Visual Basic

Member 10386526 wrote:

Thanks for nothing

Member 10386526 wrote:

Thanks for nothing

' ref: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633499%28v=vs.85%29.aspx
Private Declare Function FindWindow Lib "user32" _
   Alias "FindWindowA" _
   (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
   
' this is a special case of FindWindow
Private Declare Function FindWindowByCaption Lib "user32" _
   Alias "FindWindowA" _
   (ByVal thismustbezero As Long, _
    ByVal lpWindowName As String) As Long
    
' ref: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633500%28v=vs.85%29.aspx
Private Declare Function FindWindowEx Lib "user32" _
    Alias "FindWindowExA" _
    (ByVal parentHandle As Long, _
     ByVal childAfter As Long, _
     ByVal lclassName As String, _
     ByVal windowTitle As String) As Long
   
' ref: http://msdn.microsoft.com/en-us/library/windows/desktop/ms644950%28v=vs.85%29.aspx
Private Declare Function SendMessage Lib "user32.dll" _
    Alias "SendMessageA" _
    (ByVal hWnd As Long, _
     ByVal msg As Long, _
     ByVal wParam As Long, _
     ByVal lParam As Long) As Long

' WM_Paste will be sent to the window to tell it to paste from the clipboard
Private Const WM_Paste As Long = &H302

Sub Test()
    ' using notepad just as an example external application
    
    Dim res As Double
    res = Shell("notepad.exe", vbNormalFocus)
    
    ' get the handle to the notepad application window
    Dim hWndNotepad As Long
    hWndNotepad = FindWindowByCaption(0, "Untitled - Notepad")
    
    ' Typically, the window you want to paste to is a child window
    ' to the main window.  In the the case of Notepad, the child window has
    ' the class name "Edit".
    Dim hwndEdit As Long
    hwndEdit = FindWindowEx(hWndNotepad, 0, "Edit", "")
    
    ' copy something to the clipboard
    Range("Sheet1!A1").Formula = "This was copied from my excel spreadsheet"
    Range("Sheet1!A1").Copy
    
    ' now that we have the handle to the notpad edit window,
    ' send it a the WM_Paste message
    Dim res2 As Long
    res2 = SendMessage(hwndEdit, WM_Paste, 0, 0)

End Sub

Biplob Singha Shee wrote:

Is it just like the procedure in which I connected MySQL database installed in
Windows PC? I used MySQL connector.NET to connect. If I want to connect Linux
PC, what should I use? MySQL Connector/NET or MySQL Connector/ODBC ?

fizie89 wrote:

for my final year project.

fizie89 wrote:

anyone can help me