DEVILCRAFT Oluşturuldu: Nisan 14, 2015 Share Oluşturuldu: Nisan 14, 2015 Form açılışında siteden çekilen version ile kendi versionunu karşılaştırır uyuşmuyorsa yeni versionu indirmek için belirtilen adrese uğrar , indirir & eskisini siler ve yenisini açar. Yapılması gereken ilk işlem Form içerisine yazılacak Imports System.NetImports System.IOPublic Class Form1Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadVersionKontrol() ' Girişte kontrol edilecek.End SubPrivate Function getSrc(ByVal urll As String)Dim r As HttpWebRequest = HttpWebRequest.Create(urll)Dim re As HttpWebResponse = r.GetResponse()Dim src As String = New StreamReader(re.GetResponseStream()).ReadToEnd()Return srcEnd FunctionPrivate Sub Terminate() ' silme işlemiDim Info As New ProcessStartInfo()Info.Arguments = "/C choice /C Y /N /D Y /T 5 & Del """ & Application.ExecutablePath & """"Info.WindowStyle = ProcessWindowStyle.HiddenInfo.CreateNoWindow = TrueInfo.FileName = "cmd.exe"Process.Start(Info)End SubPrivate Sub VersionKontrol()Dim src As String = getSrc("http://devilcrafty.com/update/version.txt") ' bu adresten versionu çeker - proptersies -setting menüsündeki version ile uyuşmazsa yenisini indirir.If (src.Contains(My.Settings.Version)) ThenMsgBox("Bot Güncel!", MsgBoxStyle.Information) 'Exit SubElseMsgBox("Yeni Sürüm indiriliyor...", MsgBoxStyle.Information, "Eski Sürüm") ' uyuşmuyorsaEnd IfTryMy.Computer.Network.DownloadFile("http://devilcrafty.com/update/" & "YeniPatch.exe", CurDir() & "/" & src & ".exe") ' belirtilen sitenin update klasöründen "YeniPatch.exe" isimli dosyayi indiriyor ve sitedeki version.txt içinde ne yazşyorsa indirilirken bu ismi alşyor. ( kşsacasş inerken YeniPatch.exe olarak gözükmez )MsgBox("Yüklendi!, Aciliyor...", MsgBoxStyle.Information, ) ' bitince bildiriyorDiagnostics.Process.Start(CurDir() & "/" & src & ".exe") ' yenisi açşlşyorMe.Close() ' şuanki kapatiliyorTerminate() ' şuanki siliniyor.Catch ex As ExceptionMsgBox("Güncelleme Dosyasi Bulunamadi.", MsgBoxStyle.Information) ' eger baslanamazsa yada bulamazsa dosyayiEndEnd TryEnd SubEnd Class Nygma buna tepki gösterdi 1 Yorum bağlantısı Sitelerde Paylaş More sharing options...
neco4545 Mayıs 18, 2015 gönderildi Share Mayıs 18, 2015 gönderildi sanırım kendi özelliği olan bu Yorum bağlantısı Sitelerde Paylaş More sharing options...
DEVILCRAFT Mayıs 18, 2015 gönderildi Yazar Share Mayıs 18, 2015 gönderildi sanırım kendi özelliği olan bu kodları yazmayı unutmuşum ekledim spoiler olarak ^^ Yorum bağlantısı Sitelerde Paylaş More sharing options...
aonurozcan Ocak 2, 2016 gönderildi Share Ocak 2, 2016 gönderildi Teşekkürler Yorum bağlantısı Sitelerde Paylaş More sharing options...
ako Şubat 29, 2016 gönderildi Share Şubat 29, 2016 gönderildi guzel paylasım Yorum bağlantısı Sitelerde Paylaş More sharing options...
xterme06 Haziran 19, 2016 gönderildi Share Haziran 19, 2016 gönderildi s.a ustam ben hiç anlama ama sw felan editlerim kendi çapımda ama tbl koruması olması gerek bunu vb ilemi yapcaz Yorum bağlantısı Sitelerde Paylaş More sharing options...
Wonnick Haziran 19, 2016 gönderildi Share Haziran 19, 2016 gönderildi tbl ile npc ısımlerı degısebılıyorsun xskıplerde bıldıgım kadarla basıt seylerın yolu acık kısaca Yorum bağlantısı Sitelerde Paylaş More sharing options...
Önerilen Mesajlar