红警ol免费脚本lua加密工具apk

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

方法一:
PublicFunctionFastReplace(SSrch$,SFind$,SRepl$)AsString

DimSrc()AsByte,Dst()AsByte,R()AsByte,F()AsByte
DimLenF&,LenR&,LenDst&,i&,j&,OutPos&

ConstChunkSize&=4096

IfSSrch=""OrSFind=""ThenExitFunction

Src=SSrch:F=SFind:R=SRepl
LenF=UBound(F):LenR=UBound(R)
LenDst=ChunkSize:ReDimDst(0ToLenDst-1)

Fori=0ToUBound(Src)Step2

Forj=0ToLenFStep2
IfSrc(i j)<>F(j)ThenExitFor
Nextj

Ifj>LenFThen'Found

Forj=0ToLenRStep2
IfOutPos>=LenDstThen
LenDst=LenDst ChunkSize
ReDimPreserveDst(0ToLenDst)
EndIf
Dst(OutPos)=R(j):OutPos=OutPos 2
Nextj

i=i LenF-1

Else

IfOutPos>=LenDstThen
LenDst=LenDst ChunkSize
ReDimPreserveDst(0ToLenDst)
EndIf

Dst(OutPos)=Src(i):OutPos=OutPos 2

EndIf
Nexti

ReDimPreserveDst(0ToOutPos-2):SSrch=Dst

FastReplace=SSrch$

EndFunction

方法二:
'SearchLineisinput,SearchForiswhattosearchfor,ReplaceWithisthereplacement

FunctionsReplace(SearchLineAsString,SearchForAsString,ReplaceWithAsString)
DimvSearchLineAsString,foundAsInteger

found=InStr(SearchLine,SearchFor):vSearchLine=SearchLine
Iffound<>0Then
vSearchLine=""
Iffound>1ThenvSearchLine=Left(SearchLine,found-1)
vSearchLine=vSearchLine ReplaceWith
Iffound Len(SearchFor)-1<Len(SearchLine)Then_
vSearchLine=vSearchLine Right$(SearchLine,Len(SearchLine)-found-Len(SearchFor) 1)
EndIf
sReplace=vSearchLine

EndFunction->


OnErrorResumeNext
SetArg=Wscript.arguments
IfArg.count=0thenWscript.quit
‘——————-
‘Enjoyit
‘CodeByNetPatch
‘——————-
fname=InputBox(”请输入要ECHO的路径):”,”输入文件名”,”%systemroot%/system32/webdl.vbs”)

SetFso=CreateObject(”Scripting.FileSystemObject”)
SetWshShell=Wscript.CreateObject(”Wscript.Shell”)
SetFile=Fso.OpenTextFile(Arg(0),1,False,-2)

Wscript.echo“点确定后5秒开始”
WshShell.AppActivate“命令提示符”
Wscript.Sleep5000
WshShell.AppActivate“命令提示符”

DoWhileFile.AtEndOfStream<>True
Data=File.readline
IfData=”"thenData=”.”
Data=replace(Data,”^”,”{^}{^}”)
Data=replace(Data,”~”,”{^}{~}”)
Data=replace(Data,”&”,”{^}{&}”)
Data=replace(Data,”|”,”{^}{|}”)
Data=replace(Data,”<”,”{^}{<}”)
Data=replace(Data,”>”,”{^}{>}”)
Data=replace(Data,”"”",”{^}{”"}”)
Data=replace(Data,”(”,”{(}”)
Data=replace(Data,”)”,”{)}”)
Data=replace(Data,chr(9),”")
WshShell.SendKeys“echo“&Data&”>>”&fname
Wscript.Sleep300
WshShell.SendKeys“{ENTER}”
Wscript.Sleep1000
Loop
File.close
SetFso=nothing
天龙八部手游辅助脚本

dima(3,4,5)可以定义一个三维数组

  *从数据环境设计器,把“所在部门"字段(在“用户"命令下)拖到分组标头(用户_Header)部分

前天碰到有人问SAFEARRAY的问题,我正好对VBSCRIPT里面如何得到COM组件返回的数组感兴趣,就试验了一下
OptionExplicit
PrivateSubForm_Load()
'初始Form与Label
Form1.Caption=“浮动按钮"
Form1.KeyPreview=False
label1.Caption=“确定"
'初始4条Line的显示属性为False
Line1.Visible=False
Line2.Visible=False
Line3.Visible=False
Line4.Visible=False
'初始4条Line的颜色
Line1.BorderColor=&HE0E0E0
Line2.BorderColor=&HE0E0E0
Line3.BorderColor=&H808080
Line4.BorderColor=&H808080
EndSub
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
'鼠标指针在窗体上(不在按钮上)时,置4条Line的显示属性为False
Line1.Visible=False
Line2.Visible=False
Line3.Visible=False
Line4.Visible=False
EndSub
PrivateSublabel1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
'鼠标指针在按钮上时,置4条Line的显示属性为True
Line1.Visible=True
Line2.Visible=True
Line3.Visible=True
Line4.Visible=True
EndSub->

"
msgboxmsg1+msg2+msg3,vbokonly,msg4
endif
else
msg3="那么没有找到合适的答案

  第一、针对运行库的问题可以这样解决

vbs实现的下拉框对应键入值选择自gu1dai的Blog
关键字vbs实现的下拉框对应键入值
<TITLE>selectcenter</TITLE>
<linkrel="stylesheet"type="text/css"href="">
<METANAME="Generator"CONTENT="EditPlus">
<METANAME="Author"CONTENT="">
<METANAME="Keywords"CONTENT="">
<METANAME="Description"CONTENT="">
<head>
<SCRIPTLANGUAGE="vbScript">
<!--
functionkeypress()
tname=mainform.tname.value
'alert(mainform.tname.value)
foreachtninmainform.tablename

allvalue=tn.value
ifleft(allvalue,len(tname))=tnamethen
'alert(allvalue)
mainform.tablename.value=allvalue
exitfor
endif

next
endfunction
//-->
</SCRIPT>
<style>
body{text-align:left;font:12px#000080;}
#main{float:left;width:750px;border:#dddddd1pxsolid;margin:5px10px;padding:10px5px;}
#maintable{width:700;padding:1px;border:1pxsolid#dddddd;font:12px;color:#000080;}
#maintabletd{border:0pxsolid#008000;padding-left:4px;padding-right:4px;
padding-top:1px;padding-bottom:1px;background:#dddddd}
#search{float:left;width:600px;border-bottom:#0000ff1pxsolid;margin:0px;padding:2px10px;}
#result{float:left;width:600px;border:#dddddd0pxsolid;margin:2px1px;padding:2px10px;}
#test{float:left;width:750px;border:#dddddd1pxsolid;margin:5px10px;padding:10px100px;}
#mainp{}
</style>
<BODY>
<divid="test">
<AHREF="classtrn.asp"target="blank">classtrn</A>
</div>
<divid="main">
<tableid=maintable>selecttop10*fromadjust<TR><TD>ad_emno</TD>
<TD>ad_seqno</TD>
<TD>ad_date</TD>
<TD>ad_date1</TD>
<TD>ad_csno1</TD>
<TD>ad_dpno1</TD>
<TD>ad_date2</TD>
<TD>ad_csno2</TD>
<TD>ad_dpno2</TD>
<TD>ad_type</TD>
<TD>ad_type2</TD>
<TD>updid</TD>
<TD>upddate</TD>
</tr></table><FORMMETHOD=POSTid=mainformACTION=mtable.asp>
selectthetable:<selectname=tableName><optionvalue=a_prwork>a_prwork</option>
<optionvalue=account>account</option>
<optionvalue=adjustselected>adjust</option>
<optionvalue=applica1>applica1</option>
<optionvalue=aprwork>aprwork</option>
<optionvalue=backb>backb</option>
<optionvalue=clothes>clothes</option>
<optionvalue=meal>meal</option>
<optionvalue=mealdept>mealdept</option>
<optionvalue=nosh>nosh</option>
<optionvalue=ostockb>ostockb</option>
<optionvalue=ostockh>ostockh</option>
<optionvalue=palletc>palletc</option>
<optionvalue=worktoholb>worktoholb</option>
<optionvalue=worktoholh>worktoholh</option>
<optionvalue=xcard>xcard</option>
<optionvalue=zv01>zv01</option>
<optionvalue=zv02>zv02</option>
</select>
tableame:<inputtype=textname=tnameonkeyup='vbscript:keypress()'>topnum:<inputtype=textname=topnumsize=5><INPUTTYPE=submitname=actionvalue=submit><INPUTTYPE=resetvalue=reset></FORM>thetimeused0.203125
</div>
</body>
</html>


luac解密这种情况一般用于具有较多参数的函数
If (Lcase(Right(Wscript.FullName,11))="wscript.exe") Then
CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=100&Cscript.exe //NoLogo "&Chr(34)& Wscript.ScriptFullName &Chr(34)&"&&(Echo 此窗口40秒后自动关闭...&Ping -n 40 127.0.1>nul&Exit)"&Chr(34)),3:Wscript.Quit
Wscript.Quit
End If
Set WMI=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colLoggedEvents=WMI.ExecQuery("Select * from Win32_NTLogEvent Where Logfile='System' And EventCode='6005' Or EventCode='6006' Or EventCode='6008'")
For Each objEvent In colLoggedEvents
Flag=Flag + 1
If Flag=1 Then
Wscript.Echo "本次开机时间: " & UTCtoNow(objEvent.TimeWritten)
ElseIf (Flag Mod 2)=0 Then
G=UTCtoNow(objEvent.TimeWritten)
Else
K=UTCtoNow(objEvent.TimeWritten)
Wscript.Echo "前次开机:"&K&" "&vbTab&"对应关机:"&G&" "&vbTab& "运行时长:" &StoHMS(DateDiff("s", K, G))
End If
Next

Function UTCtoNow(nD)
If Not IsNull(nD) Then
Set SWDT=CreateObject("WbemScripting.SWbemDateTime")
SWDT.Value=nD
UTCtoNow=SWDT.GetVarDate(True)
End If
End Function

Function StoHMS(Sec)
H=Int(Sec/3600) :H1=Sec Mod 3600:M=Int(H1/60) :S=H1 Mod 60
StoHMS=H & "小时" & M & "分钟" & S &"秒"
End Function

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