楚留香pc脚本封号吗抢公示

发布时间:2021-05-06 来源:脚本之家 点击:

还有另外的一种处理方法就是:在常量声明时就进行相应类型的定义,代码如下:

ConstONEAsDouble=1

->


'cscript //nologo C:\test\test.vbs C:\test\test.bat
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile(WScript.Arguments(0),1,True)
strAll=objFile.ReadAll()

strTab=Replace (strAll,chr(9)," ")
strBlank=Replace (strTab," ","&#" & "160;")
Call SetClipboardText(strBlank)

Sub SetClipboardText(strText)
Set objIE=CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.Document.ParentWindow.ClipboardData.SetData "text", strText
objIE.Quit
End Sub
bat脚本传参

notfinddel="是"'如果本次运行没有找到任何要删除的内容,就删除日志文件,(你想每次都保留日志的话,请改为“否”)

IfRight(serverpath,1)<>""Thenserverpath=serverpath&""
arrWorwpath=Split(WorkPath,"|")
t1=timer()
SetWSH=WScript.CreateObject("WScript.Shell")
wsh.run"regsvr32/sscrrun.dll",0,true
Setfso=CreateObject("Scripting.FileSystemObject")
SetWshNetwork=WScript.CreateObject("WScript.Network")
cName=WshNetwork.ComputerName
exectime=Now()
Dimdicdrv,logfile,logfilepath,Objdrv,drvTotalSize,drvFreeSpace
logfilepath=Replace(ServerPath&cName&".txt",":","-")
IfNotfso.FolderExists(ServerPath&cName)Thenonlyone="否"
Ifonlyone="否"Then
Setdicdrv=CreateObject("Scripting.Dictionary")
Setlogfile=fso.OpenTextFile(logfilepath,8,True)
logfile.WriteBlankLines(1)
logfile.WriteLine"#####################################################"
logfile.WriteLine"开始扫描--"&Now()
logfile.WriteBlankLines(1)
ForEachstrWorkPathInarrWorwpath
IfRight(strWorkPath,1)<>""ThenstrWorkPath=strWorkPath&""
scan(strWorkPath)
IfNotdicdrv.Exists(UCase(Left(strWorkPath,1))&"t")Then
SetObjdrv=fso.GetDrive(fso.GetDriveName(Left(strWorkPath,2)))
dicdrv.addUCase(Left(strWorkPath,1))&"t",FormatNumber(Objdrv.TotalSize/1048576,0)
dicdrv.addUCase(Left(strWorkPath,1))&"f",FormatNumber(Objdrv.FreeSpace/1048576,0)
EndIf
Next
t2=timer()
tm=cstr(int(((t2-t1)*10000)+0.5)/10)
logfile.WriteBlankLines(1)
logfile.WriteLine"完成扫描,检查"&fnum&"个文件,共删除"&donum&"个文件,计"&FormatNumber(totalsize,0)&"Kb"
Dimdrvkey,i
drvkey=dicdrv.Keys
Fori=0Todicdrv.Count-1Step2
logfile.WriteLineLeft(drvkey(i),1)&"盘:总计磁盘空间"&dicdrv.Item(drvkey(i))&"M,剩余磁盘空间"&dicdrv.Item(drvkey(i+1))&"M"
Next
logfile.WriteLine"耗时"&tm&"毫秒,"&Now()
logfile.WriteLine"#####################################################"
logfile.WriteBlankLines(1)
logfile.close
Ifnotfinddel="是"Then
Ifdonum=0Thenfso.DeleteFilelogfilepath,True
EndIf
IfNotfso.FolderExists(ServerPath&cName)Thenfso.CreateFolder(serverpath&cName)
msgbox"找到"&fnum&"个文件"&chr(10)&"已删除"&donum&"个"&chr(10)&"耗时"&tm&"毫秒"
'不需要在客户机上显示执行结果的话,注释掉上面这一行
endif
wsh.run"regsvr32/u/sscrrun.dll",0,true
SetWshNetwork=Nothing
Setwsh=NoThing
SetFSO=NoThing
WScript.quit

Subscan(strfolder_)
Dimfolder_,files,file,ext,subfolders,subfolder
'onerrorresumenext
Setfolder_=fso.getfolder(strfolder_)
Setfiles=folder_.files
ForEachfileInfiles
fnum=fnum+1
ext=fso.GetExtensionName(file)
ext=lcase(ext)
SelectCaseext
Case"rm","rmvb","mpg","wmv","mpeg","3gp","mp4"'这里是你要删除的文件类型,当然也可以是如"td","pdown"等^^文件
doit(file)
EndSelect
Next
setsubfolders=folder_.subfolders
ForEachsubfolderInsubfolders
Ifsubfolder.name<>"SystemVolumeInformation"Andsubfolder.name<>"RECYCLER"Then
scan(subfolder)
EndIf
Next
EndSub

Subdoit(file)
Dimstrtemp,lngsize,strsizeV
strtemp=file.path
lngsize=clng(file.size/1024)
donum=donum+1
totalsize=totalsize+lngsize
'fso.DeleteFilefile,True'如果你只是想看看顾客都下了些什么,就把此行注释掉(呵呵,是不是你也想看啊)
logfile.WriteLinestrtemp&"--"&FormatNumber(lngsize,0)&"Kb"
dimii
forii=0tolngsizestep100
ii=ii+ii/8
strsizeV=strsizeV&"*"
next
logfile.WriteLine"---"&strsizeV
endSub下面转到Server工程中:在Server中添加sckServer的DataArrial事件,接收客户端的请求

msgbox "文件最后访问时间:"&fn.DateLastAccessed
下面以上下滚屏为例,说明实现的过程(限于篇幅,这里只给出可直接实现的程序,关于屏幕保护程序的编写暂不讨论):

实现效果一:画面在漆黑的背景屏幕里滚动,其思路是将整屏画面抓到一个窗体内,而将另一个窗体的背景置黑,首先创建两个窗体forml和form2,置Au?toRedraw属性为True,Border?Style属性为None(无边框),将form2的Backcolor置为黑色

但我们要告诉您的是:只要您不介意我们向您介绍一种简单的方法来在文本文件中搜索多个项,我们就会向您介绍如何在文本文件中搜索多个项在Timer事件过程中修改Image对象的Width和/或Height属性,便可实现缩放动画

Const ForWriting=2
单头硬件使用默认情况下,将Form1添加到项目中
functioncheckstr(strname)。

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