Pippen_z

在本地登录WEB QQ Private Function getHtmlStr$(strUrl$) '获取源码 Dim XmlHttp Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "GET&q

大家都知道网上有留邮箱的帖子吧？但是lz一个一个发很累所以我就做了个软件,只要复制要发邮箱的网页地址，点击“一键发送”就可以让所有留邮箱的人 收到你邮件了至于附件只能在源代码里添加，推荐使用迅雷快传之类的辅助一下 大家都知道各大论坛都有留邮箱发资源的帖子吧？但是发资源的lz一定觉得很累，要一个一个

Beautiful VB button control jcbuttonOcx

可以支持VB6的真彩图标，修改form的ICO属性就可以设置。共87个，16*16128*128有很多漂亮的

Public cn As ADODB.Connection Public rs As ADODB.Recordset Private Sub Form_Load() Set rs = New ADODB.Recordset OpenDB rs.Open "select * from Large",