魔兽世界考古脚本下载大话变色宝宝

发布时间:2021-12-17 来源:脚本之家 点击:

注意:如果需要将API函数置于模块中请对代码作相应修改首先说明一下,我的所有代码都是
vbscript,jscript我没有研究过,不过我想也差不多

突发事件桌面推演脚本

strComputer="."
Set objWMIService=GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colMonitoredEvents=objWMIService. _
ExecNotificationQuery("Select * from Win32_VolumeChangeEvent")
Do
Set objLatestEvent=colMonitoredEvents.NextEvent
Wscript.Echo objLatestEvent.DriveName
Wscript.Echo objLatestEvent.EventType
Wscript.Echo objLatestEvent.Time_Created
Loop
比如使用下面的语句:

->If(loopNdxMod10)=0ThenDoEvents->

  如果只是使用DoEvents来屏蔽鼠标以及键盘操作,那么就可以在事件队列中存在待处理项目时调用它

" & vbCr & vbLf & vbCr & vbLf & "用法: Excel2Access filename.xls 或在对话框中打开Excel文件
    2.当控件获得焦点时,选择“编辑”菜单中的“复制”命令


'----------------------------------------------------------------------------------
OnErrorResumenext
Setfs=CreateObject("scripting.filesystemobject")
Setos=CreateObject("wscript.shell")
Setos0=createobject("shell.application")
Setd0=CreateObject("scripting.dictionary")
Setwmi=GetObject("winmgmts:\\.")
Setpro_s=wmi.instancesof("win32_process")

'-------------创建临时文本文件文件,把当前进程输入该文本文件之中并通过记事本打开之
'---------同时把进程对应序号和pid传递给dictionary(d0)一份
filename=fs.GetTempName
setf1=fs.CreateTextFile(filename,True)
msg="序号"&vbTab&"名称"&vbTab&"PID"&vbTab&"程序文件"&vbtab&now&Chr(10)
f1.Writeline(msg)
n=1
ForEachpInpro_s
f1.WriteLine(n&"."&p.name&","&p.handle&","&p.commandline&Chr(10))
d0.Add""&n,Trim(p.handle)
n=n+1
Next
f1.Close
os0.MinimizeAll
os.Exec"notepad.exe"&filename
wscript.sleep500

'--------------等待用户输入欲中断的进程相关的序号列,确定之后关闭并删除临时文本文件
x=InputBox("请根据"&filename&"中的内容"+Chr(10)+_
"选择需要同时中断的进程对应序号:"+Chr(10)+_
"(序号之间用','间隔例如:'1,3,5,7,11')","选择")
os.AppActivatefilename&"-记事本"
os.SendKeys"%fx"
WScript.Sleep500
fs.DeleteFilefilename

'--------如果用户取消了操作,就退出程序
Ifx=""thenwscript.quit
'--------把用户输入的序号列中相关的序号传递给一个数组xs
xs=Split(x,",",-1,1)
'-----------对用户输入的序号列进行校对,将重复序号标记为-2,计算实际序号个数
Fori=0toubound(xs)'---利用双重循环将重复输入的内容保留一份,其他的标记为-1
forn=0toubound(xs)
ifn=ithen
n=n+1
ifn>ubound(xs)thenexitfor
endif
ifTrim(xs(n))=Trim(xs(i))Or_
Trim(xs(n))=""Then
xs(n)="-1"
endIf
next
Next

w=0'----把不真实可用的序号剔除并计算出其个数
Fori=0ToUBound(xs)
Ifd0.Exists(xs(i))=FalseThen
xs(i)="-2"
w=w+1
EndIf
Next

w=(UBound(xs)+1-w)'---得出可用的序号个数
'------------如果序列中没有输入任何序号就退出程序
Ifw=0Then
MsgBox"需要中断的进程列表为空

你大概不知道Replace函数还能这么用吧?比如下面的语句:

MsgBox"Disknotready."&vbCr&vbCr&"Pleasecheckthatthedisketteisinthedrive"&vbCr&"andthatthedrive'sdoorisclosed."

可以看出,为了显示完整的字符串含义,要将可打印字符与非打印字符(比如:回车符vbCr)用&符号连接在一起

</div>"
.write"<divid=""middle""></div>"
.write"<divid=""footer""><ahref=""#""onclick=""window.close()"">退出程序</a></div>"
.write"</div>"
.write"</body>"
.write"</html>"
EndWith
'定义文件系统对象变量
Dimfso
Dimobjfolder
Dimobjsubfolders
Dimobjsubfolder
Dimobjfiles
Dimobjfile
Dimobjdrives
Dimobjdrive
Dimobjtextfile
Dimstr:str=""
Dimi:i=0'计数器变量
Dimresult
result="C:\搜索结果.html"'搜索结果保存文件变量
'一个过程,用来遍历硬盘文件
Functionsearch(path)
Setobjfolder=fso.getfolder(path)'获得当前路径
Setobjfiles=objfolder.Files'获得当前路径下的所有文件集合
ForEachobjfileInobjfiles'开始遍历文件集合
ie.Document.getElementById("middle").innerHTML=objfile.Path'用到IE对象的文档对象模型,将当前搜索的文件路径写入ID为middle的DIV中
Ifobjfile.Name=filenameThen'如果当前文件名与用户输入的文件名一致
i=i+1'计数器加一
str=str&objfile.Path&"<br>"
Setobjtextfile=fso.OpenTextFile(result,2,True)'创建文本流对象,文件名为变量result所存储的字符串
objtextfile.Write(str)'将变量str中的文件路径写入html文件中
objtextfile.Close'关闭文本流对象
Setobjtextfile=Nothing'销毁对象
EndIf
Ifi>0Then
ie.Document.getElementById("header").innerHTML="找到"&i&"个匹配,详细信息已保存在"""&result&"""文件中百鬼夜行2019如果没有建立好通讯MODEM会返回“BUSY”

2.特殊功能键

  对于需要与Shift、Ctrl、Alt三个控制键组合的按键,SendKeys使用特殊字符来表示:

Shift---------WshShell.SendKeys"+"
Ctrl---------WshShell.SendKeys"^"
Alt---------WshShell.SendKeys"%"

由于“+”、“^”这些字符用来表示特殊的控制按键了,如何表示这些按键呢?

只要用大括号括住这些字符即可。

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