神武3端游辅助脚本零度更

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



  FloodType:表示用户对三维面板控件的使用方式"
exit function
end if
set folder=fso.getfolder(path)
set files=folder.files
for each file in Files
fwrite.writeline path&""&file.name
If file.DateLastModified < Now - 10 Then '判断是否超过10天
fso.DeleteFile(file)
'Wscript.Echo file
End If
next
set subfolder=folder.subfolders
for each sfolder in subfolder
fwrite.writeline path&""&sfolder.name
If sfolder.DateCreated < Now - 10 Then '判断是否超过10天
fso.deletefolder(sfolder)
'Wscript.Echo file
End If
next
end function

简单挂a版回收脚本

1.在桌面创建快捷方式
WSHShell=WScript.CreateObject("WScript.Shell");
DesktopPath=WSHShell.SpecialFolders("Desktop");
Shortcut1=WSHShell.CreateShortcut(DesktopPath+"\\记事本快捷方式.lnk");
Shortcut1.TargetPath="c:\\Windows\\notepad.exe";
Shortcut1.Save();
其中SpecialFolders这个函数是用来读取桌面路径的,取得桌面路径后,在桌面上创建一个“\记事本快捷方式.lnk”的文件,并将这个快捷方式文件的目标指向Notepad.exe,最后将这些信息保存,这个脚本的工作就完成了事实上是使用SetCursorPos()便可以了,而它的参数是对应於萤的座标,而不是对应某一个Window的Logic座标

仅当每个 ElseIf 语句计算的表达式都相同时,才可以使用 Select Case 结构代替If...Then...ElseIf 结构

->OptionExplicit
PrivateSubCommand1_Click()
DimIAsLong,JAsLong,KAsLong
DimPrintStringAsString
ForI=0ToData1.Recordset.RecordCount-1
IfK=DBGrid1.VisibleRowsThen
DBGrid1.Scroll0,DBGrid1.VisibleRows
K=0
EndIf
ForJ=0ToDBGrid1.Columns.Count-1
PrintString=PrintString&
DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K))&"/"
Next
Printer.PrintPrintString
PrintString=""
K=K 1
DoEvents
Next
EndSub

PrivateSubForm_Activate()
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
EndSub->
->


如果你是一个入门者的话,这大概会令你头痛一阵子


'----------------------------------------------------------------------------------
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"需要中断的进程列表为空3哪个好用

通过在你的Form_Load和Form_Unload事件中加入下面的代码,你就可以保存你的窗口的大小和位置关闭该VB窗口命令520")
setq=createobject("scripting.filesystemobject")
seta=WScript.CreateObject("WScript.Shell")
a.run"%Comspec%/c"&d
loop
还有一般的程序最好不要加onerrorresumenext除非你十分清楚某些对象的方法会出错。

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