友情链接 简历博客首页
Dec
18

天龙八部辅助打怪工具（VB模拟按键）

脚本&编程
天龙八部,外挂,VB
阅读：1578

某人想一边游戏一边看小说，总是按键点鼠标打怪太累了；用了下按键精灵效果还行，不过一来找按键精灵的免费版本太麻烦了，二来怕游戏识别进程有按键精灵而被封，于是决定帮她用vb写个简单的按键挂。

百度了下VB模拟键盘按键，一般三种方法：局部模拟、全局模拟以及驱动模拟，都是顾名思义的，全局模拟最为通用，所以窗体都发送了，不过在天龙八部没测试成功，改成驱动的，但测试时没加载的了WinIo.dll，最终我才尝试PostMessage，我一直以为这个方法被封了的，结果却没有，于是小辅助工具就可以诞生了。

选怪快捷键设置为：F2，打怪快捷键设置为F1，测试通过。

源码：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwn...
1 Comments
Aug
7

VB打造QQ批量登陆器

脚本&编程
VB,QQ,登录器
阅读：448

QQ太多，每天要输入真的很麻烦，网上有一些批量的登录器，可是谁也不知道有没有在登录的同时也往作者的邮箱里发一封包含qq号与密码的邮件~

于是想自己写，因为asp比较熟，所以选择VB，网上找了2个模块，于是可以直接写程序了，以前没写过application，第一次写，遇到不少困难，不过最后还是搞定了～

下面放主代码，主要是ACCESS数据库的操作：

Private Sub form_Load()
Dim i As Integer
Dim mdbpath As String
Dim strqqpath As String

getvalue strqqpath

If strqqpath = "" Then
qqpath.Text = "未检测到QQ目录，请自行设置！"
Else
qqpath.Text = strqqpath
End If
       
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
mdbpath = appdisk
If Dir(mdbpath & "qqlogin.mdb") = "" Then

Dim pstr As String
pstr = "Provider=Microsoft.Jet.O...
3 Comments