我需要向第三方的程式的文本框中賦值。代碼如下，但是一直獲取不到視窗的句柄？希望大家幫我看下
Private Sub Command2_Click()
Shell App.Path & "\VNC4\vncviewer.exe", vbNormalNoFocus
Dim hwn As Long
Dim twn As Long
hwn = FindWindow(vbNullString, "VNC Viewer : Connection Details")
twn = GetDlgItem(hwn, 1002) '(用SPY + 找的)
SendMessage twn, WM_SETTEXT, 0, "10.71.1.1" '//輸入IP地址
If hwn = 0 Then
Label1.Caption = "失敗"
Else
Label1.Caption = "成功"
Label2.Caption = hwn
End If
End Sub
hwn 一直是0
uj5u.com熱心網友回復：
你的代碼執行太快了，程式的界面還沒初始化完畢你就要去獲取句柄uj5u.com熱心網友回復：
別急，讓子彈飛一會兒。uj5u.com熱心網友回復：
SendMessage也有問題，長度沒寫，最后一個引數沒加ByVal轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/101092.html
標籤：API