수다닷컴

아래 빨간부분의 postmessage에서 에러가 발생하는데요..
뭘 잘못했는지 모르겠습니다 ㅠㅜ
조언좀 부탁드리겠습니다.

Imports System.Runtime.InteropServices

Public Class Form1 DllImport(user32.dll) _ Public Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As Integer End Function Public Declare Function FindWindowEx Lib user32 Alias FindWindowExA (ByVal hWndparent As Integer, ByVal hWndChildAfter As Integer, _ ByVal lpClassName As String, ByVal lpWindowName As String) As Integer Public Declare Function SendMessage Lib user32 Alias SendMessageA _ (ByVal Hwnd As IntPtr, ByVal wMsg As Integer, _ ByVal wParam As Integer, ByVal IParam As String) As Integer Public Declare Function PostMessage Lib user32 Alias PostMessageA _ (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_COMMAND = &H111 Public Const WM = &HC

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SKY As Integer = FindWindow(ThunderRT6FormDC, Form1) Dim SKYEx As Integer = FindWindowEx(SKY, vbNullString, ThunderRT6TextBox, 1) Dim SKYEt As Long = FindWindowEx(SKY, 0, ThunderRT6CommandButton, 버튼) Call SendMessage(SKYEx, WM, 0, 007) Call PostMessage(SKY, WM_COMMAND, 0, SKYEt)

End SubEnd Class

신청하기