PureBasic Forums - English

Posted: **Sun Sep 08, 2013 7:01 pm**

Hi,

How I can retrieve with PureBasic the ip of my router?

Thanks

Posted: **Fri Sep 27, 2013 9:10 am**

Procedure.s AppleScript(Script.s)
  Protected retVal.s, strVal, numItems, i
  Protected aScript = CocoaMessage(0, CocoaMessage(0, CocoaMessage(0, 0, "NSAppleScript alloc"), "initWithSource:$", @Script), "autorelease")
  Protected eventDesc = CocoaMessage(0, aScript, "executeAndReturnError:", #nil)
  If eventDesc
    numItems = CocoaMessage(0, eventDesc, "numberOfItems")
    If numItems
      For i = 1 To numItems
        strVal = CocoaMessage(0, CocoaMessage(0, eventDesc, "descriptorAtIndex:", i), "stringValue")
        If strVal
          retVal + PeekS(CocoaMessage(0, strVal, "UTF8String"), -1, #PB_UTF8)
          If i <> numItems : retVal + #LF$ : EndIf
        EndIf
      Next
    Else
      strVal = CocoaMessage(0, eventDesc, "stringValue")
      If strVal : retVal = PeekS(CocoaMessage(0, strVal, "UTF8String"), -1, #PB_UTF8) : EndIf
    EndIf
  EndIf
  ProcedureReturn retVal 
EndProcedure

routerIP.s="set the routerIP to do shell script " + #DQUOTE$ + "route get default | grep gateway | tr -d ' ' | cut -f2 -d':'" + #DQUOTE$
Debug AppleScript(routerIP)

Or you can manually run `route get default | grep gateway | tr -d ' ' | cut -f2 -d':'` and read stdout.

PureBasic Forums - English

question about router ip

question about router ip

Re: question about router ip