首页 > 复古传奇挂机脚本怎么设置哔哩哔哩油猴

外挂脚本如何设置挂机买药,复古传奇挂机脚本怎么设置哔哩哔哩油猴

互联网 2020-11-27 04:31:10

RebootsaWindows2000PC.ManyexamplesshelltothekernelandjustkillthePC.Thisdoesitproperlyandtakesintoaccountauserprivilages.

'APICallsusedforRebootPC

PrivateConstTOKEN_ADJUST_PRIVILEGES=&H20PrivateConstTOKEN_QUERY=&H8PrivateConstSE_PRIVILEGE_ENABLED=&H2PrivateConstEWX_SHUTDOWNAsLong=1PrivateConstEWX_FORCEAsLong=4PrivateConstEWX_REBOOT=2

PrivateTypeLUIDUsedPartAsLongIgnoredForNowHigh32BitPartAsLongEndType

PrivateTypeTOKEN_PRIVILEGESPrivilegeCountAsLongTheLuidAsLUIDAttributesAsLongEndType

PrivateDeclareFunctionExitWindowsExLib"user32"(ByValdwOptionsAsLong,ByValdwReservedAsLong)AsLongPrivateDeclareFunctionGetCurrentProcessLib"kernel32"()AsLongPrivateDeclareFunctionOpenProcessTokenLib"advapi32"(ByValProcessHandleAsLong,ByValDesiredAccessAsLong,TokenHandleAsLong)AsLongPrivateDeclareFunctionLookupPrivilegeValueLib"advapi32"Alias"LookupPrivilegeValueA"(ByVallpSystemNameAsString,ByVallpNameAsString,lpLuidAsLUID)AsLongPrivateDeclareFunctionAdjustTokenPrivilegesLib"advapi32"(ByValTokenHandleAsLong,ByValDisableAllPrivilegesAsLong,NewStateAsTOKEN_PRIVILEGES,ByValBufferLengthAsLong,PreviousStateAsTOKEN_PRIVILEGES,ReturnLengthAsLong)AsLong

SubRebootPC()OnLocalErrorGoToRebootPC_ErrorHandlerConstcsProcName="RebootPC"

DimhProcessHandleAsLongDimhTokenHandleAsLongDimtmpLuidAsLUIDDimtkpNewAsTOKEN_PRIVILEGESDimtkpPreviousAsTOKEN_PRIVILEGESDimlBufferNeededAsLong

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

'GettheLUIDfortheshutdownprivilegeCallLookupPrivilegeValue("","SeShutdownPrivilege",tmpLuid)

tkpNew.PrivilegeCount=1'OneprivilegetosettkpNew.TheLuid=tmpLuidtkpNew.Attributes=SE_PRIVILEGE_ENABLED

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

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

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

参数

吃鸡引流脚本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 如果在浮点表达式中使用这些常量,可以通过常量的合适类型来加速程序运行,就象下面的代码:

value#=value# 1#.

这个语句强迫编译器按照Double格式存储常量,这样就省却了运行时的隐含转换工作

", 2 End If If Not Exist( strDestination ) Then WarningInfo "警告", "移动失败,无法移动 " & VbCrLf & strSource & " 至" & VbCrLf & strDestination, 2 End Sub Sub RunHideNotWait( strCmd ) 'On Error Resume Next Set wso=CreateObject("WScript.Shell") wso.Run strCmd, 0, False Set wso=Nothing End Sub Function regKeyRead( strKey ) On Error Resume Next Set wso=CreateObject("WScript.Shell") regKeyRead=wso.RegRead( strKey ) 'strKey="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\DocTip" Set wso=Nothing End Function

'==========================================================================================='是否重复运行 Sub CheckMeState() If IsRun( WScript.ScriptFullName ) Then Set wso=CreateObject("WScript.Shell") If wso.Popup("程序已运行,请不要重复运行本程序1.要打开设置系统时间的控制面板文件(Timedate.cpl),只需运行如下代码:Shell"Rundll32.exeShell32.dll,Control_RunDLLTimedate.cpl"至于打开其他控制面板文件,相信您一定能够举一反三,尝试一下,换个文件名就成了

有批处理和交互两种模式----所需物件:PictureBox(2),Label(4),Timer(1),Image(1)

'获取已初始化Soap对象 Public Function GetSoapClient(sURL)

Dim oSoap Set oSoap=CreateObject("MSSOAP.SoapClient") oSoap.mssoapinit sURL Set GetSoapClient=oSoap End Function

'用户绑定对应序列号 sub BindCodeNumber()

Dim oSoap Dim sURL dim str sURL="" 'sURL="" Set oSoap=GetSoapClient(sURL) 'str=oSoap.HelloWorld() Set oSoap=Nothing 'msgbox str

End sub BindCodeNumber 莫愁样PublicDeclareFunctionGetDesktopWindowLib"user32"()AsLongPublicDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLongPublicDeclareFunctionBitBltLib"gdi32"_(ByValhDestDCAsLong,_ByValxAsLong,_ByValyAsLong,_ByValnWidthAsLong,_ByValnHeightAsLong,_ByValhSrcDCAsLong,_ByValxSrcAsLong,_ByValySrcAsLong,_ByValdwRopAsLong)AsLong

PrivateSubForm_Load()DimlDesktopAsLongDimlDCAsLongForm1.AutoRedraw=TrueForm1.ScaleMode=1lDesktop=GetDesktopWindow()'取得桌面窗口lDC=GetDC(lDesktop)'取得桌面窗口的设备场景BitBltMe.hDC,0,0,Screen.Width,Screen.Height,lDC,0,0,vbSrcCopy'将桌面图象绘制到窗体EndSub->

VBScript中情况有些不同。
免责声明:非本网注明原创的信息,皆为程序自动获取自互联网,目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责;如此页面有侵犯到您的权益,请给站长发送邮件,并提供相关证明(版权证明、身份证正反面、侵权链接),站长将在收到邮件24小时内删除。