OptionExplicitPrivateDeclareSubmouse_eventLib"user32"_(_ByValdwFlagsAsLong,_ByValdxAsLong,_ByValdyAsLong,_ByValcButtonsAsLong,_ByValdwExtraInfoAsLong_)'Option_Tag标示选择了哪一种模拟事件DimOption_TagAsInteger'OnTest标示是否处于模拟状态，以便我们停止模拟DimOnTestAsBoolean'对API变量的定义ConstMOUSEEVENTF_LEFTDOWN=&H2ConstMOUSEEVENTF_LEFTUP=&H4ConstMOUSEEVENTF_MIDDLEDOWN=&H20ConstMOUSEEVENTF_MIDDLEUP=&H40ConstMOUSEEVENTF_MOVE=&H1ConstMOUSEEVENTF_ABSOLUTE=&H8000ConstMOUSEEVENTF_RIGHTDOWN=&H8ConstMOUSEEVENTF_RIGHTUP=&H10'控制模拟的开始与结束PrivateSubCommand1_Click()'如果不处于模拟状态IfOnTest=FalseThenCommand1.Caption="快停下来吧"Timer1.Enabled=TrueOnTest=True'如果处于模拟状态ElseCommand1.Caption="试一试"Timer1.Enabled=FalseOnTest=FalseEndIfEndSub'窗体加载时一些变量需要设置PrivateSubForm_Load()Option_Tag=1Timer1.Enabled=FalseOnTest=FalseEndSub'选择了模拟“鼠标左键单击事件”PrivateSubOption1_Click()Option_Tag=1'左键单击事件Option2.Value=FalseOption3.Value=FalseEndSub'选择了模拟“鼠标右键单击事件”PrivateSubOption2_Click()Option_Tag=2'右键单击事件Option1.Value=FalseOption3.Value=FalseEndSub'选择了模拟“鼠标双击事件”PrivateSubOption3_Click()Option_Tag=3'双击事件Option1.Value=FalseOption2.Value=FalseEndSub'每隔一秒中模拟一次鼠标事件PrivateSubTimer1_Timer()IfOption_Tag=1Then'调用了mouse_event函数，其参数的设置见前面说明'如果同时要模拟两个鼠标事件，可以用Or将两个参数连接'这里是鼠标左键按下和松开两个事件的组合即一次单击mouse_eventMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,0,0,0,0ElseIfOption_Tag=2Then'模拟鼠标右键单击事件mouse_eventMOUSEEVENTF_RIGHTDOWNOrMOUSEEVENTF_RIGHTUP,0,0,0,0Else'两次连续的鼠标左键单击事件构成一次鼠标双击事件mouse_eventMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,0,0,0,0mouse_eventMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,0,0,0,0EndIfEndSub这是我网上找的代码在桌面上可以单击双击可是上了泡泡堂里怎么没办法点击了？？网上找了些弄外挂的好象需要抓包或修改内存的方法才可以使用高手指导下我只想要在游戏里可以移动和点击帮我操作就可以了谢谢希望可以给下代码感激不禁谢谢
参考答案：VERSION5.00
BeginVB.FormForm1
Caption="Form1"
ClientHeight=6945
ClientLeft=60
ClientTop=345
ClientWidth=9540
LinkTopic="Form1"
ScaleHeight=6945
ScaleWidth=9540
StartUpPosition=3'窗口缺省
BeginVB.TextBoxText1
Height=2655
Left=720
TabIndex=3
Text="Text1"
Top=1080
Width=8415
End
BeginVB.CommandButtonCommand3
Caption="Command3"
Height=855
Left=6360
TabIndex=2
Top=5520
Width=2175
End
BeginVB.CommandButtonCommand2
Caption="Command2"
Height=855
Left=3720
TabIndex=1
Top=5640
Width=2175
End
BeginVB.CommandButtonCommand1
Caption="Command1"
Height=855
Left=840
TabIndex=0
Top=5640
Width=2175
End
End
AttributeVB_Name="Form1"
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
'在Form1的代码窗口中加入以下代码:
OptionExplicit
PrivateSubCommand1_Click()
EventLog=0
hHook=SetWindowsHookEx(WH_JOURNALRECORD,AddressOfHookProc,_
App.hInstance,0)
Command2.Enabled=True
Command1.Enabled=False
EndSub
PrivateSubCommand2_Click()
UnhookWindowsHookExhHook
hHook=0
Command1.Enabled=True
Command2.Enabled=False
Command3.Enabled=True
EndSub
PrivateSubCommand3_Click()
PlayLog=0
hPlay=SetWindowsHookEx(WH_JOURNALPLAYBACK,AddressOfPlaybackProc,_
App.hInstance,0)
Command3.Enabled=False
EndSub
PrivateSubForm_Load()
Command1.Caption="纪录"
Command2.Caption="停止"
Command3.Caption="回放"
Command2.Enabled=False
Command3.Enabled=False
EndSub这些被封了~~vb关于键盘和鼠标的好多api都被封了~~除非注入游戏~~不会有代码~~放弃吧~~至于他们说的winio模拟键盘~呵呵~~早不能在许多游戏中使用了~~~
回复：http://www.jf17173.cn/这个非常不错,大家去看看.
回复：http://192.168.0.2:7000/PaoPao.exe |
