Recent content by [FiziK]

#include <GUIConstantsEx.au3>
Local $Label_1, $Combo_2, $button1, $msg, $data, $Label_2, $Text_1, $Text_2
GUICreate("At&Kılıç Tuş Basıcı", 250, 170, (@DesktopWidth - 250) / 2, (@DesktopHeight - 190) / 2)
$Label_1 = GUICtrlCreateLabel("Hangi tuşu otomatik olarak bastırmak istiyorsunuz?", (250 - 237) / 2, 20, 237, 20)
;~ GUICtrlCreateButton("text",left,top,width,height,style,exstyle)
$Combo_2 = GUICtrlCreateCombo("Ctrl+X", (250 - 130) / 2, 40, 130, 20)
GUICtrlSetData($Combo_2, "Ctrl+W|Ctrl+H|Ctrl+F4|Ctrl+Shift+F4")
$Label_2 = GUICtrlCreateLabel("Kaç kere basılsın?", (250 - 86) / 2, 65, 86, 20)
$Text_1 = GUICtrlCreateInput("100", (250 - 130) / 2, 85, 130, 20)
$button1 = GUICtrlCreateButton("Tamam", (250 - 200) / 2, 110, 200, 25)
$button2 = GUICtrlCreateButton("Yardım", (250 - 200) / 2, 140, 200, 25)

GUISetState(@SW_SHOW)

HotKeySet("{F1}", "CX")  ;Ctrl+X
HotKeySet("{F2}", "CW")  ;Ctrl+W
HotKeySet("{F3}", "CH")  ;Ctrl+H
HotKeySet("{F4}", "CF4")  ;Ctrl+F4
HotKeySet("{F5}", "CSF4")  ;Ctrl+SHIFT+F4

func CX()
	guictrlsetdata($Combo_2, "Ctrl+X")
	islem()
EndFunc	
func CW()
	guictrlsetdata($Combo_2, "Ctrl+W")
	islem()
EndFunc	
func CH()
	guictrlsetdata($Combo_2, "Ctrl+H")
	islem()
EndFunc	
func CF4()
	guictrlsetdata($Combo_2, "Ctrl+F4")
	islem()
EndFunc	
func CSF4()
	guictrlsetdata($Combo_2, "Ctrl+Shift+F4")
	islem()
EndFunc	

func islem()
      MsgBox(64, "Bilgi", "At&Kılıç ekranınızda belirdiğinde tuş basılacaktır!" & @crlf & @crlf & "At&Kılıç ekranından çıktığınız ya da kapattığınız anda" & @crlf & "program otomatik olarak duracaktır.")
	WinWaitActive("Mount&Blade")
	  $n = int(GUICtrlRead($Text_1)) * 10
	  sleep(500)
		if GUICtrlRead($Combo_2) = "Ctrl+X" Then
			sleep(500)
				for $i = 1 to $n
					if winactive("Mount&Blade") then
						sleep(5)
						Send("^X")
					endif
				next
			msgbox(64,"Bilgi","İşlem durduruldu.")	
		endif
		if GUICtrlRead($Combo_2) = "Ctrl+W" Then
			sleep(500)
				for $i = 1 to $n
					if winactive("Mount&Blade") then
						sleep(5)
						Send("^W")
					endif
				next
			msgbox(64,"Bilgi","İşlem durduruldu.")	
		endif
		if GUICtrlRead($Combo_2) = "Ctrl+H" Then
			sleep(500)
				for $i = 1 to $n
					if winactive("Mount&Blade") then
						sleep(500)
						Send("^H")
					endif
				next
			msgbox(64,"Bilgi","İşlem durduruldu.")	
		endif	
		if GUICtrlRead($Combo_2) = "Ctrl+F4" Then
			sleep(500)
				for $i = 1 to $n
					if winactive("Mount&Blade") then
						sleep(5)
						Send("^{F4}")
					endif
				next
			msgbox(64,"Bilgi","İşlem durduruldu.")	
		endif	
		if GUICtrlRead($Combo_2) = "Ctrl+Shift+F4" Then
			sleep(500)
				for $i = 1 to $n
					if winactive("Mount&Blade") then
						sleep(5)
						Send("^+{F4}")
					endif
				next
			msgbox(64,"Bilgi","İşlem durduruldu.")	
		endif			
EndFunc

While 1
  $msg = GUIGetMsg(1)

  Select
    Case $msg[0] = $button1
		islem()

    Case $msg[0] = $GUI_EVENT_CLOSE
;~       MsgBox(0, "GUI Event", "You clicked CLOSE on the main window! Exiting...")
      ExitLoop
  Case $msg[0] = $button2
	  $yazi = "Bu program," & @crlf
	  $yazi = $yazi & "At&Kılıç'ta hile yaparken sürekli aynı tuşa basmaktan bıkanlar için hazırlanmıştır :)" & @crlf
	  $yazi = $yazi & "" & @crlf
	  $yazi = $yazi & "Kullanım:" & @crlf
	  $yazi = $yazi & "1.Sürekli bastırtmak istediğiniz tuşu seçin." & @crlf
	  $yazi = $yazi & "2.Sonra kaç kere o tuştan bastırmak istediğinizi yazın." & @crlf
	  $yazi = $yazi & "(Tam olarak uyuşmuyor bazılarında 1 yazınca 2 kere yazdırıyor" & @crlf & "bazılarında 10-20 diyince 1-2 yazdırıyor kendiniz belirleyin...)" & @crlf
	  $yazi = $yazi & "3.Tamam tuşuna basın ve sonra At&Kılıç'a girin." & @crlf
	  $yazi = $yazi & "4.Keyfini çıkarın :) TV izleyin, internette gezinin kısaca kendinize" & @crlf
	  $yazi = $yazi & "bir uğraş bulun ya da olan biteni izleyin. :D" & @crlf
	  $yazi = $yazi & "" & @crlf
	  $yazi = $yazi & "Ya da sadece klavye tuşlarıyla uğraşmak istiyorsanız, kısayol tuşlarını kullanın:" & @crlf
	  $yazi = $yazi & "" & @crlf
	  $yazi = $yazi & "F1 = Ctrl+X" & @crlf
	  $yazi = $yazi & "F2 = Ctrl+W" & @crlf
	  $yazi = $yazi & "F3 = Ctrl+H" & @crlf
	  $yazi = $yazi & "F4 = Ctrl+F4" & @crlf
	  $yazi = $yazi & "F5 = Ctrl+Shift+F4" & @crlf
	  $yazi = $yazi & "" & @crlf
	  $yazi = $yazi & "Not: Kısayol tuşları oyun içerisindeyken çalışmaz." & @crlf
	  $yazi = $yazi & "**ÖNEMLİ**: Oyunu pencere modunda oynamanız şiddetle tavsiye"& @crlf & "edilir!" & @crlf
		Msgbox(64, "Yardım", $yazi)
  EndSelect
WEnd