主题：[原创]更新早知道
孙瑞
[专家分：590] 发布于 2008-06-21 01:02:00
这个软件目前更新到了1.3版
----------------------------
1.功能：检测指定的网页的更新情况，并给出提示，适合喜欢论坛发帖并喜欢关注别人对自己的回帖的网友
2.本软件开放源代码，但请各位初学者转载时注明出处（大虾好像不会屑于我的代码，这本来就是给初学者看的）
3.缺点：暂时不支持保存某个时间点的数据进行跨天比较（比如今天开过程序，明天程序比较今明的更新）
4.热忱欢迎网友提出修改意见！
*5.本人的软件编写原则：立足生活，立足应用！
回复列表 （共9个回复）
沙发
bcahzvip [专家分：6040] 发布于 2008-06-21 03:32:00
请尽量别用第三方控件。
板凳
孙瑞 [专家分：590] 发布于 2008-06-21 18:17:00
别！！
我可没有使用第三方控件！我用的是VB企业版的，可能是你的VB版本不够！
3 楼
tanchuhan [专家分：15140] 发布于 2008-06-22 00:09:00
俺用的是VB精简版,不带任何OCX,所以没法试了,呵呵.
用精简版是因为它体积很小,安装后整个文件夹才11.3MB,而且重装系统后,不用再安装.何乐而不为.
4 楼
tanchuhan [专家分：15140] 发布于 2008-06-22 01:45:00
看了下楼主的代码,缩进有问题:
If disc = 1 Then
Label3.Caption = "WebSite(Chinese) http://guojige.123ye.com"
ElseIf disc = 2 Then
Label3.Caption = "QQ：379650356"
ElseIf disc = 3 Then
Label3.Caption = "Thanks V1.0"
End If
If disc = 1 Then
Label3.Caption = "WebSite(Chinese) http://guojige.123ye.com"
ElseIf disc = 2 Then
Label3.Caption = "QQ：379650356"
ElseIf disc = 3 Then
Label3.Caption = "Thanks V1.0"
End If
5 楼
guoyong_cy [专家分：3050] 发布于 2008-06-23 02:42:00
我也有同感：
Function compare()
On Error Resume Next
For i = 1 To count1
ds = furl(i)
dds = Inet1.OpenURL(ds)
If temps(i) <> dds Then
news(i) = "有更新！"
List3.AddItem fname(i) & "有更新！"
MsgBox fname(i) & "有更新！"
temps(i) = dds
Else
End If
Next i
DoEvents
End Function
象这样，简直没法看，估计你还没写过更大型的代码吧
我在10年前用foxbase编程时和你一样，也不缩进的，呵呵
6 楼
孙瑞 [专家分：590] 发布于 2008-06-25 21:58:00
谢谢二位的建议，我会采纳的！
缩进是为了方便查看程序结构吧？应该是的！
7 楼
crackdung [专家分：650] 发布于 2008-06-25 22:02:00
编写层次不分明，
这里有个更好现成的控件，楼主可以参考一下
http://www.weonlydo.com/index.asp?showform=AppUpdate
8 楼
cxj98 [专家分：40] 发布于 2008-06-27 07:42:00
楼上的就是破解高手吧！！！
9 楼
孙瑞 [专家分：590] 发布于 2008-06-27 23:41:00
开玩笑！
那个东西要美元！
我可是社会主义好少年，没那些东东！
我来回复
您所在位置：