引用 | 编辑
n3ph223172
2011-09-02 21:00 |
60楼
▼ |
引用 | 编辑
ebolaman
2011-09-02 22:14 |
61楼
▲ ▼ |
下面是引用 n3ph223172 于 2011-09-02 21:00 发表的 : 是啊,VB6 写出来的都很稳定,可是 VB6 未来的作业系统几乎都不支援了 VB2010 转到 VB6 也有巨大的困难,两者的程式码差异很大 (1) 之前的 无法复制档案 错误,可能造成错误的程式码只有这行 : My.Computer.FileSystem.CopyFile(dataDir & "CS_Update" & cData.listUpdate(l), curDir & cData.listUpdate(l), True) dataDir 就是 %Temp%\ 中的资料夹,curDir 则是目前程式启动位置的资料夹 侦错方法 : 在 frm_main 中的 Sub local_new_copyfile 把里面最后一行改掉 (之后记得改回来): 原本是 复制程式 Err_2: local_show_errDlg("Err_copyFile", cData.listUpdate(l)) 改成 复制程式 Err_2: local_show_errDlg("Err_copyFile", cData.listUpdate(l)): MsgBox(Err.Description, MsgBoxStyle.Critical, "Debug mode") 然后让发生这个错误的电脑再去跑一次这编译的程式,然后回报错误的讯息 我猜一定是资料夹路径出了什么问题,搞不好是防毒挡下来的 (2) 之前那个 执行阶段错误 我怀疑有可能是这一行引发错误的 : flagUpdate = Not CBool(cData.listHash(l) = buff.ToString) cData.listHash() 的资料是在 Sub data_load_index 增加的,index 超出范围就代表当初没加到 就代表 index.txt 下载过程可能出问题,或是伺服器档案出错,编码错误的可能性不大 侦错方法 : 在 flagUpdate = Not CBool(cData.listHash(l) = buff.ToString) 前面加上这三行 : 复制程式 MsgBox(cData.listHash.Count) Clipboard.Clear() Clipboard.SetText(My.Computer.FileSystem.ReadAllText(dataDir & "index.txt")) 会有一个框框跳出,如果写 0 就代表当初 index.txt 解析过程有问题,才会没读到 MD5 码 (如果写 1 以上 ,就是我前面说错了) 然后让那台电脑使用者把 剪贴簿 的文字贴过来看看,看看他从 FTP 下载回来的 index.txt 出了什么问题 ![]() |
引用 | 编辑
n3ph223172
2011-09-05 23:07 |
62楼
▲ ▼ |
对近开学了,开始忙课业了,不好意思,要一阵子才能测试了
![]() |
引用 | 编辑
iamboss123
2014-01-12 14:29 |
65楼
▲ |
不错 解决问题了
![]() |