IPMonitor 是款小巧的本机 IP 地址检测工具，当发现 IP 地址变更后，立即通知主人。@Appinn
IPMonitor 通过检测一段时间内（默认10分钟）本机 IP 地址的变化，有四种方式进行提醒：
1. 声音提醒，需自行设置音频文件
2. 邮件提醒，经测试 163 邮件正常，而 Gmail 则由于未知原因无法发送成功。
3. 消息提醒，右下角弹窗提醒。
4. 运行程序
IPMonitor 更像是花生壳的另类版本，通过 IPMonitor 可以随时掌握电脑的外网 IP 地址。对于经常需要远程操作或者花生壳的用户，是个不错的选择。
IPMonitor 需要 JRE 支持，如本机无 JRE，可下载自带 JRE 版本（20MB），如有 JRE 可下载 783KB 版本。
沙发！！
板凳！
这么小的软件都要JRE啊，不如用AHK自己写
@水星战士,
ahk+dropbox毫无压力
获取公网ip：
http://www.bliao.com/ip.phtml
教育网固定ip用户飘过
囧……居然还有这种软件。检测IP用脚本就可以实现，我写过一个获取IP的批处理，就是靠检测IP实现，因为我们学校IP数量不够……提醒功能实现可能麻烦一点。。。
真是林子大了 什么鸟都有啊 以后应该有个检测系统时间的软件 默认每秒检测一次，四种提醒方式
1. 声音提醒
2. 邮件提醒
3. 消息提醒
4. 运行程序
需要 .net ×.0支持 程序大小500KB
用Gmail测试成功：Authentication设置中不要勾选“Use SSL”
发现小众软件的内容越来越没有我喜欢的了，也许我只用xp系统的原因吧。除了游戏，没有和xp系统有关的内容了。
Email部分里的选项怎么设置呢？
Server和Port该怎么填？
这个软件没什么用，检测时间不能设置为小于10分钟，那我还检测他做什么
你们没有用，不代表所有人就没有用
小众软件本来就是给小众人服务的,没你喜欢的别用啊
我自己写过一个类似的,时间可以任意调整,主要用发邮件方式提醒,注册成windows服务,无需登录用户就能检测IP,主要是为了远程桌面连接用ADSL的XP
@恶魔, 把你的软件给大家试试好吗？谢谢！
你们真的不能理解没钱买外网空间和域名码农的痛苦！我就自己用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
@youhetest, 另外，由于ADSL上网不稳定，会出现断网情况，所以必须有这么个程序，随时通知你，告诉你最新的外网地址。