↑ ↓

VB6'da SMS OCX HAZIRLAMA( SIEMENS TC35)

Başlatan BenC, 21 Haziran 2009, 12:26:57

Yazdır
Aşağı git
Kullanıcı Eylemleri

BenC

21 Haziran 2009, 12:26:57
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
ŞEHİT KANIYLA ALINMIŞ BU GÜZELİM VATANIN TOPRAKLARI KARIŞ KARIŞ SATILIYOR!!  VATAN HAİNİ OLMA!!

gcolak

#1
05 Temmuz 2009, 02:20:16
hocam dosyayı yenileyebilirmisiniz

BenC

#2
05 Temmuz 2009, 11:02:07
ŞEHİT KANIYLA ALINMIŞ BU GÜZELİM VATANIN TOPRAKLARI KARIŞ KARIŞ SATILIYOR!!  VATAN HAİNİ OLMA!!
Yazdır
Yukarı git
Kullanıcı Eylemleri
 
▲