发一个自己用的远程协助工具

窄口牛

我在服务器有个监视IP变化的东西，它会发送邮件给我在每次ip变化以后
于是我的操作就是，从邮箱复制现在的Ip
然后双批处理，然后自动完成打开远程进入桌面
远程结束后删除远程记录
保证本地干干净净不留痕迹

需要修改部分


[ 远程连接.rar (7.8 KB, 下载次数: 159)

2018-9-29 09:27 上传

点击文件名下载附件

kingshui

cmdkey存在于2000以上版本的系统吧

窄口牛

哦，我的系统是精简版，嘿嘿

窄口牛

添加sendkeys自动完成验证选择。

殇酷儿

支持一下，谢谢分享！

Dream漂移

支持一下，谢谢分享！

laoduo123

收藏备用，谢谢分享！

Joyace

https://github.com/nanqinlang-script/CloudFlare_DNS_Record
利用cloudflare api实现ddns了解下

不落的太阳

求这个监控远程IP变化的东东及使用方法

窄口牛

自己写个vbs应该也行。
报告IP.rar (2.09 MB, 下载次数: 34)

2019-4-4 20:58 上传

点击文件名下载附件

不落的太阳

窄口牛 发表于 2019-4-4 20:58
自己写个vbs应该也行。

谢谢

不落的太阳

不落的太阳 发表于 2019-4-6 21:54
谢谢

谢谢，再次感谢，时过境迁，从README里现在选出一个可用的IP源及格式，就是修改的那个，用得很好。

现在有些担心，什么时候就不能用了，没胡源码，也不擅长编译，现在更多的是HTTPS的源，格式也不想去分析，在网上查了有些源码，也看到一个VBS的源码，可是不能用。

窄口牛

不能用可能是因为32和64的问题，改改就行了。

不落的太阳

批处理怎么获取外网IP，并发送邮件
本帖最后由 522235677 于 2019-5-22 17:59 编辑

    function Send_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment)
    'code by NetPatch
    'VBS发送邮件参数说明
    'You_Account：你的邮件帐号
    'You_Password:你的邮件密码
    'Send_Email: 主要邮件地址
    'Send_Email2: 备用邮件地址
    'Send_Topic: 邮件主题
    'Send_Body: 邮件内容
    'Send_Attachment:邮件附件

    You_ID=Split(You_Account, "@", -1, vbTextCompare)
    '帐号和服务器分离
    MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
    '这个是必须要的，不过可以放心的事，不会通过微软发送邮件
    Set Email = CreateObject("CDO.Message")
    Email.From = You_Account
    '这个一定要和发送邮件的帐号一样
    Email.To = Send_Email '主要邮件地址

    If Send_Email2 <> "" Then
    Email.CC = Send_Email2 '备用邮件地址
    End If

    Email.Subject = Send_Topic '邮件主题
    Email.Textbody = Send_Body '邮件内容

    If Send_Attachment <> "" Then
    Email.AddAttachment Send_Attachment '邮件附件
    End If

    With Email.Configuration.Fields
    .Item(MS_Space&"sendusing") = 2 '发信端口
    .Item(MS_Space&"smtpserver") = "smtp."&You_ID(1) 'SMTP服务器地址
    .Item(MS_Space&"smtpserverport") = 25 'SMTP服务器端口
    .Item(MS_Space&"smtpauthenticate") = 1 'cdobasec
    .Item(MS_Space&"sendusername") = You_ID(0) '你的邮件帐号
    .Item(MS_Space&"sendpassword") = You_Password '你的邮件密码
    .Update
    End With
    Email.Send
    '发送邮件
    Set Email=Nothing
    '关闭组件

    Send_Mail=True
    '如果没有任何错误信息，则表示发送成功,否则发送失败
    If Err Then
    Err.Clear
    Send_Mail=False
    End If
    End Function

    '以下是利用上面的函数发送带附件的邮件例子
    If Send_Mail("thisexplorer@qq.com","woaigd","6469494@qq.com","","邮件主题","邮件内容","d:\TeclastCoolFlash.ptf")=True Then
    Wscript.Echo "发送成功"
    Else
    Wscript.Echo "发送失败"
    End If

复制代码

我在网上看到的，怎么提示这个呢？
       

TOP

http://bbs.bathome.net/thread-2870-1-1.html
http://bbs.bathome.net/thread-4978-1-1.html
http://bbs.bathome.net/thread-546-1-1.html

不落的太阳

vbs-获取公网IP调用邮件控件实现邮件的自动发送到指定邮箱-可直接使用复制使用

on error resume next
set ie=CreateObject("internetexplorer.application")
ie.navigate("http://ip.cn/")
ie.Visible=False
While ie.busy Or ie.readystate <> 4
WEnd
Set regEx = New RegExp
regEx.Pattern = "{联通|移动|电信}"
Set Matches = regEx.Execute(ie.document.body.innerhtml)
For Each Match in Matches
COSP=Match.Value
Next
Sub EchoMsg(str)
Wscript.Echo str
End Sub

on error resume next
set ie=CreateObject("internetexplorer.application")
ie.navigate("http://ip.cn/")
ie.Visible=False
While ie.busy Or ie.readystate <> 4
WEnd
Set regEx = New RegExp
regEx.Pattern = "来自.*"&COSP&""
Set Matches = regEx.Execute(ie.document.body.innerhtml)
ie.quit
For Each Match in Matches
FROM=Match.Value’定义标题定义为ＦＯＲＭ
Next
Set ws = CreateObject("Wscript.Shell")
ws.run "%comspec% /c @echo "&FROM&" > C:\windows\systemct.org",vbhide
Sub EchoMsg(str)
Wscript.Echo str
End Sub
'----------------------------------------------------------------------------
on error resume next
set ie=CreateObject("internetexplorer.application")
ie.navigate("http://ip.cn/")
ie.Visible=False
While ie.busy Or ie.readystate <> 4
WEnd
Set regEx = New RegExp
regEx.Pattern ="\d.*\d"
Set Matches = regEx.Execute(ie.document.body.innerhtml)
ie.quit
For Each Match in Matches
RetStr=Match.Value　’获取公网IP定义变量为RetStr
Next
Set ws = CreateObject("Wscript.Shell")
ws.run "%comspec% /c @echo 公IP："&RetStr&" >> C:\windows\systemct.org",vbhide
Sub EchoMsg(str)
Wscript.Echo str
End Sub
'杀死浏览器进程
On Error Resume Next
sub Close_Process(ProcessName)
On Error Resume Next
     for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
           if Ucase(ps.name)=Ucase(ProcessName) then
                 ps.terminate
           end if
     next
end sub
Close_Process("iexplore.exe")
Close_Process("iexplore.exe")
'--------------------------------------------------------------------------------
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
'Email.From = "＊@163.com"’发件地址
Email.From = "＊@163.com"
Email.To = "738349140@qq.com"’收件地址
Email.Subject = ""&FROM&""
Email.Textbody = "公网IP："&RetStr&""
Email.AddAttachment "C:\windows\systemct.org"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.163.com" ’ｍａｉｌ服务器地址提示，貌似只有１６３可以用
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "＊"’登陆账号名
.Item(NameSpace&"sendpassword") = "＊"’登陆密码
.Update
End With
Email.Send

不落的太阳

看不懂，请大师鉴定

不落的太阳

还有一个做成WINDOWS下的服务的，可惜我自己也没弄成功

不落的太阳

https://www.cnblogs.com/lishuai0214/p/4282542.html

Windows下利用Python动态检测外网IP并发邮件给邮箱

窄口牛

不落的太阳 发表于 2019-6-4 11:58
vbs-获取公网IP调用邮件控件实现邮件的自动发送到指定邮箱-可直接使用复制使用

on error resume next

这个就可以吧，把对应的设置改好就行了

不落的太阳

窄口牛 发表于 2019-6-4 15:03
这个就可以吧，把对应的设置改好就行了

自己弄了几次都没搞成，我再试试

扬帆起航

感谢分享

hzjyswf

学习了，谢谢，