
28-09-2008, 18:47
|
|
|
|
חבר מתאריך: 24.09.08
הודעות: 4
|
|
לפי כל מה שאמרתם כתבתי את הקוד הבא שמנסה לשלוח לחלון NOTEPAD פתוח את האות "X"
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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
Private Const WM_CHAR = &H102
Private Sub Form_Load()
Dim bWnd, msg As Long
bWnd = FindWindow("Shell_traywnd", vbNullString)
bWnd = FindWindow(vbNullString, "a.txt")
&PostMessage bWnd, WM_CHAR, Asc("x"), 0
End Sub
אין הודעת שגיאה אבל לא נכתב דבר בפנקס רשימות. הקוד מזהה את מיקום החלון ובכל זאת לא כותב אליו. אנ חושב שזה קשור לWM_CHAR או ל Asc("x")
אם מישהו יודע אני אשמח אם יסביר לי
תודה
|