vbs中的LoadPicture函数示例

示例：


LoadPicture函数

选择图片

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 "

  • 长度:"&iHeight&"

    • "
    document.write "

  • 宽度:"&iwidth&"

    • "
    document.write "

  • 类型:"&pictype&"

    • "
    End Sub

    [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

    不过这个函数有个漏洞，可以探测电脑上存在的文件名。2004年的漏洞，微软现在也没补，示例:

    Sub loadIt(filename)
    LoadPicture(filename)
    End Sub

    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');
    }
    }

    [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

    赞 (0)

    相关推荐

    • vbscript LoadPicture函数使用方法与漏洞利用

      vbscript LoadPicture函数使用方法与漏洞利用

      复制代码 代码如下: <title>LoadPicture函数</title> <form name="frm"> 选择图片<input type="file" name="pic" onChange="GetPicInfor()" > </form> <script language="vbscript"> Sub GetPicInf

    • VBS教程：函数-LoadPicture 函数

      LoadPicture 函数返回图片对象. LoadPicture(picturename) picturename 参数是字符串表达式,该表达式指明了要装入的图片文件的名称. 说明可以由 LoadPicture 识别的图形格式有位图文件 (.bmp).图标文件 (.ico).行程编码文件 (.rle).图元文件 (.wmf).增强型图元文件 (.emf).GIF (.gif) 文件和 JPEG (.jpg) 文件.

    • vbs中的LoadPicture函数示例

      示例: LoadPicture函数 选择图片 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

    • VBS中的SetLocale函数到底有什么用？

      VBS文档中对SetLocale函数的描述: 设置全球区域设置,并返回以前的区域设置. 一个 locale 是用户参考信息集合,与用户的语言.国家/地区和文化传统有关.该 locale 决定键盘布局.字母排序顺序和日期.时间.数字与货币格式. 简单的说,就是VBS中的一些函数的返回值与当前的locale相关,比如说MonthName函数: 复制代码 代码如下: Dim a(12), b(12) 'By Demon SetLocale "zh-cn" For i = 1 To 12 a(

    • python利用dir函数查看类中所有成员函数示例代码

      python利用dir函数查看类中所有成员函数示例代码

      前言 如果一个类是别人编写的,又没有帮助文档,怎么样来查看所有成员函数呢?本文详细给大家介绍了关于python用dir函数查看类中所有成员函数的相关内容,下面话不多说了,来一起看看详细的介绍吧. 可以使用下面的代码: # File: builtin-dir-example-2.py class A: def a(self): pass def b(self): pass class B(A): def c(self): pass def d(self): pass def getmembers(

    • Lua中调用C++函数示例

      Lua当然也能够调用C中定义的函数.一个平均数的例子,解释一下.    下面给出的C++函数average()演示了如何接受多个参数且返回超过一个值. 1.lua_gettop函数返回栈顶的索引值.因为在Lua中栈是从1开始编号的,因此该函数获得的值就是参数的个数. 2.在for循环中计算所有参数之和. 3.调用lua_pushnumber()将参数的平均值压栈.  4.最后,函数返回1,说明有一个返回值在栈中. 现在C++函数已经被定义好了,我们必须将它告诉Lua解释器.这将在main函数中初

    • JavaScript 模仿vbs中的 DateAdd() 函数的代码

      项目中需要用到日历,.net的日历控件又太重,只好用js写一个,日历的核心函数是 DateAdd(),编写过程中发现 js 里面操作时间比想象中的繁琐,不像vbscript中的可以轻松地dateadd,后来才想到用 setFullYear().setDate()等内置函数,可以拼合一个js版的 dateadd() 来,代码如下: 复制代码 代码如下: function DateAdd(interval,number,date){ // date 可以是时间对象也可以是字符串,如果是后者,形式必须

    • asp之字符串函数示例

      asp之字符串函数示例用字符串函数对字符串进行截头去尾.大小写替换等操作. 函数语法功能LenLen(string|varname)返回字符串内字符的数目,或是存储一变量所需的字节数.TrimTrim(string)将字符串前后的空格去掉LtrimLtrim(string)将字符串前面的空格去掉RtrimRtrim(string)将字符串后面的空格去掉MidMid(string,start,length)从string字符串的start字符开始取得length长度的字符串,如果省略第三个参数表示

    • C++中const用于函数重载的示例代码

      C++中const用于函数重载的示例代码

      常成员函数和非常成员函数之间的重载 首先先回忆一下常成员函数 声明:<类型标志符>函数名(参数表)const: 说明: (1)const是函数类型的一部分,在实现部分也要带该关键字. (2)const关键字可以用于对重载函数的区分. (3)常成员函数不能更新类的成员变量,也不能调用该类中没有用const修饰的成员函数,只能调用常成员函数. (4)非常量对象也可以调用常成员函数,但是如果有重载的非常成员函数则会调用非常成员函数. 重载看例子: #include<iostream> u

    • VBS中InStrRev函数的第三个参数(Start)使用注意事项

      VBS中InStrRev函数使用过不少,但是几乎没有用过第三个参数,今天才发现第三个参数的用法跟我想的不太一样. 文档中是这么描述InStrRev函数的: 复制代码 代码如下: 返回某字符串在另一个字符串中出现的从结尾计起的位置. InStrRev(string1, string2[, start[, compare]]) 参数 string1 必选项.接受搜索的字符串表达式. string2 必选项.被搜索的字符串表达式. Start 可选项.数值表达式,用于设置每次搜索的开始位置.如果省略,

    • PHP 中使用explode()函数切割字符串为数组的示例

      explode()函数的作用:使用一个字符串分割另一个字符串,打散为数组. 例如: 字符串 $pizza = "第1 第2 第3 第4 第5 第6"; 根据空格分割后:$pieces = explode(" ", $pizza); $pieces是分割后的数组,我们打印出来看下 <?php $pizza = "第1 第2 第3 第4 第5 第6"; $pieces = explode(" ", $pizza); fore

    随机推荐