- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
楼主
发表于 2007-2-12 14:12
| 只看该作者
关于是否需要软件内置更新提示的投票!
新版本提示模块是软件在2.0得时候全面加入得,原先是一个外置的VBE文件,大家可以在2.0软件包内看到一个名叫stdlia.vbe的文件,右键点击选择编辑就能查看源代码,3.0版本得时候把代码写到软件里面去了,因为外置得话没网络时会报错!
最近发现卡吧会在新版检测得时候叫一声,应该是读取网络上版本信息的时候访问了网络卡吧才叫,但没不安全代码所以卡吧没提示,
真是因为发现了卡吧会叫所以征求大家意见,这个模块是应该加上还是应该取消掉!大家都投票发表下意见吧!投票为多选!
下面为检测新版本发现新版本提示的源代码,大家可以检测安全性!新建个文本保存为VBS文件或者VBE文件就能运行,或者直接从2.0版本得软件包内拿!
新版提示例图:
dim fso,file,filename,text,bbxx,sftsgx,tsxxnr,tsxxnrc,CurrDir,oFile,i
CurrDir = CreateObject("WScript.shell").CurrentDirectory
Set oFile = WScript.GetObject("http://www.szyin.com/sn/sj/fochuchao.txt")
Do Until oFile.readyState = "complete"
WScript.Sleep 200
Loop
Set objShell = CreateObject("WScript.Shell")
strCurrentDirectory = CreateObject("Wscript.Shell").CurrentDirectory
set fso=CreateObject("Scripting.FileSystemObject")
const forwriting=2
const forreading=1
set myfile=fso.createtextfile(strCurrentDirectory&"\stdlia.zw")
myfile.writeline(oFile.all(4).innerHTML)
myfile.Close
filename=(strCurrentDirectory&"\stdlia.zw")
Set file=fso.OpenTextFile(filename,ForReading)
For i=1 to 5
text=file.ReadLine
If text="[ban]" then
bbxx=file.ReadLine
ElseIf text="[ti]" then
sftsgx=file.ReadLine
sftsgx=int(sftsgx)
ElseIf text="[a]" then
tsxxnr=file.ReadLine
ElseIf text="[b]" then
tsxxnrb=file.ReadLine
ElseIf text="[c]" then
tsxxnrc=file.ReadLine
End If
Next
file.close
If bbxx>2.1 then
If sftsgx>0 then
If sftsgx=3 then
msgbox(tsxxnr&vbcr&tsxxnrb&vbcr&tsxxnrc)
ElseIf sftsgx=2 then
msgbox(tsxxnr&vbcr&tsxxnrb)
ElseIf sftsgx=1 then
msgbox(tsxxnr)
End If
End If
End If
Wscript.Quit |
|