打印

[其他] 跪求远程登录路由器操作电脑的教程吧！谢谢了！

sceic

银河飞将

帖子: 35751
精华: 2
积分: 56965
激骚: 1050 度
爱车: Boeing 767-300ER
主机
相机
手机
注册时间: 2003-7-6

PS区侠盗飞车V入格奖☆ TGFC 2014新年勋章☆☆☆☆ TGFC 2015新年勋章☆☆☆☆ TGFC 2017新年勋章☆☆☆☆ TGFC 2018新年勋章☆☆☆☆ TGFC 2019新年勋章☆☆☆☆ 主机区 PSVR认证★

发短消息
加为好友
当前离线

1^# 大中小发表于 2009-5-8 15:57 显示全部帖子

step1：下载IP更动邮件工具，只要IP变化，就会向指定邮箱发信新IP
下载地址http://www.92hot.cn/soft/html/24054.html

step2：安装远程控制软件Radmin 3.2服务器端RS到那边机器上，设置用户名和密码。

step3：收信查看IP，打开Radmin 3.2客户端RA登录远程屏幕。

完，有良心的给个jisao，谢谢。

本帖最近评分记录

wxfysl 激骚 +1 2009-5-8 15:59

TOP

sceic

银河飞将

帖子: 35751
精华: 2
积分: 56965
激骚: 1050 度
爱车: Boeing 767-300ER
主机
相机
手机
注册时间: 2003-7-6

PS区侠盗飞车V入格奖☆ TGFC 2014新年勋章☆☆☆☆ TGFC 2015新年勋章☆☆☆☆ TGFC 2017新年勋章☆☆☆☆ TGFC 2018新年勋章☆☆☆☆ TGFC 2019新年勋章☆☆☆☆ 主机区 PSVR认证★

发短消息
加为好友
当前离线

2^# 大中小发表于 2009-5-8 16:03 显示全部帖子

刚刚下了那个软件，貌似没法用，给你补一个excle vbs的程序吧，你看看能不能用。

自动发送本机ip地址到邮箱
提示：不是所有的邮箱都支持这种发送方式

Public old_ip As String
Sub ipsend(old_ip As String)
Dim MyIp As String
邮箱地址 = "XXX@xxx.com"    '改为自己的邮箱
邮箱密码 = "******"                   '改为邮箱的密码
发送邮箱的smtp = "123.456.789.123"    '改为邮箱的发送服务器地址 ip 或域名均可

Sheet1.Cells.ClearContents
'从网络获取ip地址是个笨办法
With Sheet1.QueryTables.Add(Connection:= _
      "URL;http://www.ikaka.com/ip/index.asp", Destination:=Sheet1.Range("A1"))
      .Name = "index"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlEntirePage
      .WebFormatting = xlWebFormattingNone
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
'提取网页内容到字符串
For I = 1 To 30
   MyIp = MyIp  & Sheet1.Range("A" & I)
Next I
   MyIp = Mid(MyIp, InStr(1, MyIp, "["), Len(MyIp) - InStr(1, MyIp, "["))
   MyIp = Mid(MyIp, 1, InStr(1, MyIp, "]"))

If MyIp <> old_ip Then '检查ip地址是否改变

Set objEmail = CreateObject("CDO.Message")
With objEmail
      .From = 邮箱地址
      .To = 邮箱地址
      .Subject = MyIp & Format(Now(), "MM-DD hhmm")
   '.TextBody =
   ' .AddAttachment wName
      .HTMLBody = "<html><body>" & MyIp & "</body></html>"
      .Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusername") = 邮箱地址
      .Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = 邮箱密码

      .Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
      .Configuration.Fields.Item _
         ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
      .Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 发送邮箱的smtp
      .Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
      .Configuration.Fields.Update
      .HTMLBodyPart.Charset = "gb2312"
      .Send
  '    .Close
End With
Set objEmail = Nothing
old_ip = MyIp
End If
Old_time = Now + TimeSerial(0, 0, 60) '这里设置的60秒发一次
Application.OnTime Old_time, "'ipsend old_ip'"
End Sub
Sub Auto_Open()
'在工作表打开的时候先调用一次Macro，后续调用由OnTime完成。
Application.OnTime Now + TimeValue("00:00:02"), "'ipsend old_ip'"
End Sub

TOP

sceic

银河飞将

帖子: 35751
精华: 2
积分: 56965
激骚: 1050 度
爱车: Boeing 767-300ER
主机
相机
手机
注册时间: 2003-7-6

PS区侠盗飞车V入格奖☆ TGFC 2014新年勋章☆☆☆☆ TGFC 2015新年勋章☆☆☆☆ TGFC 2017新年勋章☆☆☆☆ TGFC 2018新年勋章☆☆☆☆ TGFC 2019新年勋章☆☆☆☆ 主机区 PSVR认证★

发短消息
加为好友
当前离线

3^# 大中小发表于 2009-5-8 16:23 显示全部帖子

我那个IP发邮箱软件成功运行了，貌似还可以的。。嘿嘿适合菜鸟

TOP