Evet arkadaşlar benden beklenmedik bir döküman belki bir daha böyle bir döküman yapmam kıymetini bilin neyse. Konuya gelelim. Sizlere Basit görünümlü connector yapımını ve işinize yariyacak bir kaç kod göstericem. Önce aşağıdaki link'ten visual basic 6.0 sürümünü indirelim.
Serial: Yasak olduğunu düşündüğümden vermiyorum
Rar Pass : zaxo7
Şimdi dosyamızı indirip programımızı kurduktan sonra vb'yi açalım. Karşımıza bir tablo çıkıcak bu tabloda Standart.exe yi seçerek yeni projemize ilk adımı atalım.
Karşımıza aşağıdaki gibi bir görüntü çıkması lazım
Bundan sonrasını bölüm bölüm anlatacağım.
1. Bölüm Button Ekleme
Connectorumuzu kullanmak için doğal olarak bir button olması lazım aşağıdaki resimlerde sizlere nasıl button ekleneceğini anlattım. Önce 1. Resimdeki CommandButtonu tıklıyoruz daha sonra projemizin herhangibi bir yerine istediğimiz şekilde buttonu çiziyoruz ve 2. resimdeki gibi bir buttonumuz olacak. Bu buttonları projemizin istediği yerine taşıyabilir ve boyutunu ayarliyabiliriz. Buttonların isimlerini değiştirmek içinde 3. resimdeki gibi caption kısmındaki yazıyı değiştirmemiz yeterli olacak.
2. Bölüm Resim ekleme ve Font Rengini değiştirme Evet button kısmının bir çok yerini geçmiş bulunmaktayız şimdi isterseniz diye resim eklemeyide göstericem ve arka font renginin değiştirilmesini. Daha sonrada işinize yarayabilecek bir kaç kod göstericem sizlere...
Resim eklemek için 1. resimdeki PictureBox bölümünü tıklıyoruz daha sonra buttonlarda yaptığımız işlemin aynısını burada yapıyoruz. Resmin büyüklüğünü çiziyoruz. daha sonra bu çizdiğimiz yer seçiliyken 3. Resimde çizdiğimiz resim alanı bulunmakta 3. resimdede gösterdiğim gibi picture bölümünü seçiyoruz ondan sonrasını zaten biliyorsunuz ama dikkat etmeniz bir dokta var ekliceğiniz resim yaptığınız yer kadar bir büyüklükte olması lazım vb de bunun ayarını yapamıyorsunuz. 4. resimde ise font renginin değiştirildiği bölümü gösterdim
Resim Ekleme
Resim için Ayırdığımız Bölüm
Resim Bulma
Font Renk Ayarı
3. Bölüm Kod ekleme Ve Bir Kaç Kod
Bu bölümde ise sizlere nasıl buttonlara fonksiyon verebilceğinizi anlatıcam ve bunun içindede bir kaç tane işinize yarayabilecek kodlar bulunmakta.
İlk Önce sizlere bağlan butonunu gösterim. Bağlan buttonuna işlev vermek için buttonu çift tıklıyoruz ve karşımıza Bağlan buttonunun kodlarını yazabileceğimiz kısım çıkıyor o kısma aşağıdaki kodu yazabilirsiniz.
code]Private Sub Command1_Click()
On Local Error GoTo hata
Dim K
K = Shell("C:\Program Files\EA Games\Ultima Online Mondain's Legacy\client.exe", 1)
Exit Sub
hata:
MsgBox ("Client Dosyası Bulunamadı")
end
End Sub
Siz [ K = Shell("C:\Program Files\EA Games\Ultima Online Mondain's Legacy\client.exe", 1) ] kısmını kendinize göre ayarliyabilirsiniz. ben burada sizlere ultimanın içindeki orjinal clientti tanıttım siz kendi clientinizi tanıtmak için onun ismini yazabilirsiniz örnek sphere-wiki.exe
Dediğim gibi önce kod eklemek istediğiniz buttonu çift tıklıyorsunuz daha sonra aşağıdaki gibi kod eklemek istediğiniz buttonun bölümü çıkıyor oraya vermiş olduğum kodları ya da öğrenmiş olduğunuz kodları yazıyorsunuz.
Artık diğer buttonların nasıl eklendiğini anlatmama gerek kalmadı bu yüzden farklı 2 kod daha vereceğim size bu kodlardan ilki siteye yönlendirme bir diğeri ise connectoru kapatmak. Daha fazla bilgi vermek isterdim ama bu sefer bu işe emek harcamış olan arkadaşların emeği boşa giderdi daha fazla bilgi edinmek isteyen bir vb kitabı falan alıp kendini daha iyi geliştirebilir.
Siteye Yönlendirme Kodu
Dim ver
ver = "explorer.exe" & " https://" & "www.xxxxxx.com/"
Shell ver, vbNormalFocus
End Sub
Connectoru Kapatmak çıkış Buttonu Yani
End
End Sub
Tamamen kendi emeğim ile anlattım umarım işinize yarar kolay gelsin
// Link Yenilenmiştir
www.ultima-strike.com ailesine Tymaron tarafından yazılmıştır. Sorulmadan paylaşılması yasaktır.
Üye Ol veya Giriş Yap
Bu içeriğe yorum atmak istiyorsanız hemen üye olun veya giriş yapın.
Bu kadar kolay şeyi, p dili başlangıç seviyesinde bile yaparsın. Millet bu işten ekmek yiyor diyorsun. Peki ms ofis le openofis i karşılaştıralım. Biri açık kaynak ve kodlar gözüküyor. Neden hala ms ofis para kazandırıyor? Buna connector anlatımı denmez bir de. Ancak küçük bir arayüz uyguaması denebilir...
[b]Kardesım gorsellıgı naapsın bu arkaslar speedı,easyuo ve ınj engellıyemedıkden sonra adam nıye ugrassın clıent 2.0.3 kullansın.Madem mıllet bu ısden para kazanıyor dıye kesıp atıyorsun bosa burda fazladan konu acmıssın.Asıl senın bu cocuklara yaptıgın ayıp alala[/b]
]https://img71.imageshack.us/img71/332/connector1bb3.jpg
Son görünüm olarakta yukarı bakabilirsiniz ancak yukarıdaki kodlarla bu kadar ileri düzey olmaz malesef
tymaron Bu Connectorun Son gorumu ne ? Acaba -- Client Yapılır No ıp Acılır Static Alınır Setup Yapılır Static Silinir Yardım İsteyen Msn mı Eklesın [email protected]
Şöyle birşey var, herkesin oyunu "C:\Program Files\EA Games\Ultima Online Mondain's Legacy\client.exe" dizininde değil. Bunu kendime göre düzenlesem bile başkasının bilgisayarında benim oyunumun kurulu olduğu yerde olmayabilir.
Bu durumda clienti bilgisayarda otomatik bir şekilde arayıp bulamak gerekiyor. Yani Bağlan butonuna basıldığında client.exe nin bilgisayarda otomatik bulunup açılması gerek ki her kullanan açabilsin.
Bu konuda ne demek istersiniz?
Anlatımınız çok açıklayıcı ve örnek kodlara dayanıyor. Bu denli ayrıntılı anlattığınız için teşekkürler.
[b][red]Arkadaşlar kodlamaya ilk adım olarak koydum bütün kodları vermedim bu işten para kazanan arkadaşalr var onlara saygısızlık olmasın.
@Owsk
haklısın delphi bu konuda çok ileri düzey ama biraz karışık bir program geldi ilk vb başladım ondan sanırım ama ilerde ikisinide en iyi şekidle ilerletmeyi düşünüyorum[/red][/b]
Yorumlar (29)
link ve resimler güncelleştirilmesi gerek bazı resimler ve dowloand edilecek programlar edilmiyor yardım.
Aga Ben Dediğin Herşeyi Yptm Ve Hazırladım Ama Nasıl Giricem Oyuna Fln Nasıl Ayarlıcam Bi Yrdmcı Olurmsun . Özel msj veya buradan yazabilirsin .
Arkadasım Su Lınkıne Bakarmısın Acmıyor Bu Vb
arkadaşım icon ekleyemiyoruz nasıl yapcaz bunu
Bu kadar kolay şeyi, p dili başlangıç seviyesinde bile yaparsın. Millet bu işten ekmek yiyor diyorsun. Peki ms ofis le openofis i karşılaştıralım. Biri açık kaynak ve kodlar gözüküyor. Neden hala ms ofis para kazandırıyor? Buna connector anlatımı denmez bir de. Ancak küçük bir arayüz uyguaması denebilir...
[b]Kendide kazanıo para ondan orasindan burasindan ortasindan anlatmıs ya anlatıosan tam anlat yada milleti boştan yere kandırma..[/b]
[b]Kardesım gorsellıgı naapsın bu arkaslar speedı,easyuo ve ınj engellıyemedıkden sonra adam nıye ugrassın clıent 2.0.3 kullansın.Madem mıllet bu ısden para kazanıyor dıye kesıp atıyorsun bosa burda fazladan konu acmıssın.Asıl senın bu cocuklara yaptıgın ayıp alala[/b]
]https://img71.imageshack.us/img71/332/connector1bb3.jpg Son görünüm olarakta yukarı bakabilirsiniz ancak yukarıdaki kodlarla bu kadar ileri düzey olmaz malesef
Konuyu zaten genel olarak anlattım saçma bir yanı olduğunu düşünmüyorum.
Çok saçma ya konuyu tam anlat yada hiç anlatma.
tymaron Bu Connectorun Son gorumu ne ? Acaba -- Client Yapılır No ıp Acılır Static Alınır Setup Yapılır Static Silinir Yardım İsteyen Msn mı Eklesın [email protected]
[red][b]Tymaron MSN adresin varmı ya bunlar biraz zor geldi bana 3 kere okudum yapamadım.MSN adresinden bana yapsan atsan ?[/b][/red]
[b][sea]Teşekkürler güzel anlatım[/sea][/b]
Link yenilenmiştir arkadaşlar
Şöyle birşey var, herkesin oyunu "C:\Program Files\EA Games\Ultima Online Mondain's Legacy\client.exe" dizininde değil. Bunu kendime göre düzenlesem bile başkasının bilgisayarında benim oyunumun kurulu olduğu yerde olmayabilir. Bu durumda clienti bilgisayarda otomatik bir şekilde arayıp bulamak gerekiyor. Yani Bağlan butonuna basıldığında client.exe nin bilgisayarda otomatik bulunup açılması gerek ki her kullanan açabilsin. Bu konuda ne demek istersiniz? Anlatımınız çok açıklayıcı ve örnek kodlara dayanıyor. Bu denli ayrıntılı anlattığınız için teşekkürler.
ya link verebilirmisiniz ?indiremiyorum
yükleniyor nette arastırma yapın
vb yüklenmiyor.
vb yüklenmioyr!
[b]Guzel Paylasim.Kendini Gelistirmen Güzel Ardil...[/b]
+ bu vb yüklenmiyor
[b]+ Öğretmemek tamamen bencillik.[/b]
[b]Öğretmenlerde para kazanıyor fakat bildiklerini öğretiyor.[/b]
[b][red]Arkadaşlar kodlamaya ilk adım olarak koydum bütün kodları vermedim bu işten para kazanan arkadaşalr var onlara saygısızlık olmasın. @Owsk haklısın delphi bu konuda çok ileri düzey ama biraz karışık bir program geldi ilk vb başladım ondan sanırım ama ilerde ikisinide en iyi şekidle ilerletmeyi düşünüyorum[/red][/b]
connectoru yapmak tamam çok kez anlatıldıda. Dll enjekte etmek yada herhangi bir programın açılmasını engellemeyi anlatsaydınız daha iyi olurdu.
[quote=Hocam Bu connectörü Kaydettikten Sonra Acmıyor.. Bunu Nasıl Ayarlıcaz.. ][/quote] .exe olarakmı kaydettin ?
Teşekkürler Yinede Ancak Delphi 7 ile yapılanlar daha iyi oluyor.
Hocam Bu connectörü Kaydettikten Sonra Acmıyor.. Bunu Nasıl Ayarlıcaz..
yanlız bu vb yüklenmiyor :con