Jump to content

x_files_x

Üye
 View Profile  See their activity

  • Posts

    503

  • Joined

  • Last visited

 Content Type 

Posts posted by x_files_x

    Vazgeç Buton Ile Çalışmayı Iptal Et?

    in AutoIT

    Posted

    Mrb arkadaşlar üzerinde çalıştıgım bir program var herşeyi tamamladım tam bitti dedigim anda bişilerin ters oldugunu anladım, ben işlemi tamamla diyip görevi başlattıgım anda vazgeç butonuna basıyom ama işlkem durmuyor, yani başlattıgım fonksiyonu durruran bir buton lazım, Geri sayım icin yaptım ama digerleri icin calısmıyor, örnegi vereyim ne kolayı öyle anlatmıs olurum

    #include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.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)
WEnd

Func Button2Click()

	if GuiCtrlread($Radio4) = $GUI_CHECKED And GuiCtrlread($Radio1)  = $GUI_CHECKED Then ;radio 4 ve 6 işaretrliyse
		$oku = GUICtrlRead($combo1)
		WinWaitClose($oku)
		Shutdown(2)
	EndIf

		if GuiCtrlread($Radio4) = $GUI_CHECKED And GuiCtrlread($Radio2)  = $GUI_CHECKED Then
		$oku = GUICtrlRead($combo1)
		WinWaitClose($oku)
		Shutdown(1)
	EndIf

		if GuiCtrlread($Radio4) = $GUI_CHECKED And GuiCtrlread($Radio3)  = $GUI_CHECKED Then
		$oku = GUICtrlRead($combo1)
		WinWaitClose($oku)
		Shutdown(32)
	EndIf

		if 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)
EndIf


			if 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()
    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) ;minute

ToolTip("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 Save

WEnd

Local $Return = 0
If $minute <= $t_minute Then
Local $f_execute = GUICtrlRead($Input2)
$Return = ShellExecute($f_execute)
EndIf
ToolTip("")
Opt("GUIOnEventMode", 1)
Return $Return
	EndIf


				if 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) ;minute

ToolTip("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 Save

WEnd

Local $Return = 0
If $minute <= $t_minute Then
Shutdown(2)
EndIf
ToolTip("")
Opt("GUIOnEventMode", 1)
Return $Return
	EndIf

					if 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) ;minute

ToolTip("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 Save

WEnd

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) ;minute

ToolTip("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 Save

WEnd

Local $Return = 0
If $minute <= $t_minute Then
Shutdown(32)
EndIf
ToolTip("")
Opt("GUIOnEventMode", 1)
Return $Return
	EndIf

EndFunc; buton görevinin bitişi

Func Form1_1Close()
exit 0
EndFunc

Func Radio4Click()
ControlEnable("Smart Tools", "", $combo1)
ControlDisable("Smart Tools", "", $input1)
EndFunc

Func Radio5Click()
ControlEnable("Smart Tools", "", $input1)
ControlDisable("Smart Tools", "", $combo1)
EndFunc

Func Combo1Change()
EndFunc

Func Button3Click()
	EndFunc


Func 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)
EndFunc

Func IsVisible($handle)
    If BitAND(WinGetState($handle), 2) Then
        Return 1
    Else
        Return 0
    EndIf

EndFunc   ;==>IsVisible

    Fonksiyona Diğer Fonksiyonu Durduma Görevi Vermek?

    in AutoIT

    Posted · Edited by x_files_x

    Hocam verdiginiz örnekte 1 dakika deyince 30 saniyede işlem bitiyor, 2 dakika diyincede 90 saniyede, acaba hata nerdedir?

        #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    Opt("GUIOnEventMode", 1)
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("TimeStartExe", 230, 136, 192, 124)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
    $Input1 = GUICtrlCreateInput("", 16, 24, 136, 21)
    $Button1 = GUICtrlCreateButton("Program Seç", 165, 16, 40, 40, $BS_ICON)
	GUICtrlSetState(-1, $GUI_FOCUS) ; the focus is on this button

	GUICtrlSetImage(-1, "shell32.dll", 46)
    GUICtrlSetOnEvent($Button1, "Button1Click")
    $Input2 = GUICtrlCreateInput("1", 16, 88, 57, 25, 0x2000)
    GUICtrlCreateUpdown($Input2)

    $Group1 = GUICtrlCreateGroup("Dakika", 8, 70, 72, 55)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup(" Tercih Ettiğiniz Proğram", 8, 5, 213, 57)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Button2 = GUICtrlCreateButton("Çalıştır", 86, 80, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 22)
    GUICtrlSetOnEvent($Button2, "Button2Click")
    $Button3 = GUICtrlCreateButton("Vazgeç", 131, 80, 40, 40, $BS_ICON)
	GUICtrlSetImage(-1, "shell32.dll", 28)
    GUICtrlSetOnEvent($Button3, "Button3Click")
	$label = GUICtrlCreateLabel(" Adem Sezgin", 178, 87, 57, 40)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

    While 1
    Sleep(100)
    WEnd

    Func Button1Click()
    Local $FileSelect = FileOpenDialog("TimeStartExe", @DesktopDir, "Proğram (*.exe)|Müzik (*.mp3)", 3,"",$Form1)
    If @error Then Return SetError(1, 0, 0)
    GUICtrlSetData($Input1,$FileSelect)
    EndFunc ;==>Button1Click

    Func Button2Click()
    Local $minute = Number(GUICtrlRead($Input2))
    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 = Round(TimerDiff($timer)) ;milli-seconds
$t_sec = Round($tm_sec / 1000) ;seconds
$t_minute = Round($t_sec / 60) ;minute

ToolTip("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 Save

WEnd

Local $Return = 0
If $minute <= $t_minute Then
Local $f_execute = StringStripWS(GUICtrlRead($Input1),3)
$Return = ShellExecute($f_execute)
EndIf
ToolTip("")
Opt("GUIOnEventMode", 1)
Return $Return
EndFunc ;==>Button2Click

    Func Button3Click()
    EndFunc ;==>Button3Click

    Func Form1Close()
    Exit 0
    EndFunc ;==>Form1Close

    Fonksiyona Diğer Fonksiyonu Durduma Görevi Vermek?

    in AutoIT

    Posted

    Mrb arkadaşlar elimde bi script vardı dakika belirliyorsun ve o belirledigin dakika bitince diledigin bir program otomatik acılıyordu, bende buna bir arayüz uyduruyum dedim, mantık sadece kendimi geliştirmek, ancak herseyi yaptım çalıştır dedigim zaman program saniyeleri sayarken ben iptal edemiyorum yada programı tamaman kapatamıyorum calısmıyor, bir yerde yanlıslık yaptım bir bakarmısınız rica etsem, basit ama ben eksik bilgilere sahibim

    #include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("TimeStartExe", 247, 136, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Input1 = GUICtrlCreateInput("", 16, 24, 121, 21)
$Button1 = GUICtrlCreateButton("Proğram Seç", 144, 24, 75, 25)
GUICtrlSetOnEvent($Button1, "Button1Click")
$Combo1 = GUICtrlCreateCombo("", 16, 88, 57, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Group1 = GUICtrlCreateGroup("Dakika", 8, 70, 72, 50)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("  Tercih Ettiğiniz Proğram", 8, 5, 225, 57)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button2 = GUICtrlCreateButton("Çalıştır", 88, 84, 90, 33)
GUICtrlSetOnEvent($Button2, "Button2Click")
$Button3 = GUICtrlCreateButton("Vazgeç", 185, 84, 50, 33)
GUICtrlSetOnEvent($Button3, "Button3Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	Sleep(100)
WEnd



Func Button1Click()
	$message = "TimeStartExe"
	$var = FileOpenDialog($message, @DesktopDir & "", "Proğram (*.exe)|Müzik (*.mp3)", 1 + 4 )
    $var = StringReplace($var, "|", @CRLF)
	ControlSetText("TimeStartExe", "", $Input1 ,$var)
EndFunc

Func Button2Click()
	$dakika = GUICtrlRead($Combo1)
    Local $60Count = 0, $begin = TimerInit()
While $dakika > $60Count

    $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
$var = GUICtrlRead($Input1)
ShellExecute($var)
EndFunc

Func Button3Click()
;scripti durduracak kod ??
EndFunc

Func Form1Close()
Exit 0 ;scripti kapatacak kod
EndFunc

    İnputa Veri Girerek Listboxtaki Verileri Bulmak ?

    in AutoIT

    Posted

    Böyle bişi yaptım, yardım ettigin için tşk ederim :)

        #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    $Form1_1 = GUICreate("  .:|:. Müşteri Kayıt .:|:.", 406, 335, 238, 159)
    GUISetBkColor(0x9DB9EB)
    $Group1 = GUICtrlCreateGroup("Kayıt", 8, 8, 294, 65)
    $cInput = GUICtrlCreateInput("", 92, 30, 195, 21)
    $Label1 = GUICtrlCreateLabel("Adı ve Soyadı:", 16, 32, 72, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("", 312, 8, 81, 65)
    $Button1 = GUICtrlCreateButton("Ekle", 325, 25, 55, 17)
    $Button2 = GUICtrlCreateButton("Sil", 325, 45, 55, 17)
	$Button3 = GUICtrlCreateButton("Resetle", 325, 88, 55, 17)

    GUICtrlCreateGroup("", -99, -99, 1, 1)

    $cList = GUICtrlCreateList("", 8, 88, 297, 240) ;liste kutusu olusturuyoruz------
	$Dosya = @AppDataDir & "\kisiler.ini"
    GuiCtrlSetData(-1, IniRead($Dosya, "kullanıcılar", "adlar", ""));----------------

    GUISetState(@SW_SHOW)
	$cCheck_Dummy = GUICtrlCreateDummy() ; eklenecek-----------

;~ _Fill_List()

GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND") ;eklenecek -------------

Func _ReadcList() ;bu eklenecek-------------------------------------------
    Local $iCnt = _GUICtrlListBox_GetCount($cList)
    Local $sMsg = ""
    For $n = 0 To $iCnt - 1
    $sMsg &= _GUICtrlListBox_GetText($cList, $n) & "|"
    Next
    Return $sMsg
EndFunc



    While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $cList;-------------------------------- eklenecek-----------
            $sChosen = GUICtrlRead($cList)
            If $sChosen <> "" Then
                GUICtrlSetData($cInput, $sChosen)
            EndIf
        Case $cCheck_Dummy
            $sText = GUICtrlRead($cInput)
            $iIndex = _GUICtrlListBox_FindString($cList, $sText)
            If $iIndex <> -1 Then
                _GUICtrlListBox_SetCurSel($cList, $iIndex)
            Else
                _GUICtrlListBox_SetCurSel($cList, -1)
            EndIf; eklenecek -------------------------------------------

Case $Button1 ;ekle butonu icin görevvvvvv--------------
	$Dosya = $Dosya
    If Not StringInStr(IniRead($Dosya, "kullanıcılar", "adlar", "") & "|", GUICtrlRead($cInput)) Then
    IniWrite($Dosya, "kullanıcılar", "adlar", _ReadcList() & GUICtrlRead($cInput))
    EndIf

    GuiCtrlSetData($cList, "")
    GuiCtrlSetData($cList, IniRead($Dosya, "kullanıcılar", "adlar", ""))

Case $Button2 ;sil butonu icin görev ---------------------
	$Dosya = $Dosya
	Global $MusteriData = StringStripWS(IniRead($Dosya,"Kullanıcılar","Adlar",""), 3)

	$Gread = StringStripWS(GUICtrlRead($cList), 3)
			If $Gread <> "" And StringInStr("|" & $MusteriData & "|", "|" & $Gread & "|") <> 0 Then
				$MusteriData = StringReplace($MusteriData, $Gread, "")
				$MusteriData = StringReplace($MusteriData, "||", "|")
				If $MusteriData = StringRight($MusteriData,1) = "|" Then $MusteriData = StringTrimRight($MusteriData,1)

				GUICtrlSetData($cList, "")
				GUICtrlSetData($cList, $MusteriData)

				IniWrite($Dosya,"Kullanıcılar","Adlar",$MusteriData)
			EndIf
		Case $Button3
			FileDelete($Dosya) ;dosyayı sil ve
			    If @Compiled = 1 Then ;yeniden başlat-------------
        Run( FileGetShortName(@ScriptFullPath))
    Else
        Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
    EndIf
    Exit
EndSwitch
WEnd


Func _WM_COMMAND($hWnd, $iMsg, $wParam, $lParam) ;bu da eklenecekk -----------------------

    If $lParam = GUICtrlGetHandle($cInput) Then
        If BitShift($wParam, 16) = $EN_CHANGE Then
            GUICtrlSendToDummy($cCheck_Dummy)
        EndIf
    EndIf

EndFunc

;~ Func _Fill_List()

;~     Local $sData
;~     For $i = 0 To 99
;~         $sData &= Chr(Random(65, 90, 1)) & Chr(Random(65, 90, 1)) & Chr(Random(65, 90, 1)) & Chr(Random(65, 90, 1)) & "|"
;~     Next
;~     GUICtrlSetData($cList, $sData)

;~ EndFunc

    İnputa Veri Girerek Listboxtaki Verileri Bulmak ?

    in AutoIT

    Posted

    Mrb arkadaslar bir gui yapıyorum da sadece öğrenmek adına, şimdi giyi olusturdum müşteri ekle kaldır butonları da var ve calısıyor ancak, diyelimki 100 tane müşteri ekledim, ondan birin silmek icin mecburen isim arama yaparak ordan bulup sil demem gerekiyor bu nedenle, inputa yazdıgım bilgiyi aşağıdaki listboxta bulup secili yapabilirmiyim, bu benim yaptıgım gui

        #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    $Form1_1 = GUICreate("  .:|:. Müşteri Kayıt .:|:.", 406, 335, 238, 159)
    GUISetBkColor(0x9DB9EB)
    $Group1 = GUICtrlCreateGroup("Kayıt", 8, 8, 294, 65)
    $Input1 = GUICtrlCreateInput("", 92, 30, 195, 21)
    $Label1 = GUICtrlCreateLabel("Adı ve Soyadı:", 16, 32, 72, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("", 312, 8, 81, 65)
    $Button1 = GUICtrlCreateButton("Ekle", 325, 25, 55, 17)
    $Button2 = GUICtrlCreateButton("Sil", 325, 45, 55, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Items = GUICtrlCreateList("", 8, 88, 297, 240)
	$Dosya = @AppDataDir & "\kisiler.ini"
    GuiCtrlSetData(-1, IniRead($Dosya, "kullanıcılar", "adlar", ""))
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

Func _ReadItems()
    Local $iCnt = _GUICtrlListBox_GetCount($Items)
    Local $sMsg = ""
    For $n = 0 To $iCnt - 1
    $sMsg &= _GUICtrlListBox_GetText($Items, $n) & "|"
    Next
    Return $sMsg
EndFunc

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

Case $Button1 ;ekle
	$Dosya = $Dosya
    If Not StringInStr(IniRead($Dosya, "kullanıcılar", "adlar", "") & "|", GUICtrlRead($Input1)) Then
    IniWrite($Dosya, "kullanıcılar", "adlar", _ReadItems() & GUICtrlRead($Input1))
    EndIf

    GuiCtrlSetData($Items, "")
    GuiCtrlSetData($Items, IniRead($Dosya, "kullanıcılar", "adlar", ""))

Case $Button2 ;sil
	$Dosya = $Dosya
	Global $MusteriData = StringStripWS(IniRead($Dosya,"Kullanıcılar","Adlar",""), 3)

	$Gread = StringStripWS(GUICtrlRead($Items), 3)
			If $Gread <> "" And StringInStr("|" & $MusteriData & "|", "|" & $Gread & "|") <> 0 Then
				$MusteriData = StringReplace($MusteriData, $Gread, "")
				$MusteriData = StringReplace($MusteriData, "||", "|")
				If $MusteriData = StringRight($MusteriData,1) = "|" Then $MusteriData = StringTrimRight($MusteriData,1)

				GUICtrlSetData($Items, "")
				GUICtrlSetData($Items, $MusteriData)

				IniWrite($Dosya,"Kullanıcılar","Adlar",$MusteriData)
			EndIf



    EndSwitch
    WEnd

    Bu da ismi bulabilen gui örnegi, ama bir türlü benimkine ekleme yapamadım, birde siz bakar mısınız?

    #include <GuiComboBox.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <GuiListBox.au3>
#include <GuiListView.au3>


$Debug_CB = False ; Check ClassName being passed to ComboBox/ComboBoxEx functions, set to True and use a handle to another control to see it work

Global $Input1

_Main()

Func _Main()
	Local $Form1_1

	; Create GUI
	$Form1_1 = GUICreate("(UDF) ComboBox Create", 400, 296)
	$Input1 = _GUICtrlComboBox_Create($Form1_1, "", 2, 2, 396, 296)

	$Button1 = GUICtrlCreateButton("Ekle", 325, 100, 55, 17)
    $Button2 = GUICtrlCreateButton("Sil", 325, 124, 55, 17)

	Global $list = GUICtrlCreateList("", 2, 25, 296, 240)
	    GuiCtrlSetData(-1, IniRead(@AppDataDir & "\kisiler.ini", "kullanıcılar", "adlar", ""))

	Global $Items = "murat ak", $Items_S = StringSplit($Items, "|")

	GUICtrlSetData(-1, $Items)
	Global $check = GUICtrlCreateCheckbox("gelişmiş arama", 2, 270, 200, 21)
	GUISetState()



	GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

	; Loop until user exits
	Do
	Until GUIGetMsg() = $GUI_EVENT_CLOSE
	GUIDelete()
EndFunc   ;==>_Main

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
	#forceref $hWnd, $iMsg
	Local $hWndFrom, $iIDFrom, $iCode
	$hWndFrom = $ilParam
	$iIDFrom = BitAND($iwParam, 0xFFFF) ; Low Word
	$iCode = BitShift($iwParam, 16) ; Hi Word
	Switch $hWndFrom
		Case $Input1
			Switch $iCode

				Case $CBN_EDITCHANGE ; Sent when the edit control portion of a combo box is about to display altered text
					Local $text = _GUICtrlComboBox_GetEditText($Input1)
					If BitAND(GUICtrlRead($check), $GUI_CHECKED) = 0 Then Return _GUICtrlListBox_SelectString($list, $text)
					_GUICtrlListBox_FindInText($list, $text)

					Local $count = _GUICtrlListBox_GetCount($list)
					If $text = "" Then

						For $i = 1 To $Items_S[0]

							_GUICtrlListBox_AddString($list, $Items_S[$i])

						Next
					Else

						For $i = 1 To $Items_S[0]
							If StringInStr($Items_S[$i], $text) Then
								_GUICtrlListBox_ResetContent($list)
								_GUICtrlListBox_AddString($list, $Items_S[$i])
								Return
							EndIf
						Next
					EndIf


			EndSwitch
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

    Guide Ekle Kaldır Butonuna Görev Verme Sorunu

    in AutoIT

    Posted · Edited by x_files_x

    Mrb arkadaşlar geçenlerde bişi aklıma geldi dedim yapar mıyım, şöyle bişi yapmak istedim:

    Gui nin ekle ve çıkart butonlar ıvar, comboya bişi yazıp eklersek listeye eklicek, cıkart dersekte cıkartıcak ve ayrıca comboya yazdıgım isim listede var ise onu bulucak, bir çeşit müşteri ekleme çıkart bulma programı gibi bişi, bana cok lazım oldugundan degil ama öğrenmek adına uğraşıyorum örnek gui burda ama sadece temayı tasarladım pek komutları yapamadım

    #include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <GuiListView.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $Dosya = "C:\WINDOWS\Entegrasyon.ini"
Global $MusteriData = StringStripWS(IniRead($Dosya,"Data","Musteri",""), 3)



$Form1_1 = GUICreate("Form1", 405, 334, 190, 126)
GUISetBkColor(0x9DB9EB)
$musteri = GUICtrlCreateCombo("Combo1", 24, 32, 265, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
;~ GUICtrlSetData(-1,$MusteriData ,"")
GUICtrlSetColor(-1, 0x800080)
$Group1 = GUICtrlCreateGroup("Group1", 8, 8, 297, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$musteri_btn2 = GUICtrlCreateButton("Ekle", 320, 24, 59, 17)
$musteri_btn1 = GUICtrlCreateButton("Çıkart", 320, 48, 59, 17)
$Group2 = GUICtrlCreateGroup("", 312, 8, 81, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $Items = GUICtrlCreateList("", 8, 80, 297, 240)
Global $Items = $MusteriData, $Items_S = StringSplit($Items, "|")
GUICtrlSetData(-1, $Items)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "/script.jpg", 312, 80, 84, 244)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

    Autoit Tcp Komutları Ile Ilgili Bir Soru?

    in AutoIT

    Posted

    Yardım dosyasında gayet yeterli bir örnek var zaten:

    http://www.autoitscript.com/autoit3/docs/functions/TCPSend.htm

    Mrb ben burayı incelemiştim ama orda port yazıor tamam da, gönderecegim online oyuna ait ip adresi nereye yazacagım ? bulamadım ben kücük bir örnek versem ona uyarlarmısınız vaktiniz varsa, kücück birşey olsa ben anlarım

    game ip : 78.40.223.13

    game port : 443

     

    Oyuna yollanacak tcp paket verisi ::

    %xt%tavla%zarat%356412%2%.

    Autoit Tcp Komutları Ile Ilgili Bir Soru?

    in AutoIT

    Posted

    Mrb arkadaşlar autoitin tcp kısmını hic bilmiyorum biraz neti kurcaladım ama ingilizcem cok iyi olmadıgı icin, öğrendigim söylenemez, ben şöyle bişi istiyorum mümkünse küçük bir örnek verebilir misiniz?

    Port numarasını ve ip adresini bildigim bir oyuna bir paket veri yollamak istiyorum bunu nasıl saglarım ?

×
×
  • Create New...