VB6'da SMS OCX HAZIRLAMA( SIEMENS TC35)

[BenC]

Siemens TC35 GSM/GPRS modem için hazırladığım. OCX

http://rapidshare.com/files/246925368/SIEMENS_TC35.rar.html
veya
http://hotfile.com/dl/31307412/a54be93/SIEMENS_TC35.rar.html

Modemi Seri porta bağlayıp PC den SMS gönderebilir, gelen mesajları okuyabilirsiniz.

Yapmanız gereken VB6 da proje hazırlayıp OCX'i projenize dahil etmeniz.
Linkteki klasörde kaynak dosyaları mevcut. Gerek ocx'in gerekse Örnek projenin kaynak dosyaları. Diğer modemler için deneme fırsatım olmadı. Aynı yöntem olmasına karşın Özellikle mesaj okuma kısmı modemlere göre değişiklik göstermektedir. Mesaj okurken dönen verinin pars edilme kısmı değişmektedir. Bunu ocx'i düzenleyerek yapabilirsiniz.

Eksik,hata veya geliştirme durumu söz konusu olursa her fikre açığım.

OCX dosyası

Option Explicit


Dim ErrCode As String
Dim Durum As String



Public MsgOkunmaDrm As String
Public GelenMesajTelNo As String
Public GelenMesajTarihi As String
Public GelenMesajSaati As String
Public GelenMesajTpAdresi As String
Public GelenMesajSerAdresi As String
Public GelenMesaj As String









Public Property Get ComPort() As Variant
    ComPort = msc.CommPort
End Property

Public Property Let ComPort(ByVal vNewValue As Variant)
    msc.CommPort = vNewValue
End Property


Public Property Get ComPortDTR() As Variant
    
    If msc.DTREnable = True Then
        ComPortDTR = True
    Else
        ComPortDTR = False
    End If
    
End Property

Public Property Let ComPortDTR(ByVal vNewValue As Variant)
    If vNewValue = True Then
       msc.DTREnable = True
    Else
       msc.DTREnable = False
    End If
End Property


Public Property Get ComPortRTS() As Variant
    
    If msc.RTSEnable = True Then
        ComPortRTS = True
    Else
        ComPortRTS = False
    End If
    
End Property

Public Property Let ComPortRTS(ByVal vNewValue As Variant)
    
    If vNewValue = True Then
       msc.RTSEnable = True
    Else
       msc.RTSEnable = False
    End If
    
End Property

Public Property Get ComPortSettings() As Variant
    ComPortSettings = msc.Settings
End Property

Public Property Let ComPortSettings(ByVal vNewValue As Variant)
    msc.Settings = vNewValue
End Property

Public Property Get ComPortInputMode() As Variant
    
    If msc.InputMode = 0 Then
        ComPortInputMode = "comInputModeText"
    Else
        ComPortInputMode = "comInputModeBinary"
    End If

End Property

Public Property Let ComPortInputMode(ByVal vNewValue As Variant)
    
    If vNewValue = 0 Then
        msc.InputMode = 0
    Else
        msc.InputMode = 1
    End If

End Property

Public Property Get ComPortInputLen() As Variant
    ComPortInputLen = msc.InputLen
End Property

Public Property Let ComPortInputLen(ByVal vNewValue As Variant)
    msc.InputLen = vNewValue
End Property

Public Property Get ComPortNullDiscard() As Variant
    
    If msc.NullDiscard = True Then
        ComPortNullDiscard = True
    Else
        ComPortNullDiscard = False
    End If

End Property

Public Property Let ComPortNullDiscard(ByVal vNewValue As Variant)
    
    If vNewValue = True Then
        msc.NullDiscard = True
    Else
        msc.NullDiscard = False
    End If
    
End Property



Public Property Get ComPortOutBufer() As Variant
    ComPortOutBufer = msc.OutBufferSize
End Property

Public Property Let ComPortOutBufer(ByVal vNewValue As Variant)
    msc.OutBufferSize = vNewValue
End Property

Public Property Get ComPortInBufer() As Variant
    ComPortInBufer = msc.InBufferSize
End Property

Public Property Let ComPortInBufer(ByVal vNewValue As Variant)
    msc.InBufferSize = vNewValue
End Property


Public Property Get ComPortInBuferCount() As Variant
    ComPortInBuferCount = msc.InBufferCount
End Property

Public Property Let ComPortInBuferCount(ByVal vNewValue As Variant)
    msc.InBufferCount = vNewValue
End Property

Public Property Get ComPortCTSHolding() As Variant
    ComPortCTSHolding = msc.CTSHolding
End Property

Public Property Let ComPortCTSHolding(ByVal vNewValue As Variant)
    msc.CTSHolding = vNewValue
End Property

Public Property Get ComPortDSRHolding() As Variant
    ComPortDSRHolding = msc.DSRHolding
End Property

Public Property Let ComPortDSRHolding(ByVal vNewValue As Variant)
    msc.DSRHolding = vNewValue
End Property

Public Property Get ComPortCDHolding() As Variant
    ComPortCDHolding = msc.CDHolding
End Property

Public Property Let ComPortCDHolding(ByVal vNewValue As Variant)
    msc.CDHolding = vNewValue
End Property

Public Property Get ComPortRThreshold() As Variant
    ComPortRThreshold = msc.RThreshold
End Property

Public Property Let ComPortRThreshold(ByVal vNewValue As Variant)
    msc.RThreshold = vNewValue
End Property

Public Property Get ComPortSThreshold() As Variant
    ComPortSThreshold = msc.SThreshold
End Property

Public Property Let ComPortSTreshold(ByVal vNewValue As Variant)
    msc.SThreshold = vNewValue
End Property





Public Property Get ComPortOpen() As Variant
    
    If msc.PortOpen = True Then
        ComPortOpen = True
    Else
        ComPortOpen = False
    End If
    
End Property

Public Property Let ComPortOpen(ByVal vNewValue As Variant)
On Error GoTo Hata

    If vNewValue = True Then
       msc.PortOpen = True
       shpPrtDurumu.FillColor = vbGreen
       lblModemDurumu.Caption = "Port Açıldı"
    End If
    
    If vNewValue = False Then
        msc.PortOpen = False
        shpPrtDurumu.FillColor = vbRed
        lblModemDurumu.Caption = "Port Kapatıldı"
    End If
    
    Exit Property
    
Hata:   shpPrtDurumu.FillColor = vbRed
        lblModemDurumu.Caption = "Port Açılamıyor"
        'MsgBox Err & " Port Açma Hatası"
        
End Property




Public Function HardwareKontrol()
    
    Dim inBufer As String
    Dim mBufer As String
    Dim Sayac
    
    Durum = "MESGUL"
    
    If msc.PortOpen = False Then
        ErrCode = "HATA000"
        lblModemDurumu.Caption = "Port Kapalı"
        shpPrtDurumu.FillColor = vbRed
        GoTo Hata
    End If
    
    
    
    
    inBufer = ""
    mBufer = ""
    Sayac = 0
    msc.InBufferCount = 0
    lblModemDurumu.Caption = "HW Conn."
    
    tmrPortCevap.Interval = 2000
    tmrPortCevap.Enabled = True
    
    msc.Output = "AT" & Chr(13)
    
    
    Do
         inBufer = msc.Input
         mBufer = mBufer & inBufer
         txtBufer = mBufer
         
         If tmrPortCevap.Enabled = False Then
                ErrCode = "HATA001"
                lblModemDurumu.Caption = "HW Time Out"
                GoTo Hata
         End If
         
         DoEvents
               
        Sayac = Sayac + 1
        txtSayac.Text = Sayac

    Loop Until InStr(mBufer, "OK" & vbCrLf)

    HardwareKontrol = "OK001"
    shpHWDurumu.FillColor = vbGreen
    tmrPortCevap.Enabled = False
    lblModemDurumu.Caption = "HW Bağlandı"
    
    Durum = "HAZIR"
    HardwareKontrol = 1
    
Exit Function

Hata:   HardwareKontrol = 0

        tmrPortCevap.Enabled = False
        shpHWDurumu.FillColor = vbRed
        lblModemDurumu.Caption = "HW Bağlanamadı"
        HardwareKontrol = ErrCode
        Durum = "HAZIR"
        
End Function













Private Sub tmrPortCevap_Timer()
tmrPortCevap.Enabled = False
End Sub

Public Function MesajOku(MesajFormati, MesajHafizasi, MesajIndexi)

Dim inBufer As String
Dim mBufer As String
Dim Sayac

Dim MsgFormat
Dim MsgMem
Dim MsgIndex

Dim virsay, addr, addr1, addr2 As Integer



Durum = "MESGUL"





        If msc.PortOpen = False Then
            ErrCode = "HATA000"
            shpPrtDurumu.FillColor = vbRed
            GoTo Hata
        End If

        If MesajFormati = "1" Then
            MsgFormat = "1"
        End If
        
        If MesajFormati = "0" Then
            MsgFormat = "0"
        End If
        
        
        If MesajHafizasi = "SM" Then
            MsgMem = "SM"
        End If
        
        If MesajHafizasi = "ME" Then
            MsgMem = "ME"
        End If
        
        
        
        inBufer = ""
        mBufer = ""
        Sayac = 0
        msc.InBufferCount = 0
        
        GelenMesajTelNo = ""
        GelenMesajTarihi = ""
        GelenMesajSaati = ""
        GelenMesajTpAdresi = ""
        GelenMesajSerAdresi = ""
        GelenMesaj = ""
        
        lblModemDurumu.Caption = "MSG Okunuyor"
        
        
        
        tmrPortCevap.Interval = 2000
        tmrPortCevap.Enabled = True
        
        msc.Output = "AT+CMGF=" & MsgFormat & Chr(13)
        
        
        Do
             inBufer = msc.Input
             mBufer = mBufer & inBufer
             txtBufer = mBufer
             
             If tmrPortCevap.Enabled = False Then
                    ErrCode = "HATA001"
                    lblModemDurumu.Caption = "MSG Okuma Time Out"
                    GoTo Hata
             End If
             
             DoEvents
                   
            Sayac = Sayac + 1
            txtSayac.Text = Sayac
    
        Loop Until InStr(mBufer, "OK" & vbCrLf) Or (InStr(mBufer, "ERROR"))
    
        
        
        inBufer = ""
        mBufer = ""
        Sayac = 0
        msc.InBufferCount = 0
        
        tmrPortCevap.Interval = 2000
        tmrPortCevap.Enabled = True
        
        msc.Output = "AT+CPMS=" & Chr(34) & MsgMem & Chr(34) & Chr(13)
        
        
        Do
             inBufer = msc.Input
             mBufer = mBufer & inBufer
             txtBufer = mBufer
             
             If tmrPortCevap.Enabled = False Then
                    ErrCode = "HATA001"
                    lblModemDurumu.Caption = "MSG Okuma Time Out"
                    GoTo Hata
             End If
             
             DoEvents
                   
            Sayac = Sayac + 1
            txtSayac.Text = Sayac
    
        Loop Until InStr(mBufer, "OK" & vbCrLf) Or (InStr(mBufer, "ERROR"))
        
        
        
        
        inBufer = ""
        mBufer = ""
        Sayac = 0
        msc.InBufferCount = 0
        
        tmrPortCevap.Interval = 4000
        tmrPortCevap.Enabled = True
        
        MsgIndex = MesajIndexi
        
        msc.Output = "AT+CMGR=" & MsgIndex & Chr(13)
        
        
        Do
             inBufer = msc.Input
             mBufer = mBufer & inBufer
             txtBufer = mBufer
             
             If tmrPortCevap.Enabled = False Then
                    ErrCode = "HATA001"
                    lblModemDurumu.Caption = "MSG Okuma Time Out"
                    GoTo Hata
             End If
             
             DoEvents
                   
            Sayac = Sayac + 1
            txtSayac.Text = Sayac
    
            Loop Until ((InStr(mBufer, "OK" & vbCrLf)) Or (InStr(mBufer, "+CMS ERROR") Or (InStr(mBufer, "+CMGR: 0,"))))
                        
            If (InStr(mBufer, "+CMS ERROR")) Or (InStr(mBufer, "+CMGR: 0,")) Then
                    
                    ErrCode = "HATA71"
                    lblModemDurumu.Caption = "MSG Okuma Hatası"
                    GoTo Hata
                    
            End If
            
                
                
            If InStr(mBufer, ("OK" & Chr(13) & Chr(10))) Then
                    
                     ErrCode = "TMAM70"
                     lblModemDurumu.Caption = "MSG Var"
                     GoTo MESAJ_VAR
                    
            End If
        
            txtGelenMesaj = txtBufer
        
        
            MesajOku = txtGelenMesaj.Text
        
        
        
MESAJ_VAR:
        
        If InStr(mBufer, "REC READ") Then
            MsgOkunmaDrm = "REC READ"
        End If
        
        If InStr(mBufer, "REC UNREAD") Then
            MsgOkunmaDrm = "REC UNREAD"
        End If
            
        If InStr(mBufer, "STO SENT") Then
            MsgOkunmaDrm = "STO SENT"
        End If
            
        If InStr(mBufer, "STO UNSENT") Then
            MsgOkunmaDrm = "STO UNSENT"
        End If
        
        txtMsgOkunmaDrm.Text = MsgOkunmaDrm
        
        
        
        
        If (MsgOkunmaDrm = "REC READ") Or (MsgOkunmaDrm = "REC UNREAD") Then
        
            For addr = 1 To Len(mBufer)
            
                         
                If Mid$(mBufer, addr, 1) = "," Then
                    virsay = virsay + 1
                End If
                
                If virsay = 1 Then
                
                        For addr1 = 1 To 20
                                                       
                            If Mid$(mBufer, (addr + addr1), 1) = "," Then
                               GoTo devam00
                            End If
                            
                            GelenMesajTelNo = GelenMesajTelNo & Mid$(mBufer, (addr + addr1), 1)
                            
                        Next addr1
                
                End If
                
                
              Next addr
              
devam00:
            GelenMesajTelNo = Mid$(GelenMesajTelNo, 3, Len(GelenMesajTelNo) - 3)
            txtMsgGonderenTelNo.Text = ""
            txtMsgGonderenTelNo.Text = GelenMesajTelNo

        
        
        
        
'*********************************** GÖNDERME TARİHİ ****************************
            
            addr = 1
            addr1 = 1
            virsay = 0
            
           
 
            For addr = 1 To Len(mBufer)
            
                    
                If Mid$(mBufer, addr, 1) = "," Then
                    virsay = virsay + 1
                End If
                
                If virsay = 3 Then
                
                        For addr1 = 1 To 15
                            
                            If Mid$(mBufer, (addr + addr1), 1) = "," Then
                               GoTo devam01
                            End If
                            
                            GelenMesajTarihi = GelenMesajTarihi & Mid$(mBufer, (addr + addr1), 1)
                            
                        Next addr1
                
                End If
                
                
              Next addr
              
devam01: GelenMesajTarihi = Mid$(GelenMesajTarihi, 2, Len(GelenMesajTarihi) - 1)
         txtGonTarih.Text = ""
         txtGonTarih.Text = GelenMesajTarihi

'******************************* GÖNDERME SAATİ ***********************

            addr = 1
            addr1 = 1
            virsay = 0
            
           
 
            For addr = 1 To Len(mBufer)
            
                If Mid$(mBufer, addr, 1) = "," Then
                    virsay = virsay + 1
                End If
                
                If virsay = 4 Then
                
                        For addr1 = 1 To 13
                                
                                                          
                            If Mid$(mBufer, (addr + addr1), 1) = Chr(34) Then
                               GoTo devam02
                            End If
                            
                            GelenMesajSaati = GelenMesajSaati & Mid$(mBufer, (addr + addr1), 1)
                            
                        Next addr1
                
                End If
                
                
              Next addr
              
devam02:
            txtGonSaati.Text = ""
            txtGonSaati.Text = GelenMesajSaati
         


'******************************* GÖNDERENİN TP ADRESİ ***********************

            addr = 1
            addr1 = 1
            virsay = 0
            
           
 
            For addr = 1 To Len(mBufer)
                    
               If Mid$(mBufer, addr, 1) = "," Then
                    virsay = virsay + 1
                End If
                
                If virsay = 5 Then
                
                        For addr1 = 1 To 5
                        
                             
                            If Mid$(mBufer, (addr + addr1), 1) = "," Then
                               GoTo devam03
                            End If
                            
                            GelenMesajTpAdresi = GelenMesajTpAdresi & Mid$(mBufer, (addr + addr1), 1)
                            
                        Next addr1
                Else
                
                GoTo devam03
                
                End If
                
                
              Next addr
              
devam03: txtGonTpAdres.Text = ""
        txtGonTpAdres.Text = GelenMesajTpAdresi



'******************************* GÖNDERENİN SERVİS ADRESİ ***********************

            addr = 1
            addr1 = 1
            virsay = 0
            
           
 
            For addr = 1 To Len(mBufer)
            
                If Mid$(mBufer, addr, 1) = "," Then
                    virsay = virsay + 1
                End If
                
                If virsay = 9 Then
                
                        For addr1 = 1 To 20
                        
                            If Mid$(mBufer, (addr + addr1), 1) = "," Then
                               GoTo devam04
                            End If
                            
                            GelenMesajSerAdresi = GelenMesajSerAdresi & Mid$(mBufer, (addr + addr1), 1)
                            
                        Next addr1
                        
                Else
                
                GoTo devam04
                
                End If

                
                
                
                
              Next addr
              
devam04:
            txtGonScaAdresi.Text = ""
            txtGonScaAdresi.Text = GelenMesajSerAdresi

        
 '******************************* MESAJ BLOGU  **********************************
        
'at+cmgr=1
'13
'10
'+CMGR: "REC READ","+905069104153",,"09/06/20,00:07:55+12"
'13
'10
'Aloo Bu deneme mesajidir.
'13
'10
'13
'10
'OK
'13
'10
        
            addr = 1
            addr1 = 1
            addr2 = 1
            virsay = 0
            
           txtMsgIndex.Text = virsay
 
            For addr = 1 To Len(mBufer)
            
                If Mid$(mBufer, addr, 1) = "," Then
                    virsay = virsay + 1
                End If
                
                
                
                If virsay = 4 Then
                
                        For addr1 = 1 To 163
                        
                            If Mid$(mBufer, ((addr + 14) + addr1), 1) = Chr(13) Then
                               GoTo devam05
                            End If

                            GelenMesaj = GelenMesaj & Mid$(mBufer, ((addr + 14) + addr1), 1)
                           
                        Next addr1
                        
               
                End If
       
            Next addr
            
        
devam05: txtGelenMesaj.Text = ""
         txtGelenMesaj.Text = GelenMesaj
        
         lblModemDurumu.Caption = "MSG Okundu"
        
        
        
        
        
        
        
        
        
        
        End If
        
   Durum = "HAZIR"
   MesajOku = 1
        
    Exit Function
    
        
        
        


Hata:
            MesajOku = 0
            Durum = "HAZIR"
End Function



Public Function MesajGonder(xTelefonNo, xTp, xGidecekMesaj)

Dim inBufer As String
Dim mBufer As String
Dim Sayac

Dim MsgBoyutu

Durum = "MESGUL"

MsgBoyutu = Len(xGidecekMesaj)


        If msc.PortOpen = False Then
            ErrCode = "HATA000"
            shpPrtDurumu.FillColor = vbRed
            GoTo Hata
        End If

If xTelefonNo = "" Then
    ErrCode = "HATA60"
    GoTo Hata
End If

If xTp = "" Then
    ErrCode = "HATA61"
    GoTo Hata
End If

If xGidecekMesaj = "" Then
    ErrCode = "HATA62"
    GoTo Hata
End If


If MsgBoyutu = 0 Then
    ErrCode = "HATA63"
    GoTo Hata
End If

If MsgBoyutu > 160 Then
    ErrCode = "HATA64"
    GoTo Hata
End If


        inBufer = ""
        mBufer = ""
        Sayac = 0
        msc.InBufferCount = 0
        
        lblModemDurumu.Caption = "MSG Gönderiliyor"
        tmrPortCevap.Enabled = False
        tmrPortCevap.Interval = 5000
        tmrPortCevap.Enabled = True



        msc.Output = "AT+CMGS=" & xTelefonNo & "," & xTp & Chr(13)

    
  
   
        Do
             inBufer = msc.Input
             mBufer = mBufer & inBufer
             txtBufer = mBufer
             
             If tmrPortCevap.Enabled = False Then
                    ErrCode = "HATA001"
                    lblModemDurumu.Caption = "MSG Gönderme Time Out 1"
                    GoTo Hata
             End If
             
             DoEvents
                   
            Sayac = Sayac + 1
            txtSayac.Text = Sayac
    
        Loop Until ((InStr(mBufer, ">")) Or (InStr(mBufer, "ERROR")))

   
    
        If InStr(mBufer, "ERROR") Then
                 ErrCode = "HATA66"
                 GoTo Hata
        End If
        
    
        If InStr(mBufer, ">") Then
                ErrCode = "TMAM60"
                GoTo MesajOk1
        End If
       
   
MesajOk1:       inBufer = ""
                mBufer = ""
                Sayac = 0
                msc.InBufferCount = 0
                tmrPortCevap.Enabled = False
                tmrPortCevap.Interval = 65000
                tmrPortCevap.Enabled = True


                msc.Output = xGidecekMesaj & Chr(26)



 
   
        Do
             inBufer = msc.Input
             mBufer = mBufer & inBufer
             txtBufer = mBufer
             
             If tmrPortCevap.Enabled = False Then
                    ErrCode = "HATA001"
                    lblModemDurumu.Caption = "MSG Gönderme Time Out2"
                    GoTo Hata
             End If
             
             DoEvents
                   
            Sayac = Sayac + 1
            txtSayac.Text = Sayac

        Loop Until InStr(mBufer, "+CMS ERROR") Or InStr(mBufer, "+CMGS:")




         If InStr(mBufer, "+CMS ERROR") Then
                 ErrCode = "HATA68"
                 GoTo Hata
         End If
         
        
         If InStr(mBufer, "+CMGS:") Then
                 ErrCode = "TMAM61"
         End If


         MesajGonder = ErrCode
         lblModemDurumu.Caption = "MSG Gönderildi"
         Durum = "HAZIR"
         
         Exit Function
           
           
Hata:      MesajGonder = ErrCode
           
           lblModemDurumu.Caption = "MSG Gönderilemedi"
           Durum = "HAZIR"

End Function





Public Function MesajSil(MesajHafizasi, MesajIndexi)

Dim inBufer As String
Dim mBufer As String
Dim Sayac

Dim MsgMem
Dim MsgIndex

Dim virsay, addr, addr1, addr2 As Integer





Durum = "MESGUL"



        If msc.PortOpen = False Then
            ErrCode = "HATA000"
            shpPrtDurumu.FillColor = vbRed
            GoTo Hata
        End If

      
        
        If MesajHafizasi = "SM" Then
            MsgMem = "SM"
        End If
        
        If MesajHafizasi = "ME" Then
            MsgMem = "ME"
        End If
        
        
        
        inBufer = ""
        mBufer = ""
        Sayac = 0
        msc.InBufferCount = 0
        
        
        lblModemDurumu.Caption = "MSG Siliniyor"
        
        
        inBufer = ""
        mBufer = ""
        Sayac = 0
        msc.InBufferCount = 0
        
        tmrPortCevap.Interval = 2000
        tmrPortCevap.Enabled = True
        
        msc.Output = "AT+CPMS=" & Chr(34) & MsgMem & Chr(34) & Chr(13)
        
        
        Do
             inBufer = msc.Input
             mBufer = mBufer & inBufer
             txtBufer = mBufer
             
             If tmrPortCevap.Enabled = False Then
                    ErrCode = "HATA001"
                    lblModemDurumu.Caption = "MSG Silme Time Out"
                    GoTo Hata
             End If
             
             DoEvents
                   
            Sayac = Sayac + 1
            txtSayac.Text = Sayac
    
        Loop Until InStr(mBufer, "OK" & vbCrLf) Or (InStr(mBufer, "ERROR"))
        
        
        
        
        inBufer = ""
        mBufer = ""
        Sayac = 0
        msc.InBufferCount = 0
        
        tmrPortCevap.Interval = 4000
        tmrPortCevap.Enabled = True
        
        MsgIndex = MesajIndexi
        
        msc.Output = "AT+CMGD=" & MsgIndex & Chr(13)
        
        
        Do
             inBufer = msc.Input
             mBufer = mBufer & inBufer
             txtBufer = mBufer
             
             If tmrPortCevap.Enabled = False Then
                    ErrCode = "HATA001"
                    lblModemDurumu.Caption = "MSG Silme Time Out"
                    GoTo Hata
             End If
             
             DoEvents
                   
            Sayac = Sayac + 1
            txtSayac.Text = Sayac
    
            Loop Until ((InStr(mBufer, "OK" & vbCrLf)) Or (InStr(mBufer, "ERROR")))
                        
            If (InStr(mBufer, "ERROR")) Then
                    
                    ErrCode = "HATA71"
                    lblModemDurumu.Caption = "MSG Silme Hatası"
                    GoTo Hata
                    
            End If
            
                
                
            If InStr(mBufer, ("OK" & Chr(13) & Chr(10))) Then
                    
                     ErrCode = "TMAM70"
                     lblModemDurumu.Caption = "MSG Silindi"
                     
                    
            End If
        
            MesajSil = 1
            
            Durum = "HAZIR"
            
     Exit Function
     
        
           
Hata:
       lblModemDurumu.Caption = "MSG Silinmedi"
        
        Durum = "HAZIR"
        MesajSil = 0
        
End Function



Private Sub UserControl_Initialize()
UserControl.Height = 915
UserControl.Width = 2490
End Sub

Private Sub UserControl_InitProperties()
UserControl.Height = 915
UserControl.Width = 2490

End Sub

Private Sub UserControl_Resize()
UserControl.Height = 915
UserControl.Width = 2490

End Sub

Private Sub UserControl_Terminate()

If msc.PortOpen = True Then
    msc.PortOpen = False
End If


End Sub

Örnek VB6 Dosyası

Private Sub cmdBaglan_Click()
TC351.ComPortSettings = "9600,n,8,1"
TC351.ComPort = 1

If TC351.comPortOpen = False Then
    TC351.comPortOpen = True
    cmdBaglan.Enabled = False
    cmdKes.Enabled = True
End If

    If TC351.comPortOpen = False Then
        cmdBaglan.Enabled = True
        cmdKes.Enabled = False
    End If
    
        

End Sub

Private Sub cmdCik_Click()
If TC351.comPortOpen = True Then
    TC351.comPortOpen = False
End If

Unload Me

End Sub

Private Sub cmdHardKontrrol_Click()
Dim Sonuc

Sonuc = TC351.HardwareKontrol

If Sonuc = "OK001" Then
    'MsgBox "HW OK"
Else
    'MsgBox "HW ERR" & TC351.HardwareKontrol
End If

End Sub


Private Sub cmdKes_Click()
If TC351.comPortOpen = True Then
    TC351.comPortOpen = False
    cmdBaglan.Enabled = True
    cmdKes.Enabled = False
End If

    If TC351.comPortOpen = True Then
        cmdBaglan.Enabled = False
        cmdKes.Enabled = True
    End If


End Sub

Private Sub cmdMesajOku_Click(Index As Integer)
Dim Sonuc, MesajAdresi, MesajHafizasi


MesajAdresi = Val(txtMesajIndex.Text)
MesajHafizasi = txtMsgHafiza.Text

Sonuc = TC351.MesajOku(1, MesajHafizasi, MesajAdresi)


txtGelenMesaj.Text = TC351.GelenMesaj
txtMsgGonderenTelNo.Text = TC351.GelenMesajTelNo
txtGonTarih.Text = TC351.GelenMesajTarihi
txtGonSaati.Text = TC351.GelenMesajSaati
txtGonTpAdres.Text = TC351.GelenMesajTpAdresi
txtGonScaAdresi.Text = TC351.GelenMesajSerAdresi


End Sub

Private Sub cmdMsgGonder_Click()
Dim Sonuc
Sonuc = TC351.MesajGonder(txtGidecekTelNo.Text, txtGidecekTpAdresi.Text, txtGidecekMesaj.Text)


End Sub

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

End Sub

Private Sub cmdMsgSil_Click()
Dim Sonuc, MesajAdresi, MesajHafizasi


MesajAdresi = Val(txtMesajIndex.Text)
MesajHafizasi = txtMsgHafiza.Text


If TC351.MesajSil(MesajHafizasi, MesajAdresi) Then
    MsgBox "MSG SİLİNDİ"
Else
    MsgBox "MSG SİLİNMEDİ"
End If


End Sub

Private Sub Form_Load()
cmdKes.Enabled = False
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If TC351.comPortOpen = True Then
    TC351.comPortOpen = False
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
If TC351.comPortOpen = True Then
    TC351.comPortOpen = False
End If

End Sub

[gcolak]

hocam dosyayı yenileyebilirmisiniz

[BenC]

http://rapidshare.com/files/252117893/SIEMENS_TC35.rar.html
http://hotfile.com/dl/31307412/a54be93/SIEMENS_TC35.rar.html