一、魔兽争霸编辑器打开地图时，出现“存储空间不足，无法处理此命令”？
其实那种所谓的未加密图 你打不开 有2种可能
1.他说是未加密 其实是没有进行高加密 模块那里的数据都能获得 但是地图编辑器是打不开的
2.就是你UI 有问题 一般都用 老狼的UI 可以把触发 给汉化掉 而且多了很多函数库 一般的地图制作都需要这个 所以没有就打不开 这是原因 如果是第2个 可以+714851385 要补丁 记得先选好了哦
二、vb中资源编辑器的内容如何运行？
Dim temp() As Byte
temp = LoadResData(101, CUSTOM) '这里要注意
Open C:\swq.sql For Binary As #1
Put #1, 1, temp()
Close #1
Shell C:\swq.sql, vbNormalFocus
注意：后戳名为.sql不能用应用程序方式打开
三、怎样利用visual c++提供的资源编辑器为工程添加多个对话框
我使用的是vc6,我是在
资源管理器
中新建cpp或h文件后再project->add
to
project->files,在弹出的对话框中找到你建立的cpp或h文件然后选中，点确定就加入到你的项目中了。
四、vb6.0如何播放资源文件中的flash？
由于Flash(一下简称腐癞屎)控件不支持程序资源，直接播放资源中的腐癞屎数据是不行的。
但是，曲线救国，我们可以先把资源中的腐癞屎数据，保存为硬盘上的文件，然后在播放。播放完毕之后，再删除生成的腐癞屎文件。对于养生堂毕业的使用者来说，效果就是播放了内置的腐癞屎。喷了半天，老汉我把程序粘贴出来，保存为form1.frm，然后在VB6中运行即可。
直接运行出错，当然出错，你得先按照说明，创建含有腐癞屎的资源文件，或者指定腐癞屎文件才能看到效果。
代码如下：
'----------------------我是Very牛逼的分隔线-------------------------------
VERSION 5.00
Begin VB.Form Form1
BackColor = &H8000000A&
BorderStyle = 1 'Fixed Single
Caption = Form1
ClientHeight = 6045
ClientLeft = 45
ClientTop = 330
ClientWidth = 7650
LinkTopic = Form1
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6045
ScaleWidth = 7650
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = 显示
Height = 855
Left = 4080
TabIndex = 1
Top = 4560
Width = 1935
End
Begin VB.CommandButton Command1
Caption = 关闭
Height = 855
Left = 1920
TabIndex = 0
Top = 4560
Width = 1575
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = VB6播放资源内的腐癞屎
Height = 735
Left = 3960
TabIndex = 2
Top = 840
Width = 2415
End
End
Attribute VB_Name = Form1
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'功能：VB6，播放资源内嵌的腐癞屎
'工程：无需在工程-引用、部件中添加其他内容，保持默认即可
'资源：VB6菜单-外界程序-外界程序管理器-VB 6 资源编辑器。然后工具-资源编辑器-添加自定义资源，将硬盘上的一个SWF文件导入，保存
'文件：如果不使用资源内嵌SWF文件的话，程序更简单，直接使用即可，参看程序代码注释
'窗体：没啥要求，添加两个按钮控件即可
'测试：系统瘟七64位，腐癞屎控件版本 FlashPlayer 32
'年代：2020年，不忘初心牢记使命
'制作：张富贵儿，一个牛逼哄哄的老糟头子，喜欢养生堂毕业的微信老娘们儿
Dim SWFName As String '定义腐癞屎文件名，窗体内变量
Private Sub Command1_Click()
RemoveSWF '移除腐癞屎
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
ResToFile '将资源内的自定义内容保存为swf文件。如果直接使用现成的swf文件，本行注释掉即可
PlaySWFFile '播放腐癞屎
Command2.Enabled = False
Command1.Enabled = True
End Sub
Private Sub Form_Load()
'SWFName = App.Path & \FKlsn.swf '使用本应用程序所在目录
'SWFName =硬盘某个目录的存在的swf文件
'SWFName =硬示例.swf
SWFName = Environ(temp) & \FKlsn.swf '使用系统临时目录
Command1.Enabled = False
End Sub
Sub RemoveSWF()
Controls.Remove Flash '移除腐癞屎
Kill SWFName ' 删除腐癞屎文件。如果不使用资源内嵌的腐癞屎，也就是使用硬盘、网络上的swf，需要将本行注释掉，也就是不用删除文件，防止被删除或出错
End Sub
Sub PlaySWFFile()
'播放腐癞屎文件
Dim tmpCtl As Object
Set tmpCtl = Me.Controls.Add(ShockwaveFlash.ShockwaveFlash, Flash)
tmpCtl.Width = 2000
tmpCtl.Height = 3200
tmpCtl.Top = 200
tmpCtl.Left = 0
tmpCtl.Visible = True
MyBackColor = RGB(192, 192, 192) '颜色，水泥灰，看上去养眼
tmpCtl.object.BackgroundColor = MyBackColor '腐癞屎背景色
Me.BackColor = MyBackColor '窗体背景色。她和腐癞屎背景色相同，好似透明的一样
tmpCtl.object.LoadMovie 0, SWFName
End Sub
Sub ResToFile()
'将资源写入文件
'因为腐癞屎控件不能使用资源，只能使用文件
'SWFName '要生成的腐癞屎文件名称
Dim FileByte() As Byte '用来缓存文件内容
If Dir(SWFName) = SWFName Then '如果该文件存在就删除它
Kill SWFName
End If
FileByte() = LoadResData(101, CUSTOM) '读取资源中的数据，101是索引号
Open SWFName For Binary As #1
Put #1, , FileByte
Close #1
End Sub
哈哈资源文件中无法加入flash，而且VB只能添加avi文件 具体方法：【工程】→【部件】，选择microsoft windows common controls 6.0和microsoft windows common controls-2 5.0（sp2）并确定 添加animation控件（左侧栏中），双击窗体 输入 private form-load() animation1.autoplay=true animation1.open app.path &路径名称
