无忧启动论坛

标题: 发一个自己用的远程协助工具 [打印本页]

作者: 窄口牛 时间: 2018-9-19 09:06
标题: 发一个自己用的远程协助工具
本帖最后由窄口牛于 2018-9-29 09:27 编辑

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

需要修改部分

[

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

作者: kingshui 时间: 2018-9-19 16:54
cmdkey存在于2000以上版本的系统吧

作者: 窄口牛 时间: 2018-9-19 17:08
本帖最后由窄口牛于 2018-9-19 18:41 编辑

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

作者: 窄口牛 时间: 2018-9-29 09:27
添加sendkeys自动完成验证选择。

作者: 殇酷儿 时间: 2018-11-3 22:13
支持一下，谢谢分享！

作者: Dream漂移 时间: 2018-11-6 21:53

支持一下，谢谢分享！

作者: laoduo123 时间: 2018-11-28 09:50
收藏备用，谢谢分享！

作者: Joyace 时间: 2019-4-3 01:41
https://github.com/nanqinlang-script/CloudFlare_DNS_Record
利用cloudflare api实现ddns了解下

作者: 不落的太阳 时间: 2019-4-3 22:54
求这个监控远程IP变化的东东及使用方法

作者: 窄口牛 时间: 2019-4-4 20:58
自己写个vbs应该也行。

报告IP.rar (2.09 MB, 下载次数: 35)

作者: 不落的太阳 时间: 2019-4-6 21:54

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

谢谢

作者: 不落的太阳 时间: 2019-6-4 00:22

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

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

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

作者: 窄口牛 时间: 2019-6-4 05:19
不能用可能是因为32和64的问题，改改就行了。

作者: 不落的太阳 时间: 2019-6-4 11:56
批处理怎么获取外网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

作者: 不落的太阳 时间: 2019-6-4 11:58
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

作者: 不落的太阳 时间: 2019-6-4 11:59
看不懂，请大师鉴定

作者: 不落的太阳 时间: 2019-6-4 12:03
还有一个做成WINDOWS下的服务的，可惜我自己也没弄成功

作者: 不落的太阳 时间: 2019-6-4 12:05
https://www.cnblogs.com/lishuai0214/p/4282542.html

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

作者: 窄口牛 时间: 2019-6-4 15:03

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

on error resume next

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

作者: 不落的太阳 时间: 2019-6-5 09:04

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

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

作者: 扬帆起航 时间: 2019-6-10 19:38
感谢分享

作者: hzjyswf 时间: 2019-6-11 14:09
学习了，谢谢，

欢迎光临无忧启动论坛 (http://wuyou.net/)