刚读完你的代码，发表一下感想：
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加密后，似乎重新运行程序就不能转回密码了，怎么办？
全是个人意见，仅作参考
