| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 242 人关注过本帖
标题:源代码出错求助!!
只看楼主 加入收藏
jokin
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-10-25
收藏
 问题点数:0 回复次数:6 
源代码出错求助!!

本人今天弄的一个程序,可是代码出了点问题,大哥大姐帮忙解决一下??

源程序在附件里面


Declare Function CallWindowProc Lib "user32" Alias "callwindowproca" (ByVal lpPrevwndfunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wparam As Long, ByVal lparam As Long) As Long

Declare Function setwindowlong Lib "user32" Alias "setwindowlongA" (ByVal hwnd As Long, ByVal nlndex As Long, ByVal dwnewlong As Long) As Long

Public Const GWL_WNDPROC = -4

Global lpprevwndproc As Long
Global gHW As Long
Const WM_QUERYENDSESSION = &H11

Public Sub Hook()
lpprevwndproc = setwindowlong(gHW, GWL_WNDPROC, AddressOfwindowproc)
End Sub

Public Sub unhook()
Dim temp As Long
temp = setwindowlong(gHW, GWL_WNDPROC, lpprevwndproc)
End Sub

Function windwoproc(ByVal hw As Long, ByVal umsg As Long, ByVal wparam As Long, ByVal lparam As Long) As Long

Select Case umsg
Case WM_QUERYENDSESSION
frmdislogOFF.msginfo.AddItem "捕获到结束当前会话消息" & IIf(frmdislogOFF.chkenable.Value = vbChecked, "允许!", "禁止!")
windowproc = IIf(frmdislogOFF.chkenable.Value = vbChecked, 1, 0)
Exit Function
Case Else

windowproc = CallWindowProc(lpprevwndproc, hw, umsg, wparam, iparam)
End Select
End Function


[此贴子已经被作者于2007-10-25 21:24:47编辑过]

附件: 游客没有浏览附件的权限,请 登录注册
2007-10-25 21:21
as66036655
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2007-10-25
收藏
得分:0 
打死都看不明白!!!!!!!!!!!!!!!!
2007-10-25 21:31
jokin
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-10-25
收藏
得分:0 


高手帮忙啊。。
2007-10-25 21:48
linsd2001
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-10-11
收藏
得分:0 
回复:(jokin)源代码出错求助!!

Function windwoproc(ByVal hw As Long, ByVal umsg As Long, ByVal wparam As Long, ByVal lparam As Long) As Long

Select Case umsg
Case WM_QUERYENDSESSION
frmdislogOFF.msginfo.AddItem "捕获到结束当前会话消息" & IIf(frmdislogOFF.chkenable.Value = vbChecked, "允许!", "禁止!")
windowproc = IIf(frmdislogOFF.chkenable.Value = vbChecked, 1, 0)
Exit Function
Case Else

windowproc = CallWindowProc(lpprevwndproc, hw, umsg, wparam, iparam)
End Select
End Function


是不是红字所标的地方出了错呢

2007-10-25 22:12
nuciewth
Rank: 14Rank: 14Rank: 14Rank: 14
来 自:我爱龙龙
等 级:贵宾
威 望:104
帖 子:9786
专家分:208
注 册:2006-5-23
收藏
得分:0 
我也看不懂,我顶一下.

倚天照海花无数,流水高山心自知。
2007-10-25 22:13
JFan
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-10-24
收藏
得分:0 

我晕.这么长.
看不懂.

2007-10-25 22:34
jokin
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-10-25
收藏
得分:0 
回复:(linsd2001)回复:(jokin)源代码出错求助!...



我不清楚。麻烦您帮我看看可以吗?。

2007-10-27 18:27
快速回复:源代码出错求助!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.055415 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved