注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

【转载】路由自动登陆(Test)  

2013-01-28 14:33:07|  分类: delphi xe2 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
本文转载自gfuchao《路由自动登陆(Test)》
路由自动登陆(Test) - gfuchao - 小小de巫师

#Include <Array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;路由型号 TL-R478
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Administrator\桌面\Form1.kxf
$Form1 = GUICreate("路由器 Test", 252, 257, 581, 277)
$Label1 = GUICtrlCreateLabel("用  户  名:", 8, 8, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 68, 6, 81, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label2 = GUICtrlCreateLabel("密        码:", 8, 38, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 68, 36, 81, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label3 = GUICtrlCreateLabel("路由地址:", 8, 67, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 68, 65, 81, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Button1 = GUICtrlCreateButton("登陆", 160, 5, 81, 25)
$Button2 = GUICtrlCreateButton("重启路由", 160, 35, 81, 25)
$Button3 = GUICtrlCreateButton("断网重连", 160, 64, 81, 25)
$Label4 = GUICtrlCreateLabel("MAC地址:", 9, 123, 58, 17)
$Input4 = GUICtrlCreateInput("", 69, 121, 169, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label5 = GUICtrlCreateLabel("IP 地址:", 9, 151, 48, 17)
$Input5 = GUICtrlCreateInput("", 69, 149, 169, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label6 = GUICtrlCreateLabel("子网掩码:", 9, 187, 63, 17)
$Input6 = GUICtrlCreateInput("", 69, 185, 169, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label7 = GUICtrlCreateLabel("网    关:", 9, 215, 55, 17)
$Input7 = GUICtrlCreateInput("", 69, 213, 169, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Group1 = GUICtrlCreateGroup("", 4, 104, 241, 137)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Button1
   
   $us = GUICtrlRead($Input1)
   $ps = GUICtrlRead($Input2)
   $gt = GUICtrlRead($Input3)
   $source = xmlhttp($gt & "/userRpm/StatusRpm.htm",$us,$ps)
StatusRpm($source)
EndSwitch
WEnd
Func StatusRpm($ss)
$Match_1='(.{2}-.{2}-.{2}-.{2}-.{2}-.{2})'
$Match_2='(\d+\.\d+\.\d+\.\d+)'
$sReg_1=StringRegExp($ss,$Match_1,3)
$sReg_2=StringRegExp($ss,$Match_2,3)
GUICtrlSetData($Input4,$sReg_1[0])
GUICtrlSetData($Input5,$sReg_2[5])
GUICtrlSetData($Input6,$sReg_2[6])
GUICtrlSetData($Input7,$sReg_2[7])
EndFunc

Func xmlhttp($Gatew,$User,$Passw)
$oHTTP = ObjCreate("Msxml2.xmlhttp")
$oHTTP.Open("get","http://" & $User & ":" & $Passw & "@" & $Gatew,false)
$oHTTP.Send()
Return BinaryToString($oHTTP.responseBody)
EndFunc

 写到这里不想写了,因为今天晚上时间过的太快了,一转眼一看时间,就TMD变成6点了.

纳闷死了,今天晚上怎么过那么快呐,是不是俺哥仨儿去吃铁板羊肉吃的时间太长了.?

好了,这个路由器,自动登陆让我整了一个晚上,刚开始入手的时候麻烦死了.


点击下载
  评论这张
 
阅读(311)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017