找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 11617|回复: 3

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

[复制链接]
发表于 2023-2-26 09:52:51 | 显示全部楼层 |阅读模式
本帖最后由 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错误代码原因里的“内存不足”一项里,它写有一种可能是对象实例过多
有关联吗
发表于 2023-2-26 15:12:41 | 显示全部楼层
set pixel(j,i)=new color
500 x 500 个对象?
 楼主| 发表于 2023-2-26 18:48:40 | 显示全部楼层
回复 2# czjt1234


    对
发表于 2023-2-26 19:15:12 | 显示全部楼层
记得Demon说过推荐用数组或字典对象
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 20:41 , Processed in 0.016571 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表