Programlarınıza Güncelleme Sistemi Ekleyin. 
                                                                                                
                                                                                                Mesela Bir Programınız Var. Ve siz bu programınızla müşterilerinizin yeni versiyonlardan haberdar etmek istiyorsunuz. 
                                                                                                
                                                                                                Kodları Direk Projenize Kopyala Yapıştır Yapalım... 
                                                                                                
                                                                                                Önce projemize Microsoft Internet Transfer Control Ekleyelim. Bunun için Ctrl+T tuşuna basın. Oradan Ocx dosyamızı bulun ve ekleyin. 
                                                                                                
                                                                                                 
                                                                                                
                                                                                                    
                                                                                                        
                                                                                                            | Kod Alanı: | 
                                                                                                        
                                                                                                            | 
 
                                                                                                            
                                                                                                                
                                                                                                                    
                                                                                                                        | Private Type update Url As String
 Versiyon_Me As String
 Mesaj As String
 M_OK As Boolean
 Version_son As String
 Url2 As String
 End Type
 
 Dim update As update
 
 Private Sub Form_Load( )
 update.Url = "http://www.site.com/programlar/stok/"
 update.Versiyon_Me = App.Major & "." & App.Minor & "." & App.Revision
 update.M_OK = Inet1.OpenURL(update.Url & "MesajVar.txt" )
 
 If update.M_OK = True Then
 update.Version_son = Inet1.OpenURL(update.Url & "version.txt" )
 If update.Version_son > update.Versiyon_Me Then
 update.Mesaj = Inet1.OpenURL(update.Url & "Mesaj.txt" )
 update.Url2 = Inet1.OpenURL(update.Url & "url.txt" )
 MsgBox update.Url2
 cevap = MsgBox(update.Mesaj, vbInformation + vbYesNo )
 If cevap = 6 Then
 Unload Me
 Dim OpenU As Long
 OpenU = Shell("explorer " & update.Url2 )
 End If
 End If
 End If
 End Sub
 |  
 
 | 
                                                                                                    
                                                                                                
                                                                                                
                                                                                                
                                                                                                AÇIKLAMAK GEREKİRSE ARKADAŞLAR... 
                                                                                                 
                                                                                                
                                                                                                    
                                                                                                        
                                                                                                            | Kod Alanı: | 
                                                                                                        
                                                                                                            | 
 
                                                                                                            
                                                                                                                
                                                                                                                    
                                                                                                                        | Private Type update Url As String
 Versiyon_Me As String
 Mesaj As String
 M_OK As Boolean
 Version_son As String
 Url2 As String
 End Type
 |  
 
 | 
                                                                                                    
                                                                                                
                                                                                                
                                                                                                
                                                                                                Bunlarla bir type oluşturdum. Yani tam olarak türkçe karşılığını bilmiyorum ama oluşturdum şey aynen text1 kutusunun içeriğini nasıl text1.text ile alırsak bunuda değişkenlerin karışmaması açısından kolay geldiği için bu şekilde yaptım. 
                                                                                                
                                                                                                Değişkenlere bilgilerimizi ekleyelim... 
                                                                                                 
                                                                                                
                                                                                                    
                                                                                                        
                                                                                                            | Kod Alanı: | 
                                                                                                        
                                                                                                            | 
 
                                                                                                            
                                                                                                                
                                                                                                                    
                                                                                                                        | update.Url = "http://www.site.com/programlar/stok/" update.Versiyon_Me = App.Major & "." & App.Minor & "." & App.Revision
 update.M_OK = Inet1.OpenURL(update.Url & "MesajVar.txt" )
 |  
 
 | 
                                                                                                    
                                                                                                
                                                                                                
                                                                                                update.Versiyon_Me = App.Major & "." & App.Minor & "." & App.Revision bu kod programımızın versiyonlarını bulmamıza yarar. 
                                                                                                
                                                                                                 
                                                                                                
                                                                                                    
                                                                                                        
                                                                                                            | Kod Alanı: | 
                                                                                                        
                                                                                                            | 
 
                                                                                                            
                                                                                                                
                                                                                                                    
                                                                                                                        | If update.M_OK = True Then update.Version_son = Inet1.OpenURL(update.Url & "version.txt" )
 If update.Version_son > update.Versiyon_Me Then
 update.Mesaj = Inet1.OpenURL(update.Url & "Mesaj.txt" )
 update.Url2 = Inet1.OpenURL(update.Url & "url.txt" )
 cevap = MsgBox(update.Mesaj, vbInformation + vbYesNo )
 If cevap = 6 Then
 Unload Me
 Dim OpenU As Long
 OpenU = Shell("explorer " & update.Url2 )
 End If
 End If
 End If
 |  
 
 | 
                                                                                                    
                                                                                                
                                                                                                
                                                                                                
                                                                                                update.M_OK ile sayfadaki içeriği aldık. Eğer 1 ise yani True ise 
                                                                                                update.Version_son = Inet1.OpenURL(update.Url & "version.txt" ) son versiyonu alıyor. sonra diyorki eğer son versiyon benim projemin versiyonundan büyük ise ( Mesela benim projemin sürümü 1.0.0 olsun eğer sayfada 1.1.0 varsa son versiyon büyük olduğu için haber gelecek.. ) 
                                                                                                
                                                                                                 
                                                                                                
                                                                                                    
                                                                                                        
                                                                                                            | Kod Alanı: | 
                                                                                                        
                                                                                                            | 
 
                                                                                                            
                                                                                                                
                                                                                                                    
                                                                                                                        | update.Mesaj = Inet1.OpenURL(update.Url & "Mesaj.txt" ) mesaj.txt dosyasından mesajı alıyor. Sonra update.Url2 = Inet1.OpenURL(update.Url & "url.txt" ) ile yönlendirileceğimiz sayfanın urlsini alıyoruz. Ve son olarak
 cevap = MsgBox(update.Mesaj, vbInformation + vbYesNo )
 If cevap = 6 Then
 Unload Me
 Dim OpenU As Long
 OpenU = Shell("explorer " & update.Url2 )
 End If
 |  
 
 | 
                                                                                                    
                                                                                                
                                                                                                
                                                                                                
                                                                                                mesaj kutusunda mesajı görüntülüyoruz. Eğer cevabımız evet ise 
                                                                                                OpenU = Shell("explorer " & update.Url2 ) yeni bir internet explorer geliyor ve o sayfaya yönleniyoruz... 
                                                                                                
                                                                                                Kolay Gelsin