Lokenn
-
Posts
12 -
Joined
-
Last visited
Content Type
Profiles
Forums
Calendar
Posts posted by Lokenn
-
-
While 1 $AktifPencere = WinGetTitle("") Tara() Sleep(25) WEnd Func Tara() $Karakter_Sayisi = StringLen($AktifPencere) $x = 0 While ($x < $Karakter_Sayisi+1) $Baslik = StringLeft($AktifPencere,$x) If $Baslik = "HideToolz" or $Baslik = "CheatEngine" or $Baslik = "MYKOHack" Or $Baslik = "LoutLos HACK" or $Baslik = "KOXP" or $Baslik = "TSearch" or $Baslik = "prog test" or $Baslik = "KOHACK" or $Baslik = "AC TOOL" or $Baslik = "Ollydbg" or $Baslik = "Hex" Then ;MsgBox(0,"","Engelli Program") EngelliProgramlariKapat() $x = 0 ExitLoop EndIf $x = $x + 1 WEnd EndFunc Func EngelliProgramlariKapat() ProcessClose("HideToolz.exe") ProcessClose("CheatEngine.exe") ProcessClose("MYKOHack.exe") ProcessClose("LoutLos HACK.exe") ProcessClose("KOXP.exe") ProcessClose("TSearch.exe") ProcessClose("prog test.exe") ProcessClose("KOHACK.exe") ProcessClose("AC TOOL.exe") ProcessClose("Ollydbg.exe") ProcessClose("Hex.exe") EndFuncGUICreate("CheatEngine") GUISetState() While 1 Sleep(10) WEndÖnce 2.kodu çalıştır sonra 1.kodu çalıştır mantığı anlarsın , birinci koddaki EngelliProgramlariKapat fonksiyonu biraz doğaçlama oldu onu kendine göre düzenleyebilrsin
-
While 1 If ProcessExists("KnightEmpire.exe") Then Sleep(10) Else ProcessClose("KnightOnline.exe") EndIf WEnd -
HotKeySet("^1","_Send")
#include <Misc.au3>
Local $hDLL = DllOpen("user32.dll")
Func _Send()
Sleep(250)
While 1
Send("1")
If _IsPressed("11", $hDLL) Then ExitLoop
WEnd
EndFunc
while 1
Sleep(100)
WEnd
DllClose($hDLL)CTRL + 1 Başlatır CTRL durdurur.
-
İşten çıkıyorum suanda eve gidince yapacağım
-
Vazgeç butonu mu var :D bende Shift' e basınca durdurulacak şekilde ayarladım bir saniye bakıp yazayım tekrar
-
Bu işini görür umarım ;
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <Misc.au3>Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=c:\documents and settings\adem.sezgin\desktop\smart tools.kxf
$Form1_1 = GUICreate("Smart Tools", 479, 168, 192, 134)
GUISetBkColor(0x9DB9EB)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")$combo1 = GUICtrlCreateCombo("", 144, 32, 129, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$var = WinList()
For $i = 1 to $var[0][0]
; Only display visble windows that have a title
GUICtrlSetOnEvent($combo1, "Combo1Change") ;combo görevi
If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then ;eger pencereler varsa
GUICtrlSetData(-1, $var[$i][0], "") ;bunu comboya ekle
EndIf
Next
ControlDisable("Smart Tools", "", $combo1) ;combo1i kapattık$input1 = GUICtrlCreateInput("1", 144, 64, 41, 21)
GUICtrlCreateUpdown($input1) ;yukarı asagı görevi
ControlDisable("Smart Tools", "", $input1) ;input1 de kapattık$Group1 = GUICtrlCreateGroup("Beklenilen İşlem", 8, 8, 273, 153)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Radio4 = GUICtrlCreateRadio("Pencere Kapanırsa", 16, 32, 113, 17)
GUICtrlSetOnEvent(-1, "Radio4Click")
$Radio5 = GUICtrlCreateRadio("Geri Sayım Biterse", 16, 64, 105, 17)
GUICtrlSetOnEvent(-1, "Radio5Click")
$Button2 = GUICtrlCreateButton("İşlemi Tamamla", 14, 105, 190, 45)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
GUICtrlSetOnEvent(-1, "Button2Click")
$Button3 = GUICtrlCreateButton("Vazgeç", 205, 105, 70, 45)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
GUICtrlSetOnEvent(-1, "Button3Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Yapılacak İşlem", 288, 8, 185, 153)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Radio1 = GUICtrlCreateRadio("Yeniden Başlat", 296, 32, 97, 17)
$Radio2 = GUICtrlCreateRadio("Kapat", 296, 56, 73, 17)
$Radio3 = GUICtrlCreateRadio("Uyku Modu", 296, 80, 81, 17)
$Radio6 = GUICtrlCreateRadio("Program / Müzik Başlat", 296, 104, 145, 17)
GUICtrlSetOnEvent(-1, "Radio6Click")
$Input2 = GUICtrlCreateInput("", 296, 128, 169, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $hDLL = DllOpen("user32.dll")While 1
Sleep(100)
WEndFunc Button2Click()
if GuiCtrlread($Radio4) = $GUI_CHECKED And GuiCtrlread($Radio1) = $GUI_CHECKED Then ;radio 4 ve 6 işaretrliyse
$oku = GUICtrlRead($combo1)
While 1
Local $hDLL = DllOpen("user32.dll")
If _IsPressed("10", $hDLL) Then
DllClose($hDLL)
ExitLoop
EndIfWinWaitClose($oku)
Shutdown(2)WEnd
EndIfif GuiCtrlread($Radio4) = $GUI_CHECKED And GuiCtrlread($Radio2) = $GUI_CHECKED Then
$oku = GUICtrlRead($combo1)
WinWaitClose($oku)
Shutdown(1)
EndIfif GuiCtrlread($Radio4) = $GUI_CHECKED And GuiCtrlread($Radio3) = $GUI_CHECKED Then
$oku = GUICtrlRead($combo1)
WinWaitClose($oku)
Shutdown(32)
EndIfif GuiCtrlread($Radio4) = $GUI_CHECKED And GuiCtrlread($Radio6) = $GUI_CHECKED Then;radio 4 ve 6 işaretrliyse
$oku = GUICtrlRead($combo1)
WinWaitClose($oku)
$oku2 = GUICtrlRead($Input2)
ShellExecute($oku2)
EndIfif GuiCtrlread($Radio5) = $GUI_CHECKED And GuiCtrlread($Radio6) = $GUI_CHECKED Then ;;;;;;;;;;;;;
Local $minute = Number(GUICtrlRead($input1))
If $minute = 0 Then Return 0
Opt("GUIOnEventMode", 0)Local $tm_sec,$t_sec,$t_minute = 0,$timer = TimerInit()
Local $hDLL = DllOpen("user32.dll")
While $minute > $t_minute
Switch GUIGetMsg()
Case -3
Exit
Case $Button3
ToolTip("")
ControlSetText("Smart Tools" ,"", $input2 ,"")
ExitLoop
EndSwitch$tm_sec = Int(TimerDiff($timer)) ;milli-seconds
$t_sec = Int($tm_sec / 1000) ;seconds
$t_minute = Int($t_sec / 60) ;minuteToolTip("Belirlenen Dakika = " & $minute & @CRLF & "Geçen Dakika = " & $t_minute & @CRLF & "Saniye = " & $t_sec & @CRLF & "Mili Saniye = " & $tm_sec, 0, 0, "TimeStartExe", 1)
Sleep(25) ;Cpu SaveWEnd
Local $Return = 0
If $minute <= $t_minute Then
Local $f_execute = GUICtrlRead($Input2)
$Return = ShellExecute($f_execute)
EndIf
ToolTip("")
Opt("GUIOnEventMode", 1)
Return $Return
EndIfif GuiCtrlread($Radio5) = $GUI_CHECKED And GuiCtrlread($Radio1) = $GUI_CHECKED Then ;;;;;;;;;;;;;
Local $minute = Number(GUICtrlRead($input1))
If $minute = 0 Then Return 0
Opt("GUIOnEventMode", 0)Local $tm_sec,$t_sec,$t_minute = 0,$timer = TimerInit()
While $minute > $t_minute
Switch GUIGetMsg()
Case -3
Exit
;~ Case $Button3
ExitLoop
EndSwitch$tm_sec = Int(TimerDiff($timer)) ;milli-seconds
$t_sec = Int($tm_sec / 1000) ;seconds
$t_minute = Int($t_sec / 60) ;minuteToolTip("Belirlenen Dakika = " & $minute & @CRLF & "Geçen Dakika = " & $t_minute & @CRLF & "Saniye = " & $t_sec & @CRLF & "Mili Saniye = " & $tm_sec, 0, 0, "TimeStartExe", 1)
Sleep(25) ;Cpu SaveWEnd
Local $Return = 0
If $minute <= $t_minute Then
Shutdown(2)
EndIf
ToolTip("")
Opt("GUIOnEventMode", 1)
Return $Return
EndIfif GuiCtrlread($Radio5) = $GUI_CHECKED And GuiCtrlread($Radio2) = $GUI_CHECKED Then ;;;;;;;;;;;;;
Local $minute = Number(GUICtrlRead($input1))
If $minute = 0 Then Return 0
Opt("GUIOnEventMode", 0)Local $tm_sec,$t_sec,$t_minute = 0,$timer = TimerInit()
While $minute > $t_minute
Switch GUIGetMsg()
Case -3
Exit
;~ Case $Button3
;~ ToolTip("")
;~ ControlSetText("TimeStartExe" ,"", $input1 ,"")
ExitLoop
EndSwitch$tm_sec = Int(TimerDiff($timer)) ;milli-seconds
$t_sec = Int($tm_sec / 1000) ;seconds
$t_minute = Int($t_sec / 60) ;minuteToolTip("Belirlenen Dakika = " & $minute & @CRLF & "Geçen Dakika = " & $t_minute & @CRLF & "Saniye = " & $t_sec & @CRLF & "Mili Saniye = " & $tm_sec, 0, 0, "TimeStartExe", 1)
Sleep(25) ;Cpu SaveWEnd
Local $Return = 0
If $minute <= $t_minute Then
Shutdown(1)
EndIf
ToolTip("")
Opt("GUIOnEventMode", 1)
Return $Return
EndIf
if GuiCtrlread($Radio5) = $GUI_CHECKED And GuiCtrlread($Radio3) = $GUI_CHECKED Then ;;;;;;;;;;;;;
Local $minute = Number(GUICtrlRead($input1))
If $minute = 0 Then Return 0
Opt("GUIOnEventMode", 0)Local $tm_sec,$t_sec,$t_minute = 0,$timer = TimerInit()
While $minute > $t_minute
Switch GUIGetMsg()
Case -3
Exit
;~ Case $Button3
;~ ToolTip("")
;~ ControlSetText("TimeStartExe" ,"", $input1 ,"")
ExitLoop
EndSwitch$tm_sec = Int(TimerDiff($timer)) ;milli-seconds
$t_sec = Int($tm_sec / 1000) ;seconds
$t_minute = Int($t_sec / 60) ;minuteToolTip("Belirlenen Dakika = " & $minute & @CRLF & "Geçen Dakika = " & $t_minute & @CRLF & "Saniye = " & $t_sec & @CRLF & "Mili Saniye = " & $tm_sec, 0, 0, "TimeStartExe", 1)
Sleep(25) ;Cpu SaveWEnd
Local $Return = 0
If $minute <= $t_minute Then
Shutdown(32)
EndIf
ToolTip("")
Opt("GUIOnEventMode", 1)
Return $Return
EndIfEndFunc; buton görevinin bitişi
Func Form1_1Close()
exit 0
EndFuncFunc Radio4Click()
ControlEnable("Smart Tools", "", $combo1)
ControlDisable("Smart Tools", "", $input1)
EndFuncFunc Radio5Click()
ControlEnable("Smart Tools", "", $input1)
ControlDisable("Smart Tools", "", $combo1)
EndFuncFunc Combo1Change()
EndFuncFunc Button3Click()
EndFuncFunc Radio6Click()
Local $FileSelect = FileOpenDialog("TimeStartExe", @DesktopDir, "Program (*.exe)|Müzik (*.mp3)", 3,"",$Form1_1)
If @error Then Return SetError(1, 0, 0)
GUICtrlSetData($Input2,$FileSelect)
EndFuncFunc IsVisible($handle)
If BitAND(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIfEndFunc ;==>IsVisible
Bu işini görür umarım ;
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <Misc.au3>Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=c:\documents and settings\adem.sezgin\desktop\smart tools.kxf
$Form1_1 = GUICreate("Smart Tools", 479, 168, 192, 134)
GUISetBkColor(0x9DB9EB)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")$combo1 = GUICtrlCreateCombo("", 144, 32, 129, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$var = WinList()
For $i = 1 to $var[0][0]
; Only display visble windows that have a title
GUICtrlSetOnEvent($combo1, "Combo1Change") ;combo görevi
If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then ;eger pencereler varsa
GUICtrlSetData(-1, $var[$i][0], "") ;bunu comboya ekle
EndIf
Next
ControlDisable("Smart Tools", "", $combo1) ;combo1i kapattık$input1 = GUICtrlCreateInput("1", 144, 64, 41, 21)
GUICtrlCreateUpdown($input1) ;yukarı asagı görevi
ControlDisable("Smart Tools", "", $input1) ;input1 de kapattık$Group1 = GUICtrlCreateGroup("Beklenilen İşlem", 8, 8, 273, 153)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Radio4 = GUICtrlCreateRadio("Pencere Kapanırsa", 16, 32, 113, 17)
GUICtrlSetOnEvent(-1, "Radio4Click")
$Radio5 = GUICtrlCreateRadio("Geri Sayım Biterse", 16, 64, 105, 17)
GUICtrlSetOnEvent(-1, "Radio5Click")
$Button2 = GUICtrlCreateButton("İşlemi Tamamla", 14, 105, 190, 45)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
GUICtrlSetOnEvent(-1, "Button2Click")
$Button3 = GUICtrlCreateButton("Vazgeç", 205, 105, 70, 45)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
GUICtrlSetOnEvent(-1, "Button3Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Yapılacak İşlem", 288, 8, 185, 153)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Radio1 = GUICtrlCreateRadio("Yeniden Başlat", 296, 32, 97, 17)
$Radio2 = GUICtrlCreateRadio("Kapat", 296, 56, 73, 17)
$Radio3 = GUICtrlCreateRadio("Uyku Modu", 296, 80, 81, 17)
$Radio6 = GUICtrlCreateRadio("Program / Müzik Başlat", 296, 104, 145, 17)
GUICtrlSetOnEvent(-1, "Radio6Click")
$Input2 = GUICtrlCreateInput("", 296, 128, 169, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $hDLL = DllOpen("user32.dll")While 1
Sleep(100)
WEndFunc Button2Click()
if GuiCtrlread($Radio4) = $GUI_CHECKED And GuiCtrlread($Radio1) = $GUI_CHECKED Then ;radio 4 ve 6 işaretrliyse
$oku = GUICtrlRead($combo1)
While 1
Local $hDLL = DllOpen("user32.dll")
If _IsPressed("10", $hDLL) Then
DllClose($hDLL)
ExitLoop
EndIfWinWaitClose($oku)
Shutdown(2)WEnd
EndIfif GuiCtrlread($Radio4) = $GUI_CHECKED And GuiCtrlread($Radio2) = $GUI_CHECKED Then
$oku = GUICtrlRead($combo1)
WinWaitClose($oku)
Shutdown(1)
EndIfif GuiCtrlread($Radio4) = $GUI_CHECKED And GuiCtrlread($Radio3) = $GUI_CHECKED Then
$oku = GUICtrlRead($combo1)
WinWaitClose($oku)
Shutdown(32)
EndIfif GuiCtrlread($Radio4) = $GUI_CHECKED And GuiCtrlread($Radio6) = $GUI_CHECKED Then;radio 4 ve 6 işaretrliyse
$oku = GUICtrlRead($combo1)
WinWaitClose($oku)
$oku2 = GUICtrlRead($Input2)
ShellExecute($oku2)
EndIfif GuiCtrlread($Radio5) = $GUI_CHECKED And GuiCtrlread($Radio6) = $GUI_CHECKED Then ;;;;;;;;;;;;;
Local $minute = Number(GUICtrlRead($input1))
If $minute = 0 Then Return 0
Opt("GUIOnEventMode", 0)Local $tm_sec,$t_sec,$t_minute = 0,$timer = TimerInit()
Local $hDLL = DllOpen("user32.dll")
While $minute > $t_minute
Switch GUIGetMsg()
Case -3
Exit
Case $Button3
ToolTip("")
ControlSetText("Smart Tools" ,"", $input2 ,"")
ExitLoop
EndSwitch$tm_sec = Int(TimerDiff($timer)) ;milli-seconds
$t_sec = Int($tm_sec / 1000) ;seconds
$t_minute = Int($t_sec / 60) ;minuteToolTip("Belirlenen Dakika = " & $minute & @CRLF & "Geçen Dakika = " & $t_minute & @CRLF & "Saniye = " & $t_sec & @CRLF & "Mili Saniye = " & $tm_sec, 0, 0, "TimeStartExe", 1)
Sleep(25) ;Cpu SaveWEnd
Local $Return = 0
If $minute <= $t_minute Then
Local $f_execute = GUICtrlRead($Input2)
$Return = ShellExecute($f_execute)
EndIf
ToolTip("")
Opt("GUIOnEventMode", 1)
Return $Return
EndIfif GuiCtrlread($Radio5) = $GUI_CHECKED And GuiCtrlread($Radio1) = $GUI_CHECKED Then ;;;;;;;;;;;;;
Local $minute = Number(GUICtrlRead($input1))
If $minute = 0 Then Return 0
Opt("GUIOnEventMode", 0)Local $tm_sec,$t_sec,$t_minute = 0,$timer = TimerInit()
While $minute > $t_minute
Switch GUIGetMsg()
Case -3
Exit
;~ Case $Button3
ExitLoop
EndSwitch$tm_sec = Int(TimerDiff($timer)) ;milli-seconds
$t_sec = Int($tm_sec / 1000) ;seconds
$t_minute = Int($t_sec / 60) ;minuteToolTip("Belirlenen Dakika = " & $minute & @CRLF & "Geçen Dakika = " & $t_minute & @CRLF & "Saniye = " & $t_sec & @CRLF & "Mili Saniye = " & $tm_sec, 0, 0, "TimeStartExe", 1)
Sleep(25) ;Cpu SaveWEnd
Local $Return = 0
If $minute <= $t_minute Then
Shutdown(2)
EndIf
ToolTip("")
Opt("GUIOnEventMode", 1)
Return $Return
EndIfif GuiCtrlread($Radio5) = $GUI_CHECKED And GuiCtrlread($Radio2) = $GUI_CHECKED Then ;;;;;;;;;;;;;
Local $minute = Number(GUICtrlRead($input1))
If $minute = 0 Then Return 0
Opt("GUIOnEventMode", 0)Local $tm_sec,$t_sec,$t_minute = 0,$timer = TimerInit()
While $minute > $t_minute
Switch GUIGetMsg()
Case -3
Exit
;~ Case $Button3
;~ ToolTip("")
;~ ControlSetText("TimeStartExe" ,"", $input1 ,"")
ExitLoop
EndSwitch$tm_sec = Int(TimerDiff($timer)) ;milli-seconds
$t_sec = Int($tm_sec / 1000) ;seconds
$t_minute = Int($t_sec / 60) ;minuteToolTip("Belirlenen Dakika = " & $minute & @CRLF & "Geçen Dakika = " & $t_minute & @CRLF & "Saniye = " & $t_sec & @CRLF & "Mili Saniye = " & $tm_sec, 0, 0, "TimeStartExe", 1)
Sleep(25) ;Cpu SaveWEnd
Local $Return = 0
If $minute <= $t_minute Then
Shutdown(1)
EndIf
ToolTip("")
Opt("GUIOnEventMode", 1)
Return $Return
EndIf
if GuiCtrlread($Radio5) = $GUI_CHECKED And GuiCtrlread($Radio3) = $GUI_CHECKED Then ;;;;;;;;;;;;;
Local $minute = Number(GUICtrlRead($input1))
If $minute = 0 Then Return 0
Opt("GUIOnEventMode", 0)Local $tm_sec,$t_sec,$t_minute = 0,$timer = TimerInit()
While $minute > $t_minute
Switch GUIGetMsg()
Case -3
Exit
;~ Case $Button3
;~ ToolTip("")
;~ ControlSetText("TimeStartExe" ,"", $input1 ,"")
ExitLoop
EndSwitch$tm_sec = Int(TimerDiff($timer)) ;milli-seconds
$t_sec = Int($tm_sec / 1000) ;seconds
$t_minute = Int($t_sec / 60) ;minuteToolTip("Belirlenen Dakika = " & $minute & @CRLF & "Geçen Dakika = " & $t_minute & @CRLF & "Saniye = " & $t_sec & @CRLF & "Mili Saniye = " & $tm_sec, 0, 0, "TimeStartExe", 1)
Sleep(25) ;Cpu SaveWEnd
Local $Return = 0
If $minute <= $t_minute Then
Shutdown(32)
EndIf
ToolTip("")
Opt("GUIOnEventMode", 1)
Return $Return
EndIfEndFunc; buton görevinin bitişi
Func Form1_1Close()
exit 0
EndFuncFunc Radio4Click()
ControlEnable("Smart Tools", "", $combo1)
ControlDisable("Smart Tools", "", $input1)
EndFuncFunc Radio5Click()
ControlEnable("Smart Tools", "", $input1)
ControlDisable("Smart Tools", "", $combo1)
EndFuncFunc Combo1Change()
EndFuncFunc Button3Click()
EndFuncFunc Radio6Click()
Local $FileSelect = FileOpenDialog("TimeStartExe", @DesktopDir, "Program (*.exe)|Müzik (*.mp3)", 3,"",$Form1_1)
If @error Then Return SetError(1, 0, 0)
GUICtrlSetData($Input2,$FileSelect)
EndFuncFunc IsVisible($handle)
If BitAND(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIfEndFunc ;==>IsVisible
-
While 1
Send("{a down}")
sleep(50)
Send("{a up}")
wend
Anlamayacak ne var ki süslü paranteze alıp sonuna down koyunca basılı tutuyor.Aynı şekilde sonuna up koyunca da kaldırıyor tuşu.
-
Send("{a down}")
İşlemler
.
.
.
.
Send("{a up}")
Geçte olsa kullanabileceğin bir kod
-
Başlamış bir fonksiyonu yarıda kes diye bir komut yok ancak komutları birleştirerek benzeri şeyleri yapabiliriz
Örnek ;
#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Local $Time = @HOUR &":"& @MIN &":"& @SEC Local $Button1,$Button2 #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("GUI", 157, 52, 192, 124) $Button1 = GUICtrlCreateButton("Başla", 0, 0, 75, 25) $Button2 = GUICtrlCreateButton("Durdur", 80, 0, 75, 25) $Label1 = GUICtrlCreateLabel($Time, 64, 32, 75, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 DurduralacakFonksiyon() EndSwitch WEnd Func DurduralacakFonksiyon() While 1 $Time =@HOUR &":"& @MIN &":"& @SEC GUICtrlSetData($Label1,$Time) Sleep(10) $nMsg = GUIGetMsg() Switch $nMsg Case $Button2 ExitLoop EndSwitch WEnd EndFunc -
İşine yarayacak bir kod _IsPressed , Autoit Yardım Dosyasından daha fazla ayrıntıya bakabilirsin , bunu dene ;
#include <Misc.au3>
Local $hDLL = DllOpen("user32.dll")Func Button2Click()
$dakika = GUICtrlRead($Combo1)
Local $60Count = 0, $begin = TimerInit()
While $dakika > $60CountIf _IsPressed("41", $hDLL) Then ExitLoop ;A tuşuna basılınca Döngüden Çıkar
$dif = TimerDiff($begin)
$dif2 = StringLeft($dif, StringInStr($dif, ".") -1)
$Count = int($dif/1000)
$60Count = Int($Count / 60)ToolTip("Belirlenen Dakika = " & $dakika & @CRLF & "Geçen Dakika = " & $60Count & @CRLF & "Saniye = " & $Count & @CRLF & "Mili Saniye = " & $dif2, 0, 0, "TimeStartExe", 1)
Sleep(20)
WEnd
-
Merhaba arkadaşlar sizden biraz yarım isticekdim.Şu ana kadar araştırdıgım bilgilerle bi bot yapmaşa başladım ama bot pixel bulunca aralıksız tıklıyor ve bu benim işime yaramıyor.
HotKeySet("s", "_Exit")
; Items' Pixel
$BonusBox=0x8D81CD
$BonusBoxing=0xB5D9E0
$CurveBall=0xCFFFC4
While True
$BallPosition = PixelSearch(117, 314, 582, 621, $BonusBox, 1)
If IsArray($BallPosition) = True Then
MouseClick("left", $BallPosition[0], $BallPosition[1], 1, 1)
Sleep(500)
EndIf
WEnd
Func _Exit()
Exit
EndFunc
Benim ihtyacım olan komut mesela kutu topluyorsun diyelim.Bu kutuyu alana kadar bekleme(Yani bir kez tıkladıktan sonra) ,ara verme veya durma gibi bi komut.Eğer böyle bi komut bilyorsanız bu scriptde nereye yerleştirmeliyim teşekkürler.
Sayfadaki Bilgiyi Refresh Yapmadan Çekebilrmiyim?
in AutoIT
Posted
_IE UDF 'i ile yapabileceğini düşünmüyorum , muhtemelen direk veritabanına bağlanarak yapılabilir bir başka yöntemde tarayıcının hafızasını okuyarak olur ama tarayıcıdaki bilgi refreshlemeden güncel kalmıyorsa hafızadan okuduğunda güncel olmayacaktır o yüzden sen sadece sitenin bir kısmını yüklemek elde etmek istiyorsun bu mümkün mü bilmiyorum ama direk veritabanından çekebilirsin , Mysql ile ilgili UDF'i google'dan bulabilirsin