小隐的博客

人生在世,笑饮一生
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

如何让通达信联动

Posted on   隐客  阅读(3487)  评论(4编辑  收藏  举报
复制代码
Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString 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
 
Public nMsg As Long
Private Sub Command1_Click()
nMsg = RegisterWindowMessage("Stock")

PostMessage &H100B5C, nMsg, &H73F98D, 0
End Sub
复制代码
努力加载评论中...
QQ交流
点击右上角即可分享
微信分享提示