- mmaxcai - 51CTO技术博客-领先的IT技术博客

网络技术博客

注册 | 登录忘记密码？

51cto首页 | 博客 | 论坛 | 招聘

热点文章

小五实习笔记1

文章

QQ密码算法用于命令行登录

QQ密码算法用于命令行登录

2008-07-30 12:38:42

以下启动QQ调用
QQ.exe /START QQUIN:[QQ号] [算出的密码] /STAT:[是否隐身]
隐身/不隐身: 40/41
例:D:\Program Files\Tencent\QQ\QQ.exe /START QQUIN:12345678 PWDHASH:JdVa0oOqQAr0ZMdtcTwHrQ== /STAT:41

以下密码算法调用
Public Function Str2QQPwdHash(Str1 As String)
Str2QQPwdHash = Hex2Base64(MD5(Str1, 32)) & "=="
End Function

以下模块代码
Private m_lOnBits(30)
Private m_l2Power(30)
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
F..

类别：my class | 阅读全文(21) | 回复(0)

QQ自动申请

QQ自动申请

2008-07-30 12:02:06

一、我用的是网页申请email的方式，进行自动填写网页来申请的，用VB编写
二、验证码现在没有办法来处理，需要手工处理
三、一个IP申请QQ个数目前是10个，可以用IP代理的问题来处理这个问题，如果是自己adsl更好办，直接写个批处理重拨号
四、关于自动填写的一些重点
A、一些下拉框中在选择后有一些事件，如果不处理，会当成非法访问或不识别的数据。比如省份选择了北京，一定要激活一个onchange事件，关键代码为：WebBrowser1.Document.Forms(0).Item("State").fireEvent("onchange")
B、下拉框中的问题，�..

类别：my class | 阅读全文(25) | 回复(0)

检测弹出窗口,发送单击消息

检测弹出窗口,发送单击消息

2008-05-26 13:44:23

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const BM_CLICK = &HF5..

类别：my class | 阅读全文(3) | 回复(0)

电大在线学习软件

电大在线学习软件

2008-05-26 13:41:05

'因为没有那么多时间挂在线上学习，所以写了个程序偷点懒，基本思想是:建立控件组，重复装载登陆页面．在线时间与登录页面成正比．用sendMessage 函数模拟人工输入．基本上没有技术含量，能用就行了．
Dim ttimerss
Dim username
Dim password
Dim rul
Dim myi
Dim myii
Dim lef
Dim topp
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWn..

类别：my class | 阅读全文(22) | 回复(0)

简易刷博器

简易刷博器

2008-05-20 14:05:15

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 dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) '定义鼠标事件
Dim zanting
Dim maxci
Dim allci
Dim ci
Dim jb
Dim m
Dim x
Dim y
Dim N
Dim zhtz As String
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTA..

类别：my class | 阅读全文(31) | 回复(0)

<< 1 2 3 >> 页数 ( 1/3 )