我從cww那裡引用了以下的桯式要把某一個程式關閉
結果程式會自動結束,該程式也沒有關閉
我是想做廣告過濾的小程式
有人可以幫我嗎?
我是用NT workstation 4.0 sp6(sp5也是一樣)
vb6 sp3 中文版


Dim winHwnd As Long
Dim winHwnd2 As Long
Dim RetVal As Long
Dim LT As String
LT = List1.Text
winHwnd = FindWindow(vbNullString, LT)
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
  If RetVal = 0 Then
    MsgBox "Error posting message."
  End If
Else
MsgBox "The Calculator is not open."
End If
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(1) 人氣()