「IPMonitor – 检测本机 IP 地址变更」的评论

评论者：youhetest

youhetest — Tue, 16 Aug 2011 09:09:33 +0000

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

评论者：youhetest

youhetest — Tue, 16 Aug 2011 09:07:46 +0000

你们真的不能理解没钱买外网空间和域名码农的痛苦！我就自己用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

评论者：过路人

过路人 — Fri, 11 Feb 2011 01:03:48 +0000

回复给恶魔。 @恶魔, 把你的软件给大家试试好吗？谢谢！

评论者：恶魔

恶魔 — Sat, 11 Sep 2010 02:40:59 +0000

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

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

评论者：紫云飞

紫云飞 — Sat, 08 May 2010 15:51:36 +0000

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

评论者：oo

oo — Fri, 07 May 2010 09:31:35 +0000

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

评论者：我是Ink

我是Ink — Thu, 06 May 2010 09:44:47 +0000

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

评论者：精蓝

精蓝 — Wed, 05 May 2010 23:50:23 +0000

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

评论者：333

333 — Wed, 05 May 2010 02:09:24 +0000

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

评论者：phil365

phil365 — Wed, 05 May 2010 00:30:04 +0000

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