Mouse Macro 1.2

09/Şub/13 20:40

Kısayol

Şikayet

Özel Mesaj

Fatih54

Kayıt Tarihi: 16/Ağustos/2012

Mouse Macro

Mouse Macro; Farenin hareketlerini kaydeden ve gerektiği zaman aynı haraketleri yapmasını sağlayan bir çeşit makro uygulamasıdır (Sağ ve Sol Fare Tuşlamalarını da Kaydeder). Bu uygulama ile fare ile yaptığınız işlemleri çok kısa bir süre içerisinde yapabilirsiniz. Program tamamen ücretsizdir.

v1.2 Yenilikler:

(Allapi,Kioskea.net,Planetsourcecode ve Netty5 teşekkürler.)
*Native Makro Okuyucu Eklendi (Her Windows NT Sistemde Çalışır)
*Bazı yerler düzeltildi.
*Makro önizleme fonksiyonu tamamen yenilendi.
*Çoğu hata düzeltildi.
*Zamanlayıcının yerine Hook Metodu eklendi, Bu metod her fare hareketini eksiksiz bir şekilde kaydeder.
*Bazı durumlarda oluşan donma hatası giderildi.
*...

İndirme Adresi: http://www.tetrasoftware.net/uploads/1/1/5/2/11520866/mouse_macro_v1.2.exe

Makro Önizlemeden Bir Resim:

Tamamen%20Yenilenen%20Makro%20Önizleme%20Esnasında%20Bir%20Görüntü

Ana Menü:

Programın Kullanımı

Öncelikle programı açın ve "Makro Ayarları" bölümüne gelin.
Döngü Tekrarı -> Fare ile yapılan işlemlerin kaç kez tekrarlanacağı.
Yakalama Aralığı -> Zamanlayıcının kaç milisaniyede bir fare işlemlerini alacağıdır (100'den küçük olursa sorun çıkabilir). [v1.2 Sürümünden İtibaren Geçerli Değildir]
Tıklama Başına Bekleme Süresi -> Bu makro yürütülürken tıklamalardan sonra kaç milisaniye bekleme süresidir.

Gerekli işlemleri yaptıktan sonra "Makro Oluştur" tuşuna basın. Karşınıza gelen bildirim kutusunu okuyun ve tamama basın.

Artık fare ile yapacağınız işlemleri yapın ve işlemler bittikten sonra 'F9' tuşuna basın. Program makroyu hafızasında koruyacaktır.

Eğer bu fare işlemlerinizi makro olarak kaydetmek istiyorsanız "Makro Kaydet" tuşuna basın, ve dosyanın yerini seçin.

Daha sonra bu makroyu oynatmak için "Makro Aç" a basıp makronun yerini seçin.

Makroyu Önizle ise ara bir form açarak fare hareketlerini gösterir. Yani yaptığınız makro bu formda önizlenebilir.

*Hızlı açıcı Free Basic ile yapılmıştır. Her Windows NT sistemde çalışır

Hızlı Açıcı (mopen.exe) Kaynak Kodları:

'Mouse Macro Stand-Alone Macro Opener
'Fatih54102
'FreeBasic
'Derlemek için Extension library gereklidir!

#Include Once "vbcompat.bi"
#Include Once "windows.bi"
#Include Once "ext/strings.bi"
Dim args As String
args = Command$
If args = "/?" Or args = "-?" Then
	Messagebox(NULL,"Mouse Macro Stand-Alone Macro Opener For Windows" & vbcrlf & "Tetrasoftware","Help",MB_OK)
EndIf
If args = vbnullstring Then
	Messagebox(NULL,"Example Usage: " & vbcrlf & "mopen.exe <filepath.mfl>" & vbcrlf & vbcrlf & "Stand-Alone Macro Opener by Tetrasoftware","Usage",MB_OK)
EndIf
Dim DosyaKonumu As String
DosyaKonumu = args
Dim As String SplitY(),SplitX(),BTus(),Kontrol,TikSayi,KoordinatlarX,KoordinatlarY,BTik,Dongu,SureAl,ZamAl
Dim As Integer don_tekrar,sur_bekle
Open DosyaKonumu For Input As #1
Line Input #1,Kontrol
Line Input #1,TikSayi
Line Input #1,KoordinatlarX
Line Input #1,KoordinatlarY
Line Input #1,BTik
Line Input #1,Dongu
Line Input #1,SureAl
Close #1
don_tekrar = CInt(Dongu)
sur_bekle = CInt(SureAl)
Dim Bosluk As String
Bosluk = " "
Using ext.strings
Split(KoordinatlarX,SplitX(),Bosluk,-1)
Split(KoordinatlarY,SplitY(),Bosluk,-1)
Split(BTik,BTus(),Bosluk,-1)
Dim As Integer k,i
For k = 0 To don_tekrar
	For i = 0 To UBound(SplitY) 'SplitX
	If SplitX(i) = vbNullString Then
		GoTo devam
	Else
		SetCursorPos CInt(SplitX(i)), CInt(SplitY(i))
	EndIf
		Select Case BTus(i)
			Case "SOLTUS"
			mouse_event MOUSEEVENTF_LEFTDOWN,0,0,0,0
			mouse_event MOUSEEVENTF_LEFTUP,0,0,0,0
			Case "SAGTUS"
			mouse_event MOUSEEVENTF_RIGHTDOWN,0,0,0,0
			mouse_event MOUSEEVENTF_RIGHTUP,0,0,0,0
			Case "ORTA"
			mouse_event MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0
			mouse_event MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0
		End Select
	If getasynckeystate(VK_F10) Then
	End
	EndIf
	Sleep sur_bekle
	devam:
	Next i
Next k
End

Alıntı yap