TC官方合作论坛

标题: 获取内网IP，开源顺便求测试 [打印本页]

作者: 忆辰辅助 时间: 2015-5-27 14:27
标题: 获取内网IP，开源顺便求测试
函数名：获取内网IP
参数：无
返回值：成功返回内网IP
返回-1 表示批处理文件创建失败
返回-2 表示未成功获取
　　这也是本人需要大家帮忙测试的地方，系统不同可能会在批处理代码上做一点小改动
　　出现这种情况请以下列格式到本帖反馈
　　系统版本：ＸＸ（可以使用系统获取版本号()来获取）
　　内网IP截图：ＸＸ（截图方法：WIN+R，输入CMD，回车，输出ipconfig，截图反馈到本帖）
返回-3 这不是大问题，增加一下延迟就行了

代码如下（老规矩：为了让更多的同学看到，回复后可见）

作者: ljs84891758 时间: 2015-5-27 14:29
老规矩,先回后下!!!!!!!

作者: 18667006365 时间: 2015-5-27 14:30
看看

作者: kimcerhak 时间: 2015-5-27 14:33
学习学习学习学习学习

作者: sw7788 时间: 2015-5-27 14:37

作者: cjxdn 时间: 2015-5-27 15:08
看看

作者: 续花丶 时间: 2015-5-27 15:40
学习一下,

作者: itcfan 时间: 2015-5-27 15:48

作者: Somnuslcc 时间: 2015-5-27 15:51
真的吗

作者: 花落莫相离 时间: 2015-5-27 16:18

再开源个内网通讯的，学习下

作者: jinsonglin 时间: 2015-5-27 16:24
jinsonglin

作者: 言术 时间: 2015-5-27 16:43
了解一下

作者: fuxiaojun185 时间: 2015-5-27 22:36
少时诵诗书

作者: wwkiqpl 时间: 2015-5-28 12:19
内网IP，开源顺便求

作者: 499198574 时间: 2015-5-29 00:11
看看

作者: hyg1393041 时间: 2015-5-29 17:23
瞅瞅

作者: liuhaiyan008 时间: 2015-5-29 19:37
想看看

作者: chaowq 时间: 2015-5-30 14:22
111111111111111

作者: a1648004555 时间: 2015-6-4 08:05
看看看看看看看看看看看看

作者: txxlsy 时间: 2015-6-4 20:51
。。。。。。。。

作者: guert2013 时间: 2015-6-4 23:12
学习学习

作者: chenjian8246 时间: 2015-6-5 11:07

作者: tst 时间: 2015-6-8 23:18
正需要

作者: q892606522 时间: 2015-6-9 02:15
看看吧,

作者: wudifatian 时间: 2015-6-9 13:42
来看看

作者: daisheng2015 时间: 2015-6-9 14:03
尽量多地开源、开源、开源

作者: xia3264024 时间: 2015-6-13 07:27
11111111111111

作者: 2645572175 时间: 2015-6-24 15:32

作者: rainshine 时间: 2015-6-24 18:57
看代码、、

作者: rainshine 时间: 2015-6-24 18:57
我只想说- -这样写麻烦了！

作者: 忆辰辅助 时间: 2015-6-25 09:14

rainshine 发表于 2015-6-24 18:57
我只想说- -这样写麻烦了！

我没找到简单的方式

作者: chendechun00 时间: 2015-6-25 09:59
学习学习

作者: lgv55555 时间: 2015-6-29 12:36
真的很需要啊

作者: 250366688 时间: 2015-7-1 01:15
111111111111111111111

作者: chuanchenmo 时间: 2015-7-1 09:57
学习一下

作者: sunshadow_ja 时间: 2015-7-3 23:24
13回复可见

作者: 一只熊 时间: 2015-7-6 00:13
学习下

作者: zxj8645 时间: 2015-7-6 14:53
获取内网IP，开源顺便求测试

作者: baiywgij 时间: 2015-7-15 19:09

作者: sd172240 时间: 2015-7-27 09:58
绝世好文，不得不顶

作者: TCT 时间: 2015-8-12 20:51
看看

作者: wankerch 时间: 2015-8-18 20:51
打开QQ_点击

作者: yy4363 时间: 2015-8-19 10:34
　　这也是本人需要大家帮忙测试的地方，系统不同可能会在批处理代码上做一点小改动
　　出现这种情况请以下列格式到本帖反馈
　　系统版本：ＸＸ（可以使用系统获取版本号()来获取）
　　内网IP截图：ＸＸ（截图方法：WIN+R，输入CMD，回车，输出ipconfig，截图反馈到本帖）

作者: luoxiaoji 时间: 2015-9-10 13:18

作者: 787130008 时间: 2015-9-12 18:03
天干奎屯奎屯奎屯

作者: 7847214 时间: 2015-9-16 16:14
111111111111

作者: jianxitt 时间: 2015-9-20 14:50
1111111111111

作者: chltczz 时间: 2015-10-20 01:52
在在在要要要

作者: fl75537638 时间: 2015-11-2 18:50
艰苦艰苦坎坷

作者: lijooge 时间: 2015-11-10 13:27
kankan

作者: 153798846 时间: 2015-11-14 23:14
1111111111

作者: hy641641 时间: 2015-11-18 20:50
回复后可见

作者: zh249883717 时间: 2015-11-18 20:51
看看

作者: squallying 时间: 2015-11-21 23:11
学习。。。

作者: Gamestory 时间: 2015-12-7 16:33
不会是用ipconfig返回值是截取的吧

作者: 幻夢幽痕 时间: 2015-12-7 19:05
永远感谢

作者: 一杯水 时间: 2015-12-23 16:20
。。。。。。。。。。。

作者: dhds1212 时间: 2015-12-25 14:52
好了我要学会了

作者: fa7865211 时间: 2016-1-4 19:07
好动东西啊正需要呢

作者: wasq11q 时间: 2016-1-4 20:37
看看呢

作者: shenaqs 时间: 2016-1-5 23:53
fsdfdf

作者: kohaddf 时间: 2016-2-3 20:05
谢谢lz分享

作者: 470093033 时间: 2016-2-16 17:26
感谢楼主的辛苦付出，我一定好好研究研究，谢谢。

作者: szw749b 时间: 2016-3-13 13:40
11111111111111111

作者: 阿凡提水 时间: 2016-3-17 16:29

哦，过来看看支持一下。

作者: suibian8 时间: 2016-3-25 09:08

作者: yht1230 时间: 2016-3-25 13:32
来看看了

作者: complefejw 时间: 2016-3-26 12:26
RE: 获取内网IP，开源顺便求测试 [修改]

作者: 727515 时间: 2016-3-29 09:22
看看能用不

作者: dzscuz 时间: 2016-3-29 23:06
hehh

作者: 江中游 时间: 2016-4-4 19:35
老规矩：为了让更多的同学看到，回复后可见

作者: 2105029625 时间: 2016-4-4 23:59
我看看！

作者: jfgzs 时间: 2016-4-20 17:28
学习学习

作者: a1054745769 时间: 2016-4-21 09:05
ssssssssss

作者: andyzzh 时间: 2016-4-22 20:23
了解一下

作者: htht530 时间: 2016-5-11 12:23
不错哦看看先

作者: 小杰01 时间: 2016-7-2 15:20
学习学习

作者: liu7193059 时间: 2016-7-8 03:17
dsfgvdsfzgf

作者: 11505 时间: 2016-7-19 18:10
看一看，官方没参数

作者: 58275 时间: 2016-7-19 21:51
学习学习

作者: x603x 时间: 2016-7-21 01:05
这个我喜欢

作者: d6057229 时间: 2016-7-22 21:04
学习学习

作者: remenbo 时间: 2016-7-23 02:45
var CONNECT="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\\sv.mdb"
var n_cd=1//主菜单序号
var i_yyyy,i_mm,i_dd,q_d,q_jl,a_jl=array()// 年,月,日,天数,记录数量,记录内容
function WorkNotes_init()
i_yyyy=timeyear(timenow())
i_mm=timemonth(timenow())
i_dd=timeday(timenow())
var error,command="SELECT 内容,年,月,日,周 FROM sv WHERE (年<"&i_yyyy&" OR (年="&i_yyyy&" AND (月<"&i_mm&" OR (月="&i_mm&" AND 日<"&i_dd&")))) AND 状态=1"
database(CONNECT,command,q_jl,a_jl,error)
if(error=="执行成功")
      if(q_jl)
         controldomodal("tip")
      end
else
      messagebox(error&"。\r\n\r\n请检查问题，然后重新启动。")
      exit()
end
y3()
y2()
y1()
x1()
end
function WorkNotes_pretranslatemessage(hwnd,message,wParam,lParam,time,x,y)
if(message==256&&hwnd==controlgethandle("adding")&&wParam==13)//添加新纪录
      controlenable("adding",false)
      var error,command="INSERT INTO sv (内容,年,月,日,周,状态) VALUES ('"&editgettext("adding")&"',"&timeyear(timenow())&","&timemonth(timenow())&","&timeday(timenow())&","&timeweek(timenow())&",1)"
      database(CONNECT,command,0,0,error)
      if(error=="执行成功")
         editsettext("adding","")
      end
      controlenable("adding",true)
      windowsetfocus(controlgethandle("adding"))
      return true
end
if(message==513)//单击日期
      for(var i = 1; i <= q_d; i++)
         if(hwnd==controlgethandle("d"&i))
            select(n_cd)
                  case 1
                  y1()
                  case 2
                  y2()
                  case 3
                  y3()
            end
            i_yyyy=staticgettext("yy")
            i_mm=staticgettext("mm")
            i_dd=i
            x1()//今日
            return true
         end
      end
end
if(message==515)//双击事件
      for(var i = 1; i <= q_jl; i++)
         if(hwnd==controlgethandle("t"&i)&&a_jl[i-1]["状态"]==1)///////////////////////今日菜单项目双击
            var i_c_t=confirmationbox("    已完成请点击是，\r\n    未完成请点击否，\r\n    撤销请点击取消。","处理",3,true)
            select(i_c_t)
                  case 7
                  a_jl[i-1]["状态"]=2
                  staticsetcolor("t"&i,#00a000,1)
                  case 1
                  a_jl[i-1]["状态"]=0
                  staticsetcolor("t"&i,#ff0000,1)
            end
            var error,command="UPDATE sv SET 状态="&a_jl[i-1]["状态"]&" WHERE 内容='"&strcut(staticgettext("t"&i),2,true)&"' AND 年="&i_yyyy&" AND 月="&i_mm&" AND 日="&i_dd&" AND 状态=1"
            database(CONNECT,command,0,0,error)
            return true
         end
      end
end
return false
end
function today_click()
select(n_cd)
      case 1
      y1()
      case 2
      y2()
      case 3
      y3()
end
i_yyyy=timeyear(timenow())
i_mm=timemonth(timenow())
i_dd=timeday(timenow())
x1()//今日
end
function x1()//显示今日菜单
n_cd=1
var error,command="SELECT 内容,状态 FROM sv WHERE 年="&i_yyyy&" AND 月="&i_mm&" AND 日="&i_dd
arrayclear(a_jl)
database(CONNECT,command,q_jl,a_jl,error)
windowsetsize(windowgetmyhwnd(),397,145+50*q_jl)
for(var i = 1; i <= q_jl; i++)
      controlenable("t"&i,true)
      controlsetpos("t"&i,21,65+50*(i-1),0,0,1)
      staticsettext("t"&i,i&"."&a_jl[i-1]["内容"])
      select(a_jl[i-1]["状态"])
         case 0
         staticsetcolor("t"&i,#ff0000,1)
         case 1
         staticsetcolor("t"&i,#ffffa0,1)
         case 2
         staticsetcolor("t"&i,#00a000,1)
      end
      controlshow("t"&i,true)
end
controlenable("last",true)
controlsetpos("last",55,65+50*q_jl,0,0,1)
controlshow("last",true)
controlenable("search",true)
controlsetpos("search",161,65+50*q_jl,0,0,1)
controlshow("search",true)
controlenable("next",true)
controlsetpos("next",267,65+50*q_jl,0,0,1)
controlshow("next",true)
end
function y1()//隐藏今日菜单
controlshow("last",false)
controlenable("last",false)
controlshow("search",false)
controlenable("search",false)
controlshow("next",false)
controlenable("next",false)
for(var i = 1; i <= 10; i++)
      controlshow("t"&i,false)
      controlenable("t"&i,false)
      staticsetcolor("t"&i,#f0f0f0,1)
end
controlshow("cyy",false)
controlenable("cyy",false)
controlshow("cmm",false)
controlenable("cmm",false)
end
function last_click()
y1()
var i_ld_t=timeadd("d",-1,i_yyyy&"/"&i_mm&"/"&i_dd)
i_yyyy=timeyear(i_ld_t)
i_mm=timemonth(i_ld_t)
i_dd=timeday(i_ld_t)
x1()
end
function next_click()
y1()
var i_nd_t=timeadd("d",1,i_yyyy&"/"&i_mm&"/"&i_dd)
i_yyyy=timeyear(i_nd_t)
i_mm=timemonth(i_nd_t)
i_dd=timeday(i_nd_t)
x1()
end
function calendar_click()
select(n_cd)
      case 1
      y1()
      case 2
      y2()
      case 3
      y3()
end
i_yyyy=timeyear(timenow())
i_mm=timemonth(timenow())
x2()//日历
end
function x2()//显示日历菜单
n_cd=2
select(i_mm)
      case 1
      q_d=31
      case 2
      if((i_yyyy%4==0&&i_yyyy%100!=0)||i_yyyy%400==0)
         q_d=29
      else
         q_d=28
      end
      case 3
      q_d=31
      case 4
      q_d=30
      case 5
      q_d=31
      case 6
      q_d=30
      case 7
      q_d=31
      case 8
      q_d=31
      case 9
      q_d=30
      case 10
      q_d=31
      case 11
      q_d=30
      case 12
      q_d=31
end
var i_w_t=timeweek(i_yyyy&"/"&i_mm&"/1")//显示月份1号的星期数
windowsetsize(windowgetmyhwnd(),397,200+40*(q_d+i_w_t-1)/7)
controlenable("yi",true)
controlshow("yi",true)
staticsettext("yy",i_yyyy)
controlenable("yy",true)
controlshow("yy",true)
controlenable("yd",true)
controlshow("yd",true)
controlshow("year",true)
controlenable("mi",true)
controlshow("mi",true)
staticsettext("mm",i_mm)
controlenable("mm",true)
controlshow("mm",true)
controlenable("md",true)
controlshow("md",true)
controlshow("month",true)
controlshow("w1",true)
controlshow("w2",true)
controlshow("w3",true)
controlshow("w4",true)
controlshow("w5",true)
controlshow("w6",true)
controlshow("w7",true)
for(var i = 1; i <= q_d; i++)
      controlsetpos("d"&i,61+40*((i+i_w_t-1)%7),130+40*int((i+i_w_t-1)/7),0,0,1)
      controlenable("d"&i,true)
      controlshow("d"&i,true)
end
if(i_yyyy==timeyear(timenow())&&i_mm==timemonth(timenow()))
      staticsetcolor("d"&timeday(timenow()),#c0dcc0,1)
end
end
function y2()//隐藏日历菜单
controlshow("yi",false)
controlenable("yi",false)
controlshow("yy",false)
controlenable("yy",false)
controlshow("yd",false)
controlenable("yd",false)
controlshow("year",false)
controlshow("mi",false)
controlenable("mi",false)
controlshow("mm",false)
controlenable("mm",false)
controlshow("md",false)
controlenable("md",false)
controlshow("month",false)
controlshow("w1",false)
controlshow("w2",false)
controlshow("w3",false)
controlshow("w4",false)
controlshow("w5",false)
controlshow("w6",false)
controlshow("w7",false)
for(var i = 1; i <= 31; i++)
      controlshow("d"&i,false)
      controlenable("d"&i,false)
      staticsetcolor("d"&i,#f0f0f0,1)
end
controlshow("cyy",false)
controlenable("cyy",false)
controlshow("cmm",false)
controlenable("cmm",false)
end
function yi_click()//年份增加
if(int(staticgettext("yy"))<timeyear(timenow())+1)
      staticsettext("yy",int(staticgettext("yy"))+1)
      mc()
end
end
function yy_click()//年份
controlshow("yy",false)
controlenable("yy",false)
controlenable("cyy",true)
controlshow("cyy",true)
combodeleteall("cyy")
for(var i = 0; i < 8; i++)
      comboaddtext("cyy",timeyear(timenow())+1-i)
end
combosetcursel("cyy",1)
end
function cyy_selectchange()
staticsettext("yy",combogettext("cyy"))
controlshow("cyy",false)
controlenable("cyy",false)
controlenable("yy",true)
controlshow("yy",true)
mc()
end
function yd_click()//年份减少
if(int(staticgettext("yy"))>timeyear(timenow())-6)
      staticsettext("yy",int(staticgettext("yy"))-1)
      mc()
end
end
function mi_click()//月份增加
if(int(staticgettext("mm"))==12)
      staticsettext("mm",1)
else
      staticsettext("mm",int(staticgettext("mm"))+1)
end
mc()
end
function mm_click()//月份
controlshow("mm",false)
controlenable("mm",false)
controlenable("cmm",true)
controlshow("cmm",true)
combosetcursel("cyy",timemonth(timenow())-1)
end
function cmm_selectchange()
staticsettext("mm",combogettext("cmm"))
controlshow("cmm",false)
controlenable("cmm",false)
controlenable("mm",true)
controlshow("mm",true)
mc()
end
function md_click()//月份减少
if(int(staticgettext("mm"))==1)
      staticsettext("mm",12)
else
      staticsettext("mm",int(staticgettext("mm"))-1)
end
mc()
end
function mc()//月份变化
y2()
i_yyyy=staticgettext("yy")
i_mm=staticgettext("mm")
x2()
end
function add_click()
select(n_cd)
      case 1
      y1()
      case 2
      y2()
      case 3
      y3()
end
x3()//添加
end
function x3()//显示添加菜单
n_cd=3
windowsetsize(windowgetmyhwnd(),397,250)
controlenable("adding",true)
controlshow("adding",true)
windowsetfocus(controlgethandle("adding"))
end
function y3()//隐藏添加菜单
controlshow("adding",false)
controlenable("adding",false)
controlshow("cyy",false)
controlenable("cyy",false)
controlshow("cmm",false)
controlenable("cmm",false)
end
function search_click()
controlopenwindow("result")
end

作者: lujun99 时间: 2016-7-25 21:19
看看

作者: del617 时间: 2016-7-31 11:23
获取内网IP，开源顺便求测试

作者: huhu289 时间: 2016-8-8 23:22
1111111111111111111111111

作者: haishu79 时间: 2016-9-4 23:57
看看

作者: houtian 时间: 2016-9-8 16:23