Numaradan Operatör Sorgulama

[b]Gsm[/b] numarasının hangi operatöre ait olduğunu öğrenmek için aşağıdaki kodları kullanabilirsiniz..

 [b]Örnek;[/b]
[img] [/img]

Gerekli Nesneler
■ UserForm
■ 2 Adet TextBox
■ 2 Adet CommandButton
■ 2 Adet Image

■ [b]Bu kodları kullanabilirsiniz;[/b]

Public Evn As Object
Public adres As String, resim As String
Private Declare Function CLSIDFromString Lib "ole32" _
(ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Private Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, _
ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, _
ByRef riid As Any, ByRef ppvRet As Any) As Long

Public Function Pic(ByVal URL As String) As Picture
    Dim IPic(15) As Byte
    CLSIDFromString StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"), IPic(0)
    OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Pic
End Function

Private Sub CommandButton1_Click()
    If TextBox1.Value = "" Then MsgBox "..::.. Cep Numaranızı Girin ..::..", _
    vbInformation + vbMsgBoxRtlReading, "..::.. Hatırlatma ..::..": Exit Sub
    Me.Height = 199
    Set Evn = CreateObject("Internetexplorer.Application")
    adres = "http://www.numaranitasi.gov.tr/PublicWebGUI/index.jsp"
    resim = "http://www.numaranitasi.gov.tr/PublicWebGUI/Captcha.jpg"
    With Evn
        .navigate adres
        Do While Not Evn.readyState = 4: DoEvents: Loop
        Image1.Picture = Pic(resim)
    End With
    TextBox2.SetFocus
End Sub

Private Sub CommandButton2_Click()
    On Error Resume Next
    If TextBox1.Value = "" Or TextBox2.Value = "" Then _
    MsgBox "..::.. İstenen Bilgileri Giriniz ..::..", _
    vbInformation + vbMsgBoxRtlReading, "..::.. Eksik Bilgi ..::..": Exit Sub
    
    With Evn
    If TextBox1.Value <> "" And TextBox2.Value <> "" Then .Visible = False
        .document.getElementsByname("msisdn")(0).Value = TextBox1.Value
        .document.getElementsByname("captchafield")(0).Value = TextBox2.Value
        .document.Forms(0).submit
    Do While Not .readyState = 4: DoEvents: Loop
    Application.Wait (Now + TimeValue("00:00:01"))
    If .document.body.innerText Like "*Avea*" Then
        Image2.Visible = True
            ElseIf .document.body.innerText Like "*Vodafone*" Then
        Image3.Visible = True
            ElseIf .document.body.innerText Like "*Turkcell*" Then
        Image4.Visible = True
    End If
    For i = 30 To 65
        .document.all.Item(i).Click
    Next i
    Do While Not .readyState = 4: DoEvents: Loop
    Application.Wait (Now + TimeValue("00:00:02"))
    .Quit
    End With
    Me.Height = 288
End Sub

 Hoşça kalın !