Another Phone Udf - find carrier, type, city, and state

[ConsultingJoe]

Let me know if you have any questions or comments, Thanks

expandcollapse popup

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.125
; Author:         zerocool60544 <jsammarco@gmail.com>
;
; *USES IE2*
;
; UDF Function: phone($return, $area, $pre, $post)
;       $return = Return type
;           0 = Carrier
;           1 = City
;           2 = State
;           3 = Type
;               CLEC = Competitive Local Exchange Carrier, like TCG
;               RBOC = Regional Bell Operating Company, like Pacific Bell or Bell Atlantic
;               TELCO = A long distance company, like AT&T
;               WIRELESS = A cell phone or pager company, like Nextel
;               CAP = Competitive Access Provider, like ICG
;               IND TELCO = A small local phone company, not previously part of the Bell System.
;               PCS = A Personal Communication System provider, like Pacific Bell PCS. Cell phones and data transmission.
;       $area = Area code
;           Example: 815
;       $pre = Prefix
;           Example: 603
;       $post = First number in the postfix
;           Example: 9
;
; ----------------------------------------------------------------------------
#include <IE.au3>

MsgBox(0, "", phone( 0, "815", "603", "9"))

Func phone($return, $area, $pre, $post)
    $oIE = _IECreate ("http://www.fonefinder.net", 0, 0)
    $form = _IEFormGetCollection ($oIE, 0)
    $areainput = _IEFormElementGetObjByName ($form, "npa")
    $preinput = _IEFormElementGetObjByName ($form, "nxx")
    $postinput = _IEFormElementGetObjByName ($form, "thoublock")
    $submit = _IEFormElementGetObjByName ($form, "usaquerytype")
    _IEFormElementSetValue ($areainput, $area)
    _IEFormElementSetValue ($preinput, $pre)
    _IEFormElementSetValue ($postinput, $post)
    $submit.click
    _IELoadWait ($oIE)
    $table = _IETableGetCollection ( $oIE, 0 )
    $array = _IETableWriteToArray ( $table )
    _IEQuit ($oIE)
    Select
        case $return = 0
            Return $array[4][1]
        Case $return = 1
            Return $array[2][1]
        Case $return = 2
            Return $array[3][1]
        Case $return = 3
            Return $array[5][1]
    EndSelect
EndFunc   ;==>carrier

Edited June 11, 2006 by zerocool60544

[Emerica]

See if I can get a tab in Fone with a gui going for it

Get an kinda all in one phone app going.

[ConsultingJoe]

See if I can get a tab in Fone with a gui going for it

Get an kinda all in one phone app going.

ok, sounds cool. I want to add this to my cell bomber in case you dont know the carrier.

[Emerica]

ok, sounds cool. I want to add this to my cell bomber in case you dont know the carrier.

Seeing as you seem to be into phone 'fun', have you checked out phoneswarm.com before?

[ConsultingJoe]

Seeing as you seem to be into phone 'fun', have you checked out phoneswarm.com before?

I went to that site. it didnt really have anything???