鼠标算密操作程序源代码简介

'sleep函数
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)'获取鼠标坐标Private Type POINTAPIX As LongY As LongEnd TypePrivate Declare Function GetCursorPos Lib “user32” (lpPoint As POINTAPI) As Long’移动鼠标Private Declare Function SetCursorPos Lib “user32” (ByVal X As Long, ByVal Y As Long) As LongPrivate 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)Private Const MOUSEEVENTF_LEFTDOWN = &H2Private Const MOUSEEVENTF_LEFTUP = &H4Private Const MOUSEEVENTF_RIGHTDOWN = &H8Private Const MOUSEEVENTF_RIGHTUP = &H10Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongConst EM_REPLACESEL = &HC2Private f As Integer '文件号Private fileContent() As String '文件内容数组Private currentLine As Integer '当前行号Private Sub Command3_Click()Dim i, j, k, l, m, n As StringDim aDim z As Object Set z = CreateObject(“WScript.Shell”)i = Text2.Textj = Text3.Textk = Text4.Textl = Text5.Textm = Text6.Textn = Text7.TextCall Command5_ClickSleep 500SetCursorPos i, jmouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0Sleep 500 z.SendKeys “^V” ’ 按下Ctrl+V粘贴Sleep 500SetCursorPos k, lmouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0Sleep 500SetCursorPos m, nmouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0Sleep 500For a = 0 To 8Call Command5_ClickSleep 500SetCursorPos i, jmouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0Sleep 500 z.SendKeys “{BackSpace 5}” ’ 按下BackSpace删除 Sleep 500 z.SendKeys “^V” ’ 按下Ctrl+V粘贴Sleep 500SetCursorPos k, lmouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0Sleep 500SetCursorPos m, nmouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0Sleep 500NextEnd SubPrivate Sub Command6_Click()Dim m, n As Stringm = Text6.Textn = Text7.TextSetCursorPos m, nmouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0End SubPrivate Sub Form_Load() '打开文本文件 f = FreeFile Open “C:\Users\28261\Desktop\组合.txt” For Input As f '替换为您的文本文件路径 '将文件内容读取到数组中 Dim lineCount As Integer lineCount = 0 Do Until EOF(f) ReDim Preserve fileContent(0 To lineCount) Input #f, fileContent(lineCount) lineCount = lineCount + 1 Loop '关闭文本文件 Close f '初始化当前行号 currentLine = 0Text1.Text = "C:\Users\28261\Desktop\文本框密码登录程序.exe"End SubPrivate Sub Command1_Click()Dim i, j As Stringi = Text2.Textj = Text3.TextSetCursorPos i, jmouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0End SubPrivate Sub Command2_Click()Dim i As Stringi = Text1.TextShell i, vbNormalFocusEnd SubPrivate Sub Command4_Click()Dim k, l As Stringk = Text4.Textl = Text5.TextSetCursorPos k, lmouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0End SubPrivate Sub Command5_Click() '将当前行复制到剪贴板 Clipboard.Clear '清空剪贴板中的内容 Clipboard.SetText fileContent(currentLine) '设置剪贴板的内容为当前行 '更新当前行号 currentLine = currentLine + 1 If currentLine >= UBound(fileContent) + 1 Then currentLine = 0 '已读取完所有行则重置为第一行 End IfEnd SubPrivate Sub Timer1_Timer()Dim Point As POINTAPIGetCursorPos PointLabel1.Caption = “鼠标坐标:” & vbCrLf & vbCrLf & “鼠标横坐标为：” & Point.X & vbCrLf & “鼠标纵坐标为：” & Point.YEnd Sub以上是程序代码内容。现在介绍一下程序功能，首先准备密码组合.txt文本文件，然后准备一个密码登录应用程序，在文本框里输入应用程序文件路径，然后点击按钮2打开应用程序(或登录程序)，在这里注意本程序与登录程序窗口不要叠在一起，否则鼠标点击不到指定坐标位置。再点击按钮3执行程序，程序会自动按照破解步骤执行(第1步是复制，第2步是点击文本框坐标，第3是粘贴内容，4点击验证按钮，5是若错误则确定。)，后面循环执行以上破解步骤(复制，点击文本框，删除/清空文本框内容，粘贴，验证按钮，确定按钮，循环执行尝试不同密码)。按钮6、按钮1、按钮2都是鼠标坐标位置。钟表按钮显示鼠标当前的坐标位置。对于初学者来说，还有就是在下载了源代码后不知道怎么使用，可以直接选择.vbp文件打开(注意:我这里使用的是vb6.0中文企业版开发工具)，一般都是打开这个文件就可以把全部的文件都打开了，还有就是有时候如果这个.vbp的文件出现打不开的情况，就直接关闭退出，再选择.frm的文件，再打开就可以正常使用了。还有，如果缺少某些需要的文件，对于一些简单的文本文件(例如，.txt)或者缺少声音文件(例如，.MP3)或者缺少图片文件(例如，.JPEG)等情况，因为不同电脑里的文件目录路径可能有所不同，可以自己设计编写或添加进去或者更改为实际文件路径，对于自己不会编写的文件或内容，可以在评论区给我留言或提问，当我看到评论，我会尽快回复。如果还有其他问题，可以联系创作者本人，可以发评论留言或者提问，可以发消息给我，当我看到及时尽快回复。以下是本程序源代码和下载网址。这个:鼠标算密操作程序源代码，是文件名称。vb6.0指的是软件开发工具(vb6.0版本的简体中文企业版)如果是vb.net指的是软件开发工具(vb.net版本的简体中文版2022版本<其实是Visual Studio 2022版本安装选择vb.net插件即可>)注意，在vb.net里，打开源代码文件是选择.sln的文件，这是主文件，打开这个文件就可以运行测试程序代码了。鼠标算密操作程序源代码.zipvb6.0下载网址:https://download.csdn.net/download/qq_32257509/88524699