TP-LINK Manager v0.7.1

[Kyan]

Hello!
Been working on this, SNMP UDF is a bit incomplete, but found a way to make it work as I wanted.
 

 
Features

•  Restarts wan connection
•  Retrieve connected devices (Local IP/MAC address/device name)
•  Displays: router external ip | up time | brand & model

I made this for my home router, but probably works on others models and brands (except the restart function, that is a TP-LINK exclusive xD)
 
TP-Link Manager v0.7.1.zip (v0.7 - 38 downloads)
 
#Changelog

v0.7.1

• Added error checking for when an OID doesn't exist or can't be read
• Disables everything and show a message when nothing is retrieved (argumentum idea )

Edited April 16, 2015 by Kyan

[argumentum]

in my house it failed but I think the bounds are wrong

If UBound($aFill) < UBound($aOIDs) Then ReDim $aFill[UBound($aOIDs)][2] ;If something failed, nvm lel

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("TP-LINK Manager", 351, 211)
$Edit1 = GUICtrlCreateEdit("Ainda não sei por aqui os IPs ligados", 0, 48, 350, 137, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN,$ES_READONLY))
$Label1 = GUICtrlCreateEdit($aFill[2]&" "&$aFill[3], 16 - 10, 4, 176, 20 - 2, 0x0800,0x00000020) ;$ES_READONLY, $WS_EX_TRANSPARENT

but then again, if I fix that it fails again

If (StringMid($result[9][0],1,$oidLength) <> $_oid) Or (Int(StringRight($result[9][0],3)) = 255) Then ExitLoop ;checkin if you're out of your desired MIB SubTree

I hope this helps to make a non crashing code, i did not continue looking

Thanks for sharing.

[TheDcoder]

Please provide "WinHttpConstants.au3"

TD

[mLipok]

'?do=embed' frameborder='0' data-embedContent>>

[TheDcoder]

Error:

 

"C:UsersTheDcoderDesktopTP-Link ManagerTP-LINK Manager.au3" (40) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$Label1 = GUICtrlCreateEdit($aFill[2]&" "&$aFill[3], 16 - 10, 4, 176, 20 - 2, 0x0800,0x00000020)
$Label1 = GUICtrlCreateEdit(^ ERROR

 

Thanks @mLipok

TD

[Kyan]

argumentum and TheDecoder
 
See if this fix it

If UBound($aFill) < UBound($aOIDs) Then ReDim $aFill[UBound($aOIDs)] ;If something failed, nvm lel

EDIT: _SNMP_GETsubtree fix

Func _SNMP_GETsubtree($_oid,$firstSufix = '')
    Local $SNMP_ReqID = 0, $result,$SNMP_Command, $Timeout_msec = 900, $oidLength = StringLen($_oid), $return[1][2], $_contET = 1
    $_reqOID = $_oid&$firstSufix
    While 1
        If $SNMP_ReqID > 0 Then $_reqOID = $result[9][0]
        $SNMP_ReqID +=1
        $SNMP_Command = _SNMPBuildPacket($_reqOID, $sSNMPcommunity, 2, $SNMP_ReqID, "A1")
        UDPSend($Socket, $SNMP_Command)
        $Timeout = TimerInit()
        While 1
            $srcv = UDPRecv($Socket, 100)
            If $srcv <> "" Then $result = _ShowSNMPReceived($srcv)
            If @error Or TimerDiff($Timeout) > $Timeout_msec Then ExitLoop
            ;_ArrayDisplay($result)
            ;ConsoleWrite($srcv&@LF)
            Sleep(10)
        WEnd
        If IsArray($result) Then
            If (StringMid($result[9][0],1,$oidLength) <> $_oid) Or (Int(StringRight($result[9][0],3)) = 255) Then ExitLoop ;checkin if you're out of your desired MIB SubTree 
                                                                                        ;// = 255 is for the case of .1.3.6.1.2.1.4.22.1.2.1.192.168.1.255;  FF-FF-FF-FF-FF-FF
            ReDim $return[$_contET][2]
            $return[$_contET-1][0] = $result[9][0]
            $return[$_contET-1][1] = $result[9][1]
            $_contET +=1
        Else
            If Not @Compiled Then ConsoleWrite("_SNMP_GETsubtree() ==> Failed to retrieve OID:"&$_reqOID&@LF)
            ; Failed to retrieve OID => This can happen by: Your router has SNMP disabled, you enter the a wrong SNMP community name OR your router simply doesn't support that OID
            ExitLoop ; Since failed to retrieve the last OID it can't walk to the next
        EndIf
    WEnd
    Return $return
EndFunc

Please, let me know if there's more errors

(my script lacks some error checking, thats why it was failing)

if there's a couple of people using this script I can add english language to everything (yeah, I'm that lazy ,that's why I use scripts )

Edited April 14, 2015 by Kyan

[argumentum]

argumentum and TheDecoder

cool, it does not show anything . I added that if nothing found, disable the buttons

If StringRegExp($aFill[2],'(?i)TP.LINK') Then $isTPlink = 1

If StringStripWS(GUICtrlRead( $IPext ),8) = "" Then
    GUICtrlSetState($btnReset,$GUI_DISABLE)
    GUICtrlSetState($btnRLD,$GUI_DISABLE)
    GUICtrlSetData($Label1,"nothing to see, carry on..")
EndIf

Edited April 15, 2015 by argumentum