我想用VB做一个程序这个程序启动后,自动调用QQ游戏大厅,这个用 shell函数很简单如何让它自动填写用户密码然后自动登陆?还有更难一点的:如何能登陆到指定的QQ游戏房间?再难一点的:进房间后自动旁观某1桌子上的人的游戏情况?
本人已经做了一个QQ记牌器,现在想要让功能更强大点,就是可以偷看别人的牌根据我的随机调查,旁观了50个人的游戏,竟然有42位的人可以被我看到牌,因为他们允许被别人
旁观(QQ游戏的默认设置就是允许被别人旁观的,大部分人没有修改)用多用户进入游戏的问题我已经解决,我现在的软件是需要手动的方法去旁观别人,自动记录别人
的牌,如斗地主,只要另外2家有1家可以旁观,那么所有的牌你都知道了
高手指点~~~~~~
如果有谁在QQ玩斗地主的话,也可以到我的网站下载我现在的记牌器
完全绿色哦(就是因为网上很多记牌器都夹广告或者插件,或者弹网页,本人才做了一个)
本人已经做了一个QQ记牌器,现在想要让功能更强大点,就是可以偷看别人的牌根据我的随机调查,旁观了50个人的游戏,竟然有42位的人可以被我看到牌,因为他们允许被别人
旁观(QQ游戏的默认设置就是允许被别人旁观的,大部分人没有修改)用多用户进入游戏的问题我已经解决,我现在的软件是需要手动的方法去旁观别人,自动记录别人
的牌,如斗地主,只要另外2家有1家可以旁观,那么所有的牌你都知道了
高手指点~~~~~~
如果有谁在QQ玩斗地主的话,也可以到我的网站下载我现在的记牌器
完全绿色哦(就是因为网上很多记牌器都夹广告或者插件,或者弹网页,本人才做了一个)
解决方案 »
- BAT列出多出两个文件的文件夹
- 如何确保SendData能够正确发送数据,不会因为SendComplete事件还没有被触发就发送下一条数据而出现冲突?
- 怎样在vb中创建一个Excel表格,高分
- vb中向文件输出的时候怎样可以不换行输出?
- 关于备份和恢复的问题!急,在线等!
- 请问哪儿有水晶报表控件下载?50分相送!!
- JNEU:在吗?
- 小妹有一问题,请帮帮我吧我先谢了。
- 怎么能够做到用conncection对象的方法插入记录时,总是在最后一个记录的后面插入
- 一个小问题form
- 50分:如何让开始菜单在指定位置弹出?
- 求助,我想下载一个以“最浪漫的事”歌曲制作的flash,谁愿意友情提供,谢谢先。
是怎么搞出来的。
如何让它自动填写用户密码然后自动登陆:你可以findwindow,findwindowEx,然后sendmessage
Dim pid As Long ' 储存进程标识符( Process Id )
Dim pHandle As Long ' 储存进程句柄
Dim data As Long
hwnd = FindWindow(vbNullString, "新斗地主")
' 取得进程标识符
GetWindowThreadProcessId hwnd, pid
' 使用进程标识符取得进程句柄
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
' 在内存地址中读取数据 ReadProcessMemory pHandle, ByVal lpADDress, ByVal VarPtr(GetMemoryData), 2, 0& '第4个参数是要读取几个字节,2就读2位,1就读1位’读2位包括牌的花色,读1位只得到牌的值
CloseHandle pHandleEnd FunctionQQ游戏窗口里,打出的牌的内存地址偏移量都是固定的Poke = Array(&HF00, &HE00, _
&H201, &H202, &H203, &H204, _
&H101, &H102, &H103, &H104, _
&HD01, &HD02, &HD03, &HD04, _
&HC01, &HC02, &HC03, &HC04, _
&HB01, &HB02, &HB03, &HB04, _
&HA01, &HA02, &HA03, &HA04, _
&H901, &H902, &H903, &H904, _
&H801, &H802, &H803, &H804, _
&H701, &H702, &H703, &H704, _
&H601, &H602, &H603, &H604, _
&H501, &H502, &H503, &H504, _
&H401, &H402, &H403, &H404, _
&H301, &H302, &H303, &H304)
看到别人的牌,然后记录别人的牌不是难度难的是全自动化~~~自己游戏的时候,记牌器自动启动另1个QQ号码,然后登陆到房间里去旁观我需要的是这个自动化的过程怎么实现如果是手动去旁观别人的游戏,然后记录别人的牌,那这个程序就简单了