Jump to content
  • Kaydol

Genel Araştırma

'vb6' etiketi için arama sonuçları.

  • Etiketlere Göre Ara

    Aralarına virgül koyarak ekleyin
  • Yazara Göre Ara

İçerik Türü


Forum

  • Serbest Forum
    • Serbest Konular
    • Garip Olaylar
    • Resimler
    • Videolar
    • Müzik Kutusu
    • Film, Dizi, Anime Odası
  • Knight Online World
    • Koxp Destek
    • Knight Online Private Serverlar (PS)
    • Programsız Paylaşımlar ( TBL , Bug )
    • Server Tanıtımı
    • P.S Clan & Tanışma
  • Knight Online Pazar Alanı
    • SteamKO Sunucuları
    • USKO Sunucuları
  • COUNTER-STRIKE GLOBAL OFFENSIVE (CS:GO) HACK
    • Genel
    • CFG
  • Genel Forum
    • Forum Duyuruları
    • Üye Tebrik ve Şikayet
    • Tanışma & Kaynaşma
    • Sorularınız ve İstekleriniz
  • FPS & MMORPG OYUNLARI
    • League Of Legends
    • BlackBox Repack
  • PC Oyunları
    • RPG-Aksiyon-Survivor [3RD Person]
    • FPS [First Person Shooter]
    • Strateji [3D]
    • Yarış - Spor
    • Oyun Hileleri
  • Bilgisayar & Donanım & WebMasters
    • İşletim Sistemleri
    • Full Programlar
    • Wireless - Kablosuz Teknolojiler
    • Script Paylaşım
  • Metin 2
  • Programming
    • Genel Programlama
    • C / Turbo C / C++
    • Borland C++
    • C# (CSharp)
    • Visual Basic / Studio
  • E-Ticaret , Hertürlü Alışveriş Yapabileceğiniz Bölüm
    • Alım ve Satım
    • İnternetten Para Kazanma
  • Özel
    • Duplicated Members
    • Çöp Kutusu

Kategoriler

  • Koxp Dosyaları
  • Diğer Hileler

Kategoriler

  • Koxp Kullanım
    • Eskimiş Videolar

Find results in...

Find results that contain...


Oluşturma Tarihi

  • Start

    End


Son Güncelleme

  • Start

    End


Filter by number of...

Katılım

  • Start

    End


Üye Grubu


Website URL


Skype


İlgiler

Araştırmada 10 sonuç bulundu

  1. Merhaba Arkadaşlar Bugün Sizlere Visual Basic 6 Program Yazılımına yeni başlayan arkadaşlar için DDOS ATTACK PRogramı Yapmayı Ogreticem; Gerekli Olan Materyeller ; 2 Button 1 Textbox 1 Timer Şu Şekilde Olursa iyi olur fakat butonları ve text boxları keyfinize göre koyabilirsiniz.. Şimdi Arkadaşlar Vereceğim Kodlarla Ekrana 2 kere Tıklayıp O Ekrana Yapıştırınız Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Shell ("cmd /c ping ** & textbox1.text) End Sub İşlemimiz Bukadar Kaydedip Kullanabilirsiniz Teşşekür Ederimm
  2. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.Navigate("http://www.youtube-mp3.org/") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MsgBox("Herhangi Bir Link Girmediniz", MsgBoxStyle.Critical, "Uyarı !") End If WebBrowser1.Document.GetElementById("youtube-url").SetAttribute("Value", TextBox1.Text) WebBrowser1.Document.GetElementById("submit").InvokeMember("Click") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim s As String = WebBrowser1.Document.GetElementById("dl_link").InnerHtml Dim redirect As String = s.Replace("<A href=""", "").Replace("""><B>Download</B></A> · <A onclick=""showLinkBox(); return false;"" href=""http://www.youtube-mp3.org/#"">Link this mp3</A>", "") TextBox2.Text = redirect WebBrowser1.Navigate(redirect) End Sub End Class
  3. Öncelikle Konumuza Geçmeden Önce İndirmemiz Gereken Bir .dll var AutoItx3.dll http://adf.ly/hrwVQ Dosyayı indirdkten sonra C Diskinin İçine Atalım Daha Sonra Başlat>Çalıştır>regsvr32> C:/AutoItx3.dll Yazıp Enter’e Basıyoruz. Bastıktan Sonra AutoItx3.dll Başarı İle Çalıştırıldı Dediği Zaman Macro Programımızı Yapmaya Hazırız. Yapım Daha Sonra Visual Basic 6.0 Açıp Standart .exe Seçiyoruz. Ve Formumuza Project Sekmesinden References Bölümüne Gelip AutoItx3 1.0 Type Library Bulup İşaretleyip Ok Butonuna Basıyoruz. Sonra Forma 1 Adet Timer 2 Adet CommandButton ekliyoruz (Tİmer1′in Enabled Bölümünü False ve İntervali = 100 Yapınız… Ve Aşağıdaki Kodları Forma Yapıştırıyoruz Kod: Dim Komut As New AutoItX3Lib.AutoItX3 Private Sub From_Load() Timer1.Interval = 100 Form1.BorderStyle = 4 End Sub Private Sub Command1_Click() Timer1.Enabled = True ‘ başlat End Sub Private Sub Command2_Click() Timer1.Enabled = False ‘ durdur End Sub Private Sub Timer1_Timer() Komut.Send (“Z”) ‘ Bu Kısmı İsteğiniz Kadar Çoğaltırsınız Komut.Send (“3″) ‘ aynı şekil End Sub capslok f1 f2 f4 shift vs vs .. tuşlarıylada durdur başlat yapabilirsiniz onun anlatımını ayrı yapıcam teşekkürler arkadaşlar Çok hızlı yapsın diyorsanız timer intervalini 5 yapabilirsiniz tabiki aşırı olur sizin seçiminiz.. DevilCrafty Oyun Portalı! Larkozs-DevilCrafty
  4. maden bot proje sadece işleyişi ve bilgi sahibi olmanız için eski bir maden bottur alıntıdır bilgisayarın diplerinden çıkardım [download='http://dosya.web.tr/OmoxAK']Tıkla indir[/download]
  5. Selam arkadaşlar Uzatmadan Vb6.0 55 mb Ful sorunsuz sürümünün Linki http://yadi.sk/d/EIxTI02pLPQjJ
  6. merhaba arkadaşlar, daha geçende autoitx3 ile oyunda skill bastırıyordum ama şimdi yeniden yapmaya çalıştım oyunda chatten çalışıyor ama skill olarak basmıyor. delay koydum yine aynı. fakat farklı bir fonksiyon buldum öyle çalışıyor ama çok yavaş skill basıyor (minor). eskiden yaptığım kod: (çalışmıyor) komut.send "7" çalışan kod: komut.send "{7 down}" bekle = gettickcount do while gettickcount - bekle > 75 doevents loop komut.send "{7 up}" bu kodu nasıl seri hale getirebilirim acaba yani 3-4 tane açtım programı yine aynı derecede hatta daha yavaş basıyor minoru. teşekkürler şimdiden.
  7. paket için illada bypass gereklimi ? paket yollayınca oyundan atıyor bypasiz olmazmi bu _? fikir bile kafidir. @[member="DevilCraft"] @[member="aktay28"]
  8. new bot aktay28 bot gibi baglan seklınde yapacagım ıcın bypaslı olmasa olur soucerlerı olan warmı elinde ? pointleri sikintti degil . şimideden cok tesekurler @[member="DevilCraft"] @[member="aktay28"]
  9. Function CureKontrol Dim CureUye(1 to 8) as Long CureUye(1)=ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(KO_PARTY) + &H1C8) + &H35C) + &H0) + &H25) CureUye(2)=ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(KO_PARTY) + &H1C8) + &H35C) + &H0) + &H0) + &H25) CureUye(3)=ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(KO_PARTY) + &H1C8) + &H35C) + &H0) + &H0) + &H0) + &H25) If CureUye(1)=1 Then Cure1 If CureUye(2)=1 Then Cure2 If CureUye(3)=1 Then Cure3 End Function (KO_PARTY) + &H1C8) + &H35C) + &H0) + &H0) + &H25) her sayıda +1 arttırın KO_OFF_PARTY = &HC1ED4C PartySayusı = &H360 PartyID = &H8
  10. Devilcrafty atarmısın kardeşim source elinde vardır senin
×
×
  • Yeni Oluştur...