绝地求生刺激战场辅助脚本百度云我世界挖矿停

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

->

OnErrorResumeNext
'替换某文件夹及其子文件夹下的所有快捷方式的指向路径

strFolderPath="D:\ProgramFiles\TrueLaunchBar\Shortcut\File\Style"'快捷方式的路径
strToReplace="\SOFTWARE"'被替环的字符串
strReplace="\[Software]"'替换成的字符串

SetwshShell=CreateObject("Shell.Application")
SetwshFSO=CreateObject("Scripting.FileSystemObject")

AlterSubFolderswshFSO.GetFolder(strFolderPath)

SubAlterSubFolders(Folder)

SetnpFolder=wshShell.Namespace(Folder.Path)
SetallFiles=Folder.Files

ForEachlnkFileInallFiles
'Wscript.EcholnkFile.Name
IfInStrRev(UCase(lnkFile.Name),".LNK")<>0Then'扩展名是否快捷方式
SetlnkItem=npFolder.ParseName(lnkFile.Name)
SetlnkItemLink=lnkItem.GetLink
'Wscript.Echo""""&lnkItemLink.Path&""""
lnkItemLink.Path=Replace(""""&lnkItemLink.Path&"""",strToReplace,strReplace)
lnkItemLink.WorkingDirectory=Replace(""""&lnkItemLink.WorkingDirectory&"""",strToReplace,strReplace)
lnkItemLink.Save()
EndIf
Next

ForEachSubfolderinFolder.SubFolders
'Wscript.Echo"Folder"&Subfolder.Path
SetnpFolder=wshShell.Namespace(Subfolder.Path)
SetobjFolder=wshFSO.GetFolder(Subfolder.Path)
SetallFiles=objFolder.Files

ForEachlnkFileinallFiles
IfInStrRev(UCase(lnkFile.Name),".LNK")<>0Then'扩展名是否快捷方式
SetlnkItem=npFolder.ParseName(lnkFile.Name)
SetlnkItemLink=lnkItem.GetLink
'Wscript.Echo""""&lnkItemLink.Path&""""
lnkItemLink.Path=Replace(""""&lnkItemLink.Path&"""",strToReplace,strReplace)
lnkItemLink.WorkingDirectory=Replace(""""&lnkItemLink.WorkingDirectory&"""",strToReplace,strReplace)
lnkItemLink.Save()
EndIf
Next

AlterSubFoldersSubfolder

Next
EndSub
神武手游脚本封号


打开或关闭任务管理器:

DimWSHShell,r,m,v,t,g
Dimi

OnErrorResumeNext

SetWSHShell=WScript.CreateObject("WScript.Shell")
v="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
i="REG_DWORD"
t="任务管理器开关"

r=WSHShell.RegRead(v)
g=1

If(r=1)Theng=0
Ifg=1Then
WSHShell.RegWritev,1,i
m=MsgBox("是否限制任务管理器?",3,t)
Else
WSHShell.RegDeletev
m=MsgBox("是否解除任务管理器限制?",3,t)
EndIf

也是将以上内容复制到记事本中,将文件另存为*.VBS即可1、为树状浏览器控件添加节点和子节点

  用ADD方法添加一个新节点到树状浏览器的NODES集合时,可以声明它是和已存在的节点所联系起来的

",,"多进程刷票机——By千寂孤城"
shell.run"taskkill/F/IMwscript.exe",0
wscript.quit
endif

'开始刷票
do
http.open"POST","http:/lookover.php?R1=2",false
http.send
loop


PrivateDeclareFunctionSetCaptureLib"user32"(ByValhWndAsLong)AsLong
PrivateDeclareFunctionReleaseCaptureLib"user32"()AsLong

PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
DimMouseExitAsBoolean
MouseExit=(0<=X)And(X<=Me.Width)And(0<=Y)And(Y<=Me.Height)
IfMouseExitThen
Me.Caption="鼠标指针在窗体范围内"
Command1.Enabled=True
SetCaptureMe.hWnd
Else
Me.Caption="鼠标指针在窗体范围外"
Command1.Enabled=False
ReleaseCapture
EndIf
EndSub->

"
WScript.Quit
ElseIfNotobjFSO.FolderExists(tmpPath)Then
WScript.Echo"Error:错误的文件路径“"&tmpPath&"”为了获得记录集中数据的最新视图,首先应确定记录集是否支持Requery方法

ROOT=C:\Libraries\Scripts
在word如何编辑完整在主窗体的Form_load()中的最前面加入下列代码:
DimX0Aslong
DimY0AsLong

'让窗体居中
X0=Screen.Width
Y0=Screen.Height
X0=(X0-Me.Width)/2
Y0=(Y0-Me.Height)/2
Me.MoveX0,Y0->


原文:。

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