虽然退出程序时这些对象的指针都被自动施放了,但是如果你自己又不能确认是否真正地释放了打开的数据库对象,那么就有可能数据库连接没有马上被释放掉,从而被这些对象所占用的内存就再也不能被操作系统再次分配计算机通过地址读写地址对应的内存的值,完成变量的赋值和访问值的功能常用于通过重定向将属性从一个请求传递到另一个请求下面是一个典型的例子,检测字符串中是否包含一个元音字母:

1、普通的方法:

IfUCase$(char)="A"OrUCase$(char)="E"OrUCase$(char)="I"OrUCase$(char)="O"OrUCase$(char)="U"Then

'itisavowel

EndIf

2、更加简练的方法:

IfInStr("AaEeIiOoUu",char)Then

'itisavowel

EndIf

同样,通过单词中没有的字符作为分界符,使用InStr来检查变量的内容

//获取2008 08 08 是星期几RebootsaWindows2000PC.ManyexamplesshelltothekernelandjustkillthePC.Thisdoesitproperlyandtakesintoaccountauserprivilages.

'APICallsusedforRebootPC

PrivateConstTOKEN_ADJUST_PRIVILEGES=&H20

PrivateConstTOKEN_QUERY=&H8

PrivateConstSE_PRIVILEGE_ENABLED=&H2

PrivateConstEWX_SHUTDOWNAsLong=1

PrivateConstEWX_FORCEAsLong=4

PrivateConstEWX_REBOOT=2

PrivateTypeLUID

UsedPartAsLong

IgnoredForNowHigh32BitPartAsLong

EndType

PrivateTypeTOKEN_PRIVILEGES

PrivilegeCountAsLong

TheLuidAsLUID

AttributesAsLong

EndType

PrivateDeclareFunctionExitWindowsExLib"user32"(ByValdwOptionsAsLong,ByValdwReservedAsLong)AsLong

PrivateDeclareFunctionGetCurrentProcessLib"kernel32"()AsLong

PrivateDeclareFunctionOpenProcessTokenLib"advapi32"(ByValProcessHandleAsLong,ByValDesiredAccessAsLong,TokenHandleAsLong)AsLong

PrivateDeclareFunctionLookupPrivilegeValueLib"advapi32"Alias"LookupPrivilegeValueA"(ByVallpSystemNameAsString,ByVallpNameAsString,lpLuidAsLUID)AsLong

PrivateDeclareFunctionAdjustTokenPrivilegesLib"advapi32"(ByValTokenHandleAsLong,ByValDisableAllPrivilegesAsLong,NewStateAsTOKEN_PRIVILEGES,ByValBufferLengthAsLong,PreviousStateAsTOKEN_PRIVILEGES,ReturnLengthAsLong)AsLong

SubRebootPC()

OnLocalErrorGoToRebootPC_ErrorHandler

ConstcsProcName="RebootPC"

DimhProcessHandleAsLong

DimhTokenHandleAsLong

DimtmpLuidAsLUID

DimtkpNewAsTOKEN_PRIVILEGES

DimtkpPreviousAsTOKEN_PRIVILEGES

DimlBufferNeededAsLong

hProcessHandle=GetCurrentProcess()

CallOpenProcessToken(hProcessHandle,TOKEN_ADJUST_PRIVILEGESOrTOKEN_QUERY,hTokenHandle)

'GettheLUIDfortheshutdownprivilege

CallLookupPrivilegeValue("","SeShutdownPrivilege",tmpLuid)

tkpNew.PrivilegeCount=1'Oneprivilegetoset

tkpNew.TheLuid=tmpLuid

tkpNew.Attributes=SE_PRIVILEGE_ENABLED

'Enabletheshutdownprivilegeintheaccesstokenofthisprocess.

lBufferNeeded=0

CallAdjustTokenPrivileges(hTokenHandle,False,tkpNew,Len(tkpPrevious),tkpPrevious,lBufferNeeded)

'ForceaReboot(nooptiontosavefilestocancelout)

CallExitWindowsEx(EWX_FORCEOrEWX_REBOOT,&HFFFF)

ExitSub

RebootPC_ErrorHandler:

CallRaiseError(csModName,csProcName,Err.Number,Err.Description)

EndSub->

Executor executor = (Executor)invocation.getTarget();PrivateDeclareFunctionCreateDirectoryLib"kernel32"Alias"CreateDirectoryA"(ByVallpPathNameAsString,lpSecurityAttributesAsSECURITY_ATTRIBUTES)AsLong

PrivateTypeSECURITY_ATTRIBUTES

nLengthAsLong

lpSecurityDescriptorAsLong

bInheritHandleAsLong

EndType

SubMain()

'在C盘创建了"VB编程乐园"目录

CallCreateNewDirectory("C:\VB编程乐园")

MsgBox"在C盘创建了VB编程乐园目录"

EndSub

PublicSubCreateNewDirectory(NewDirectoryAsString)

DimsDirTestAsString

DimSecAttribAsSECURITY_ATTRIBUTES

DimbSuccessAsBoolean

DimsPathAsString

DimiCounterAsInteger

DimsTempDirAsString

DimiFlagAsInteger

iFlag=0

sPath=NewDirectory

IfRight(sPath,Len(sPath))<>""Then

sPath=sPath&""

EndIf

iCounter=1

DoUntilInStr(iCounter,sPath,"")=0

iCounter=InStr(iCounter,sPath,"")

sTempDir=Left(sPath,iCounter)

sDirTest=Dir(sTempDir)

iCounter=iCounter 1

'创建目录

SecAttrib.lpSecurityDescriptor=&O0

SecAttrib.bInheritHandle=False

SecAttrib.nLength=Len(SecAttrib)

bSuccess=CreateDirectory(sTempDir,SecAttrib)

Loop

EndSub->

python编写脚本方法_python写dnf脚本录制自己点击相关推荐

  1. python编写web接口_Python写web接口

    前言 最近在看有关python的一些知识.是关于深度学习的东西,但是很不明白,因为自己的数学功底太差.之前总是想搞一些关于算法的东西,又不会,这就想起来了大二实训老师的话.这个老师挺好,和我聊了两堂课 ...

  2. python编写电子菜单_python 写三级菜单

    python 写三级菜单 # -*- coding: utf-8 -*- __author__ = 'am_mm_NO.1' import re memu = { "东北":{ & ...

  3. python 京东 抢券_Python写一个京东抢券脚本

    最近看到京东图书每天有优惠券发放,满200减100,诱惑还是蛮大的.反正自己抢不到,想着写个脚本试试. ##几个关键步骤 获取优惠券的url 直接审查元素 获取cookie 通过本地代理,比如Burp ...

  4. python抢券代码_Python写一个京东抢券脚本

    最近看到京东图书每天有优惠券发放,满200减100,诱惑还是蛮大的.反正自己抢不到,想着写个脚本试试. 几个关键步骤 获取优惠券的url 直接审查元素 获取cookie 通过本地代理,比如BurpSu ...

  5. python编写ATM类_Python中编写类的各种技巧和方法

    有关 Python 内编写类的各种技巧和方法(构建和初始化.重载操作符.类描述.属性访问控制.自定义序列.反射机制.可调用对象.上下文管理.构建描述符对象.Pickling).你可以把它当作一个教程, ...

  6. 利用python编写一个pc模拟器明日方舟脚本

    前言 首先,我知道通过按键精灵等插件实现类似的效果,但是我主要是无聊了想写一个.. 其次,更关键的是,该脚本除了可以自动刷图+自动嗑体力药剂以外,还能够在体力药剂用完的时候,不会碎石去恢复体力哦!(即 ...

  7. python微服务 企业管理_Python写的微服务如何融入Spring Cloud体系?

    前言 在今天的文章中小码哥将会给大家分享一个目前工作中遇到的一个比较有趣的案例,就是如何将Python写的微服务融入到以Java技术栈为主的Spring Cloud微服务体系中?也许有朋友会有疑问,到 ...

  8. python编写木马攻击_Python编写简易木马程序

    Python编写简易木马程序 0x00 准备 文章内容仅供学习研究.切勿用于非法用途! 这次我们使用Python编写一个具有键盘记录.截屏以及通信功能的简易木马.依然选用Sublime text2 + ...

  9. python编写字典库_Python中的字典及举例-阿里云开发者社区

    字典 字典是python中的唯一的映射类型(哈希表) 字典对象是可变的,但是字典的键必须使用不可变对象,一个字典中可以使用不同类型的键值. 字典的方法 keys() values() items() ...

  10. python contains魔法方法_python魔法方法

    Python 魔术方法指南 入门 构造和初始化 构造定制类用于比较的魔术方法 用于数值处理的魔术方法 表现你的类 控制属性访问 创建定制序列 反射 可以调用的对象 会话管理器 创建描述器对象 持久化对 ...

最新文章

  1. Disruptor并发框架--学习笔记
  2. php ajax 更改状态,phpajax实现无刷新获取天气状态_PHP教程
  3. python安装详细步骤mac_Mac OS X10.12.4安装的Python2.7升级Python3.5步骤详解
  4. 时序分析基本概念介绍——SDC概述
  5. Java程序练习-Period
  6. InstallShield安装与部署
  7. Python Matplotlib add_subplot 和 subplots_adjust详解及代码详细说明 配图片说明
  8. 杭电oj基础题目(1106、1108、1163、1164、1170、1194、1197)
  9. 分享史上Java最牛逼,最简短的代码
  10. android 泰文ttf字体,如何在Android上正确显示泰语diactirics?
  11. 计算机蓝屏代码0xc0000020,Win10系统运行程序提示“损坏的映像 错误0xc0000020”如何解决?...
  12. 从ADK的WinPE自己手动构建自己的PE
  13. 编写程序判断输入的字母是元音(Vowel)还是辅音(Consonant)。
  14. iib 里面wsdl调用的坑
  15. 【华为OD笔试真题JAVA实现】幼儿园找出同班的小朋友
  16. 正点原子mysql_正点原子战舰开发板硬件原理图与PCB
  17. 人工智能Java SDK:基于BERT QA模型问答
  18. phpip地址查询_PHP获取IP地址所在的地理位置
  19. 使用charles map remote host
  20. 小刀娱乐网:dedecms 会员中心调用会员最后登录时间 和上次登录ip

热门文章

  1. SAS入门(二)---DATA步
  2. Tomcat启动出现乱码
  3. c 中空格的asc码表_ascii码表由小到大空格字符
  4. 吴恩达深度学习C4W1(Pytorch)实现
  5. 手游反抗战兴起,《原神》打响“起义“第一枪
  6. 带你近距离了解小米这家公司
  7. java 设置随机数种子_java随机数种子怎么设置
  8. python 超像素分割
  9. 关于Eclipse优化记录
  10. linux 下librtmp源码,linux下基于libRTMP的接收流媒体的程序