易语言。。。

谁知道怎么做一个程序取本机IP然后将得到的IP发到指定的邮件。 有的将源码发到774107941@qq.com谢了。

.版本 2
.支持库 internet
.支持库 eAPI
.支持库 sock

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 局部_163服务器, 文本型
.局部变量 局部_我的邮箱账号, 文本型
.局部变量 局部_我的邮箱密码, 文本型
.局部变量 局部_收信人的邮箱, 文本型

局部_163服务器 ＝ “smtp.163.com” ' 163的服务器的地址..如果想用QQ邮箱来发邮件就换成"smtp.qq.com"
局部_我的邮箱账号 ＝ “lqdjypx@163.com”  ' lqdjypx@163.com把这个替换成你发邮件的邮箱账号
局部_我的邮箱密码 ＝ “123456”  ' 把123456替换成你发邮件的邮箱密码
局部_收信人的邮箱 ＝ “851706272@qq.com”  ' 把851706272@qq.com替换成收信人的邮箱
.如果 (连接发信服务器 (局部_163服务器, , 局部_我的邮箱账号, 局部_我的邮箱密码, ))
    发送邮件 (“IP信息来了！”, 取IP地址 (取本机名 ()), 局部_收信人的邮箱, , , 局部_我的邮箱账号, )
.否则
    信息框 (“连接163服务器失败!请检查网络!”, #错误图标, )

这个是取168IP的，非常方便，邮箱功能我就不写了，你自己带入去就可以了

.版本 2 .支持库 internet

.局部变量 地址, 文本型, , "0" .局部变量 读出, 文本型

读出 ＝ 到文本 (HTTP读文件 (“ http://www.168ip.com/ip/”)) 地址 ＝ 分割文本 (读出, “&nbsp;”, ) 读出 ＝ 地址 [3] 地址 ＝ 分割文本 (读出, “<br>”, ) 读出 ＝ 地址 [1]

写过很多次了

.版本 2 .支持库 sock

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕 .局部变量 ips, 文本型, , "0" .局部变量 外网IP, 文本型

ips ＝ 取本机IP () 外网IP ＝ ips [2] 编辑框1.内容 ＝ 外网IP

  这样 最简单 最有效！