编程论坛 » VB.NET论坛 » QQ登陆器源代码(VB2005)

qlong0728 发表于 2007-10-24 15:39

QQ登陆器源代码(VB2005)

<P>因代码比较大,上传不了.<BR><BR>只能共享出来下载了.<BR><BR><a href="http://59.39.144.230/sinofile/qqlogin.rar" target="_blank" >http://59.39.144.230/sinofile/qqlogin.rar</A><BR><BR>技术交流/学无止境.</P>

xinfresh 发表于 2007-11-6 09:29

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

xinfresh 发表于 2007-11-6 10:51

<P><BR>刚读完你的代码，发表一下感想：<BR><BR>1,一直贯彻着.net framework的东西，主要采用My,Using，Microsoft.VisualBasic.FileIO.TextFieldParser这种类，让我感觉很".net"，向你学习！<BR>2,界面风格很"QQ"，文本的边框竟然是4个PictureBox，很好看，向你学习！<BR>3,对QQ的参数比较了解，我也从中有很大收获<BR><BR><BR>4,为什么要进行：<BR>HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\", "CheckedValue", "1"<BR>这个操作，之后又不改回来？感觉没有必要设置隐藏<BR>5,在"设置目录"的时候，可以用FolderBrowserDialog,就不用<BR>TextBox1.Text = OpenFileDialog1.FileName<BR>QQDir = Replace(OpenFileDialog1.FileName, "QQ.exe", "")<BR>这么麻烦了<BR>6,怎么知道QQ的启动参数的？有没有通用的方法获得某一个程序的启动参数？<BR>7,个人以为在WriteQQData过程中，反复的使用My.Computer.FileSystem.WriteAllText效率不高，毕竟这个东西每次都要开关文件一次，不如打开一个流，写完再关闭的好。<BR>8,在ReadQQData过程中，其实：<BR>Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(Application.StartupPath &amp; "\QQLoginData.dat")<BR>            MyReader.TextFieldType = FileIO.FieldType.Delimited<BR>            MyReader.SetDelimiters(" ")<BR>            While Not MyReader.EndOfData<BR>                ListView1.Items.Add(MyReader.ReadFields(0))<BR>            End While<BR>        End Using</P>
<P>        Using MyReader1 As New Microsoft.VisualBasic.FileIO.TextFieldParser(Application.StartupPath &amp; "\QQLoginData.dat")<BR>            MyReader1.TextFieldType = FileIO.FieldType.Delimited<BR>            MyReader1.SetDelimiters(" ")<BR>            While Not MyReader1.EndOfData<BR>                Pass(I) = MyReader1.ReadFields(1)<BR>                I = I + 1<BR>            End While<BR>        End Using</P>
<P>        Using MyReader2 As New Microsoft.VisualBasic.FileIO.TextFieldParser(Application.StartupPath &amp; "\QQLoginData.dat")<BR>            MyReader2.TextFieldType = FileIO.FieldType.Delimited<BR>            MyReader2.SetDelimiters(" ")<BR>            While Not MyReader2.EndOfData<BR>                YinS(J) = MyReader2.ReadFields(2)<BR>                J = J + 1<BR>            End While<BR>        End Using<BR>完全可以写在一个While里面<BR>9,在HashBase64里面，md5加密后，似乎重新运行程序就不能转回密码了，怎么办？<BR><BR>全是个人意见，仅作参考</P>

wmx605 发表于 2007-11-22 19:47

THANKS!!!!

yelangpp 发表于 2008-2-21 11:11

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

lxmbby 发表于 2008-2-25 16:50

都是高手  值得学习

hemingsheng 发表于 2008-3-18 12:42

回复 1# 的帖子

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

qlong0728 发表于 2008-3-19 09:15

引用WindowsControlLibrary1.dll就可以了!

hemingsheng 发表于 2008-3-19 12:28

原来如此 。。。
谢谢了

michelleyxc 发表于 2008-3-31 12:55

值得学习

shezhenhui1989 发表于 2008-3-31 16:24

感谢，好东西啊

B060815 发表于 2008-4-1 17:07

樓主：
    圖片按鈕中'鼠標按下圖片'，'懸停圖片'等屬性哪裡來的？我這怎麼沒有？請賜教。謝謝

xiayun1009xy 发表于 2008-4-17 22:26

哪个加密怎么用的啊!!看了还是不懂!更简单的说下吗?3Q了哦

yinje2005 发表于 2008-4-18 00:27

关于编辑按钮的问题

我点击编辑按钮则弹出异常提示，不知道你发现没有啊！
能不能说一说你的环境。

syf 发表于 2008-9-5 19:58

我怎么生成不了啊

查看完整版本: QQ登陆器源代码(VB2005)