因代码比较大,上传不了.

只能共享出来下载了.

http://59.39.144.230/sinofile/qqlogin.rar

技术交流/学无止境.

请问你这个设备对哪些版本的Q支持呢

刚读完你的代码，发表一下感想：

1,一直贯彻着.net framework的东西，主要采用My,Using，Microsoft.VisualBasic.FileIO.TextFieldParser这种类，让我感觉很".net"，向你学习！
2,界面风格很"QQ"，文本的边框竟然是4个PictureBox，很好看，向你学习！
3,对QQ的参数比较了解，我也从中有很大收获


4,为什么要进行：
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\", "CheckedValue", "1"
这个操作，之后又不改回来？感觉没有必要设置隐藏
5,在"设置目录"的时候，可以用FolderBrowserDialog,就不用
TextBox1.Text = OpenFileDialog1.FileName
QQDir = Replace(OpenFileDialog1.FileName, "QQ.exe", "")
这么麻烦了
6,怎么知道QQ的启动参数的？有没有通用的方法获得某一个程序的启动参数？
7,个人以为在WriteQQData过程中，反复的使用My.Computer.FileSystem.WriteAllText效率不高，毕竟这个东西每次都要开关文件一次，不如打开一个流，写完再关闭的好。
8,在ReadQQData过程中，其实：
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(Application.StartupPath & "\QQLoginData.dat")
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.SetDelimiters(" ")
While Not MyReader.EndOfData
ListView1.Items.Add(MyReader.ReadFields(0))
End While
End Using

Using MyReader1 As New Microsoft.VisualBasic.FileIO.TextFieldParser(Application.StartupPath & "\QQLoginData.dat")
MyReader1.TextFieldType = FileIO.FieldType.Delimited
MyReader1.SetDelimiters(" ")
While Not MyReader1.EndOfData
Pass(I) = MyReader1.ReadFields(1)
I = I + 1
End While
End Using

Using MyReader2 As New Microsoft.VisualBasic.FileIO.TextFieldParser(Application.StartupPath & "\QQLoginData.dat")
MyReader2.TextFieldType = FileIO.FieldType.Delimited
MyReader2.SetDelimiters(" ")
While Not MyReader2.EndOfData
YinS(J) = MyReader2.ReadFields(2)
J = J + 1
End While
End Using
完全可以写在一个While里面
9,在HashBase64里面，md5加密后，似乎重新运行程序就不能转回密码了，怎么办？

全是个人意见，仅作参考

THANKS!!!!

都是高手哟，学习学习啰。

都是高手  值得学习

想请教一下版主，你的那个图片按钮怎么完成的。。。
在工具箱里面没有那个可以在属性面板上直接设置鼠标滑过，点击的图片的控件呢。。。。
麻烦版主教教小弟怎么弄 OK？？
谢了。。。

引用WindowsControlLibrary1.dll就可以了!

原来如此 。。。
谢谢了

值得学习