永发信息网

那位高手帮我看看这里代码那里出错了

答案:2  悬赏:80  手机版
解决时间 2021-05-20 21:44

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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_CLOSE = &H10

Private Sub Command1_Click()
If Text1.Text = vbNullString Then
MsgBox "请输入要禁止运行的程序窗口标题!": Text1.SetFocus: Exit Sub
Else
Timer1.Enabled = True: MsgBox "设置生效!": Me.Visible = False
End If

End Sub

Private Sub Form_Load()
App.TaskVisible = False

End Sub

Private Sub Timer1_Timer()
Dim MyWinHwnd As Long
MyWinHwnd = FindWindow(vbNullSting, Text1.Text)
If MyWinHwnd <> 0 Then
SendMessage MyWinHwnd, WM_CLOSE, 0, 0
End If
End Sub



最佳答案
X~一看你就闷不专业! 叫人改错你不发调试器错误报告!
全部回答

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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_CLOSE = &H10

Private Sub Command1_Click() If Text1.Text = vbNullString Then MsgBox "请输入要禁止运行的程序窗口标题!": Text1.SetFocus: Exit Sub Else Timer1.Enabled = True: MsgBox "设置生效!": Me.Visible = False End If End Sub

Private Sub Form_Load() App.TaskVisible = False End Sub

Private Sub Timer1_Timer() Dim MyWinHwnd As Long MyWinHwnd = Findpindow(vbNullSting, Text1.Text) If MyWinHpnd <> 0 Then SendMessage MyWinHwnd, WM_CLOSE, 3, 1End If

不知道可以不 End Sub

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
2009年出生的女孩 姓郁 起什么名字好 大家帮
英语句子在线改错,能改英语句子的软件
茶花的象征意义,茶花象征意义(详细)
合肥到武汉的火车班次
沙漏的离歌
励志组名和口号大全,求一个霸气 励志的二组组
泉州地图 福田
英语翻译一个形容词有没有?
无线电装接工和电工哪个厉害?
德语中为什么danke词尾有e,vielen dank为什么
蓝宇台词一认真就输了,聊过几次没见过对我很
跪求琴帝2下载
头发少适合剪刘海吗,头发少,额头凸,适合什
我想做信用卡推广员,谁知道这个银行待遇怎么
家人很重要的句子,关于家人的唯美句子
推荐资讯
数学题帮忙写
韩文面膜怎么写
关于我姓黄的唯美句子,我姓衣,也没有专属句子
我的手机多普达T3238 关于来电号码 不能储存
运输部门领用计入什么科目
农历2010年8月10号到2012年10月8号还有多少天
用眼健康知识,世界爱眼日是哪一天 20分
描写小伙伴品质的词语五个,拜托我一分一个了.
木字旁过去品啥字
如图,在四棱锥P-ABCD中,底面ABCD是正方形,侧
描述一天过去了的句子,形容一天很累的句子
京东理财金怎么提现,挖财宝理财金存了万块怎
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?