Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

SendMessage (vm_lbuttondown) sorunu

Konu, 'Visual Basic .Net' kısmında xolez tarafından paylaşıldı.

  1. xolez

    xolez Yeni Üye

    Kayıt:
    10 Şubat 2016
    Mesajlar:
    2
    Beğenilen Mesajlar:
    0
    SendMessage (vm_lbuttondown) ile fare imlecini kullanmadan başka bir programın içine tıklatmaya çalışıyorum fakat garip bir durum var; Spy++ monitörü üzerinden izlediğimde messagelerin programa gittiğini görüyorum fakat hiçbir değişiklik olmuyor (gitti gözüküyor ama tıklamıyor)... Nerede hata yapmış olabilirim ?

    Public Class Form1
    Const WM_LBUTTONDOWN = &H201
    Const WM_LBUTTONUP = &H202
    Const MK_LBUTTON = &H1
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
    Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Int32
    Private Sub cmdBSPerform_Click(sender As Object, e As EventArgs) Handles cmdBSPerform.Click
    Dim hwnd As Long = FindWindow(vbNullString, handle.Text)
    Dim lParam As Int32
    lParam = MakeLParam(txtXBSPerform.Text, txtYBSPerform.Text)
    Call SendMessage(hwnd, WM_LBUTTONDOWN, WM_LBUTTONUP, MakeLParam(txtXBSPerform.Text, txtYBSPerform.Text))
    Call SendMessage(hwnd, WM_LBUTTONUP, 0, MakeLParam(txtXBSPerform.Text, txtYBSPerform.Text))
    End Sub
    Public Function MakeLParam(ByVal LoWord As Int32, ByVal HiWord As Int32) As Int32
    Return (HiWord << 16) Or (LoWord And &HFFFF)
    End Function
    End Class
     
    Son düzenleme: 10 Ekim 2016