asmazh

Güncel bir NORTON. Başka bir şey değil.

HotKeySey demişim, Allahım ya... HotKeySet kardeşim, kusuruma bakma.

Salise yapabilmen için AdlibRegister komutunun "time" parametresine inputtan gelen verinin 100 ile çarpımını gönder. Klavyeden kontrol için ise HotKeySey komutunu incele.

#include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Misc.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("AutoTick", 378, 146, -1, -1) $Button1 = GUICtrlCreateButton("Koordinat belirle", 8, 8, 107, 21) $Input1 = GUICtrlCreateInput("", 9, 40, 106, 21) $Input2 = GUICtrlCreateInput("", 128, 24, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) $Graphic1 = GUICtrlCreateGraphic(8, 72, 361, 1) GUICtrlSetColor(-1, 0x004000) $Label1 = GUICtrlCreateLabel("saniyede bir", 176, 28, 60, 17) $Combo1 = GUICtrlCreateCombo("", 248, 24, 73, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "1) Sol (Tek)|2) Sol (Çift)|3) Sağ") $Label2 = GUICtrlCreateLabel("tıkla.", 336, 28, 26, 17) $Button2 = GUICtrlCreateButton("Başla", 8, 80, 75, 25) $Button3 = GUICtrlCreateButton("Dur", 88, 80, 75, 25) $Label3 = GUICtrlCreateLabel("Basit bir örnektir. Çeşitlendirilebilir. AsmazH", 8, 120, 203, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $Coor, $TickStyle While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 GUICtrlSetState($Button1, $GUI_DISABLE) _CoorToMake() GUICtrlSetData($Input1, $Coor[0] & ";" & $Coor[1]) GUICtrlSetState($Button1, $GUI_ENABLE) If Not WinActive($Form1, "") Then WinActivate($Form1, "") Case $Button2 If Not IsArray($Coor) Or _ GUICtrlRead($Input2) = "" Or _ GUICtrlRead($Combo1) = "" Then MsgBox(0, "", "kardeş önce gerekli ayarları gir. yok öyle 3 kuruşa 5 köfte. (ne alakaysa :))", $Form1) Else $TickStyle = Number(StringLeft(GUICtrlRead($Combo1), 1)) AdlibRegister("_StartTick", Number(GUICtrlRead($Input2)) * 1000) EndIf case $Button3 AdlibUnRegister("_StartTick") EndSwitch WEnd Func _CoorToMake() While _IsPressed("01") <> 1 Sleep(5) ToolTip("Belirtmek istediğiniz koordinatın üstüne gidin" & @CRLF & "ve fare ile sol tıklayın.") WEnd ToolTip("") $Coor = MouseGetPos() EndFunc Func _StartTick() If $TickStyle = 1 Then MouseClick("left", $Coor[0], $Coor[1], 1, 0) ElseIf $TickStyle = 2 Then MouseClick("left", $Coor[0], $Coor[1], 2, 0) Else MouseClick("right", $Coor[0], $Coor[1], 1, 0) EndIf EndFunc Aha da böyle bir şey karaladım. İstediğin gibi bir şey yapman dileğiyle.

Ne yapmak istediğini tam olarak anlamadım. Biraz daha açımla ki sana yardım edebileyim.

Kaynak kodlarında ilk sorununu göremedim. (Kırmızı) İkinci sorununu ise GUICtrlSetBkColor ile halledebilirsin. (Yeşil)

Demek istediğim bu değil. Direkt link, yani tarayıcının arama kısmına yapıştırıp "enter"lediğimde direk indirme işlemi başlayacak. İndirme butonuna falan basmayacağım. Yani sunucudaki dosyanın uzantısını direk versin istiyorum :) Yine de teşekkür ederim.

Çok güzel bir hizmet de ben oraya yüklediğim dosyaların direkt linkini alamadım bir türlü :) Eğer direkt link de verse süper ötesi bir şey.

bkz: Recuva.

:) Kopyala yapıştırlık bir şey değil ki. DLL'yi import edip fonksiyonları çağıracaksın.

Yapabilirsin. bkz: AutoItX.dll