{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','https://www.xiaopingtou.cn//data/attach/topic/topicKPo7gB.jpg', '推荐 yunxialeiyu 的文章《如何释放资源管理器中的文件到指定目录下》','https://www.xiaopingtou.net/article-61340.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
Dim Pic() As Byte '声名必须是数组为byte类型Pic = LoadResData(101, "CUSTOM") '使用loadresdate函数把资源文件数据放到变量中 101为要释放的文件编号a = App.Path & "****.***" '这个变量a存储要释放文件的路径和存储文件的名字[包含后缀]Open a For Binary As #1 '这里是使用open语句建立这个文件Put #1, , Pic '使用的是 put# 语句Close #1