怎样用VB控制鼠标和键盘(
用VB代码锁定键盘和鼠标 -
我给一个VB6.0的答案给你做参考，我也菜，多多指教``锁定键盘鼠标按照你提供的思路，只要将form1设成和屏幕一样大.然后把其borderstyle属性值改为0(无边框),这样就无法用移动了.呵呵，但是可以切换，再然后加个计时器，秒秒钟检测鼠标在不在某个地方，如果不在，马上移动鼠标到这个地方，这样又锁定鼠标了.但是不知道等我继续说。
KBCWait4IBE '等待键盘缓冲区为空SetPortVal KBC_KEY_CMD, &HD2, 1 '发送键盘写入命令KBCWait4IBE SetPortVal KBC_KEY_DATA, &HE0, 1 '写入扩展键标志信息KBCWait4IBE '等待键盘缓冲区为空SetPortVal KBC_KEY_CMD, &HD2, 1 '发送键盘写入命令KBCWait4IBE SetPortVal K等会说。
我给一个VB6.0的答案给你做参考，我也菜，多多指教``锁定键盘鼠标按照你提供的思路，只要将form1设成和屏幕一样大.然后把其borderstyle属性值改为0(无边框),这样就无法用移动了.呵呵，但是可以切换，再然后加个计时器，秒秒钟检测鼠标在不在某个地方，如果不在，马上移动鼠标到这个地方，这样又锁定鼠标了.但是不知道等我继续说。
KBCWait4IBE '等待键盘缓冲区为空SetPortVal KBC_KEY_CMD, &HD2, 1 '发送键盘写入命令KBCWait4IBE SetPortVal KBC_KEY_DATA, &HE0, 1 '写入扩展键标志信息KBCWait4IBE '等待键盘缓冲区为空SetPortVal KBC_KEY_CMD, &HD2, 1 '发送键盘写入命令KBCWait4IBE SetPortVal K等会说。
你的意思是，在text1中按键盘或按鼠标吗？这样的话，再添加一个Timer控件（起初设置Enabled=False，Interval不要为0就可以了），把你要运行的代码放在Timer1_Timer里，然后在Text1里按F10时，Timer1.Enabled=True，而按F12时，Timer1.Enabled=False 照着这样的思路，可以这样写代码：Rem 按健盘，vbK到此结束了？。
"\2.txt"这个函数也可以移动文件，并重命名文件名，也可以直接改文件名，总的来说两个功能都差不多，随便你用哪一个，这个直接操作文件，不需要按什么按键了。至于你说的当某个程序打开的时候才操作，那就需要用到API函数了，不懂API是什么的话需要百度找一下相关资料，因为这个解释太多了。给你说有帮助请点赞。
怎样用VB控制鼠标移动 -
电脑的坐标原点在右上方的顶点为(0,0)点至于你说的鼠标移动是点击某个按键让鼠标移动吗？触发键盘事件然后在代码终调用Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long Private Declare Function GetCursorPos Lib "user32" (lpPoint As 是什么。
可以用SetCursorPos函数设置鼠标位置Mouse_Event函数执行鼠标动作复制下列代码就能实现程序运行点击开始菜单了，你可以稍加了解这2个函数的作用就能达到你的编程目的Private Declare Sub Mouse_Events Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long,等我继续说。
如何在VB.net中用程序控制鼠标移动和点击 -
&H40 '模拟鼠标中间键释放Public Const MOUSEEVENTF_RIGHTDOWN = &H8 '模拟鼠标右键按下Public Const MOUSEEVENTF_RIGHTUP = &H10 '模拟鼠标右键释放Public Const MOUSEEVENTF_MOVE = &H1 '模拟鼠标指针移动例：mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0 '在（10，10）模拟鼠标左键按下希望你能满意。
'在窗口添加个 Timer 控件，Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type Dim Tx As Long, Ty As Long, P As POINTAPI Sub Form_Load()Timer1.Enabled = True Timer1.Interval = 100 GetCu好了吧！
用vb编写程序,键盘控制鼠标点击 -
用键盘事件接收键盘输入，然后用API SetCursorPos 来移动鼠标到指定坐标 mouse_event 来模拟鼠标单击 声明部分Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal 等我继续说。
MyKey = GetAsyncKeyState(vbKeyLButton)End FunctionPrivate Sub Form_Load()CC = "记录鼠标"SSSDDD = "0"Timer1.Enabled = TrueTimer2.Enabled = FalseTimer3.Enabled = FalseLabel5.Caption = "用法：1 开始录制时按下A 键停止录制；" & vbCrLf & _ " 2 本软件还可以按下S 锁定鼠标和键盘，不可还有呢？