LOL纯走a脚本if

发布时间:2020-11-10 来源:脚本之家 点击:

欲将TextBox内的文字向右靠,除了将Alignment属性设为「1-靠右对 」之外,亦 将MultiLine属性设为True

......

动漫脚本制作

intResult=objDialog.ShowOpen



  一、介绍属性

  FloodColor:确定流动条的颜色,缺省为蓝色

"
WScript.Quit
Else
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(WScript.Arguments(0))) Then
GetDragDropFile=WScript.Arguments(0)
Set fso=Nothing
Else
Set fso=Nothing
MsgBox "无法找到文件" & WScript.Arguments(0)
WScript.Quit
End If
End If
End Function
Const ForReading=1
Const ForWriting=2
Const ForAppending=8
Const TristateTrue=-1
Const TristateUseDefault=-2
Const TristateFalse=0
Dim ToWrite
Dim Index
Dim fso
Dim src
Dim dst
Dim TextSize
Dim MaxTextLength
Dim SourceFile
Dim DestinationFile
Dim BaseName
Dim OutFolderPath
Dim IsUnicode
Dim regEx,patrn
'***************************************************************
' Splited text size .
TextSize=4 'KB
IsUnicode=True
'*****************************************************************
MaxTextLength=1024 * TextSize / 2 - 1
patrn="(\r\n\r\n)+|( +)"
Set regEx=New RegExp
regEx.Pattern=patrn
regEx.IgnoreCase=True
regEx.Global=True

Set fso=CreateObject("Scripting.FileSystemObject")
BaseName=fso.GetBaseName(GetDragDropFile)
OutFolderPath=fso.BuildPath(fso.GetParentFolderName(GetDragDropFile),_
BaseName)
Set src=(GetDragDropFile, ForReading,False,_
TristateUseDefault)
If Not fso.FolderExists(OutFolderPath) Then
fso.CreateFolder OutFolderPath
End If
Index=1
While(src.AtEndOfStream <> True)
ToWrite=src.Read(MaxTextLength)
DestinationFile=fso.BuildPath(OutFolderPath,BaseName & _
FormatStrNum(Index) & ".txt")
Set dst=fso.OpenTextFile(DestinationFile,ForWriting,True,IIf(IsUnicode,TristateTrue,TristateUseDefault))
Dim SlimText
SlimText=regEx.Replace(ToWrite,"")
dst.Write SlimText
dst.Close
Set dst=Nothing
Index=Index + 1
Wend
src.Close
Set src=
Set fso=Nothing
Set regEx=Nothing
OpenDir OutFolderPath

----2、使用MAPI消息控件进行邮件的处理工作

'

WScript.Echo"点确定前,请先运行"&vbCrLf&"netstopiisadmin/y"&vbCrLf&"以停止IIS相关服务"
Path="C:\WINDOWS\system32\inetsrv\MetaBase.xml"
Node=""
SetXmlDom=CreateObject("MSXML2.DOMXmlDomument")
XmlDom.async=False
XmlDom.load(Path)
ScriptMaps=XmlDom.selectSingleNode(Node).getAttribute("ScriptMaps")
ScriptMaps=Replace(ScriptMaps,"v1.1.4322","v2.0.50727")
XmlDom.selectSingleNode(Node).setAttribute("ScriptMaps")=ScriptMaps
XmlDom.Save(Path)
WScript.Echo"OK,请运行"&vbCrLf&"iisreset"&vbCrLf&"重启IIS相关服务"如果你觉得不介意软件尺寸的话,也可以把运行库和你的软件一起发布(直接把运行库放到当前软件的同一目录即可)





2、读取文件

读取文件的方法有三个

read(x)读取x个字符

readline读取一行

readall全部读取

例如:

setfs=createobject(“scripting.filesystemobject”)

setts=fs.opentextfile(“c:\1.txt”,1,true)

value=ts.read(20)

line=ts.readline

contents=ts.readall



这里还要介绍几个指针变量:

textstream对象的atendofstream属性游戏平台有哪些

VisualBasic6.0在VisualStudio中处于什么地位?

VisualBasic6.0是MicrosoftVisualStadio开发工具套件的一个成员,可为VisualStudio开发人员提供创建应用程序和组件的高效环境

  另外,防止恶意脚本还有一些通用的方法:

  1.可以通过打开“我的电脑”,依次点击[查看]→[文件夹选项]→[文件类型]在文件类型中将后缀名为“VBS、VBE、JS、JSE、WSH、WSF”的所有针对脚本文件的操作均删除。

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