Genel Araştırma
'vb.net' etiketi için arama sonuçları.
-
Gelişmiş vb.net macro yapimi [%100 her oyunda çalişma garantisi]
bir konuya azak123 içerik ekledi : Serbest Konular
ARKADAŞLAR MERAHBA, BEN MERTHAN BABUÇÇULAR 1 HAFTA VERDİĞİM KARARLA GELİŞMİŞ MACRO YAPIMI VİDEO 'LARINI ÇEKİMLERİNE BAŞLADIM EĞER MACRO YAPMAYA MERAKLI OLAN ARKADAŞAR VARSA YOUTUBE KANALIMI AŞAĞIDA LİNK'TE VERİCEĞİM EĞER FAYDALI BULDUYSANIZ 19xx xSkip Oto Kutu Yapımı , 19xx xSkip Wall Hack Yapımı , VB.Net Macro Yapımı Bir Çok Şey Kanalımda Mevcuttur . ABONE OLMAYI UNUTMAYINIZ , BİR TEŞEKKÜRÜ ÇOK GÖRMEYİNİZ... https://www.youtube.com/channel/UCeRDsXPNXZX4CfWbPT_nh0A- 14 yanıt
-
- garantisi]
- çalişma
- (7 tane daha)
-
VB.Net için koxp yapılmadığından başlangıç için yardımı çok dokunacak bir proje. Güncellenirse herşey sorunsuz çalışır. https://yadi.sk/d/33f72JhfjjmNj
-
VB.Net Otomatik Güncelleme [Auto Update] Kaynak Kod
bir konuya DEVILCRAFT içerik ekledi : Visual Basic / .Net Paylaşımları
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.Net Imports System.IO Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load VersionKontrol() ' Girişte kontrol edilecek. End Sub Private 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 src End Function Private Sub Terminate() ' silme işlemi Dim Info As New ProcessStartInfo() Info.Arguments = "/C choice /C Y /N /D Y /T 5 & Del """ & Application.ExecutablePath & """" Info.WindowStyle = ProcessWindowStyle.Hidden Info.CreateNoWindow = True Info.FileName = "cmd.exe" Process.Start(Info) End Sub Private 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)) Then MsgBox("Bot Güncel!", MsgBoxStyle.Information) ' Exit Sub Else MsgBox("Yeni Sürüm indiriliyor...", MsgBoxStyle.Information, "Eski Sürüm") ' uyuşmuyorsa End If Try My.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 bildiriyor Diagnostics.Process.Start(CurDir() & "/" & src & ".exe") ' yenisi açşlşyor Me.Close() ' şuanki kapatiliyor Terminate() ' şuanki siliniyor. Catch ex As Exception MsgBox("Güncelleme Dosyasi Bulunamadi.", MsgBoxStyle.Information) ' eger baslanamazsa yada bulamazsa dosyayi End End Try End Sub End Class