邮箱要求第三方客户端启用ssl和tsl，因此vbs发邮件不行了

窄口牛 · 发表于 2024-12-5 00:33:02

本帖最后由窄口牛于 2024-12-5 00:40 编辑

vbs发送邮件报告IP
哪位帮忙将其改为发送QQ消息？
另求一个vbs登录海康录像机和摄像头web页面，最好是一段IP轮流登录的。
原VBS

报告IP.rar (2.23 KB, 下载次数: 2)

窄口牛 · 发表于 2024-12-6 14:24:23

报告.rar (884 Bytes, 下载次数: 0)

'On Error Resume Next
Main
Sub Main()
  Dim CurIP, LastIP, strSubject, strMessage, Wshshell
  Do
CurIP = GetWWWIP()
If CurIP <> LastIP Then
   LastIP = CurIP
   password = nss(8)
   Set Wshshell=WScript.CreateObject("WScript.Shell")
   Wshshell.run "net user 系统用户名 " & password
   Wshshell.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+"""IP为"&CurIP&"密码为"&password&""""+")(close)",0,true
   WshShell.run "tencent://message/?uin=QQ号码"
   WScript.Sleep 1000
   WshShell.SendKeys"^v"
   WScript.Sleep 100
   WshShell.SendKeys "%s"
   WScript.Sleep 500
   WshShell.SendKeys"%{F4}"
End If
WScript.Sleep 5 * 1000
  Loop
End Sub
Function nss(n)
For i = 1 To n
Randomize
nss = nss & chr(Int((93 * Rnd) + 33))
next
End Function
'获取外网IPv4，强制等待获取正确IP
Function GetWWWIP()
  Dim Check, objHttp, strHtml, re
  Check = False
  On Error Resume Next
  Do Until Check = True
Set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
objHttp.SetTimeouts 5000,5000,5000,5000  'ResolveTimeout,ConnectTimeout,SendTimeout,ReceiveTimeout
objHttp.Open "GET", "http://www.bathome.net/s/ip.php", False
objHttp.Send
If objHttp.Status = 200 Then
   strHtml = objHttp.ResponseText()
   Set re = CreateObject("vbScript.regExp")
   re.Pattern = "(\d+\.\d+\.\d+\.\d+)"
   If re.Test(strHtml) Then
      GetWWWIP = re.Execute(strHtml)(0).SubMatches(0)
      Check = True
   End If
End If
Set re = Nothing
Set objHttp = Nothing
WScript.Sleep 200
  LoopEnd Function

监控外网IP修改密码并报告

2012fengxi · 发表于 2024-12-5 07:36:46

这是好事啊，安全多了

邪恶海盗 · 发表于 2024-12-5 13:05:52

巨硬和G妹要求用啥授权码登陆，根本不用密码...

二○二四年十二月五日

Minionss · 发表于 2024-12-5 14:05:00

学习

孟仁飞 · 发表于 2024-12-5 16:59:40

学习

softwarezheng1 · 发表于 2024-12-5 18:23:05

跟着学习不迷路

szwp · 发表于 2024-12-5 20:32:10

俺发到139邮箱，有手机短信提示

		自动登录	找回密码
密码			注册