在本地登录WEB QQ Private Function getHtmlStr$(strUrl$) '获取源码 Dim XmlHttp Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "GET", strUrl, True XmlHttp.send stime = Now '获取当前时间 While XmlHttp.ReadyState 4 DoEvents ntime = Now '获取循环时间 If DateDif

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

大家都知道网上有留邮箱的帖子吧？但是lz一个一个发很累 所以我就做了个软件,只要复制要发邮箱的网页地址，点击“一键发送”就可以让所有留邮箱的人 收到你邮件了至于附件只能在源代码里添加，推荐使用迅雷快传之类的辅助一下 大家都知道各大论坛都有留邮箱发资源的帖子吧？但是发资源的lz一定觉得很累，要一个一个发，十分麻烦，所以我做了这个软件，可以让lz在3秒之内发完全部邮件！ 目前已经可以在线更新和为设计者写信提意见，功能十分强大 警告：您发邮件的同时ip，将会被记录，严禁发含非法内容的邮件，发邮件带来

还在为单调的VB默认按钮发愁吗？jcbuttonOcx可以解决你的这个问题了，很漂亮哦！！ JCButton Type:- ActiveX Control Version:- 1.14 Author:- Juned Chhipa Release:- 10 January 2009 JCButton is a professional ActriveX Control that is easy to use as a normal command button. Originally, this

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", cn, 1, 3 Do While Not rs.EOF Combo1.AddItem rs("Descr iption") rs.MoveNext Loop End Sub