求教一个vb编程问题 - 编程论坛

#2

xss_wl2016-11-14 14:25

请问楼主，你在实现你需要的这个功能时，具体哪里遇到了问题。

#3

btt62016-11-14 14:55

我不知道该如何实现啊，麻烦能给我个源码参考下吗

#4

xiangyue05102016-11-14 15:17

以下是引用btt6在2016-11-14 14:11:56的发言：

我建立了一个窗体form1,我想让鼠标自动移动到form1窗体上的（300,300）这个坐标位置，然后模拟连续单击鼠标左键，应该如何实现呢。最好是把程序最小化后也能实现自动单击

你这个说的有点问题，程序最小化后哪里来的“form1窗体上的（300,300）这个坐标位置”。
估计你想要类似于抢购的时候自动点击的效果。这样的话，可以用专门的浏览器，如果不是浏览器，也有软件，比如按键精灵

如果用VB实现的话，那么要实现的话，首先是获得光标所在窗口的句柄（GetCursorPos 、WindowFromPoint ），然后设置光标位置（ClientToScreen 、SetWindowPos ），最后是模拟点击，也就是传递给系统一个点击事件（mouse_event ）这个需要一些的API函数才能实现，都在括号里放着。你自己先研究一下吧

#5

xss_wl2016-11-14 15:18

以下是引用btt6在2016-11-14 14:55:43的发言：

我不知道该如何实现啊，麻烦能给我个源码参考下吗

这个没有人会有现成源代码，除非专门写一个。

#6

xss_wl2016-11-14 15:20

回复 4楼 xiangyue0510

他这个是需要后台点击，所以窗口最小化后依旧可以点击指定的坐标。

#7

btt62016-11-14 15:38

那不需要最小化窗体的情况下，鼠标自动移动到form1窗体上的（300,300）这个坐标位置然后模拟连续单击鼠标左键，应该如何实现呢，麻烦版主有空的时候帮我写点代码给我参考下可以吗，由于我学vb时间不长，真不知该如何下手

#8

xss_wl2016-11-14 16:24

回复 7楼 btt6

学习VB时间不长，就研究这样具有一定难度的问题，你以为别人都是傻子啊？
不过无聊时可以搞一下。

#9

xiangyue05102016-11-15 08:45

你问我的问题就是这两个API函数实现的。ClientToScreen 、SetWindowPos
我现在用WIN10， VB不好装，所以已经换成了.net。这两个代码格式方面有一定的区别，所以只能你自己研究了。
我也同意xss_wl，刚学习VB不要一来就搞这么复杂的。

#10

ychunqi2016-11-15 12:13

只有本站会员才能查看附件，请登录

#11

btt62016-11-15 14:47

你这个是什么软件啊

#12

btt62016-11-15 14:54

你这个是什么软件的截图啊

#13

xiangyue05102016-11-15 15:48

回复 10楼 ychunqi

虽然你的这个代码只能是点击自己的窗体，但是还是感谢分享。

#14

ychunqi2016-11-15 20:36

回复 11楼 btt6

自己写着玩的，方便代码累积

#15

ychunqi2016-11-15 20:42

回复楼主 btt6

300*400 这个位置有什么不同吗？否则点击有什么意义？如果有句柄的话SendMessage可以实现