JuSt3e
Üye-
Posts
21 -
Joined
-
Last visited
Content Type
Profiles
Forums
Calendar
Everything posted by JuSt3e
-
Merhabalar, Yapılan bir programda exe haline getirdiğimiz zaman nasıl programın telif hakkı, açıklama gibi bilgilerini gireriz ?
-
Ben burada hazır program kapma peşinde değilim. Sen bana örnek atıyorsun ama içerisindeki kodların ne işlevi olduğunu söylesen anlarım. HTML'de örneğin <center> gibi komutun yazığı ortaladığı gibi içindeki komutların neyi çalıştırdığını hangi görevi yaptığınıda eklersen çözülür. Ama sen sadece ortaya bir örnek atıyorsun al kurcala diyorsun.
-
"ENTER" basınca donuyor program :) Durdurmaya çalışıyorum yine donuyor :D
-
Oto Mouse Kodu #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.1 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Misc.au3> HotKeySet("{F6}", "_basla") HotKeySet("{F9}", "_dur") #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("AutoTick", 372, 146, -1, -1) $Button1 = GUICtrlCreateButton("Koordinat Bul", 8, 8, 107, 21) $Input1 = GUICtrlCreateInput("", 9, 40, 106, 21) $Input2 = GUICtrlCreateInput("", 138, 24, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) $Graphic1 = GUICtrlCreateGraphic(8, 72, 361, 1) GUICtrlSetColor(-1, 0x004000) $Label1 = GUICtrlCreateLabel("Salise", 186, 28, 60, 17) $Combo1 = GUICtrlCreateCombo("", 248, 24, 81, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "1. Sol (Tek)|2. Sol (Çift)|3. Sağ") $Label2 = GUICtrlCreateLabel("Komut", 336, 28, 56, 17) $Button2 = GUICtrlCreateButton("F6 (Başla)", 8, 80, 75, 25) $Button3 = GUICtrlCreateButton("F9 (Durdur)", 88, 80, 75, 25) $ButtonEnter = GUICtrlCreateButton("F4 (ENTER)", 168, 80, 75, 25) $Label3 = GUICtrlCreateLabel("Coder: 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 _basla() case $Button3 _dur() EndSwitch WEnd Func _CoorToMake() While _IsPressed("01") <> 1 Sleep(5) ToolTip("Koordinatını almak istediğiniz alanın üstüne" & @CRLF & "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 func _dur() AdlibUnRegister("_StartTick") endfunc Func _basla() If Not IsArray($Coor) Or _ GUICtrlRead($Input2) = "" Or _ GUICtrlRead($Combo1) = "" Then MsgBox(0, "Eksik görünen birşey var!", "Gerekli yerleri doldurduğunuza emin olun", $Form1) Else $TickStyle = Number(StringLeft(GUICtrlRead($Combo1), 1)) AdlibRegister("_StartTick", Number(GUICtrlRead($Input2)) * 1) EndIf endfunc Oto tuş kodu ; Press Esc to terminate script Global $UnPaused HotKeySet("{F5}", "TogglePause") HotKeySet("{ESC}", "Terminate") While 1 Sleep(100) ToolTip("Uygulamayı başlatıp veya durdurmak için F5 tuşunu kullanın. Çıkış yapmak için ESC tuşuna basın!",0,0) WEnd Func TogglePause() $UnPaused = NOT $UnPaused While $UnPaused ToolTip("Çalışıyor...",0,0) Send("{ENTER}") WEnd EndFunc Func Terminate() Exit 0 EndFunc
-
İncelemediğimimi zannediyorsunuz ? Diyorum ki size zaten ENTER komutuna kadar kodları buldum kodlarda ekleme yapınca program donuyor. Sen bana örnek kod gösteriyorsun ama birşey anlamıyorum diyorum sizde bu konuda anlamamakta sıkıntı yaşıyorsunuz sanırım.
-
Çalışıyor sizede teşekkür etmiştim :=) Tekrar yine saolun :) Oto tuş basma komutunu yapmaya çalışıyorum. Gereken kodları buldum fakat sizin vermiş olduğunuz kodlara ekleyince çalışmıyor sanırım bir yerde hata yapıyor olmalıyım :) Aynı programın içinde oto tuş basmayıda yapabilirsem çok daha güzel olacak F6 ve F9 ile oto tıklama oluyorsa örneğin; F5 ile "ENTER" tuşuna otomatik basmayı aktifleştirmeyi çalışıyorum fakat birtürlü yapamadım. Resim belki açıklayıcı olur diye koymak istedim :)
-
#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.1 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here Global $UnPaused HotKeySet("{F8}", "TogglePause") While 1 Sleep(100) ToolTip("ENTER tuşuna otomatik basmayı başlatmak için F8 tuşuna basın.",0,0) WEnd Func TogglePause() $UnPaused = NOT $UnPaused While $UnPaused ToolTip("ENTER tuşuna otomatik basmayı durdurmak için F8 tuşuna basın.",0,0) Send("{ENTER}") WEnd EndFunc Oto tuş basma komutunuda buldum. Bu kodları nereye koyarsam koyayım hata veriyor.
-
Çok teşekkür ediyorum. Komutların ne anlama geldiğini öğrenebilirsem inanın çok sarılacağım AutoIT'e
-
Şimdi ben bu kodu nereye yapıştırayım ? Nereleri düzenlemem gerekiyor ?
-
İnceledim burayı daha önce pek birşey anlamadım.
-
#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.1 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #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", 372, 146, -1, -1) $Button1 = GUICtrlCreateButton("Koordinat Bul", 8, 8, 107, 21) $Input1 = GUICtrlCreateInput("", 9, 40, 106, 21) $Input2 = GUICtrlCreateInput("", 138, 24, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) $Graphic1 = GUICtrlCreateGraphic(8, 72, 361, 1) GUICtrlSetColor(-1, 0x004000) $Label1 = GUICtrlCreateLabel("Salise", 186, 28, 60, 17) $Combo1 = GUICtrlCreateCombo("", 248, 24, 81, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "1. Sol (Tek)|2. Sol (Çift)|3. Sağ") $Label2 = GUICtrlCreateLabel("Komut", 336, 28, 56, 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)) * 1) EndIf case $Button3 AdlibUnRegister("_StartTick") EndSwitch WEnd Func _CoorToMake() While _IsPressed("01") <> 1 Sleep(5) ToolTip("Koordinatını almak istediğiniz alanın üstüne" & @CRLF & "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 asmazh arkadaşımızın yapmış olduğu kodda klavye ile durdurma, başlatma komutunu gösterebilcek var mı ? Örneğin; Butonlara tıklayarak değilde F6-F9 gibi tuşlara tıklarak durdurulup, başlatılmasını istiyorum.
-
Bende diyorum seyli birşey varmıydı :)
-
Salise olayı tamamdır :) HotKeySey bulmaya çalışıyorum :))
-
Öncelikle çok teşekkür ederim. Saniyede tıklama değilde, nasıl salise ayarına alabiliriz ? Klavyeden kontrol nasıl sağlarız. Mesela F7 bastığım zaman başlayacak F9 bastığım zaman duracak :)
-
Ben bundan pek nasıl bir yol alacağımı anlayamadım :)
-
Şöyle anlatayım; Murgee'nin oto mouse tıklamalı programı var. Mouse ile bir öğenin üstüne geldiğimiz zaman koordinatını alıyor. Koordinatını aldığımız yere 1 saniye veya 1dk gibi süre girerek otomatik tıklıyor. Benim istediğimde o şekilde bir küçük basit program yapmak, mouse ile bir öğenin üstüne gelince o yerin koordinatını alıp bunun otomatik tıklamasını istiyorum. Bende bu işlemleri tek program altında yapmak istiyorum :) Hala anlatamadıysam video koyabilirim.
-
Merhaba Arkadaşlar, Murgee Auto Click gibi mouse ile tıklanacak yerin koordinatını alıp o koordinata tıklamasını nasıl sağlarız ? Hem oto tıklama işini yapıp hemde otomatik tuşa basmasını istiyorum. Forum'da oto tuş basma ile anlatımları gördüm tuş basma işi tamam fakat mouse işini çözemedim. Yardımcı olursanız sevinirim.
-
Yardımlarınız için çok teşekkür ediyorum. Kodları şuanda anlamaya çalışıyorum :)
-
Kaydırma çubuğunu hallettim. Geri kalanına yardımlarınızı bekliyorum.
-
Merhaba Arkadaşlar, Forum'da (scrollbar) kaydırma çubuğu kaldırma konularını gözden geçirdim fakat yapamadım. Daha AutoIT programında yeniyim. Hangi kodların ne anlama geldiğini tam olarak bilmiyorum. Sizden ricam 3 sorunumu çözmeniz veya öğretici bir şekilde yardımcı olmanızdır. Bu resimde belirli yerleri renkli alanlara aldım. Kırmızı alandaki butonlar JPEG formatındadır. Ben bunları PNG olarak yapmak istiyorum. Filezilla'dan dosyaları atıyorum gerekli yerleri PNG uzantılı yapıyorum fakat programı açınca kendiliğinden kapanıyor. Yeşil alandaki metin kısmının arka plan rengi gri ben bu renk ile nasıl oynayabilirim ? Mavi alandaki kaydırma çubuğunu kaldırmak istiyorum. Forumdaki konuları gözden geçirerek bunu denedim fakat alan kayboluyor. #NoTrayIcon #RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=PatchIco.ico #AutoIt3Wrapper_Res_Comment=Mega Game Auto Patcher #AutoIt3Wrapper_Res_Description=Mega Game Auto Patcher #AutoIt3Wrapper_Res_LegalCopyright=Mega Game Auto Patcher #AutoIt3Wrapper_Res_Language=1031 #AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator #AutoIt3Wrapper_Add_Constants=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <EditConstants.au3> #include <GUIConstants.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIListBox.au3> #include <GuiEdit.au3> #include <ProgressConstants.au3> #include <IE.au3> $IP = "yaz.zz.mu/22" Func _FileCountLines($SFILEPATH) Local $HFILE = FileOpen($SFILEPATH, 0) If $HFILE = -1 Then Return SetError(1, 0, 0) Local $SFILECONTENT = StringStripWS(FileRead($HFILE), 2) FileClose($HFILE) Local $ATMP If StringInStr($SFILECONTENT, @LF) Then $ATMP = StringSplit(StringStripCR($SFILECONTENT), @LF) ElseIf StringInStr($SFILECONTENT, @CR) Then $ATMP = StringSplit($SFILECONTENT, @CR) Else If StringLen($SFILECONTENT) Then Return 1 Else Return SetError(2, 0, 0) EndIf EndIf Return $ATMP[0] EndFunc DirCreate(@Scriptdir & "\patchskin") InetGet("http://" & $IP & "/patchskin/background.jpg", "patchskin/background.jpg", 1, 0) InetGet("http://" & $IP & "/patchskin/start.jpg", "patchskin/start.jpg", 1, 0) InetGet("http://" & $IP & "/patchskin/settings.jpg", "patchskin/settings.jpg", 1, 0) InetGet("http://" & $IP & "/patchskin/exit.jpg", "patchskin/exit.jpg", 1, 0) $FILE = @TempDir & "/packlist.txt" If FileExists($FILE) Then FileDelete($FILE) EndIf InetGet("http://" & $IP &"/packlist.txt", $FILE) $LINES = _FileCountLines($FILE) If $LINES = 0 Then MsgBox(48, "UYARI", "Üzgünüm, sunucuya bağlanılamıyor!") Exit EndIf sleep(1000) $MainWindow = GUICreate("Mega Game", 580, 400, 424, 433) ;$EDIT = GUICtrlCreateEdit("", 8, 16, 425, 241) $URL = "http://" & $IP & "/anasayfa.htm" $OIE = _IECreateEmbedded() $OIE_CTRL = GUICtrlCreateObj($OIE, 8, 6, 425, 241) GUISetState(@SW_SHOW) _IENavigate($OIE, $URL) $Statedisp = GUICtrlCreateEdit("", 8, 264, 425, 105) $ProgressBar = GUICtrlCreateProgress(8, 376, 425, 18) $Sizedisp = GUICtrlCreateLabel("", 448, 352, 124, 17) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Percentdisp = GUICtrlCreateLabel("", 448, 376, 124, 17) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Startgame = GUICtrlCreatePic(@Scriptdir & "\patchskin\start.jpg", 448, 6, 123, 36, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Settings = GUICtrlCreatePic(@Scriptdir & "\patchskin\settings.jpg", 448, 56, 123, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Exit = GUICtrlCreatePic(@Scriptdir & "\patchskin\exit.jpg", 448, 320, 123, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) $Background = GUICtrlCreatePic(@Scriptdir & "\patchskin\background.jpg", 0, 0, 593, 400, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### sleep(1000) _GUICtrlEdit_SetText($Statedisp, "Merhaba, Hoşgeldin : )" & @CRLF & @CRLF & _GUICtrlEdit_GetText($Statedisp)) sleep(2000) # PATCHVORGANG - Start ####################################################################################################################### While ($LINES >= 1) $DATEI = FileReadLine($FILE, $LINES) GUICtrlSetData($ProgressBar, 0) _GUICtrlEdit_SetText($Statedisp, "Kontrol Ediliyor: " & $DATEI & @CRLF & _GUICtrlEdit_GetText($Statedisp)) $OSIZE = InetGetSize("http://" & $IP & "/" & $DATEI) $LSIZE = FileGetSize($DATEI) If $OSIZE = $LSIZE Then _GUICtrlEdit_SetText($Statedisp, $DATEI & " - Tamamlanmıştır." & @CRLF & _GUICtrlEdit_GetText($Statedisp)) GUICtrlSetData($ProgressBar, 100) Else If $OSIZE = 0 Then MsgBox(48, "404", "Sunucu Kapalı veya Dosyalar Bulunamıyor" & @CRLF & "Yönetici ile iletişime geçin" & @CRLF & @CRLF &"Daha sonra tekrar deneyin") Exit EndIf If FILEEXISTS($DATEI) Then FILEDELETE($DATEI) Endif _GUICtrlEdit_SetText($Statedisp, "İndiriliyor: " & $DATEI & " " & Round($OSIZE/1048576, 2) & " MB" & @CRLF & _GUICtrlEdit_GetText($Statedisp)) $size_inet = InetGetSize("http://" & $IP & "/" & $DATEI) $hDownload = InetGet("http://" & $IP & "/" & $DATEI, $DATEI, 1, 1) $iPercent = "0" while ($iPercent < 100) Local $aData = InetGetInfo($hDownload) $iPercent = round ( $aData[0] / $size_inet * 100) GUICtrlSetData($ProgressBar, $iPercent) GUICtrlSetData($Sizedisp, round($aData[0]/1048576, 2) & " > " & round($size_inet/1048576, 2) & "MB") GUICtrlSetData($Percentdisp, $iPercent & "%") sleep(1000) WEnd EndIf sleep(50) $LINES = $LINES - 1 GUICtrlSetData($ProgressBar, 100) WEnd ####################################################################################################################### GUICtrlSetData($ProgressBar, 100) sleep(50) # PATCHVORGANG - Ende #ENDMSG BEGIN _GUICtrlEdit_SetText($Statedisp, "İndirme İşleminiz Başarıyla Gerçekleştirildi!" & @CRLF & @CRLF & _GUICtrlEdit_GetText($Statedisp)) #ENDMSG END While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Exit Exit Case $Startgame Run("MG - Yüklenenler/ugur.exe") Exit EndSwitch WEnd