跳页:
(共 3 页)
跳页:
(共 3 页)
|
引用 | 编辑
n3ph223172
2011-09-02 21:00 |
60楼
▼ |
下面是引用 ebolaman 于 2011-08-29 15:36 发表的 : 除了安装VB2010以外没有其他的方法吗? 听说好像VB6写出来的程式比较少问题??  x0
|
|
|
引用 | 编辑
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 出了什么问题 x0
|
|
|
引用 | 编辑
n3ph223172
2011-09-05 23:07 |
62楼
▲ ▼ |
|
对近开学了，开始忙课业了，不好意思，要一阵子才能测试了
x0
|
|
|
引用 | 编辑
ebolaman
2011-09-08 16:44 |
63楼
▲ ▼ |
下面是引用 n3ph223172 于 2011-09-05 23:07 发表的 : 没关系，慢慢来 课业为重，程式为辅。 x1
|
|
|
引用 | 编辑
iamboss123
2014-01-12 14:29 |
65楼
▲ |
|
不错 解决问题了
x0
|
|