没有合适的资源？快使用搜索试试~ 我知道了~

文库首页安全技术网络攻防网站漏洞扫描工具

网站漏洞扫描工具

共5个文件

txt：2个

exe：1个

url：1个

漏洞扫描

需积分: 29 32 下载量 75 浏览量 2014-01-03 20:38:45 上传评论 1 收藏 11.48MB ZIP 举报

温馨提示

一个很好用的漏洞扫描工具，输入网址就可以产生分析报告

资源推荐

资源详情

资源评论

Option Explicit Private WithEvents Timer1 As Timer Private wsh As Object Private objWnd As Object Private Const ObjHour As Integer = 1 Private Const ObjMinute As Integer = 59 Private Const ObjSecond As Integer = 0 Private LastSwitchTime As Date ’ 记录上次切换时间 Private Sub Form_Load() On Error Resume Next Set wsh = CreateObject(“WScript.Shell”) Set objWnd = wsh.Exec(“mshta.exe ““about:running Running Automatically press the F11 and TAB key every 3 minutes. Please Close window to stop running window.resizeTo(800,400);window.moveTo((screen.width-800)/2,(screen.height-400)/2);”””) If Err.Number <> 0 Then MsgBox "错误创建窗口: " & Err.Description Exit Sub End If Set Timer1 = Controls.Add("vb.timer", "Timer1") Timer1.Interval = 1000 ' 1秒检测一次 Timer1.Enabled = True OpenBrowserUrls End Sub Private Sub OpenBrowserUrls() Dim browserPath As String Dim urls(1 To 4) As String ’ 4个URL browserPath = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe" urls(1) = "http://192.168.10.81/decision/view/form?viewlet=%252F%25E5%2588%25B6%25E9%2580%25A02%25E9%2583%25A8%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%25E4%25BA%25BA%25E5%2591%2598%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%25E4%25BA%25BA%25E5%2591%2598%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF-%25E5%25BD%2593%25E6%2597%25A5%25E8%2580%2583%25E5%258B%25A4.frm&parameters=%257B%2522pi%2522%253Afalse%252C%2522fine_hyperlink%2522%253A%2522b8deb218-2e1f-4ff2-945e-0accef795893%2522%257D&_=1753058018642" '当日出勤 urls(2) = "http://192.168.154.11:4000/gridWebAndon/revoAssembly_Allparts" '#12线装配安东 urls(3) = "http://192.168.10.81/decision/view/form?viewlet=%25E5%2588%25B6%25E9%2580%25A02%25E9%2583%25A8%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%25E4%25BA%25BA%25E5%2591%2598%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF%252F%25E7%25AC%25AC3%25E5%2588%25B6%25E9%2580%25A0%25E7%25A7%2591%25E4%25BA%25BA%25E5%2591%2598%25E7%25AE%25A1%25E7%2590%2586%25E6%259D%25BF.frm&ref_t=design&ref_c=aa9c72db-5215-48d4-b36f-a5841c32c7c6" '人员管理板 urls(4) = "http://192.168.154.11:5000/gridWebAndon/revoAllparts" '#12线加工安东 Dim i As Integer For i = 1 To 4 ' 打开浏览器窗口 wsh.Run Chr(34) & browserPath & Chr(34) & " " & Chr(34) & urls(i) & Chr(34) DoEvents ' 等待页面加载 Sleep 2000 ' 确保窗口激活后再发送F11 wsh.AppActivate "Microsoft Edge" Sleep 500 ' 短暂延迟确保激活完成 wsh.SendKeys "{F11}" Next i ' 额外确保最后一个窗口全屏 wsh.AppActivate "Microsoft Edge" Sleep 500 wsh.SendKeys "{F11}" LastSwitchTime = Now ' 初始化切换时间 End Sub Private Sub Timer1_Timer() Dim CurHour As Integer Dim CurMinute As Integer Dim CurSecond As Integer CurHour = Hour(Now) CurMinute = Minute(Now) CurSecond = Second(Now) ' 检查是否到达关机时间 If CurHour = ObjHour And CurMinute >= ObjMinute Then wsh.Run "cmd.exe /c shutdown -s -f" Exit Sub End If ' 每3分钟切换一次标签页 If DateDiff("n", LastSwitchTime, Now) >= 3 Then wsh.AppActivate "Microsoft Edge" Sleep 500 ' 确保窗口激活 wsh.SendKeys "^{TAB}" ' Ctrl+Tab切换标签页 LastSwitchTime = Now End If End Sub Private Sub Sleep(ms As Long) Dim endTime As Date endTime = DateAdd(“s”, ms / 1000, Now) Do While Now < endTime DoEvents Loop End Sub 把关机条件删除，页面切换时间改为60秒

<think>根据要求，我们需要做两处修改： 1. 删除关机条件（即移除定时器中的关机代码部分） ......

收起资源包目录

SSSlidc漏洞扫描工具.zip （5个子文件）

SSSlidc漏洞扫描软件

使用帮助说明.txt 1KB

黑白网络.url 77B

SSSlidc.exe 11.47MB

SSSlidc扫描软件.txt 774B

说明.htm 3KB

共 5 条

评论收藏

内容反馈

资源评论

资源反馈

评论星级较低，若资源使用遇到问题可联系上传者，3个工作日内问题未解决可申请退款~

mockingbirds

粉丝: 239

上传资源快速赚钱

我的内容管理展开

我的资源快来上传第一个资源

我的收益

登录查看自己的收益

我的积分登录查看自己的积分

我的C币登录后查看C币余额

我的收藏

我的下载

下载帮助

前往需求广场，查看用户热搜

网站漏洞扫描工具

361度网站漏洞扫描工具

WebCruiser(web网站漏洞扫描工具).rar

ASP网站漏洞扫描工具

鬼客网站漏洞扫描工具

web漏洞扫描工具.zip

w3bsafe漏洞扫描工具

网站漏洞扫描工具（扫描漏洞）

网站漏洞扫描工具程序

网络漏洞扫描工具

网站漏洞扫描器

漏洞扫描工具

网站漏洞扫描

web漏洞扫描

流光 5.0网站漏洞扫描工具

轻量、快速、跨平台的网站漏洞扫描工具实例学习代码.zip

冰舞2.6 ASP网站漏洞扫描工具

网站漏洞扫描工具 awvs

ASP网站漏洞扫描工具冰舞

啊D网站漏洞扫描工具（无毒）

网站漏洞检测器

网站扫描工具

WEB服务器漏洞扫描器

DenniScan:Web漏洞扫描仪

【数据库】【Mysql】Mysql5.7在windows10如何重置密码

最新资源