#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