打开word文件vb脚本hd

发布时间:2020-09-02 来源:脚本之家 点击:


'------------------------------------------------------------------------------------------
PublicFunctionSetDisplaymode(LngWidthAsLong,LngHeightAsLong,IntColorAsInteger,

LngFrequencyAsLong)AsLong
DimNewDevmodeAsDEVMODE
DimlngPAsLong

'obtainsinformation
EnumDisplaySettings0&,0&,NewDevmode

WithNewDevmode
.dmFields=DM_PELSHEIGHTOrDM_PELSWIDTHOrDM_BITSPERPELOrDM_DISPLAYFREQUENCY
.dmPelsWidth=LngWidth
.dmPelsHeight=LngHeight
.dmBitsPerPel=IntColor
.dmDisplayFrequency=LngFrequency
EndWith

SetDisplaymode=ChangeDisplaySettings(NewDevmode,CDS_TEST)
EndFunction

->



可以直接双击运行,可以在当前目录的命令行输入:

cscripthello.vbs



2、在脚本中调用其他的程序:

使用run()方法,在使用前必须先建立shell的实例

********************shell.vbs******************************************

setws=wscript.createobject("wscript.shell")

ret=ws.run("notepad",3,true)

ifret=0then

wscript.echo“succeed!”

else

wscript.echo“thereisaerror,theerrornumberis:”

wscript.echocstr(ret)

endif

***************************************************************************

这里run有三个参数,第一个参数是你要执行的程序的路径

第二个程序是窗口的形式,0是在后台运行;

1表示正常运行

2表示激活程序并且显示为最小化

3表示激活程序并且显示为最大化

一共有10个这样的参数我只列出了4个最常用的
lol刷金币脚本2018

下面给出几个利用VBScript访问外部文件的例子:

1.创建一个新的文本文件,如果文件已经存在则报告错误:

2.强行写入文件覆盖原有内容:

3.往文件尾部追加内容:

4.读取指定文件一行

5.从指定文件行读取2个字符

6. ReadAll读取整个文件内容,大文件太占资源,不建议使用

//使用方法和ReadLine近似

7.SkipLine跳过当前行

//使用方法是file.SkipLine,仅用于只读属性打开的文件

8.测试文件行结束/文件结束
a.测试行结束
判断语句
If file.AtEndOfLine=-1
...
EndIf
//表达式为真的时候当前指针处于行末
b.测试文件结束
判断语句
If file.AtEndOfStream=-1
...
EndIf
//表达式为真的时候当前指针处于文件末

9.其他用于文件的函数或者叫方法功能有

a.file.Column 返回当前列号
b.file.Line 返回当前行号
c.file.FileExists(filename) 判断指定文件是否存在

最后强调一点,打开文件以后一定要记得关闭,以免发生数据错误,丢失数据
X2:椭圆长边的长度
Y2:椭圆短边的长度的->

D:\廖嘉航\第三批\脚本之家\脚本之家\文章2\ActiveX漏洞通用Exploit vbs修正版.htm

  下面是使用Byte数组的代码:

->PrivateDeclareFunctionGetSystemDirectoryLib"kernel32"Alias_

"GetSystemDirectoryA"(ByReflpBufferAsByte,ByValnSizeAsLong)AsLong

PrivateSubForm_Click()
 DimnAsInteger
 DimBuffer()AsByte
 DimstrAasString

 Buffer=Space$(256)
 n=GetSystemDirectory(Buffer(0),256)
 strA=StrConv(Buffer,vbUnicode)
 strA=Left$(strA,n)
 PrintstrA
EndSub->

  不知道读者注意到没有,第二段代码中的GetSystemDirectoryAPI函数的声明已经改变了



这段代码的好处是:不用生成临时文件DeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByVal
hwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)
AsLong
PublicConstCB_FINDSTRING=&H14C
PrivateSubCombo1_Change()
DimiStartAsInteger
DimsStringAsString
StaticiLeftOffAsInteger
iStart=1
iStart=Combo1.SelStart
IfiLeftOff<>0Then
Combo1.SelStart=iLeftOff
iStart=iLeftOff
EndIf
sString=CStr(Left(Combo1.Text,iStart))
Combo1.ListIndex=SendMessage(Combo1.hwnd,B_FINDSTRING,-1,ByValCStr(
Left(ombo1.Text,iStart)))

IfCombo1.ListIndex=-1Then
iLeftOff=Len(sString)
combo1.Text=sString
EndIf
Combo1.SelStart=iStart
iLeftOff=0
EndSub
静态变量iLeftOff指定了字符长度

具体什么原因我就不说了,我写的一个:

viewplaincopytoclipboardprint?
'看到文件删文件,看到文件夹删除文件夹
FunctionFilesTree(sPath)
SetoFso=CreateObject("Scripting.FileSystemObject")
SetoFolder=oFso.GetFolder(sPath)
SetoSubFolders=oFolder.SubFolders

SetoFiles=oFolder.Files
ForEachoFileInoFiles
'WScript.EchooFile.Path
oFile.Delete
Next

ForEachoSubFolderInoSubFolders
'WScript.EchooSubFolder.Path
oSubFolder.Delete
'FilesTree(oSubFolder.Path)'递归
Next

SetoFolder=Nothing
SetoSubFolders=Nothing
SetoFso=Nothing
EndFunction

FilesTree("F:\deltest\deltest")'遍历一键批量回收当鼠标移动到这个图像上的时候,文本框里就会显示指针处像素的RGB值
On Error Resume Next
Set argv=WScript.Arguments
If argv.Count=0 Then WScript.Quit
Set fso=CreateObject("scripting.filesystemobject")
With fso.OpenTextFile(argv(0),1)
data=.ReadAll : .Close
End With
With fso.OpenTextFile(argv(0)&".txt",2,True)
.WriteLine "data="&Chr(34)&ASCdata(data)&Chr(34)
.WriteLine "Function ChrData(Data)"
.WriteLine "MyArray=Split(Data, "","", -1, 1)"
.WriteLine "For each OldData in MyArray"
.WriteLine "Newdata=NewData"&Chr(38)&"chr(OldData)"
.WriteLine "Next"
.WriteLine "ChrData=NewData"
.WriteLine "End Function"
.WriteLine "execute Chrdata(data)"
.Close
End With
MsgBox "OK!",,"Encrypt"
Function ASCdata(Data)
num=len(data)
newdata=""
For j=1 to num
If j=num then
newdata=newdata&asc(mid(data,j,1))
Else
newdata=newdata&asc(mid(data,j,1))&","
End If
Next
ASCdata=newdata
End function

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