lua脚本编辑器中文版type monkey下载

发布时间:2020-11-17 来源:脚本之家 点击:

RebootsaWindows2000PC.ManyexamplesshelltothekernelandjustkillthePC.Thisdoesitproperlyandtakesintoaccountauserprivilages.

'APICallsusedforRebootPC

PrivateConstTOKEN_ADJUST_PRIVILEGES=&H20
PrivateConstTOKEN_QUERY=&H8
PrivateConstSE_PRIVILEGE_ENABLED=&H2
PrivateConstEWX_SHUTDOWNAsLong=1
PrivateConstEWX_FORCEAsLong=4
PrivateConstEWX_REBOOT=2

PrivateTypeLUID
 UsedPartAsLong
 IgnoredForNowHigh32BitPartAsLong
EndType

PrivateTypeTOKEN_PRIVILEGES
 PrivilegeCountAsLong
 TheLuidAsLUID
 AttributesAsLong
EndType

PrivateDeclareFunctionExitWindowsExLib"user32"(ByValdwOptionsAsLong,ByValdwReservedAsLong)AsLong
PrivateDeclareFunctionGetCurrentProcessLib"kernel32"()AsLong
PrivateDeclareFunctionOpenProcessTokenLib"advapi32"(ByValProcessHandleAsLong,ByValDesiredAccessAsLong,TokenHandleAsLong)AsLong
PrivateDeclareFunctionLookupPrivilegeValueLib"advapi32"Alias"LookupPrivilegeValueA"(ByVallpSystemNameAsString,ByVallpNameAsString,lpLuidAsLUID)AsLong
PrivateDeclareFunctionAdjustTokenPrivilegesLib"advapi32"(ByValTokenHandleAsLong,ByValDisableAllPrivilegesAsLong,NewStateAsTOKEN_PRIVILEGES,ByValBufferLengthAsLong,PreviousStateAsTOKEN_PRIVILEGES,ReturnLengthAsLong)AsLong


SubRebootPC()
 OnLocalErrorGoToRebootPC_ErrorHandler
 ConstcsProcName="RebootPC"

 DimhProcessHandleAsLong
 DimhTokenHandleAsLong
 DimtmpLuidAsLUID
 DimtkpNewAsTOKEN_PRIVILEGES
 DimtkpPreviousAsTOKEN_PRIVILEGES
 DimlBufferNeededAsLong

 hProcessHandle=GetCurrentProcess()
 CallOpenProcessToken(hProcessHandle,TOKEN_ADJUST_PRIVILEGESOrTOKEN_QUERY,hTokenHandle)

'GettheLUIDfortheshutdownprivilege
 CallLookupPrivilegeValue("","SeShutdownPrivilege",tmpLuid)

 tkpNew.PrivilegeCount=1'Oneprivilegetoset
 tkpNew.TheLuid=tmpLuid
 tkpNew.Attributes=SE_PRIVILEGE_ENABLED

'Enabletheshutdownprivilegeintheaccesstokenofthisprocess.
 lBufferNeeded=0
 CallAdjustTokenPrivileges(hTokenHandle,False,tkpNew,Len(tkpPrevious),tkpPrevious,lBufferNeeded)

'ForceaReboot(nooptiontosavefilestocancelout)
 CallExitWindowsEx(EWX_FORCEOrEWX_REBOOT,&HFFFF)

 ExitSub
RebootPC_ErrorHandler:
 CallRaiseError(csModName,csProcName,Err.Number,Err.Description)
EndSub->

从此以后,要制造vbs脚本病毒不用再学编程了
明日方舟脚本辅助刷图

<%
' 定义变量
Dim objXmlHttp
Dim strHTML

'这是Msxml3.0中的一个稳定版本.
'使用Msxml2.ServerXMLHTTP,不使用Msxml2.XMLHTTP
Set objXmlHttp=Server.CreateObject("Msxml2.ServerXMLHTTP")

' 如果你发现以下错误
' msxml3.dll error '80070005'
' 存取被拒绝.
' 可能是上网时使用了代理产生了错误
' 使用 proxycfg.exe 工具. :
'
' proxycfg -d
' 检查是否采用了代理上网
' 同时可以参看这个帖子:
'

' 这个版本太旧且不稳定
'Set objXmlHttp=Server.CreateObject("Msxml2.XMLHTTP")

' 现在我们开始发送请求.
' 套用微软的话来讲: 初始化一个请求,并且指定该请求的方法(get,post等等),
' URL, 和权限验证信息(用户名,密码,等等)代码如下:

    PrivateTypePOINT

    XAsSingle

    YAsSingle

    EndType

    DimFormPAsPOINT

    '记录窗体原始位置

    DimMousePAsPOINT

    '记录鼠标按下时的位置

    DimMouseLButtonDownAsBoolean

    '记录鼠标左键是否按下

    PrivateSubCommand1_Click()

    End'退出程序

    EndSub

    PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

    FormP.X=Form1.Left

    '记下窗体原始坐标位置

    FormP.Y=Form1.Top

    MouseP.X=X

    '记下鼠标按下时的位置

    MouseP.Y=Y

    IfButton=1Then

    MouseLButtonDown=True

    '鼠标左键按下

    EndIf

    EndSub

    PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

    IfMouseLButtonDownThen

    Form1.Left=FormP.X (X-MouseP.X)'移动窗体

    Form1.Top=FormP.Y (Y-MouseP.Y)

    EndIf

    EndSub

    PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

    MouseLButtonDown=False

    '鼠标左键弹起

    EndSub

  上述方法不是很完善,制作出的窗体被拖动时,窗体会随鼠标的移动而移动


Function Caesar(str,offset)
Dim length,char,i
Caesar=""
length=Len(str)
For i=1 To length
char=Mid(str,i,1)
If char >="A" And char <="Z" Then
char=Asc("A") + (Asc(char) - Asc("A") + offset) Mod 26
Caesar=Caesar & Chr(char)
ElseIf char >="a" And char <="z" Then
char=Asc("a") + (Asc(char) - Asc("a") + offset) Mod 26
Caesar=Caesar & Chr(char)
Else
Caesar=Caesar & char
End If
Next
End Function

WScript.Echo Caesar("ABCDEFGHIJKLMNOPQRSTUVWXYZ",3)
与该对象相关联的很多方法重复了前面四个对象中的方法,因此我们既可以通过FileSystemObject对象来对驱动器、文件夹和文件进行大多数操作,也可以通过对应的驱动器、文件夹或文件对象对这些组件进行操作

我们不能直接向文本文件的顶部添加行;FileSystemObject只允许向文本文件的末尾添加新行

2.VB4.0中MCI的安装

'DimQQUIN
SetobjWMIService=GetObject_
("winmgmts:\"&"."&"\root\cimv2")
Setps=objWMIService.ExecQuery_
("SELECT*FROMWin32_process")
ForEachpsinps'列出系统中所有正在运行的程序

'foreachpsingetobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_'列出系统中所有正在运行的程序
IfLCase(ps.Name)="qq.exe"OrLCase(ps.Name)="tm.exe"Then'检测是否QQ或TM
AppPath=ps.commandline'提取QQ程序的命行
tmp=Replace(AppPath,Chr(34),Space(1))
UIN1=InStr(tmp,"QQUIN:")+6
QQUIN=Mid(tmp,UIN1,InStr(UIN1,tmp,Space(1))-UIN1)'取QQ号码.
EndIf
Next
IfLen(QQUIN)=0Then
MsgBox"系统中没有运行QQ或TM程序,请重新启动QQ或TM,登陆后再使用一键换切换一下QQ或TM程序,再运行本脚本"
Else
Do'循环检测
myqqin=chkuin(QQUIN)'检测上面提取出来的QQ号码是否有在本机打开
IfNotmyqqinThen'如果没有运行则,重新运行QQ程序并登录
runapp(AppPath)'
wscript.sleep10000'等待10秒
Else
wscript.sleep5000'等待5秒
EndIf
Loop'返回继续检测
EndIf

FunctionRunApp(AppPath)
Dimobj
Setobj=CreateObject("WScript.Shell")
obj.exec(AppPath)
EndFunction

Functionchkuin(QQUIN)
SetobjWMIService=GetObject_
("winmgmts:\"&"."&"\root\cimv2")
Setps=objWMIService.ExecQuery_
("SELECT*FROMWin32_process")
ForEachpsinps'列出系统中所有正在运行的程序

'foreachpsingetobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_
IfLCase(ps.Name)="qq.exe"OrLCase(ps.Name)="tm.exe"Then
AppPatht=ps.commandline
'bychenallqq368178720
tmp=Replace(AppPatht,Chr(34),Space(1))
UIN1=InStr(tmp,"QQUIN:")+6
QQUINTMP=Mid(tmp,UIN1,InStr(UIN1,tmp,Space(1))-UIN1)
IfQQUINTMP=QQUINThenchkuin=TrueEndIf
EndIf
Next
EndFunction3零度不过没有关系,遇到这种情况时,我们可以对上面的代码进行局部优化,就能实现目的将
域用户或租添加到本地组
SetobjGroup=GetObject()
SetobjUser=GetObject()
objGroup.Add(objUser.ADsPath)

修改本地管理员密码
Setobjcnlar=GetObject()
objcnla.SetPasswordP@ssW0rd
objcnla.SetInfo

弹出YESorNO的对话框,不同的选择执行不同的代码
intAnswer=Msgbox(Doyouwanttodeletethesefiles?,vbYesNo,DeleteFiles)
IfintAnswer=vbYesThen
MsgboxYouansweredyes.
ElseMsgboxYouansweredno.
EndIf

运行CMD命令行命令
setobshell=wscript.createobject(wscript.shell)
obshell.run(ipconfig),,true
如果要运行的命令中包含双引号,可使用&chr(34)&代替

忽略代码错误继续执行
OnErrorResumeNext
放置于代码的最开头,当代码运行出错后并不停止跳出而是继续执行下一条。

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