toma2008
公开toma2008 [2010-04-19 08:42:33]
toma2008
公开toma2008 [2010-04-17 20:08:51]
基本核心代码在此:

封装了一个键盘鼠标HOOK类,使用方便(VB6.0)

利用其中的鼠标HOOK,再结合getkeystate函数取SHIT状态,就可以模拟鼠标了,没几句代码:

VB codePrivate Sub objHookLL_MouseHook(ByVal Code As Long, ByVal wParam As Long, ByVal lParam As Long, lRet As Long)


...........


End Sub

Private Sub Timer1_Timer()


........


End Sub

Sub objHookLL_MouseHook改成上面的样子,再添加一个定时器,周期设置为50,TAG属性设置为0就行了.




老马:看到你的这个程序想用用,但是我编译不了,就是加载后

你能否写一个完整的程序发到我的邮箱 LGZ16888@126.com 不胜感激.

就是把那段程序加载在VB核心封装里面.

我是VB菜鸟,
admin [2010-04-18 20:31:28]
什么是"VB核心封装"?
涛涛
公开涛涛 [2010-04-08 20:45:27]
呵呵 我是个老狐狸(FOXPRO),VB落知一二,
到此一游
admin [2010-04-08 21:32:01]
欢迎老狐狸
problem
公开problem [2010-02-11 12:19:59]
原BLOG存档打不开呢、、
admin [2010-02-11 12:56:50]
原BLOG好象有BUG,最近正在处理中

只要有一点访问量的时候就会把整个ASP引擎挂起,然后连这个BLOG都用不了了,比较郁闷.

需要哪些内容请留言,我可以放在这边.
dyj
公开dyj [2010-01-14 13:21:10]
在网上看到你的 强帖....如果你有时间 请教你一个问题:我做了一个程序,在别人没装VB的机器报 "调用……无效"英文的...装了vb的机器上运行时5错误 好像是,,,在调试环境下运行没问题......有人让我打包,,可打包出来的是安装程序...我想让它就是一个exe怎么弄????如果 可以人请QQ:360930673联系......感激不尽...
admin [2010-01-15 11:59:50]
运行时错误'5',无效的过程调用或参数,检查代码逻辑,在满足某些特定条件时,逻辑上有漏洞,导致了某个调用无效.

建议在每个过程里加入错误处理,并将出错时的函数过程写入日志,这样就可以知道在用户环境下有些什么问题了.

你只在自己机器调试,不容易重现此问题,所以对调试帮助不大.
小迷糊
公开小迷糊 [2010-01-05 09:11:42]
好多好东西啊,决定和你混了,呵呵,我是个VB的初学者,希望你多多指教
phanphan
公开phanphan [2009-12-27 22:47:21]
老马,又要向你求助了。还是关于“划词复制”的问题,我问了其作者是怎么实现的,他说他用了变通的方法,即不是监视被高亮选取的文本,而是每隔一定的时间发送一次复制命令(虽然可能效率相对较低)。对于菜鸟来说,或许这确实是个好办法。在网上找了N天,也在百度知道和csdn求助,可是几乎无人问津。我快要崩溃了——因为对于我来说,与其说是编程,还不如说是好奇以及强烈的求知欲。废话说了一堆,转正题:
以上代码我本想往当前窗口发送复制命令(相当于手动按Ctrl+C的效果,Ctrl+C背后到底发送了什么消息呢),但是貌似这样不行。我是老菜鸟了,也不知这样的理解是否很幼稚。(我不想用sendkey或keybd_event来模拟按键,而想直接执行复制命令)。该怎么做呢?老马救我!

(相关的声明略)


Private Sub Timer1_Timer()
thewindow = GetForegroundWindow '获得当前窗口句柄
SendMessage thewindow, WM_COPY, 0, 0
Debug.Print Clipboard.GetText
End Sub

admin [2009-12-28 12:10:10]
GetForegroundWindow好象只能获得的是一个“最顶级窗口”的句柄吧,并不是当前获得焦点的“子窗体”的句柄。

要得到子窗体句柄,我一时也还没想到好办法,目前看来,只能使用取鼠标下句柄的方法了,因为一般人是使用鼠标来选中内容的。

当然,这对于使用键盘来选中内容的情况就无效。。。。所以有局限性。

具体API就是GetCursorPos+WindowFromPoint吧。

然后再向这个句柄发送WM_COPY试试。
phanphan
公开phanphan [2009-12-16 23:46:38]
老马,网上有一款名为《划词复制》的小软件。其功能是:监视在网页,或是文本编辑器上高亮选取的文本,并自动复制到剪贴板。可惜它没有一个可以直接将所选内容保存到文件的功能,所以我在想用vb自制以应己之需。可是要监视被选取的高亮文本貌似很难实现,不知马大能否指点一二?
admin [2009-12-17 00:33:13]
对于文本框,你可以试一下发送EM_GETSEL消息,取得被选中的文本的起始位置,再用WM_GETTEXT得到整个文本后根据前面的起始位置,从而得到被选中的内容.

至于网页,我只知道一个针对IE内核的方案,参考:

.2/blogview.asp?logID=197&cateID=2

利用这个代码,得到当前鼠标下IE对象,应该就能得到当前选中的对象了.

做好了别忘了放在我这里一份呀!

祝你好运:)
绝对菜鸟
公开绝对菜鸟 [2009-12-15 21:20:13]
老马 你好!我是看了你在vb相关的网站发的帖子 一路“跟踪”寻来的 呵呵!现在有些问题想向你请教 就是关于vb中的类 控件 事件 属性及方法的理解 想请教下看我这样的理解对不对 我是从自然界的角度看待这些 我把类看做万事万物的一种分类 比如 车子 人 房子 等代表一种类别 而属性则是这些类和控件所具有的特征 就象你说的人具有身高 年龄等特征 我把控件看做自然界存在的具有能实现某种具体功能的各种工具比如 车子 飞机 刀 剪子 钳子 等 同时这些控件也有自身的属性 而 事件是指要完成的某件事或动作 比如说 去北京 方法是完成某件事要采用的方式或方法 比如开车去北京 而针对类和控件的方法是系统已预先集成好的过程 供开发或学习者调用 对于比如说窗体的单击事件 则是系统已预留好相应的接口 用户只需在这个接口写上相应的程序 实现自己预想的功能即可 可以这样理解吗 我这样问是不是显得很低级呀 呵呵 希望不要见笑 盼复!
admin [2009-12-16 13:10:27]
你好!

我的思路也与你差不多,类似的!

人类,就是一个"类",必有属性,年龄,身高,体重等.

而你我就是具体"实例化"人这个类的"对象",是根据"人类"这个类,实例化的真实可供操作的"对象".

你我的"模板"就是"人类".

以这种对象的思路来看事物,对编程有好处.

我的理解,关键就是对于可重复执行的代码的封装,封装得好,则工程就比较清晰的结构,大量代码时好控制.
yugui
公开yugui [2009-12-09 09:55:54]
老马,我的“无心呢喃”的链接由www.yugui.org改为my.tf163.com有时间改下,谢谢。
admin [2009-12-09 17:10:26]
收到,已经改了:)
需要水牛
公开需要水牛 [2009-11-17 09:53:45]
老马。感谢你给回得邮件,内容是我需要的,谢谢你啦。
可不可以和你做个超链。
我以加上你的。我的是
www.10time.cn 第10时间
admin [2009-11-17 14:48:19]
已经添加:)
李征宇
公开李征宇 [2009-11-06 20:34:19]
老马。我已经链了你的网站了,也链我哦!
www.86lg.com
admin [2009-11-07 15:18:07]
已经添加:)
fighter
公开fighter [2009-10-30 11:02:11]
需要的话,给我邮件地址,我发给你一个键盘模拟的DLL
364589886@qq.com
目前我还没见不能过的
因为是我自己写的,没用其它任何组件,所以不太可能被封
admin [2009-10-30 13:24:44]
可以呀,试一下:

myjian01yahoo.com.cn
李征宇
公开李征宇 [2009-10-09 22:05:15]
BS老马比我厉害,嘿嘿
做个连接吧
公开做个连接吧 [2009-09-28 13:49:23]
做个连接吧,我的站,www。play78.com
admin [2009-09-28 19:13:27]
已经添加好:)
fisheep
公开fisheep [2009-09-25 07:36:09]
fisheep
公开fisheep [2009-09-24 19:44:14]
马哥,“x片是良药啊......因为它能让沉睡的人们醒来- -!!!”文中提到的木马源代码能分享一下么?!
我的fisheep_works@163.com,谢谢
admin [2009-09-25 00:39:07]
据作者所说,还未写完,所以暂不公开代码.

如果公开了我会在作者同意的情况下上传上来的.
admin
公开admin [2009-09-22 04:49:05]
记得.......好象有一个留言来着.......但是等我切换到这个页面看到时,CuteFTP已经把数据库覆盖了........我汗.
南方游侠
公开南方游侠 [2009-09-17 11:36:26]
用winio做的驱动级模拟不行阿。游戏封锁了winio.
admin [2009-09-17 14:38:46]
那我这边是没啥招了,嘿嘿.

不过呢,要干掉对方,除了练就神功与之匹敌,还可取巧废其武功......

看看能否找到封锁的办法,干掉之.......
南方游侠
公开南方游侠 [2009-09-16 10:57:51]
谢谢你对我的回复,但是sendiput没用.包括sendmessage,postmessage ,key_event,winio 在内的全给封锁了.目前只能用自写驱动(我写不出来)或是用钩子的回放能过(这个可以).
admin [2009-09-16 15:00:15]
那你试一下驱动级模拟吧:

http://www.m5home.com/bbs/dispbbs.asp?BoardID=27&ID=1283

目前没发现过驱动还模拟不了的,呵.