vb程序在线自动升级问题

[zixing]

Public Sub UpData() '在线升级
On Error Resume Next
Dim MyData() As Byte, VerInfo() As Byte, Ti As Long, Tj As Long

If Inet1.StillExecuting = True Then Exit Sub
VerInfo() = Inet1.OpenURL("http://www.xxx.com/uploadsoft/update.txt", icString)
Ti = InStr(1, VerInfo, vbCrLf) + 2
Tj = InStr(Ti, VerInfo, vbCrLf)

'检测版本号
If Val(Left$(VerInfo, Ti - 3)) <= Val(App.Major & "." & App.Minor & App.Revision) Then Exit Sub
If MsgBox("SWpsF 发布了新的版本：" + Left$(VerInfo, Ti - 3) + "，文件大小：" + Mid$(VerInfo, Tj + 2) + "，是否进行在线升级 ？", vbYesNo + vbQuestion, "在线升级") = vbNo Then Exit Sub
IsUp = True

'开始下载更新文件
MyData() = Inet1.OpenURL("http://www.xxx.com/uploadsoft/" + Mid$(VerInfo, Ti, Tj - Ti), icByteArray)
Open App.Path + "\" + Mid$(VerInfo, Ti, Tj - Ti) For Binary Access Write As #1
Put #1, , MyData()
Close #1
IsUp = False
'执行更新文件
ShellExecute 0, vbNullString, App.Path + "\" + Mid$(VerInfo, Ti, Tj - Ti), vbNullString, App.Path, SW_SHOWNORMAL
End
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
在执行了put #1,,mydata() 以后,写出的文件是一个4K大小的文件,文件名是一样的,不是我想要下来的文件,请高手帮看下有什么问题,还有啊,后面这个SHELLEXECUTE可以在本程序执行的时候强制关闭掉本身而运行那个程序吗?

[zixing]

------------天.没高手了/

[ni871]

留下你的邮箱，确认你已给分后，再发给你！！

[ni871]

必须先给分哦！！谢谢合作！！

[zixing]

好吧.

[zixing]

给你了

[zixing]

分给你啦/赶紧的发来

[zixing]

...我一定给你分啊[e-mail]发给我好了.

[嗷嗷叫的老马]

[zixing]

我被他给骗了。。。大家都别给他解决问题哈。。

[嗷嗷叫的老马]

哪有你这么天真的人,汗.

[ying987]

这世道骗子还真多

[zixing]

是呀.我在CSDN玩了这么久,第一次遇见这么坏的人呢