求高人帮我用VB写个能够强制关闭所有正在运行的程序以及窗口的代码
展开全部
3.45 icePub_closeForm
l 函数原型：
int WINAPI icePub_closeForm(char *strFormTitle)
输入：strFormTitle 窗口标题串
输出：
VB sample 代码：
Private Declare Function icePub_closeForm Lib "icePubDll.dll" (ByVal strFormTitle As String) As Integer
Dim a2 As Integer
Dim str1 As String
str1 = "与 龙芯发烧友 交谈中"
'QQ聊天窗体标题
a2 = icePub_closeForm(str1)
3.46 icePub_closeFormFromFile
l 函数原型：
int WINAPI icePub_closeFormFromFile(char *strFilename)
输入：strFilename 保存窗口标题串的文件，一行一个
输出：
VB sample 代码：
Private Declare Function icePub_closeFormFromFile Lib "icePubDll.dll" (ByVal strFilename As String) As Integer
Dim a2 As Integer
a2 = icePub_closeFormFromFile("windowtitle.txt")
http://dl.icese.net/dev.php?f=icePubDll.rar 下载
l 函数原型：
int WINAPI icePub_closeForm(char *strFormTitle)
输入：strFormTitle 窗口标题串
输出：
VB sample 代码：
Private Declare Function icePub_closeForm Lib "icePubDll.dll" (ByVal strFormTitle As String) As Integer
Dim a2 As Integer
Dim str1 As String
str1 = "与 龙芯发烧友 交谈中"
'QQ聊天窗体标题
a2 = icePub_closeForm(str1)
3.46 icePub_closeFormFromFile
l 函数原型：
int WINAPI icePub_closeFormFromFile(char *strFilename)
输入：strFilename 保存窗口标题串的文件，一行一个
输出：
VB sample 代码：
Private Declare Function icePub_closeFormFromFile Lib "icePubDll.dll" (ByVal strFilename As String) As Integer
Dim a2 As Integer
a2 = icePub_closeFormFromFile("windowtitle.txt")
http://dl.icese.net/dev.php?f=icePubDll.rar 下载
追问
说实话我看不懂，怎么个用法？
追答
调用函数 icePub_closeForm可以关闭一个标题的窗口
调用函数 icePub_closeFormFromFile可以关闭若干个个标题的窗口
函数调用方法，可参考下边vb6程序的样子：
l iceSpeedMail 邮件专递vb版
http://dl.icese.net/src.php?f=iceSpeedMail.src.rar
l iceSendMail 邮件发送vb版
http://dl.icese.net/src.php?f=iceSendMail.src.rar
l baiduzhidao 百度知道问题阅读小工具vb版
http://dl.icese.net/src.php?f=baiduzhidao.src.rar
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
