如何强行关闭程序？

Question

在调用控件后使用doevents这样什么时候想退出调用end 或exit就可以了

Answer 1

调用doevents后随便执行什么语句都可以

Answer 2

我试过的，用doevents不行，可能是ftp控件存心做成这样的。根本没办法释放资源！

Answer 3

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, Text1.Text)
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, &H10, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error posting message."
End If
Else
MsgBox "并未开启" & Text1.Text
End If
End Sub

Answer 4

To sunxl(じ小呆☆`~o)：我试过用sendmessage 和 postmessage，但是不行。毫无反应。谢谢！！

Answer 5

有两个api，一个获得进程id,一个结束，可惜具体的我忘记le结束的好像是ter什么地了
      我是小山，我喜欢VB，现在在学习C#和.net的相关知识
         欢迎您使用： SourceCode Explorer(源代码数据库)
           当前版本： 1.0.690
               作者： Shawls
           个人主页： Http://Shawls.Yeah.Net
             E-Mail： [email protected]
                 QQ： 9181729