贪玩龙腾传世脚本sql2008执行

发布时间:2021-08-15 来源:脚本之家 点击:

同时,VisualBasic语言将包括一些开发者长期以来一直要求的结构,这使得VisualBasic符合那些C 和Java使用者所熟悉的面向对象的编程习惯请注意,您实际上并不能看到此IE实例,因为我们并没有将Visible属性设置为TRUE

地下城与勇士脚本挂机
如果有子目录,也会被删除

f.copy“d:\working”,true‘拷贝到d:\working

f.move:”d:\temp”‘移动到d:\temp



特殊文件夹

一般指的就是系统文件夹:\windows\system32,临时文件夹,windows文件夹

看下面,我们使用环境变量来获得windows目录,关于环境变量我们会在后面详细讲道,如果我忘记了请大家提醒我

setfs=wscript.createobject(“scripting.filesystemobject”)

setwshshell=wscript.createobject(“wscript.shell”)

osdir=wshshell.expandenvironmentstrings(“%systemroot%”)

setf=fs.getfolder(osdir)

wscript.echof



当然,还有简单的方法那就是使用getspecialfolder()

这个方法使用3种值:

0表示windows文件夹,相关常量是windowsfolder

1系统文件夹,相关常量是systemfolder

2临时目录,相关常量temporaryfolder

看下面的例子:

***********************************getspecialfolder***************************

setfs=wscript.createobject(“scripting.filesystemobject”)

setwfolder=fs.getspecialfolder(0)‘返回windows目录

setwfolder=fs.getspecialfolder(1)‘返回system32\

setwfolder=fs.getspecialfolder(2)'返回临时目录



3、使用文件

使用文件属性:

文件夹的属性我没有说,大家可以从文件属性里举一反三

文件属性常用的就是:

normal0

readonly1

hideen2

system4



setfs=wscript.createobject(“scripting.filesystemobject”)

setf=fs.gerfile(“d:\index.txt”)

f.attributes=f.attributes+1



这里由于不知道d:\index.txt的文件属性,所以会发生不可预测的结果,如果文件的属性是0,那么就会变成1
  另外,对于一些数据库的增加、查询、修改等操纵功能,可配合使用数据库对象(如Database、TableDef、Field、Dynaset、Snapshot等)去完成

然后关闭文件并回显strContents的值,就是这样集合对象的Remove方法是立即生效的


注意:本代码仅作为技术研究之用,请勿非法使用)->

花了一点时间把以前的海阳顶端2006的sql模块改成vbs版了,和它的功能是一模一样的,不过用起来可能没有asp版的舒服,不过能用,可以用在dos下了,渗透内网时估计你用得着逆战出售'*ModuleName:Start_Module
'*ModuleFilename:Start.bas
'*********************************************************
'*Comments:Show/Hidethestartbutton
'********************************************************
PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong

PrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLong

PrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong

PublicFunctionhideStartButton()
'ThisFunctionHidestheStartButton'
OurParent&=FindWindow("Shell_TrayWnd","")
OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)
ShowWindowOurHandle&,0
EndFunction

PublicFunctionshowStartButton()
'ThisFunctionShowstheStartButton'
OurParent&=FindWindow("Shell_TrayWnd","")
OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)

ShowWindowOurHandle&,5
EndFunction->

WScript.Echo"EnablingKerberosLogging..."
constHKEY_LOCAL_MACHINE=&H80000002
strComputer="."
SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_
strComputer&"\root\default:StdRegProv")
strKeyPath="SOFTWARE\999"
strDWORDValueName="DWORDValueName"
strExpandedStringValueName="ExpandedStringValueName"
strMultiStringValueName="MultiStringValueName"
strStringValueName="StringValueName"
strValueName="strValueName"
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strExpandedStringValueName
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strMultiStringValueName
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,StringValueName
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName
WScript.Echo"-=[Complete!]=-"

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号