Beğenirsen Kullan Kod: Private Sub Command1_Click Dim surum surum = Inet1. OpenURL Text1. Text = surum If Text1 = "" Then bag = MsgBox ElseIf Text1 = Text2 Then a = MsgBox Else b = MsgBox If b = vbNo Then ElseIf b = vbYes Then Shell , vbNormalFocus End If End If End Sub

güncelleme olup olmadığını sorgulatır ve indirme yapması için siteyi açabilirsin. bir web sitesi tasarlarsın ve guncelleme ve download sayfası olur bu güncelleme sayfasına kullanılan sürüm bilgisini gönderirsin ve eğer güncelleme varsa download sayfasına yönlendirir yoksa güncelleme yok diye bir mesaj verir. inecek dosya içinde kurulum hazırlarsın ve yeni dosyaları programının klasörüne kopyalarsın Kod: Private Sub Command1_Click Dim oIE Set oIE = CreateObject oIE. Visible = True oIE. navigate "http://orneksite.com/guncelleme. asp?guncelleme=" & Text1. Text End Sub guncelleme. asp Kod: <% guncelleme=request. querystring if guncelleme <> "1.1" then Response. r, e, d, i, r, e, c, t ' else %> <script language="javascript"> window. alert ; </script> <% end if %> download. asp yerine dosyanın indirme linki de verilebilir ama kullanıcıya indirdiği dosya hakkında ve yenilikler hakkında bilgi vemek daha iyi olabilir bu yüzden download asp sayfasında bilgiler verildikten sonra indirme linki vermek daha iyi olabilir download. asp Kod: <html> <head> <title> downlaod </title> </head> <body> yeni sürüm download linkli </body> </html> -

Arkdaşlar Ben Projemde Command1 e bastığımda update yapmasını istiyorum acaba bunu nasıl yapabilirim?