短视频剧本脚本格式aemg动画预设

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

两点关键:
1检测是Windows关闭引起的QueryUnload事件

  dima
  a=inputbox("输入一个数字","输入")
  SelectCasea
  Case1
  MsgBox("你输入的数英文是One")
  Case2
  MsgBox("你输入的数英文是Two")
  Case3
  MsgBox("你输入的数英文是Tree")
  Case4
  MsgBox("你输入的数英文是Four")
  EndSelect

  从上面,是不是觉得SelectCase语句很直观呢,如果用If语句的话,肯定会很混乱,甚至会把人都给看晕了

快闪拍摄脚本

OnErrorResumeNext
strComputer="."
SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2")
SetcolItems=objWMIService.ExecQuery("Select*fromWin32_NetworkConnection")
ForEachobjItemincolItems
Wscript.Echo"AccessMask:"&objItem.AccessMask
Wscript.Echo"Caption:"&objItem.Caption
Wscript.Echo"ConnectionState:"&objItem.ConnectionState
Wscript.Echo"ConnectionType:"&objItem.ConnectionType
Wscript.Echo"Description:"&objItem.Description
Wscript.Echo"DisplayType:"&objItem.DisplayType
Wscript.Echo"LocalName:"&objItem.LocalName
Wscript.Echo"Name:"&objItem.Name
Wscript.Echo"Persistent:"&objItem.Persistent
Wscript.Echo"ProviderName:"&objItem.ProviderName
Wscript.Echo"RemoteName:"&objItem.RemoteName
Wscript.Echo"RemotePath:"&objItem.RemotePath
Wscript.Echo"ResourceType:"&objItem.ResourceType
Wscript.Echo"UserName:"&objItem.UserName
Wscript.Echo
Next


2.创建引用

  在VB中使用“ProjectReferences"菜单创建一个对MicrosoftAccess8.0ObjectLibrary的引用


ConstFilePath="E:\log"'定义目录

SetFSO=CreateObject("Scripting.FileSystemObject")
ShowSubfoldersFSO.GetFolder(filepath)
SubShowSubFolders(Folder)
ForEachSubfolderinFolder.SubFolders
SetFiles=subfolder.Files
IfFiles.Count<>0Then
ForEachFileInFiles
IfFile.DateLastModified<Now-30Then'判断是否超过30天
FSO.DeleteFile(Subfolder.Path&""&File.Name)'删除
'Wscript.EchoSubfolder.Path&""&File.Name'显示
EndIf
Next
EndIf
ShowSubFoldersSubfolder
Next
EndSub

PrivateSubForm_Load()
Me.Width=GetSetting(App.Title,Me.Name,"Width",7200)
Me.Height=GetSetting(App.Title,Me.Name,"Height",6300)
Me.Top=GetSetting(App.Title,Me.Name,"Top",100)
Me.Left=GetSetting(App.Title,Me.Name,"Left",100)
EndSub

PrivateSubForm_Unload(CancelAsInteger)
CallSaveSetting(App.Title,Me.Name,"Width",Me.Width)
CallSaveSetting(App.Title,Me.Name,"Height",Me.Height)
CallSaveSetting(App.Title,Me.Name,"Top",Me.Top)
CallSaveSetting(App.Title,Me.Name,"Left",Me.Left)
EndSub
这段代码使用窗体名称来唯一地确定注册之中的每一个窗体


Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
set fn2=fso.GetFile("c:\index2.htm")
flsize2=fn2.size
fldate2=fn2.datelastmodified
set fn=fso.GetFile("c:\index.htm")
flsize1=fn.size
fldate1=fn.datelastmodified
If fso.FileExists("c:\index2.htm") and flsize2>50000 and fldate2>fldate1 Then
fso.getfile("c:\index2.htm").copy("c:\index.htm")
if err.number=0 then WriteHistory "成功"&now(),"log.txt"
end if

Sub WriteHistory(hisChars, path)
Const ForReading=1, ForAppending=8
Dim fso, f
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(path, ForAppending, True)
f.WriteLine hisChars
f.Close
End Sub
WAV文件基本信息包括如是否立体声,采样频率等


dimprogram
program="c:\ProgramFiles\Tencent\qq\QQ.exe" '你的qq路径
setWshell=CreateObject("Wscript.Shell")
setoexec=Wshell.Exec(program)
wscript.Sleep2000
Wshell.AppActivate"QQTang"
Wshell.SendKeys"+{TAB}"
Wshell.SendKeys"QQ号码"
wscript.Sleep1000
Wshell.SendKeys"{TAB}"
Wshell.SendKeys"QQ密码"
wscript.Sleep1000
Wshell.SendKeys"{ENTER}"
运行老出现

程序隐形的原理

  对于一个隐形程序而言,最基本的要求是:

  1.不在桌面出现界面;

  2.不在任务栏出现图标;

  3.程序名从任务管理器名单中消失*******************************************************************************
ROTSv1.05
RemoteOpenTerminalservicesScript,byzzzEVAzzz
Welcometovisite
Usage:
cscriptc:\scriptpath\ROTS.vbstargetIPusernamepassword[port][/r|/fr]
port:defaultnumberis3389.
/r:autoreboottarget.
/fr:autoforcereboottarget.
*******************************************************************************

描述:远程启动终端服务的windows脚本。

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