x_files_x

@Reyiz ben acemiyim bildigim şeyler kısıtlı, swish dedigin şeyi nasıl kullanıcam onu bile bilmiyom select filan, keşke bilseydim, projeyi birgünde yaptım hatayı bir haftada düzeltemedim ya :(   @Loken olur bir yap bakalım

örnekte düzenleyip yapsak olurmu, ben yapamadım cünkü

ama pencereyi beklemek derken pencerenin kapatılmasını beklemek demek istedim, winwaitclose fonksiyonu yani

Geri sayımda sorun yok ama pencerenin kapatılmasını bekle ve seçtigin işlemi yap dedigimde, pencereyi bekliyor, iptal da edinmiyor kapatılmıyor da, bunu yapmam lazım

Tasarım konusunda iyi olmuş olsam hiç çekinmeden paylaşırdım, forumdaki arkadaşlar yardımcı olur umarım

ikonun script dizininde oldguna da emin olmalısın :) yerini belirtmedigin için dizinde olması lazım

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

Sorun çözüldü tşkler

autoite izn hep var :) hiç engelle karsılasmadım ki, olmuyor bir türlü gitmedi

Sağlık olsun çözülür umarım, sıkma canını

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

Host dosyasını kullanıyor sanırsam , başka şekilde bilgisayarı kasar sürekli çalıştığı için, hangi programlama dili ile yapılmış bu acaba ?

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

Evet guictrlsetdata daha mantıklı onu düşünmemiştim :)  artık yardımlarını beklerim, başka zamanda başka programlarda saygılar..

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

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

Tşk ederim Reyiz, işimi gördü

Konu başlığını nasıl düzenlicem bilmiyorum ki

@Teyyare kardeş peki öyle yapayımda kodlarda yardım eder misin, ben yapamadım, scripti,  nasıl ekletip cıkartcam filan olmadı

@Reyiz kardeş peki öyle yapayımda kodlarda yardım eder misin, ben yapamadım, scripti,  nasıl ekletip cıkartıcam filan olmadı

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

Reyiz dedigini yolladım ancak hiçbi degişkilk olmadı acaba kodda mı sorun vr anlayamadım,  4 bilgi var kullanılması gereken 1: ip adres 2: port no 3: socket no 4: veri (data)  yani mesaj

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

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 ?

Çalıştıgım kurumun programı, kolaylık olsun die controlclik fonksiyonlarını kullanmak istiyorum ama info da buton bilgileri yanlıs cıkıyordu, biraz araştırınca controlhide fonksiyonu ile grubu kaldırıp altta kalan butonları görebildim, sorun çözüldü..