油猴提示没有运行中的脚本lua在线解密

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

见State常数如果获取到IDispatch接口的指针,就可以给VARIANT变量赋值了;如果不支持IDispatch接口,报错“类不支持 Automation 操作”,也可能是其他错误信息,取决于具体实现

爱情故事脚本
将域用户或租添加到本地组
SetobjGroup=GetObject("")
SetobjUser=GetObject("")
objGroup.Add(objUser.ADsPath)

修改本地管理员密码
Setobjcnlar=GetObject("")
objcnla.SetPassword"P@ssW0rd"
objcnla.SetInfo

弹出YESorNO的对话框,不同的选择执行不同的代码
intAnswer=Msgbox("Doyouwanttodeletethesefiles?",vbYesNo,
"DeleteFiles")
IfintAnswer=vbYesThen
Msgbox"Youansweredyes."
ElseMsgbox"Youansweredno."
EndIf

运行CMD命令行命令
setobshell=wscript.createobject("wscript.shell")
obshell.run("ipconfig"),,true
如果要运行的命令中包含双引号,可使用&chr(34)&代替

忽略代码错误继续执行
OnErrorResumeNext
放置于代码的最开头,当代码运行出错后并不停止跳出而是继续执行下一条

  以上只是实时曲线绘制的一点简单说明,具体应用中可能需要花更多的功夫修饰图像,显示时间(可以依据上面的代码中的Picture1.Print实现),但是基本原理大同小异


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
这里建议使用所带的setup进行自动安装,可以省去一切步骤,setup后的文件名为蝴蝶.scr,已自动安装到系统的文件夹,在“显示器”中的“屏幕保护程序”可以找到


on error resume next
url=" "
username="***"
password="***"
set ie=CreateObject("InternetExplorer.Application")
ie.visible=true
ie.Navigate url,4 ' " "
do until 4=ie.readyState
WScript.sleep 200
waittime=waittime + 200
if waittime > 15000 then exit do
loop
'WScript.echo waittime
if 4<>ie.readyState then
ie.quit
WScript.quit
end if
set dom=ie.document
set form=dom.getElementById("loginform")
form.all("username").value=username
form.all("password").value=password
form.all("cookietime").checked=true
form.all("loginsubmit").click()

最令人迷惑的地方是Null这个保留字,请看以下语句:
PrintX=Null
PrintX<>Null
结果都是输出Null(不是True也不是False),这是因为任何一个运算式只
要含有Null,则该运算式就等于Null,实际上想要判断某一数据是否为Null
绝对不能使用:
IfX=NullThen'永远都会得到Null
而要使用:
IfIsNull(X)Then
哪一种数据会等于Null呢?除了含有Null运算式之外,就属没有输入任
何数据的「数据字段」(在数据库中)会等于Null


Public MD5Value
MD5Sum(WScript.Arguments(0))
SetClipboardText("MD5: " & MD5Value & ", FilePath: " & WScript.Arguments(0))
Function MD5Sum(filename)
Dim MyStream, MyHashed, MD5Value
Set MyStream=CreateObject("ADODB.Stream")
MyStream.Type=1
MyStream.Open()
MyStream.LoadFromFile(filename)
Set MyHashed=CreateObject("CAPICOM.HashedData")
MyHashed.Algorithm=3
MyHashed.Hash(MyStream.Read())
MyStream.Close
MD5Value=MyHashed.Value
End Function

如何换行
2、加入MicrosoftJetandReplicationObjectsX.Xlibrary,其中(X.X大于或等于2.1)

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