dersler etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
3 Mart 2018 Cumartesi
VB.Net Mybb Konu Botu [Kaynak kod ve Proje!]
Posted by
Karolinax,
on
06:50

Merhaba arkadaşlar bugün sizlere Mybb'de nasıl konu botu yapılır ondan bahsedicem.
İlk olarak kendinize bir proje açın.
Projenize altta bulunanları ekleyin;
Textbox1.Text [Konu başlık burada olucak]
Textbox2.Text [Konu içerik burada olucak]
Textbox3.Text [Konu açılacak link Örnek : http://localhost/mybb/newthread.php?fid=2]
Button 1 [Konu içerik ve başlık rasgele sayı kasımı başlat]
Button 2 [Botu Başlat]
Button 3 [Konuya git]
Timer 1 [İçerik kasılacak yer]
Timer 2 [Konu kasılacak yer]
Timer 3 [Konu linkine tekrar gidicek yer]
WebBrowser1 [Konu kasımı için] ve WebBrowser1'de ScriptErrorsSuppressed = True yapalım.
Şimdi ise kodları yazın.
Button 1 ;İşlemimiz bitmiştir. Şimdi konu kasmaya başlayabilirsiniz.
timer1.start()
Button 3;
WebBrowser1.Navigate(TextBox3.Text)
Button 2;
Timer2.Start()
Timer1 ;
Dim i As Integer
i = Int(Rnd(1) * (100000000))
Dim i2 As Integer
i2 = Int(Rnd(1) * (100000000))
TextBox1.Text = i
TextBox2.Text = i2
timer2 [Interval = 600];
Try
WebBrowser1.Document.GetElementById("subject").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.GetElementById("message").InnerText = TextBox1.Text
WebBrowser1.Document.GetElementById("submit").InvokeMember("click")
Timer3.Start()
Catch ex As Exception
End Try
Timer3 [Interval = 800];
WebBrowser1.Navigate(TextBox3.Text)
İstek video isterseniz YouTube veya bu konu altına yorum olarak belirtirseniz elimden geldiğince yardımcı olacağım.
İyi günler...
Kaynak proje için Tıkla
1 Mart 2018 Perşembe
VB.Net Combobox Kullanımı
Posted by
Karolinax,
on
08:22
Merhaba arkadaşlar bugün VB.Net'de Combobox kullanımı, ne işe yarar, nasıl kodlanır bunlardan bahsedicem.
İlk olarak sizlere combobox ne işe yarar ondan bahsedicem. Combobox bildiğiniz üzre seçme işleminde kullanılır. Comboboxa siz veri eklersiniz ve o veri seçildiğinde şu çalışsın gibi komutlar verirsiniz. Bugünde sizlere bundan bahsedicem.
Şimdi comboboxa veri nasıl eklenir onu gösterelim.
Comboboxa biz veriyi textboxdan ekleriz. O halde 1 combobox ve 1 tanede textbox ve birde button ekleyeceğiz.
Şimdi buttona vereceğim kodları yazın.
ComboBox1.Items.Add(TextBox1.Text)
Bu kodlar ile Textbox1'deki veriyi Combobox1'e ekliyor.
Verimizi ekledik şimdi biz bu veriyi label'e nasıl çekebiliriz. Aslında çok basit bir ingilizce komutu kullanıyoruz. İngilizcede If eğer anlamı veriyor biz programa eğer combobox1de xxx seçildiğinde bana şunu çalıştır diyoruz. Bunu ingilizcede ve VB.Net'de nasıl gösteririz işte yanıtı aşağıda.
If ComboBox1.Text = "xxx" Then
Label1.Text = ComboBox1.Text
End If
Bu kodlarıda Button2'ye eklediğinizde size Combobox1'deki xxx verisi seçildiğinde o veride yazılan yazıyı label'e yazdır dedik. Siz bunu değiştirebilirsiniz örnek olarak;
If ComboBox1.Text = "xxx" Then
Label1.Text = " Sefa Yılmaz "
End If
Bunu yazarsanız combobox1'de xxx seçildiğinde label1'e Sefa Yılmaz yazdır dedik.
Combobox bu işe yarıyor arkadaşlar seçme seçtirme gibi işlemlerde kullanılıyor siz bu kodları geliştirebilirsiniz örnek xxx seçildiğinde label rengi değiştirme yazı yazdırma timer başlatma timer sonlandırma gibi işlemler yapabilirsiniz.
İstediğiniz ders veya yapamadığınız programlar için Youtubede videonun altına yorum olarak belirtirseniz yardımcı olacağım.
İyi günler.
21 Aralık 2017 Perşembe
20 Aralık 2017 Çarşamba
VB.NET DLL İnjector Yapımı
Posted by
Karolinax,
on
08:57
C# DLL İnjector Kaynak Kodları
Posted by
Karolinax,
on
08:44
- using System;
- using System.Diagnostics;
- using System.IO;
- using System.Runtime.InteropServices;
- using System.Text;
- namespace GijSoft.DllInjection
- {
- public enum DllInjectionResult
- {
- DllNotFound,
- GameProcessNotFound,
- InjectionFailed,
- Success
- }
- public sealed class DllInjector
- {
- static readonly IntPtr INTPTR_ZERO = (IntPtr)0;
- [DllImport("kernel32.dll", SetLastError = true)]
- static extern IntPtr OpenProcess(uint dwDesiredAccess, int bInheritHandle, uint dwProcessId);
- [DllImport("kernel32.dll", SetLastError = true)]
- static extern int CloseHandle(IntPtr hObject);
- [DllImport("kernel32.dll", SetLastError = true)]
- static extern IntPtr GetProcAddress(IntPtr hModule, string lpProcName);
- [DllImport("kernel32.dll", SetLastError = true)]
- static extern IntPtr GetModuleHandle(string lpModuleName);
- [DllImport("kernel32.dll", SetLastError = true)]
- static extern IntPtr VirtualAllocEx(IntPtr hProcess, IntPtr lpAddress, IntPtr dwSize, uint flAllocationType, uint flProtect);
- [DllImport("kernel32.dll", SetLastError = true)]
- static extern int WriteProcessMemory(IntPtr hProcess, IntPtr lpBaseAddress, byte[] buffer, uint size, int lpNumberOfBytesWritten);
- [DllImport("kernel32.dll", SetLastError = true)]
- static extern IntPtr CreateRemoteThread(IntPtr hProcess, IntPtr lpThreadAttribute, IntPtr dwStackSize, IntPtr lpStartAddress,
- IntPtr lpParameter, uint dwCreationFlags, IntPtr lpThreadId);
- static DllInjector _instance;
- public static DllInjector GetInstance
- {
- get
- {
- if (_instance == null)
- {
- _instance = new DllInjector();
- }
- return _instance;
- }
- }
- DllInjector() { }
- public DllInjectionResult Inject(string sProcName, string sDllPath)
- {
- if (!File.Exists(sDllPath))
- {
- return DllInjectionResult.DllNotFound;
- }
- uint _procId = 0;
- Process[] _procs = Process.GetProcesses();
- for (int i = 0; i < _procs.Length; i++)
- {
- if (_procs[i].ProcessName == sProcName)
- {
- _procId = (uint)_procs[i].Id;
- break;
- }
- }
- if (_procId == 0)
- {
- return DllInjectionResult.GameProcessNotFound;
- }
- if (!bInject(_procId, sDllPath))
- {
- return DllInjectionResult.InjectionFailed;
- }
- return DllInjectionResult.Success;
- }
- bool bInject(uint pToBeInjected, string sDllPath)
- {
- IntPtr hndProc = OpenProcess((0x2 | 0x8 | 0x10 | 0x20 | 0x400), 1, pToBeInjected);
- if (hndProc == INTPTR_ZERO)
- {
- return false;
- }
- IntPtr lpLLAddress = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA");
- if (lpLLAddress == INTPTR_ZERO)
- {
- return false;
- }
- IntPtr lpAddress = VirtualAllocEx(hndProc, (IntPtr)null, (IntPtr)sDllPath.Length, (0x1000 | 0x2000), 0X40);
- if (lpAddress == INTPTR_ZERO)
- {
- return false;
- }
- byte[] bytes = Encoding.ASCII.GetBytes(sDllPath);
- if (WriteProcessMemory(hndProc, lpAddress, bytes, (uint)bytes.Length, 0) == 0)
- {
- return false;
- }
- if (CreateRemoteThread(hndProc, (IntPtr)null, INTPTR_ZERO, lpLLAddress, lpAddress, 0, (IntPtr)null) == INTPTR_ZERO)
- {
- return false;
- }
- CloseHandle(hndProc);
- return true;
- }
- }
- }
C# AOB Scanner Yapımı
Posted by
Karolinax,
on
08:35
Kodlar ;
Kod ;
public class AOBScan { protected uint ProcessID; public AOBScan(uint ProcessID) { this.ProcessID = ProcessID; } [DllImport("kernel32.dll")] protected static extern bool ReadProcessMemory(IntPtr hProcess, IntPtr lpBaseAddress, byte[] buffer, uint size, int lpNumberOfBytesRead); [DllImport("kernel32.dll")] protected static extern int VirtualQueryEx(IntPtr hProcess, IntPtr lpAddress, out MEMORY_BASIC_INFORMATION lpBuffer, int dwLength); [StructLayout(LayoutKind.Sequential)] protected struct MEMORY_BASIC_INFORMATION { public IntPtr BaseAddress; public IntPtr AllocationBase; public uint AllocationProtect; public uint RegionSize; public uint State; public uint Protect; public uint Type; } protected List<MEMORY_BASIC_INFORMATION> MemoryRegion { get; set; } protected void MemInfo(IntPtr pHandle) { IntPtr Addy = new IntPtr(); while (true) { MEMORY_BASIC_INFORMATION MemInfo = new MEMORY_BASIC_INFORMATION(); int MemDump = VirtualQueryEx(pHandle, Addy, out MemInfo, Marshal.SizeOf(MemInfo)); if (MemDump == 0) break; if ((MemInfo.State & 0x1000) != 0 && (MemInfo.Protect & 0x100) == 0) MemoryRegion.Add(MemInfo); Addy = new IntPtr(MemInfo.BaseAddress.ToInt32() + (int)MemInfo.RegionSize); } } protected IntPtr Scan(byte[] sIn, byte[] sFor) { int[] sBytes = new int[256]; int Pool = 0; int End = sFor.Length - 1; for (int i = 0; i < 256; i++) sBytes[i] = sFor.Length; for (int i = 0; i < End; i++) sBytes[sFor[i]] = End - i; while (Pool <= sIn.Length - sFor.Length) { for (int i = End; sIn[Pool + i] == sFor[i]; i--) if (i == 0) return new IntPtr(Pool); Pool += sBytes[sIn[Pool + End]]; } return IntPtr.Zero; } public IntPtr AobScan(byte[] Pattern) { Process Game = Process.GetProcessById((int)this.ProcessID); if (Game.Id == 0) return IntPtr.Zero; MemoryRegion = new List<MEMORY_BASIC_INFORMATION>(); MemInfo(Game.Handle); for (int i = 0; i < MemoryRegion.Count; i++) { byte[] buff = new byte[MemoryRegion[i].RegionSize]; ReadProcessMemory(Game.Handle, MemoryRegion[i].BaseAddress, buff, MemoryRegion[i].RegionSize, 0); IntPtr Result = Scan(buff, Pattern); if (Result != IntPtr.Zero) return new IntPtr(MemoryRegion[i].BaseAddress.ToInt32() + Result.ToInt32()); } return IntPtr.Zero; } }
Kod ;
AOBScan = newscan = new aobscan(process.id); int adress = (int can.AobScan(new byte[] { 0xEB, 0x88, 0xA8, 0xA8, 0x08, 0xCC, 0xFC , 0xCC, 0x89 }; MessageBox.Show(address.ToString("X"));
C# ve VB de shockwave flash Kullanımı
Posted by
Karolinax,
on
08:25
Selamun Aleyküm arkadaşlar günlük yazı düşdüğüm bloğumdan bazı sebeplerden dolayı 3-4 gündür makale düşemedim.Bugün bir projemde youtubedan video çekmem gerekti.C# ve VB de shockwave flash Kullanımı konusu bu ihtiyacımdan sonra aklıma geldi.İhtiyacımı karşıladım sizinde ihtiyacınız olabileceğini düşündüğümden anlatmaya karar verdim.
shockwave flash Kullanımı
Projemizin toolbox menüsüne gelip sağ tıklayıp choose item diyoruz.
Choose items tıklayıp .Com Components bölümünden Shockwave Flash Object ekliyoruz.
Daha sonra toolbox eklenmiş olan Shockwave flash objecten 2 adet formumuza ekliyoruz.Birini video için diğerini flash oyun için göstermek istiyorum.
Ekli DLL leri ve Koyduğum 2 adet Shockwave Flash object nesnemi görebilirsiniz.(tabi ben içini doldurdum :))
Böyle basit bir tasarım yapdım o siyah kutular shockwawe flash nesneleridir.Sıra onlara link vermekte kodlarla verebileceğimiz gibi properties kısmındanda verebiliriz.
Burada Programım olan Obamanın videosunun linkini properties bölümündeki Movie kısmının karşısına yazdım.Ancak dikkat etmemiz gereken ufak bi nokta var youtubedan link kopyalarken ;
https://www.youtube.com/watch?v=2BSuTJH2_sA Bu şekilde normal link
https://www.youtube.com/watch?v=2BSuTJH2_sA Bu şekilde normal link
https://www.youtube.com/v/2BSuTJH2_sA Buda düzenlediğimiz hali
linkteki watch?= kısmını silip v nin sağına bir “/” daha ekledik.Gayet Basit.Flash oyun için böyle bir editleme yapmamız gerekmiyor.
Burada direk swf linkini almamız yeterli nasıl alınacağını bilmiyorsanız.Herhangi bir oyun sitesine girin, Eklemek istediğiniz oyuna tıklayin.Açılır sayfada oyun yüklenince sağ tıklayıp öğeyi denetleye basın Sonra ctrl f yapıp .swf yazın.Bulduğunuz dosya oyununuzun yolu bunu movide kısmına yapışdırın.Şimdi sonuca bakalım.
hem video dosyamızı hemde oyun dosyamızı formla birlikte otomatik olarak internetten çekip açtık.
Bunun yanı sıra kodlarlada çalıştırıp durdurabilirir,link değiştirebilirdik.Örnek olarak C# KODU
axShockwaveFlash1.Movie = "https://www.youtube.com/v/TBGkbDhE8wM";
axShockwaveFlash1.Play();
VB de ise noktalı virgülleri kaldırdığınız takdirde kodlar çalışacaktır.Saygılar arkadaşlar.Kafanıza takılan nokta yada aldığınız hata olursa yoruma yazabilirsiniz.Projenin Linkini aşşağıda paylaşıyorum arkadaşlar makaleyi yetersiz bulabilirsiniz eksik anlatımlar olabilir.Yorum yazarsanız eksiklikleri telafi etmeye çalışırım bunun dışında projeyi indirip incelemenizde sizin açınızdan iyi olacaktır.
Nerde işimize yarıyacak ?
Bildiğiniz üzere artık flash playerlar çok gözde neden derseniz en son devletimiz tüm dizi sitelerine engel koymuşdu.VPN ile girdiğin vakit ise filme tıkladında video açılma sitesinde engelle karşılaşıyorduk.Ancak bir kaç film sitesi filmleri flashplayer üzerinden çekerek bu problemdende kurtulmuştu.Bu sadece bir örnek sizde asp.net sitenizde yada masaüstü uygulamanızda projeniz doğrultusunda kullanabilirsiniz.
Kaydol:
Kayıtlar
(
Atom
)