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

窄口牛

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

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

2024-12-5 00:40 上传

点击文件名下载附件
下载积分: 无忧币 -2

窄口牛

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

2024-12-6 14:23 上传

点击文件名下载附件
下载积分: 无忧币 -2

'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

这是好事啊，安全多了

邪恶海盗

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


二○二四年十二月五日

Minionss

学习

孟仁飞

学习

softwarezheng1

跟着学习不迷路

szwp

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