[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] [已解决]求助,vbs内存暴涨

本帖最后由 jyswjjgdwtdtj 于 2023-2-26 19:50 编辑

代码如下
myheight和mywidth大概500多
argb是一个字符串的8位的16进制数,toten将16进制数转为10进制
  1. for i=1 to myheight
  2. for j=1 to mywidth
  3. k=k+1
  4. argb=hex(argbdata(k))
  5. set pixel(j,i)=new color
  6. with pixel(j,i)
  7. .argb=toten(argb)
  8. .alpha=toten(mid(argb,1,2))
  9. .red=toten(mid(argb,3,2))
  10. .green=toten(mid(argb,5,2))
  11. .blue=toten(mid(argb,7,2))
  12. end with
  13. next
  14. next
复制代码
  1. class color
  2. public argb
  3. public red
  4. public green
  5. public blue
  6. public alpha
  7. end class
复制代码
为什么会消耗那么多内存?
在vbs错误代码原因里的“内存不足”一项里,它写有一种可能是对象实例过多
有关联吗

set pixel(j,i)=new color
500 x 500 个对象?

QQ 20147578

TOP

回复 2# czjt1234


    对

TOP

记得Demon说过推荐用数组或字典对象

QQ 20147578

TOP

返回列表