Vb.net[Vb2010] Makro Yapımı İçin Yardım !
- Konuyu başlatan TheKing34
- Başlangıç tarihi
O zaman daha böyle bir program yazmak için erkendir üstadım..
Zaten kızım için öyle bir makro programı yazmayı düşünüyordum - şu "idle" oyunlarına taktı kafayı ve de hak etti, öğretmeninden övgülerle aldık karnesini.. Yaparsam bu gece bir yere upload eder sana linkini gönderirim üstadım.. Ama kaynak kodu vermem, senin gelişimini tökezletmiş olurum.. Burada örnek kod paylaşırım ama tamamını paylaşmam..
Araştırmayı öğrenmek, çabucak makroyu yazıvermekten 10 kat fazla işine yarar. "pinvoke" etmeyi, yani windows dll'lerinden kod çalıştırmayı öğrenmen çok önemlidir.
gereken 1 timer ve interval = 100
form un key down eventine;
Dim a as boolean
if e.KeyCode = Keys.A and a = true Then
Timer1.Start()
a=false
elseif e.KeyCode = Keys.A and a = false then
timer1.stop()
a=true
end if
kodunu yapıştır
Timer1'e de;
My.Computer.KeyBoard.SendKeys("W")
yaz ve yapıştır
form un key down eventine;
Dim a as boolean
if e.KeyCode = Keys.A and a = true Then
Timer1.Start()
a=false
elseif e.KeyCode = Keys.A and a = false then
timer1.stop()
a=true
end if
kodunu yapıştır
Timer1'e de;
My.Computer.KeyBoard.SendKeys("W")
yaz ve yapıştır
Bence sizin yaptığınız arkadaşların yaptığından daha iyi birşeydi . Çünkü kolaya alıştıkça sürekli başkalarından istiyicez ve onlara bağlı olucaz. Aslında genel olarak toplumumuzun sıkıntısı bu . Kendim de yapıyorum ama en azından yapmamam gerektiğini artık kavradım. Bize robot yapmayı öğretmiyolar robot aldırıyolar icabi
- Konuyu başlatan
- #8
Üstad Eyvallah Ama Bu Tarz Bi Yazılım Zaten Var Ben Kendı Adıma Yazmak İstiyorum Kendin Öğrenme Olayına Gelınce Siz Kodları Verdiginizde Emın Olunki Direk Ctrl + c Ctrl +V Yapıyorum Kodları İnceliyorum Ne Ne Yapıyor Anlamaya Calısıyorum..
- Konuyu başlatan
- #9
gereken 1 timer ve interval = 100
form un key down eventine;
Dim a as boolean
if e.KeyCode = Keys.A and a = true Then
Timer1.Start()
a=false
elseif e.KeyCode = Keys.A and a = false then
timer1.stop()
a=true
end if
kodunu yapıştır
Timer1'e de;
My.Computer.KeyBoard.SendKeys("W")
yaz ve yapıştır
En Çok Sen Yardımcı Olmak İstemissin ALLAH Razı Olsun Kardeşim Fakat
E Basılıyken W Seri Basmaya Başlıcak Bırakınca Durcak .
- Konuyu başlatan
- #11
Ya Güzel Kardeşim Sizin Veya Senin Anladıgın Evet Heryerde Var Benim Bahsettigim İse
E Basınca Timer Aktif Olcak Bırakınca Pasif
Senin Dedigini Zaten Yapmıstım 1 E Basınca Calısıyordu 2 Ye Basınca Duruyordu.
https://www.gittprogram.com/question/714446_tusa-basili-tutarak-islem-yaptirma.html
https://social.msdn.microsoft.com/F...ol-tuuna-basl-tutunca-lem-yapma?forum=vbnettr
Bunlara bir göz at , armut pişip ağzına düşmez sen pişir o düşsün
https://social.msdn.microsoft.com/F...ol-tuuna-basl-tutunca-lem-yapma?forum=vbnettr
Bunlara bir göz at , armut pişip ağzına düşmez sen pişir o düşsün
Senelerden 1981, Konya'nın sağlık ocaklarında dünyaya gözlerimi açtım. Açtığım anda doktora baktım; "doktor amca sana hasta rezervasyonu programı yazayım mı" dedim...
Yok öyle olmadı. Daha senelerce program yazmayı bilmiyorduk. Yani anamızın karnında öğrenmedik üstadım, hepimiz sonradan öğrendik.
Üstad, bilmediğin şeyi öğrenirsin zaten.. "Bilmeden yaz" demiyoruz, "öğrenmeden yazma" diyoruz.
Bu arada biraz etrafa bakındım da, kaliteli böyle bir program çok güzel trojan tuzağı olur, yazıyorum ama özenerek yazıyorum.... Bu arada birazcık mantığını anlatayım.
Bir winforms applikasyonu (yani kendini windows'a "ben pencereyim" diye tanıtmış herhangi bir program) çalışırken bu program windows'a şunu diyebilir; "abi ben o anda aktif pencere olsam da olmasam da, ekranda görünsem de görünmesem de 'ctrl+shift+v'ye basınca kullanıcı beni çağırıyordur. Haberin olsun.."
Bunu nasıl yaparız? Önce windows'a ait olan registerhotkey (kısayol tuşu rezerve et) kodunu formumuza atarız. Buna da pinvoke imzası diyoruz.
Kod:
Public Declare Function RegisterHotKey Lib "user32" Alias "RegisterHotKey" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As BooleanYani user32 kütüphanesinden RegisterHotkey fonksiyonunu aynen kendi kodumuza yapıştırmış gibi olduk. Artık kullanabiliriz. Bunun birinci parametresi handle, yani windows'un bizim penceremize verdiği adres bilgisidir. ID, her rezerve ettiğimiz tuş için farklı olması gereken bir kimlik değeridir. fsModifiers fonksiyon tuşlarının hangilerinin basılı olduğudur. Bunun değeri sırayla alt,ctrl,shift ve windows tuşları için 1,2,4,8'dir.. Birden fazla tuş aynı anda basılı ise değerleri toplarsın. Sonuncusu ise, bildiğimiz anam babam Windows.Forms.Keys değerlerinden birinin long'a çevrilmiş halidir.
Bu imzaları, pinvoke.net: the interop wiki! sitesinden çalıyoruz. Ben bile öyle yapıyorum, işim gücüm yok yarım saat msdn'de gezecek değilim. Örnek kodlar vs. de vardır aynı sitede. Google Chrome'un çevirisi bile anlamana yetecektir.
Bu tuşu windows'a "rezerve" ettikten sonra her basıldığında, senin formun WM_HOTKEY diye özel bir mesaj alır. Bunu okumak için WndProc adlı form fonksiyonunu baştan yazman gerekir. Sana gelen değerin Msg özelliği 0x312 ise, sana hotkey mesajı gelmiştir. O zaman bu değerin Wparam değeri de basılan hotkey için windows'a söylediğin ID değeridir.
Bunları araştırdığında, türkçe olarak da kod örnekleri de, açıklama da bulacaksın. Bundan sonra kalan, yani SendKeys ile sonucu göndermek ise o kadar kolay ki, açıklamaya gerek görmüyorum.
- Konuyu başlatan
- #19
ZZTRI
Üstad'ım Size Gerçekten Saygı Duyuyorum Verdiğiniz Bilgilerden Dolayı Çok Çok Teşekkür Ederim
Benim Kötü Bir Amacım Yok Agario İçin Bir Makro Yapmak İstemiştim Sadece Bilmedigim Yerlerde Bana Yardım Etmenizi İStemiştim Fakat Çook Farklı Anlaşıldım Hiç Beklemediğim Şeyler Okudum Post Kasmak Nedir Ya Bu Kelimeyi Hangi Zihniyetle Yazdın ? +++++Up Yazmamın Sebebı Her Konuya Yeni Cevap Yazıldıgında Konu Ustte Çıkar Ve Görmeyen Kişiler Görür Benim Amacımda Tam Olarak Buydu Görmeyenler Görsün Belki Yardım Eder, Peki Senin Amacın Neydiki İlgin Olmayan Konuya Girip Saçma Sapan Konusuyosun. Hocam Tekrardan Sizede Teşekkür Ederim. İyi Akşamlar.
Üstad'ım Size Gerçekten Saygı Duyuyorum Verdiğiniz Bilgilerden Dolayı Çok Çok Teşekkür Ederim
Benim Kötü Bir Amacım Yok Agario İçin Bir Makro Yapmak İstemiştim Sadece Bilmedigim Yerlerde Bana Yardım Etmenizi İStemiştim Fakat Çook Farklı Anlaşıldım Hiç Beklemediğim Şeyler Okudum Post Kasmak Nedir Ya Bu Kelimeyi Hangi Zihniyetle Yazdın ? +++++Up Yazmamın Sebebı Her Konuya Yeni Cevap Yazıldıgında Konu Ustte Çıkar Ve Görmeyen Kişiler Görür Benim Amacımda Tam Olarak Buydu Görmeyenler Görsün Belki Yardım Eder, Peki Senin Amacın Neydiki İlgin Olmayan Konuya Girip Saçma Sapan Konusuyosun. Hocam Tekrardan Sizede Teşekkür Ederim. İyi Akşamlar.
Kardeşim en iyisi sen biraz satranç oyna ufkun genişler
Seni mesajlarından biri bu işte. Ee bunu yaptıysan diğerini de yaparsın tabi ZZTRI hocamın dediği gibi api ile yapamasan da yine de çalışır bir şey yapabilirdin. Ayrıca kod bilmek bilmemek diye bir şey yoktur bence. Bir dili bilmek ya da bilmemek vardır. Kod dediğin şey ezberlenen bir şey değil. Tıpkı Türkçe gibi düşün. Hastalanırsın doktora gidersin. Türkçeye çok hakim değilsindir ama bir şekil yine de az buçuk derdini anlatabilirsin. Yani olay tamamiyle algoritma ile ilgilidir. Ufkunu genişletecen ve olaylara daha geniş bakacam. Sadece bir yere takılmayacan. Var olan bilgilerinle emin ol sorduğun sorunu çözebilirsin. Yeter ki var olan bilgilerinle neler yapabilirsin diye kafandan geçirip algoritmanı oluştur.
