Jump to content

JuSt3e

Üye
 View Profile  See their activity

  • Posts

    21

  • Joined

  • Last visited

 Content Type 

Posts posted by JuSt3e

    Otomatik Mouse Tıklama, Oto Tuş Basma

    in AutoIT

    Posted

    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.

    Otomatik Mouse Tıklama, Oto Tuş Basma

    in AutoIT

    Posted

    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

    Otomatik Mouse Tıklama, Oto Tuş Basma

    in AutoIT

    Posted

    örnek
    pre_1370787850__isimsiz0.png

     defalarca söyledim örnek koda baktınızmı diye ama lakin

    anlamamada sıkıntı yaşıyorsunuz.

    http://www.tnctr.com/topic/222622-otomatik-mouse-tyklama-oto-tuth-basma/?p=1322991

    send ve HotKeySet
    olarak help dosyasına baksanıız
     
    kodu tekrar  hazırladğınız kodun son  halini neden paylaşmadınız sadece resim koydunuz
    gerekeni siz yapın
    full editletmek yerine ne nasıl kullanıldığını bir öğrenseniz
    helpte hepsi yazıyor zaten :)

     

    İ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.

    Otomatik Mouse Tıklama, Oto Tuş Basma

    in AutoIT

    Posted · Edited by JuSt3e

     

    arkadaşım ben kodu verdim ve çalışıyor denedinizmi?

    http://www.tnctr.com/topic/222622-otomatik-mouse-tyklama-oto-tuth-basma/?p=1322991

     

    Ç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.

     

    nybdq.png

     

    Resim belki açıklayıcı olur diye koymak istedim :)

    Otomatik Mouse Tıklama, Oto Tuş Basma

    in AutoIT

    Posted · Edited by JuSt3e 

    #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.

    Otomatik Mouse Tıklama, Oto Tuş Basma

    in AutoIT

    Posted

     

     

    başlat durdur

    help dosyasında mevcut bence

    HotKeySet("{F6}", "_basla")
HotKeySet("{F9}", "_dur")
func _dur()
AdlibUnRegister("_StartTick")
endfunc


Func _basla()
  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
 endfunc

     

    Şimdi ben bu kodu nereye yapıştırayım ? Nereleri düzenlemem gerekiyor ?

    Otomatik Mouse Tıklama, Oto Tuş Basma

    in AutoIT

    Posted 

    #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.

    Otomatik Mouse Tıklama, Oto Tuş Basma

    in AutoIT

    Posted 

    #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.

     

     

    Ö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 :)

    Otomatik Mouse Tıklama, Oto Tuş Basma

    in AutoIT

    Posted

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

     

    Şö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.

    Otomatik Mouse Tıklama, Oto Tuş Basma

    in AutoIT

    Posted

    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.

    Alan Renkleri, Png Yapma, Kaydırma Çubuğu (Yardım)

    in AutoIT

    Posted · Edited by JuSt3e

    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.

     

    nn93w.png

     

    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
×
×
  • Create New...