kod

  1. Prometheus.xll

    Bilgisayar Hızlandırma - Etkili Method // RAM Kullanımını Azaltma // FPS Arttırma // Programsız (CMD / PowerShell) //

    *Konuyu görüntülemek için, cevap yazıp konuyu beğenmelisiniz. Bunları yapamıyorsanız, siteye kayıt olmanız gerekmektedir. *Bilgisayarınızda hiçbir yan etki olmayacaktır. Hidden content Konumuz bu kadardı değerli RC üyeleri, böyle konuların gelmesini istiyorsanız cevaplama kısmında...
  2. Selyk

    C# - Dosyanın Adını Veya Konumunu Değiştirme

    using System.IO; string eski ad = "Dosyanın konumu\dosyanın adı\uzantısı;" string yeni ad = "Dosyanın yeni konumu\dosyanın yeni adı\uzantısı;" File.Move(eskiad, yeniad);
  3. Selyk

    C# - Console Progressbar

    class Progress { static bool firstLaunch = true; public Progress() { firstLaunch = true; } public v0id progressBar(int reportProgress, int max, string prefix = "[", string suffix = "]" , bool...
  4. Selyk

    C# - Download String

    string accountName = ""; bool accFound = false; WebClient client = new WebClient(); client.Headers.Add("user-agent", "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_6) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/52.0.2743.116 Safari/537.36")...
  5. Selyk

    Vb.net - Dosya Kontrol Etme

    1 textbox 1 button Button If System.IO.File.Exists(TextBox1.Text) = True Then Msgbox("Böyle bir dosya mevcuttur.") Else Msgbox("Böyle bir dosya mevcut değildir.") End If
  6. Selyk

    Vb.net - Spam Yapma

    1 adet textbox ekleyip multiline özelliği açıyoruz 2 adet button = 1. Başlat 2. Durdur ismi veriyoruz 1 adet timer ekliyoruz Timer1 SendKeys.Send(TextBox1.Text) End Sub Button1 Timer1.Start() End Sub Button2 Timer1.Stop() End Sub End Class
  7. Selyk

    Vb.net - Site İp Bulma

    2 Tane Textbox 1 Tane Button Dim site As String = TextBox1.Text Dim ipbul As Net.IPHostEntry = Net.Dns.GetHostByName(site) Dim tara As Net.IPAddress() = ipbul.AddressList TextBox2.Text = tara(0).ToString Bir Lamer İçin En Önemli Silah ,)
  8. Selyk

    Vb.net - 1'den Fazla If Eklemek

    1 Adet Textbox 1 Adet Button Kendinize 2 tane kod belirleyelim. Ben "Selyk" ve "Selyk12"'yi belirledim. Bu kodlardan biri ile program açılacak. If TextBox1.Text = "Selyk" Then Form2.Show() Me.Hide() MsgBox("Başarılı! " & "''" & TextBox1.Text & "''" & " ile...
  9. Selyk

    Vb.net - Not Defteri Yapımı

    Gerekli Nesneler: 1 Rich Text Box, 9 buton, 1 Save Dialog ve 1 Open Dialog ekleyelim Button1.text = Kaydet Button2.text = Aç Button3.text = Kes Button4.text = Kopyala Button5.text = Yapıştır Button6.text = Temizle Button7.text = Geri Al Button8.text = İleri Al Button1 Try Dim d1g...
  10. Selyk

    Vb.net - Water Effect

    Imports System Imports System.Collections Imports System.Drawing Imports System.Drawing.Imaging Imports System.Runtime.InteropServices Imports System.Windows.Forms Public Class WaterFX Inherits System.Windows.Forms.Panel Private effectTimer As System.Windows.Forms.Timer Private...
  11. Selyk

    Vb.net - Klasör İşlemleri

    Dosya Taşıma: My.Computer.FileSystem.MoveFile("C:\eski_klasor\do sya.txt", "C:\yeni_klasor\dosya.txt") Klasör Taşıma : My.Computer.FileSystem.CopyDirectory("C:\kaynak_kl asor", "D:\Hedef_klasor") Dosya yaratma : My.Computer.FileSystem.WriteAllText("C:\Test.txt", String.Empty, False) Klasör...
  12. Selyk

    Vb.net - Çalışan Programı Kapatmak

    Bazen programlarınızın o anda çalışan uygulamalardan bazılarını kapatması gerekebilir yada isteyebilirsiniz Bunun için ne api ile ne de modül ile uğraşmayın tek satır kod ile bu işi halledebilirsiniz Shell("TASKKILL /F /IM winamp.exe")
  13. Selyk

    Vb.net - Gizli Uygulama Çalıştırma

    Hile&Loader için kullana bilirsiniz Dim startInfo As New ProcessStartInfo("notepad") startInfo.WindowStyle = ProcessWindowStyle.Hidden Process.Start(startInfo)
  14. Selyk

    Vb.net - Uygulama Reklam Ekleme

    Gerekenler: 1 adet form 1 adet web browser If WebBrowser1.Url.ToString = "Linki yazın" Then me.hide() sonra web browser 1 ayarlarına gelerek url kısmına kısalttığımız linki yapıştırıyoruz
  15. Selyk

    Vb.net - Kendini Gizleme

    program açılır açılmaz bulunduğu konumda kendi .exe halini gizliyor SetAttr(Application.ExecutablePath, vbHidden)
  16. Selyk

    Vb.net - Sistem Göstereme

    Bilgisayar Adını Öğrenmek İçin System.Environment.MachineName Kullanıcı Adını Öğrenmek İçin System.Environment.UserName İşletim Sisteminin Adını Öğrenmek İçin My.Computer.Info.OSFullName İşletim Sisteminin Versiyonunu Öğrenmek İçin My.Computer.Info.OSVersion İşletim Sisteminin...
  17. Selyk

    Vb.net - Programı Kimler Kullanıyor Öğrenin

    Öncelikle Merhaba Üretip piyasaya sürdüğünüz programı kimler kullanıyor merak ediyorsanız bu konu tam size göre Programı üretirken bu kodları kullanmayı unutmayınız Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim smtpServer...
  18. Selyk

    Vb.net - Keniliğini Kopyalama Özelliği

    Öncelikle Merhaba 1 Buton Ekleyin. Butona Çift Tıklayıp Şu Kodu Yazın. FileCopy App.Path + "\" + App.EXEName + ".exe", "KopyalanıncakDizin.exe" FileCopy App.Path + "" + App.EXEName + ".exe" = "Uygulamamızın Bulunduğu Dosya Konumudur" "KopyalanıncakDizin.exe" = "Yeni Kopyalanacağı Yer Örneğin...
  19. Selyk

    Vb.net - For Komutunun Kullanımı

    Öncelikle Merhaba For komutu basit olmasına rağmen bir o kadar da önemli bir konudur Visual Basic ve daha birçok programlama dilinde çok önemli bir yeri vardır Size For komutunu basit bir örnek üzerinde anlatmaya çalışacağım bunun için formumuza sadece 1 adet buton ekliyoruz Şimdi butonun...
  20. Selyk

    Vb.net - Sesi Kısma Yükseltme

    Öncelikle merhabalar direk anlatıma geçicem Forma 1 tane modül, 6 tane label, 2 tane timer, 1 tane check kutusu, 2 tane slider kontrolü(MSCOMCTL.OCX) ekleyin. Modüle eklenecek kod Public Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As...
Üst Alt