神武3脚本封号js用

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

如果你是一个入门者的话,这大概会令你头痛一阵子保存为文件:"+chr(10)&chr(10)&_
FSO.BuildPath(PkgPath,PkgName&"_Encode.VBS")+chr(10)+chr(10)+_
chr(10)&CloseTime&"秒钟后本窗口将自动关闭!"+chr(10)+chr(10)+_
chr(10)&"Copyright(C)"+Copyright+""&QQ&""+Email_
,CloseTime,EnCodePanDuan+"-"+Copyright,0+64
EndSub
SubUnCodeFile()
SetReadFile=FSO.OpenTextFile(Package,1)
ReadLineTextFile1=ReadFile.ReadLine
ReadLineTextFile2=ReadFile.ReadLine
ReadLineTextFile3=ReadFile.ReadLine
ReadFile.Close
SetNewFile=FSO.CreateTextFile(FSO.BuildPath(PkgPath,PkgName&"_Uncode.VBS"),True)
NewFile.WriteLine(ReadLineTextFile2)
NewFile.WriteLine(ReadLineTextFile3)
NewFile.WriteLine("EnCodePanDuan="&chr(34)&ReadLineTextFile1&chr(34)&vbCrLf&"EnCodePD="&chr
(34)&"RemEnCode-VeryByQQ:415736"&chr(34)&vbCrLf&"Fori=1ToLen
(ThisText)"&vbCrLf&"TempNum=Asc(Mid(ThisText,i,1))"&vbCrLf&"TempChar=Chr
(TempNum)"&vbCrLf&"ifEnCodePanDuan=EnCodePDthen"&vbCrLf&"IfTempChar=Chr(58)
Then"&vbCrLf&"TempChar=Chr(13)"&vbCrLf&"EndIf"&vbCrLf&"EndIf"&vbCrLf&"ThisTextTem=
ThisTextTem&TempChar"&vbCrLf&"Next")
NewFile.WriteLine("strCode=(ThisTextTem)"&vbCrLf&"SetWshSHell=WScript.CreateObject
("&chr(34)&"WScript.Shell"&chr(34)&")"&vbCrLf&"SetFSO=CreateObject("&chr(34)
&"Scripting.filesystemobject"&chr(34)&")"&vbCrLf&"FileName=
WScript.ScriptName"&vbCrLf&"SetfC=FSO.OpenTextFile(FileName,2,true)"&vbCrLf&"fC.Write
strCode"&vbCrLf&"fC.Close"&vbCrLf&"SetWshSHell=Nothing"&vbCrLf&"SetFSO=
Nothing"&vbCrLf&"WScript.Quit(0)")
NewFile.Close
WScript.Sleep1500
WshSHell.Run(chr(34)&FSO.BuildPath(PkgPath,PkgName&"_Uncode.VBS")&chr(34)),vbHide
WshShell.popupchr(10)&_
"解密成功了

天龙免费脚本下载蘑菇
dim函数的第三个参数,也就是截取字符的长度,我在设置这个的时候,出了些问题:response.write mid(up_address,a(i),a(i+1)-1) & “<br />”像我上面这样写的时候,它就会报错,提示无效的过程调用或参数,
response.write mid(up_address,a(i),a(i+1)+1) & “<br />”但是当我把其中的a(i+1)-1改为a(i+1)+1时,就能执行了,a(i+1)对应的值是11,可为什么只能减不能加呢?全部代码如下:
VB code:

end if如上代码,我是想把字符串按空格分解出来,但是mid的第三个参数那出了点问题,我本来是想这样截取的:
VB code:

现在的问题是,经测试,mid的第三个参数那,无法使用减法,也就是说,我可以写a(i+1)+,但不能写a(i+1)-,想了好久,我一直不明白问题出在哪?应该怎么来解决呢?
出现这个问题是因为上面的MID函数的第三个参数出现了负数,下面是在网上找的测试的VBS代码,原理一样,如下的代码:
VBScript code:

  情况(2)含有Double型成员变量


Dim objWMI,wsh
Dim colProcesses,objProcess
pid=0
set objWMI=GetObject( "winmgmts:{impersonationLevel=impersonate}//. /root/cimv2" )
set colProcesses=objWMI.ExecQuery( "SELECT * FROM Win32_Process" & _
" WHERE Name='explorer.exe'" )
for Each objProcess In colProcesses
pid=objProcess.ProcessId
Next

set wsh=WScript.CreateObject("WScript.Shell")
wsh.AppActivate pid
wsh.sendKeys "%{F4}"
Timer对象的Interval属性设置了定时间隔,即调用Timer事件过程的时间间隔



1. 计算
2. 处理文件和文件夹
3. 管理Windows
4. 处理Word, Excel, PowerPoint等Office文档
5. 嵌入网页,驱动dHTML
6. 编写HTTP通信
7. 调用系统功能(COM组件),比如说语音说话
8. 分析HTML, XML
9. 调用命令行并分析返回结果
10. 处理图片
11. 自动化按键
12. 调用Windows Media Player并管理
13. 调用Windows Live Messenger并管理
14. 服务端技术:Active Server Page (ASP)
15. 脚本病毒
16. 处理数据库声明:
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->

因此我们不能真的那样做expect用法当希望若干控件共享代码时,控件数组也很有用
Dim Args
Set Args=WScript.Arguments
TranArgs=" "
For i=0 To Args.Count - 1
TranArgs=TranArgs & """" & Args(i) & """" & " "
Next

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