模拟鼠标向下滚动 http://bbs.2ccc.com/topic.asp?topicid=461769

我想模拟鼠标滚轮，下面的代码能向上滚动，怎么样下向滚动啊

mouse_event( MOUSEEVENTF_WHEEL,0,0,WHEEL_DELTA,0);

我把参数设置为
mouse_event( MOUSEEVENTF_WHEEL,0,0,-WHEEL_DELTA,0);
编译通不过啊
----------------------------------------------
-

作者：

pcspace (庸人)	▲▲▲▲▲	-
	盒子活跃会员

2014-8-23 17:09:14

1楼：

http://baike.baidu.com/view/1080208.htm?fr=aladdin

自己注意看  dwData
----------------------------------------------
-

作者：

xfyserver (s)	▲▲▲▲▲	-
	普通会员

2014-8-23 17:37:56

2楼：

鎴戞槸鐢ㄧ殑delphi锛岄偅涓弬鏁颁笉鑳戒负璐熷晩锛岃礋鐨勪笉鑳界紪缁?
----------------------------------------------
-

作者：

xfyserver (s)	▲▲▲▲▲	-
	普通会员

2014-8-23 17:38:34

3楼：

鎴戞槸鐢ㄧ殑delphi锛岄偅涓弬鏁颁笉鑳戒负璐熷晩锛岃礋鐨勪笉鑳界紪缁?
----------------------------------------------
-

作者：

ptdelphi (Delphi)	▲▲△△△	-
	注册会员

2014-8-23 19:42:23

4楼：

泰达星语，看懂啊，楼上
----------------------------------------------
还可以更好

作者：

xfyserver (s)	▲▲▲▲▲	-
	普通会员

2014-8-23 21:34:42

5楼：

我用的是DELPHI XE6，mouse_event( MOUSEEVENTF_WHEEL,0,0,WHEEL_DELTA,0);这个代码只能往上移，百度说，往上为正，往下为负，但设置-WHEEL_DELTA 或 -10等 数值，都不能编译。
谁能教教我啊
----------------------------------------------
-

作者：

xfyserver (s)	▲▲▲▲▲	-
	普通会员

2014-8-25 10:14:26

6楼：

没有人知道吗
----------------------------------------------
-

作者：

pcspace (庸人)	▲▲▲▲▲	-
	盒子活跃会员

2014-8-26 10:24:39

7楼：

var
i:integer;
begin
i:=-120;
mouse_event( MOUSEEVENTF_WHEEL,0,0,i,0)
end;

这样是可以编译通过的 ， 但是是否可以运行 ，请自行测试
----------------------------------------------
-

作者：

wang_80919 (Flying Wang)	▲▲▲▲△	-
	普通会员

2014-8-26 10:28:26

8楼：

如果不是看到楼上，我居然没看出楼主的语法错误。
也没看到，楼主不是代码没效果。
而是，编译不通过。
幸亏，从来没发言，不然就糗大了。
----------------------------------------------

(C)(P)Flying Wang

作者：

pcspace (庸人)	▲▲▲▲▲	-
	盒子活跃会员

2014-8-26 10:38:39

9楼：

依赖Delphi自身不是太好的习惯，Delphi也是在翻写Windows的API，还是向微软靠拢，深入研究的好。

WHEEL_DELTA 可以看一下Delphi内的定义，直接写死了 120 ，正数，表示正向 滚轮一圈。而微软的API呢 ，可以查MSDN的英文版，和百度百科上的中文解释是一样的，明确说明，负数表示反向。

我今天看了楼主的回复，实验了一下，的确编译不过，但是自己用变量呢，因为变量要在运行的时候赋值，编译的时候是无法检测的，肯定就可以编译了。但是楼主没给出具体的代码，是否可以运行，是否有效果，需要实际测试！
----------------------------------------------
-

作者：

wang_80919 (Flying Wang)	▲▲▲▲△	-
	普通会员

2014-8-26 10:45:55

10楼：

楼主和楼上的请写
0 - WHEEL_DELTA

你们不懂啥叫语法吗？

特别是楼上，你不懂语法还敢搞开发？
还说什么向微软靠拢？

不过深入研究是对的（给楼上面子，居然不领情！）。

但是，你先把基础搞好，在深入也不迟！

好吧，刚才我也是纸上谈兵。下面的代码才是符合函数调用规则的。
  mouse_event( MOUSEEVENTF_WHEEL,0,0,DWORD(0 - WHEEL_DELTA),0);
----------------------------------------------

(C)(P)Flying Wang

作者：

pcspace (庸人)	▲▲▲▲▲	-
	盒子活跃会员

2014-8-26 11:08:22

11楼：

To : Flying Wang

Delphi编译器的代码你看过？ 我是没看过的，至于说语法跟编译器自身有没有直接关联，语法的规则是编译器定的，编译器编译不过，你说语法没问题，它就是不给你编译，你能怎么办？

至于说基础，我感觉你还没资格来说这话，你什么时间把Win3.1的内核分析读透彻，什么是把Win2000的代码多读几遍再给我说基础吧。

0 - WHEEL_DELTA = -120  编译器能检测到是负值，不编译的，你如果不能看明白我说的含义，请闭上你高贵的嘴

另外，向微软靠拢没有错，除非你不开发windows平台的软件。
----------------------------------------------
-

作者：

wang_80919 (Flying Wang)	▲▲▲▲△	-
	普通会员

2014-8-26 11:19:44

12楼：

我们的语法是看人家 DELPHI 教程来的。
人家 DELPHI 编译器肯定支持 教程中的语法。
不支持的，我们也学不到。

你那是高端内容，我们先学的是基础，基础有
计算机原理
离散数学
数据结构
数据库
操作系统
软件工程
某种编程语言

然后是 DELPHI 入门
然后是 DELPHI 开发。

这些都会了，才能表示你懂基础。

有一点点的不会，那就是基础不行。

你 WIN3.1 的内核 懂得再多。也都属于高端内容。和基础无关。

另外，我们应该向 LINUX 靠拢了，这是未来趋势。

刚才我是纸上谈兵，没去具体试试。
现在告诉你正确答案。
这是语法的基础问题，mouse_event 是一个函数，调用函数，需要提供正确的数据类型，发现错误，就应该知道如何去修改，而不是找外部责任。其实还是自己基础差，连一个语法错误都不知道如何修改！

mouse_event( MOUSEEVENTF_WHEEL,0,0,DWORD(0 - WHEEL_DELTA),0);
----------------------------------------------

(C)(P)Flying Wang

作者：

pcspace (庸人)	▲▲▲▲▲	-
	盒子活跃会员

2014-8-26 11:26:49

13楼：

问题是人家楼主说了，是编译器编译不过，那么你能去改编译器？我只不过告诉楼主如何去做，实际上能编译，是一个解决方法。

你讲语法，讲到天亮，编译器不给你编译，有什么用？

去研究一下编译器，再来给我说教吧，推荐你去研究一下Dev C++

至于懂基础，还不是你有资格说的，我是从DOS下用Turbo Pascal写到现在的，你说的课程哪个大学的计算机课程没教，难道就你读过书是怎么滴。

向Linux靠拢？ 别告诉我你现在用的是Linux
----------------------------------------------
-

作者：

wang_80919 (Flying Wang)	▲▲▲▲△	-
	普通会员

2014-8-26 11:31:24

14楼：

楼上的看不懂我的意思，是我的错，我的语文是体育老师教的。

我哪里说过要改 编译器的？

我们有那个水平，还在这里混？

地球人对付 编译不过的标准做法不是修改自己的代码吗？
修改自己的代码，直到编译通过为止啊。
不懂语法，能知道如何修改吗？
还有，除了要修改语法错误，还要记得，别搞出逻辑错误。

你语法都不懂，还能写出代码来？

你语法错误，不去改你自己的错误，你居然能理解成，修改编译器？

懒得理你这种思维奇怪的家伙。
----------------------------------------------

(C)(P)Flying Wang

作者：

pcspace (庸人)	▲▲▲▲▲	-
	盒子活跃会员

2014-8-26 11:47:54

15楼：

Flying Wang：你是不是从精神病院出来的？ 我写的代码你编译一下试试，哪个地方错误？？神经病
----------------------------------------------
-

作者：

wang_80919 (Flying Wang)	▲▲▲▲△	-
	普通会员

2014-8-26 11:49:19

16楼：

楼上的，老子可没说你代码有错误。

告诉你一个其他代码，不表示你的代码就有错误。
----------------------------------------------

(C)(P)Flying Wang

作者：

pcspace (庸人)	▲▲▲▲▲	-
	盒子活跃会员

2014-8-26 11:54:40

17楼：

 。
----------------------------------------------
-

作者：

crystalmoon (黑夜杀手)	▲▲▲▲▲	-
	盒子活跃会员

2014-8-26 15:32:48

18楼：

干嘛这么激烈呢，把问题说清楚不就得了。我的基础也不好，不过我知道百度和看源代码定义，所以我把我找到的情况写一下：
其实要看楼主为什么编译没有通过，原因是Delphi对mouse_event的定义(在Windows单元中)，参数中第四个的类型是DWORD，DWORD=LongWord，那么它的范围是什么？32位，无正负符号标志，也就是0~4 294 967 295，好吧，这样子，楼主用负数来写，编译器肯定会出错（提示你范围边界出错 violates subrange bounds）。
pcspace所说用负数，来源于（http://msdn.microsoft.com/en-us/library/ms646260(VS.85).aspx）：If dwFlags contains MOUSEEVENTF_WHEEL, then dwData specifies the amount of wheel movement. A positive value indicates that the wheel was rotated forward, away from the user; a negative value indicates that the wheel was rotated backward, toward the user. One wheel click is defined as WHEEL_DELTA, which is 120.，但我比较好奇的是DWORD难道在其它地方是可以负数的吗？所以我有必要怀疑微软的档案定义有问题，可能这里不是DWORD，而可能是一个有符号的类型（比如int32），pcspace用 i:integer;来写，实际做了一个隐形转换 DWORD(I)，结果是什么?我测试了一下，是4294967176，经测试只要你这样子写
mouse_event( MOUSEEVENTF_WHEEL,0,0,4294967176,0);它就是下向滚动的，那什么下向滚的范围是多少呢？4294967176 downto 2147443648 (数字越小，跨度越大)，这也映证了我的猜测，为什么?因为int32的范围  -2147443648 到 2147443647，假设它把DWORD的最高位当成符号位，它DWORD的（2147443648 - 4294967176） 就相当于是int32的负数范围。
----------------------------------------------
-

作者：

wang_80919 (Flying Wang)	▲▲▲▲△	-
	普通会员

2014-8-26 15:43:15

19楼：

楼上分析的很对。
----------------------------------------------

(C)(P)Flying Wang

作者：

hs_kill (hs_kill)	▲▲▲▲▲	-
	普通会员

2014-8-27 8:59:16

20楼：

一个无符号类型数值的负数表示法而已....其实Flying Wang说的对, 楼主你基础不行, 参数类型规定是无符号的, 不代表就不能传递负数, 内核 2000源码什么的扯的太远了

楼主连最基本的数据在内存中表示方式和存储方式都还不清楚呢...

最简单的例子: 
x: Byte; {UINT8}
y: ShortInt; {INT8}

y := -100;
Move(y, x, sizeof(y));

吧X打印出来看看值是多少, 其实有没有符号什么的都是浮云, 关键是数据位, 只要长度一致, 值是多少只取决于你怎么去理解
----------------------------------------------
http://www.cnblogs.com/hs-kill/

作者：

pcspace (庸人)	▲▲▲▲▲	-
	盒子活跃会员

2014-8-27 9:59:15

21楼：

我谈一下我的观点。Delphi的编译器是将程序编译好，程序本质上是调用的Windows的API，这是我所说的为什么要紧跟微软的原因，只要程序编译了，API运行起来就可以。

crystalmoon 说的在理，不管是我的方法还是 Flying Wang的做法，都是用了变量，我怀疑编译器在编译的时候，是不会去检测变量方式的。

hs_kill  说的2000的代码是有意义的，因为最终编译的结果是要基于操作系统的。脱离操作系统去谈编译没意义。

最后解释一下整个争论，我看到楼主的提问，就给楼主找了一下资料，因为一直是搜MSDN的，所以对微软的东西很少去怀疑（不是说微软的东西没BUG，而是因为官方的东西正确的可能性非常非常的大）

第二次呢，上来看了一下，楼主回复说，无法编译，我就随手写了代码测试了一下，可行，然后就放上来，这也是给楼主的一个例子罢了。

写这个代码，因为我猜测编译器在编译常量可以检测，编译变量无法检测，没去多想别的。

Flying Wang 的回复后，我接着回复的本意是从编译器的角度试图分析这个问题，而没有过多的去纠结语法什么的，也根本没考虑这个问题，包括很多Delphier平时习惯拿来就用，不去考虑深层次的问题，这些不管大家是否承认，但是的确存在。

但是Flying Wang的回复，没基础等等，这个话呢，说实在我感觉Wang真没资格说，看资料Wang似乎是80年的吧，我是78的，96年开始写程序，最初是用的C，后来上大学学Turo C，接触到Turbo Pascal，再后来Delphi也用，虽然因为工作原因很少用Delphi，但是我个人认为编程语言呢，是编译器最终定义出来的，语法这些东西不要过于去纠缠它，我的理解是不同的语言，基础语法大同小异，曾经有一段时间因为不同的编程语言交叉着用，结果经常会，在A语言内用B的语法，最后我才坚决的用最简易的教学式的语法，这样各种语言内基本都能通用。

最后还是声明一下，我的回复过多的是基于原理去考虑，给出的代码也是给楼主的问题一个变通的答案，跟Flying Wang的争论是因为Wang似乎有点过于高人的表现，我不怎么认可此种态度。至于以后的争论，本人概不参与。以后论坛的问题呢，也概不回答了，避免出现类似的纠结性的争论出现。
----------------------------------------------
-

作者：

wang_80919 (Flying Wang)	▲▲▲▲△	-
	普通会员

2014-8-27 10:17:30

22楼：

我说你没基础，的确是我的错。

因为 我没注意到你谈的是 编译器。

我只注意到，你忽略语法错误。

我只是认为，明明是语法错误，不应该谈一些和该错误无关的内容。

我知道你的代码没问题，只是没有明确说出来。

我一开始说你没基础，是因为你不谈语法，去谈编译器。

看上去没基础。事实上你很厉害。但是，我一开始不知道你厉害。

而且，不能因为你厉害，就忽略语法错误的问题。
----------------------------------------------

(C)(P)Flying Wang

作者：

lwsxln (lwsxln)	▲▲▲△△	-
	注册会员

2014-8-27 21:30:23

23楼：

搞程序的最不缺的就是固执自负的人。不管是群里还是论坛上，总会有人在别人问问题的时候以一种高姿态的方式去俯视提问者。这个帖子里虽然没有俯视提问者，但是却针对了其他回答者。

老子天下第一，其他人都是傻逼。是不是在网上喷一下别人可以让自己很有优越感？

本来delphi的学习环境就不好了。一个问题居然能引来这样的争论。这下好了，又少了一个可以解答问题的高手。

奉劝一句那些自以为自己很牛B的人，不针对wang_80919 (Flying Wang)，也不针对pcspace (庸人)。
----------------------------------------------
-

作者：

xfyserver (s)	▲▲▲▲▲	-
	普通会员

2014-8-28 5:43:32

24楼：

各们一不要争了，问题已经解决了，谢谢各位大神，特别谢谢  pcspace (庸人)，按照你的方法解决了
----------------------------------------------
-

作者：

cdp85 (cdp)	▲▲△△△	-
	注册会员

2014-8-28 16:04:16

25楼：

这论坛很热闹嘛 有趣。。。
pcspace的这个是用的范围广，刚试试别的lang，这样搞真行。
wang_80919说的语法的，不怎么会Delphi不敢说。