请问哪个高手可以给我一个VB6.0简体中文版的语言代码？

答案:2 悬赏:50 手机版

解决时间 2021-07-26 21:14

提问者网友：几叶到寒
2021-07-26 01:21

请问谁能给我一个简单的可以让鼠标失灵的VB6.0代码？并附带使用说明，详细介绍

注：本人要此代码纯属学习娱乐，并没有恶意行为，请各位高手赐教...

最佳答案

五星知识达人网友：独钓一江月
2021-07-26 02:49

http://119.147.41.16/down?cid=C4A9266F18AE1FF87228E4D463411CE9D58A26D2&t=2&fmt=&usrinput=vb6&dt=2004000&ps=0_0&rt=0kbs&plt=0

Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String)
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Const MOUSEEVENTF_LEFTUP = &H4 ' left button up

程序中
SetCursorPos 455, 234 '你所需要点的位置
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0& '模拟鼠标点击

全部回答

1楼网友：轮獄道
2021-07-26 03:24

API函数。

就加在代码中就可以了。

不要控件。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息