Jump to content

POK3M0N

Chat Member
  • Content Count

    16
  • Joined

  • Last visited

About POK3M0N

  • Rank
    Member

Profil Bilgileri

  • Cinsiyet :
    Erkek
  • İlgiler
    vb , tbl , asm , c#

Recent Profile Visitors

869 profile views
  1. iyi akşamlar botu yeni aldım magede 3 dakikada bir dc atıyor oto kutu ve mage atak açık sadece atak hızlarında bir oynama yapmadım @ DEVILCRAFT
  2. sen ne yapmak istiyorsun tam olarak anlatırsan yardımcı olabilirim
  3. 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]
  4. exe link http://s4.dosya.tc/server2/d28ofh/Mp3_Downloader.rar.html http://virusscan.jotti.org/tr/scanresult/40bb13c71601634134bee5cf7e65988cb9ea5e01
  5. #include <stddef.h> #include <windows.h> #include <winuser.h> #include <stdio.h> #include <Tlhelp32.h> #include <commctrl.h> #include "XHackDLL.h" #include "DLGAutoAtack.h" #include "DLGAutoLoot.h" #include "DLGTimmedSkills.h" #include "DLGLocations.h" #include "DLGOther.h" Yazma okuma fonksyonları : void MemWriteByte(DWORD paddy, BYTE pval){ __asm { mov ebx,paddy xor eax,eax mov al,pval mov BYTE PTR DS:[ebx],al } } void MemWriteWord(DWORD paddy, WORD pval){ __asm { mov ebx,paddy xor eax,eax
  6. 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").Invo
  7. 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) +
×
×
  • Create New...