vbsendmessage÷_ٶ֪ٶҳ | ٶ֪ | ¼

     ҳ      ֪   MP3   ͼƬ   Ƶ   ٿ
               

               
        
 ٶ֪ > / >  >  ӵѲѽ 
vbsendmessage÷
 ͷ֣20 - ʱ2006-12-31 17:48
vbж 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal 
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
һڷһģ̲ôд?? 
±дһ 
Private Const WM_SETTEXT = &HC 

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal 
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal 
lpClassName As String, ByVal lpWindowName As String) As Long 
Private Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal 
nIDDlgItem As Long) As Long 

Private Sub Command1_Click() 
Dim s As String 
Dim FT_hWnd As Long 
Dim ID_Control_hWnd As Long 

s = "" 

FT_hWnd = FindWindow(vbNullString, "1.txt - ±") 
If FT_hWnd = 0 Then 
MsgBox "False", vbInformation, "Title" 
End 
End If 

ID_Control_hWnd = GetDlgItem(FT_hWnd, &HF) 
SendMessage ID_Control_hWnd, WM_SETTEXT, 0, ByVal s 

End Sub 
кıļ"" 
һڷһģ̲Ϣ,һϷ"game" 
ȻڷһϢģⰴһ¼ϵĳӦôд??ллָ
ߣ jy024424232 -  һ ش     1 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal 
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
Private Const WM_SETTEXT = &HC 
Private Sub Command1_Click() 
SendMessage Text1.hwnd, WM_SETTEXT, 0, ByVal "hello" 
End Sub 
شߣ zhangxin_nuc - ħʦ ļ   12-31 19:13
      &#8226; VBҪһsendmessage˭дʵл...
      &#8226; VBsendmessage÷
      &#8226; vbsendmessageQQԻ
      &#8226;  VBʹSendMessage ʹCBN_SELENDOKϢ...
      &#8226; sendmessagevḅ
       vb sendmessage>>
      鿴ͬ⣺sendmessage  ÷ 
ȴش
  VBsendmes&shy;sageôڶʱ&shy;氡Ϻ&shy;~~~SENDMESSAG&shy;E,⺯&shy;˾Ϳסư&shy;vb⣬vb&shy;𡣣VB 
  EM_SCROll.&shy;SB_pageup.&shy;SB_pagedow&shy;nԼsendmes&shy;sage÷VBû&shy;δ塣
&copy;2009 Baidu
 