×用微信扫描并分享

IPMonitor – 检测本机 IP 地址变更

17
1 Star2 Stars3 Stars4 Stars5 Stars(快来投票)
Loading...

IPMonitor 是款小巧的本机 IP 地址检测工具,当发现 IP 地址变更后,立即通知主人。@Appinn

IPMonitor 通过检测一段时间内(默认10分钟)本机 IP 地址的变化,有四种方式进行提醒:

1. 声音提醒,需自行设置音频文件
2. 邮件提醒,经测试 163 邮件正常,而 Gmail 则由于未知原因无法发送成功。
3. 消息提醒,右下角弹窗提醒。
4. 运行程序

IPMonitor 更像是花生壳的另类版本,通过 IPMonitor 可以随时掌握电脑的外网 IP 地址。对于经常需要远程操作或者花生壳的用户,是个不错的选择。

IPMonitor 需要 JRE 支持,如本机无 JRE,可下载自带 JRE 版本(20MB),如有 JRE 可下载 783KB 版本。

下载地址: http://sourceforge.net/projects/ipmonitor/files/

×用微信扫描并分享

已有 17 条评论, 我要留言

  1. Kars说道:

    沙发!!

  2. brightx86说道:

    板凳!

  3. 水星战士说道:

    这么小的软件都要JRE啊,不如用AHK自己写

  4. Gyteng说道:

    教育网固定ip用户飘过

  5. 砖家说道:

    囧……居然还有这种软件。检测IP用脚本就可以实现,我写过一个获取IP的批处理,就是靠检测IP实现,因为我们学校IP数量不够……提醒功能实现可能麻烦一点。。。

  6. phil365说道:

    真是林子大了 什么鸟都有啊 以后应该有个检测系统时间的软件 默认每秒检测一次,四种提醒方式
    1. 声音提醒
    2. 邮件提醒
    3. 消息提醒
    4. 运行程序
    需要 .net ×.0支持 程序大小500KB

  7. 333说道:

    用Gmail测试成功:Authentication设置中不要勾选“Use SSL”

  8. 精蓝说道:

    发现小众软件的内容越来越没有我喜欢的了,也许我只用xp系统的原因吧。除了游戏,没有和xp系统有关的内容了。

  9. 我是Ink说道:

    Email部分里的选项怎么设置呢?
    Server和Port该怎么填?

  10. oo说道:

    这个软件没什么用,检测时间不能设置为小于10分钟,那我还检测他做什么

  11. 紫云飞说道:

    你们没有用,不代表所有人就没有用

  12. 恶魔说道:

    小众软件本来就是给小众人服务的,没你喜欢的别用啊

    我自己写过一个类似的,时间可以任意调整,主要用发邮件方式提醒,注册成windows服务,无需登录用户就能检测IP,主要是为了远程桌面连接用ADSL的XP

  13. youhetest说道:

    你们真的不能理解没钱买外网空间和域名码农的痛苦!我就自己用VB写一个这样的软件!家里电脑经常开着,人在公司,可以把网页放到家里电脑上,在家里弄个外网服务什么的!需要的人,我把代码贴出来!简单的,没有做异常处理的!不要见笑。
    Private Sub Timer1_Timer()
    Dim NameS As String
    Dim Email As Object
    Dim ip_all As String
    Dim ip_3 As String
    Dim ip_gw As String
    ‘Timer1.Enabled = True
    ‘Timer1.Interval = 30000000
    ‘Timer1.Interval = 300000

    ‘用Winsock 一句话得IP,可惜这样通常是内网的IP。
    ip_all = Winsock1.LocalIP
    ip_3 = Val(Left$(ip_all, 3))

    ‘进入 http://www.ip138.com 取得代码,再过滤过IP地址 ,我这样拿到外网IP的,呵呵
    ‘ip_gw = Inet1.OpenURL(“http://www.ip138.com/ip2city.asp”)
    ip_gw = Inet1.OpenURL(“http://www.symental.com/ip/”)
    ‘ip_gw = Mid$(ip_gw, InStr(ip_gw, ” 您的IP地址是”), 20)
    ‘ MsgBox (ip_gw)

    NameS = “http://schemas.microsoft.com/cdo/configuration/”

    Set Email = CreateObject(“CDO.Message”)
    Email.From = “*****@**.com” ‘发送地址
    Email.To = “*****@**.com” ‘接受地址
    Email.Subject = ” **,您的外网IP!”
    Email.Textbody = ip_gw
    Email.Configuration.Fields.Item(NameS & “sendusing”) = 2
    Email.Configuration.Fields.Item(NameS & “smtpserver”) = “smtp.**.com”
    Email.Configuration.Fields.Item(NameS & “smtpserverport”) = 25
    Email.Configuration.Fields.Item(NameS & “smtpauthenticate”) = 1
    Email.Configuration.Fields.Item(NameS & “sendusername”) = “****” ‘邮箱用户名
    Email.Configuration.Fields.Item(NameS & “sendpassword”) = “******” ‘邮箱密码
    Email.Configuration.Fields.Update
    Email.Send

    End Sub

  14. youhetest说道:

    @youhetest, 另外,由于ADSL上网不稳定,会出现断网情况,所以必须有这么个程序,随时通知你,告诉你最新的外网地址。

有不同想法?说说看(首次评论会被人工审核,请耐心等待)