kamuran731 Posted May 5, 2013 Share Posted May 5, 2013 Denetim masasındaki kullanıcıları comboboxta listeledikten sonra seçili olanı bir buton yardımı ile silmek istiyorum Şu an bat dosyası ile şu komutu kullanarak kullanıcıyı siliyorum net user "hakan" /del ama ben var olan kullanıcıların comboboxta listelenmesini istiyorum. Yardımlarınız için şimdiden teşekkür ederim Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted May 5, 2013 Share Posted May 5, 2013 (edited) Bunu yapman için öncelikle windows kullanıcıların bulunduğu regedit kaydını bulman lazım sonra bunu bir döngü içersinde kaç adet olduğunu saydırdıktan sonra comboya eklersin silme işi kolay ama windows kullanıcıları nerde tutuluyor tam olarak bilmiyorum. Kullanıcı Ekleme ve Silme Fonksiyonu: _WIN_USER_ADD('Kullanıcı Adı','Sıfre') ;Ekleme _WIN_USER_ADD('Kullanıcı Adı', 'Sıfre', '', 1) ;Silme Func _WIN_USER_ADD($NAME = '', $PASS = '', $GRPNAME = '', $DEL = 0) If $GRPNAME = '' Then $GRPNAME = 'Administrators' If $DEL Then RunWait(@ComSpec & ' /c ' & 'Net User ' & $NAME & ' /Delete', '', @SW_HIDE) Else RunWait(@ComSpec & ' /c ' & _ 'Net User ' & $NAME & ' ' & $PASS & ' /add &&' & _ 'Net LocalGroup ' & $GRPNAME & ' ' & $NAME & ' /add &' & _ 'Net Accounts /Maxpwage:UnLimited', '', @SW_HIDE) EndIf EndFunc ;==>_WIN_USER_ADD Sadece silme kodu; RunWait(@ComSpec & ' /c ' & 'Net User ' & $NAME & ' /Delete', '', @SW_HIDE) veya RunWait(@ComSpec & ' /c ' & 'Net User Kullanıcı Adı /Delete', '', @SW_HIDE) Edited May 6, 2013 by SimpsoN_Bart Quote Link to comment Share on other sites More sharing options...
amas_1 Posted May 5, 2013 Share Posted May 5, 2013 facebokdaki beğeni sayfama önceden hazirladiğim link yada konu iceriklerini otomatik nasil paylaşabilirim yani paylaşmam gereken konular sabit ama gunde bikacedefa paylaşmak istiyorum AutoIT yapmak istiyorum Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted May 5, 2013 Author Share Posted May 5, 2013 Regshot ile kontrol ettim. Yanılmıyorsam kullanıcı isim ve şifreleri C:\WINDOWS\system32\config dizininde bulunan SAM dosyasında tutuluyor. Hocam birde şöyle bir sorunum var chcxbox1 ve chcxbox2 seçili iken seçili mesajı ver seçili değilse değil mesajı ver nasıl yapabilirim Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted May 5, 2013 Editor Share Posted May 5, 2013 Userları bununla listeletirsin. Local $colUsers, $sTmp, $Array[1] = ["user"] $colUsers = ObjGet("WinNT://" & @ComputerName) If IsObj($colUsers) Then $colUsers.Filter = $Array For $objUser In $colUsers $sTmp &= $objUser.Name & @LF Next EndIf MsgBox(0, "Users", $sTmp) Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted May 6, 2013 Author Share Posted May 6, 2013 @SimpsoN_Bart verdiğiniz bu kod ile kullanıcı silme işlemini gerçekleştiremedim. Neden acaba? RunWait(@ComSpec & ' /c ' & 'Net User ' $NAME & ' /Delete', '', @SW_HIDE) @Paris verdiğin kodlar ile kullanıcıları listeleyebildim. Teşekkür ederim Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted May 6, 2013 Share Posted May 6, 2013 Bak üstteki kod da $NAME değişkendir fonksiyondan parametre olarak aldığı için çalışmaz tabi. $NAME yerine kullanıcı adı girmen lazım. Pairsin verdiği kodlar da listeledi bu arada şimdi bakabildim ve şuan aklıma geldi consola net user yazdırıp bir döngüde StdoutRead ile verileri okuyup split ederek de kullanıcı adlarına ulaşabiliriz.Daha sonra StringRegExp ile beraber gerekli paterni girdikten sonra kullanıcıları listeye biliriz hem daha hızlı olur Alinin verdiği kodlar doğru ama ben de biraz kasarak geldi sanki Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted May 6, 2013 Author Share Posted May 6, 2013 $NAME = "Kamuran" kodunu eklemişim zaten yinede çalışmadı Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted May 6, 2013 Editor Share Posted May 6, 2013 kamuran pm ile destek vermiyorum combobox a eklemen için ufak bir örnek. #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GuiComboBox.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 251, 98, 192, 124) $Combo1 = GUICtrlCreateCombo("", 48, 8, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) $Button1 = GUICtrlCreateButton("Listele", 80, 48, 75, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 Local $colUsers, $sTmp, $Array[1] = ["user"] $colUsers = ObjGet("WinNT://" & @ComputerName) If IsObj($colUsers) Then $colUsers.Filter = $Array For $objUser In $colUsers _GUICtrlComboBox_InsertString($Combo1,$objUser.Name, 0) Next EndIf EndSwitch WEnd [attachment=1052:combo.rar] Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted May 6, 2013 Author Share Posted May 6, 2013 (edited) Aslında ben kullanıcı süre kısıtlama ve ekleme silme işlemlerini yapacak bir program yaptım ama yeteri kadar fazla bilgiye sahip olmadığım için bazı yerlerde takılıyorum kodlar şu şekilde bakıp biraz düzeltme yaparsanız sevinirim #AutoIt3Wrapper_Icon=Install_Edilenler\Alarmİkon.ico #AutoIt3Wrapper_Outfile=Alarm & Kronometre 18.08.2012.exe #AutoIt3Wrapper_UseUpx=n #AutoIt3Wrapper_Compression=3 #include <GDIPlus.au3> ;Arkaplan için #include <DateTimeConstants.au3> #include <GuiEdit.au3> #Include <GuiButton.au3> #include <GUIConstantsEx.au3> #include <GuiComboBoxEx.au3> #include <Sound.au3> #include <WindowsConstants.au3> #include <Date.au3> ;#include <GuiImageList.au3> Opt("TrayIconHide", 0) Opt("TrayOnEventMode", 1) ; 0 = disable (Menüler işlem Görmez) Opt("TrayMenuMode", 1) ; Sadece Kullanıcının oluşturduğu menüler Görünsün. (Script pause ve Exit Görünmesin) ;Opt("GUIOnEventMode",1) ; Labele tıkladığında atanan fonksiyonun çalışması için. Bunu kullanınca Sağ üstteki X işaretine basınca program kapanmıyor ;kapanabilmesi için $Form1 in aşağısına şu kodu girmelisin = GUISetOnEvent(-3, "On_Exit") ; Tepedeki X kapat işareti ;Renkler= Pembe 0xFF00F0 - Kırmızı 0xFF0000 - Sarı 0xFFF000 - AçıkYeşil 0xcFFfFF HotKeySet ( "^y", "_Yenile" ) ; ctrl ve K ye basınca Fonksiyonu çalıştır HotKeySet ( "^k", "_Kur" ) ; ctrl ve K ye basınca Fonksiyonu çalıştır HotKeySet ( "^s", "_Sil" ) ; ctrl ve K ye basınca Fonksiyonu çalıştır TraySetIcon("Install_Edilenler\Alarmİkon.ico") ; tray ikonu için GUISetIcon(@TempDir & "\$.tmp") ;Tepedeki İkon için $Form1 = GUICreate(".::Kamuran::. Kullanıcı Zaman Kısıtlama Programı ", 358, 350) GUISetBkColor(0x005900) TrayTip("By Kamuran" ,"Cmd ekranında işlem yaptığımızda" &@CRLF& "Türkçe karekterden dolayı; işlem gerçekleşmiyordu" ,5 ) Sleep("333") GUISetState(@SW_SHOW) $Komut = ("net user ") $PTimes = (" /times:") $del = (" /del") $Virgul = (",") $Tirnak = (";") $Tire = ("-") RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri", "Komut", "REG_SZ",($Komut)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri", "Ptimes", "REG_SZ",($PTimes)) $RKom = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri", "Komut") $RPTimes = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri", "Ptimes") $Lbl = GUICtrlCreateLabel("İşlem Yapılacak KULLANICI:", 3, 39, 155, 20) GUICtrlSetFont(-1, 9, 800, 0, "Segoe UI") GUICtrlSetColor(-1, 0xFFF000) ;Sarı GUICtrlCreateLabel("GÜNLER", 5, 77, 80, 18) GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetColor(-1, 0xcFFfFF) ;AçıkYeşil GUICtrlCreateLabel("Bilgisayarı Kullanabileceği Saat Aralıkları"&@CRLF&" 1.Dilim 2.Dilim 3.Dilim", 95, 65, 220, 40) GUICtrlSetFont(-1, 9, 550, 0, "Segoe UI") GUICtrlSetColor(-1, 0xcFFfFF) ;Beyaz _GUICtrlEdit_SetText($Lbl, "Listeleniyor... Bekleyiniz") $Usrcombo = GUICtrlCreateCombo("Kullanıcı", 158, 36, 90, 18, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, _Listele() ) ;GUICtrlSetData(-1, @UserName & " |Selman|Hakan|Furkan|Yakup") GUICtrlSetFont(-1, 9, 800, 0, "Segoe UI") GUICtrlSetTip(-1, "Zaman kısıtı uygulanacak Kullanıcı ismi girin.") _GUICtrlEdit_SetText($Lbl, "İşlem Yapılacak KULLANICI:") $Sil = GUICtrlCreateButton("Sil", 251, 20, 65, 20) ; ,Sol ,Üst ,Gen ,Yük GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "CTRL+S") GUICtrlSetCursor (-1, 0) GUICtrlSetBkColor(-1, 0xFFFFFF) ;Beyaz $BtKur = GUICtrlCreateButton("Kur", 251, 42, 65, 20) ; ,Sol ,Üst ,Gen ,Yük GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "CTRL+K") GUICtrlSetCursor (-1, 0) GUICtrlSetBkColor(-1, 0xFFFFFF) ;Beyaz $DenetimMasasi = GUICtrlCreateButton("Denetim Masası", 5, 292, 115, 20) ; ,Sol ,Üst ,Gen ,Yük GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "CTRL+D") GUICtrlSetCursor (-1, 0) GUICtrlSetBkColor(-1, 0xFFFFFF) ;Beyaz $Bos = GUICtrlCreateButton("Boş", 125, 292, 90, 20) ; ,Sol ,Üst ,Gen ,Yük GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "CTRL+D") GUICtrlSetCursor (-1, 0) GUICtrlSetBkColor(-1, 0xFFFFFF) ;Beyaz $1cbx = GUICtrlCreateCheckbox("" ,328 ,96 ,20, 20) $2cbx = GUICtrlCreateCheckbox("" ,328 ,120 ,20, 20) $3cbx = GUICtrlCreateCheckbox("" ,328 ,140 ,20, 20) $4cbx = GUICtrlCreateCheckbox("" ,328 ,160 ,20, 20) $5cbx = GUICtrlCreateCheckbox("" ,328 ,180 ,20, 20) $6cbx = GUICtrlCreateCheckbox("" ,328 ,200 ,20, 20) $7cbx = GUICtrlCreateCheckbox("" ,328 ,220 ,20, 20) $1_Gun = GUICtrlCreateCombo("Pazartesi", 3, 95, 85, 18) GUICtrlSetData(-1, "Salı|Çarşamba|Perşembe|Cuma|Cumartesi|Pazar") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "İşlem Yapacağınız Gün.") $1_SA1 = GUICtrlCreateCombo("10", 90, 95, 38, 18) GUICtrlSetBkColor(-1, 0xFFF000) ;Sarı GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $1_SA2 = GUICtrlCreateCombo("11", 128, 95, 38, 18) GUICtrlSetBkColor(-1, 0xFFF000) ;Sarı GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $1_SB1 = GUICtrlCreateCombo("13", 169, 95, 38, 18) GUICtrlSetBkColor(-1, 0xcFFfFF) ;A.yeşil GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $1_SB2 = GUICtrlCreateCombo("14", 207, 95, 38, 18) GUICtrlSetBkColor(-1, 0xcFFfFF) ;A.yeşil GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $1_SC1 = GUICtrlCreateCombo("17", 248, 95, 38, 18) GUICtrlSetBkColor(-1, 0xFFF000) ;Sarı GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $1_SC2 = GUICtrlCreateCombo("22", 286, 95, 38, 18) GUICtrlSetBkColor(-1, 0xFFF000) ;Sarı GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $2_Gun = GUICtrlCreateCombo("Salı", 3, 117, 85, 18) GUICtrlSetData(-1, "Salı|Çarşamba|Perşembe|Cuma|Cumartesi|Pazar") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "İşlem Yapacağınız Gün.") $2_SA1 = GUICtrlCreateCombo("10", 90, 117, 38, 18) GUICtrlSetBkColor(-1, 0xFFF000) ;Sarı GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $2_SA2 = GUICtrlCreateCombo("11", 128, 117, 38, 18) GUICtrlSetBkColor(-1, 0xFFF000) ;Sarı GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $2_SB1 = GUICtrlCreateCombo("13", 169, 117, 38, 18) GUICtrlSetBkColor(-1, 0xcFFfFF) ;A.yeşil GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $2_SB2 = GUICtrlCreateCombo("14", 207, 117, 38, 18) GUICtrlSetBkColor(-1, 0xcFFfFF) ;A.yeşil GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $2_SC1 = GUICtrlCreateCombo("17", 248, 117, 38, 18) GUICtrlSetBkColor(-1, 0xFFF000) ;Sarı GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $2_SC2 = GUICtrlCreateCombo("22", 286, 117, 38, 18) GUICtrlSetBkColor(-1, 0xFFF000) ;Sarı GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $3_Gun = GUICtrlCreateCombo("Çarşamba", 3, 139, 85, 18) GUICtrlSetData(-1, "Salı|Çarşamba|Perşembe|Cuma|Cumartesi|Pazar") ; add other item snd set a new default GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "İşlem Yapacağınız Gün.") $3_SA1 = GUICtrlCreateCombo("10", 90, 139, 38, 18) ; create first item GUICtrlSetBkColor(-1, 0xFFF000) ;Sarı GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $3_SA2 = GUICtrlCreateCombo("11", 128, 139, 38, 18) GUICtrlSetBkColor(-1, 0xFFF000) ;Sarı GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $3_SB1 = GUICtrlCreateCombo("13", 169, 139, 38, 18) GUICtrlSetBkColor(-1, 0xcFFfFF) ;A.yeşil GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $3_SB2 = GUICtrlCreateCombo("14", 207, 139, 38, 18) GUICtrlSetBkColor(-1, 0xcFFfFF) ;A.yeşil GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $3_SC1 = GUICtrlCreateCombo("17", 248, 139, 38, 18) GUICtrlSetBkColor(-1, 0xFFF000) ;Sarı GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") $3_SC2 = GUICtrlCreateCombo("22", 286, 139, 38, 18) GUICtrlSetBkColor(-1, 0xFFF000) ;Sarı GUICtrlSetData(-1, "7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23") GUICtrlSetFont(-1, 9, 600, 0, "Segoe UI") GUICtrlSetTip(-1, "Hangi saaatler arasında Kullanabilecek Yazın.") ;$2Chk = GUICtrlCreateCheckbox("Seç", 254, 115, 294, 25) ; msgbox(0,"Kamuran", ($Komut),($Parametre_times)) ;Run("net user hakan /times:Pazartesi",($Bak_Ptesi)) ; Kur_1 OK SONUÇ = net user Furkan /times:çarşamba,10-11;çarşamba,17-22 Func _KurSon() RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"Kullanici", "REG_SZ",GUICtrlRead($Usr)) ;Usr Combodaki yazıyı rege yaz RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"Gun", "REG_SZ",GUICtrlRead($1_Gun)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"SaatA1", "REG_SZ",GUICtrlRead($1_SA1)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"SaatA2", "REG_SZ",GUICtrlRead($1_SA2)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"SaatB1", "REG_SZ",GUICtrlRead($1_SB1)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"SaatB2", "REG_SZ",GUICtrlRead($1_SB2)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"SaatC1", "REG_SZ",GUICtrlRead($1_SC1)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"SaatC2", "REG_SZ",GUICtrlRead($1_SC2)) $RUser = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"Kullanici") $R1_Gun = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"Gun") $R1_SA1 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"SaatA1") $R1_SA2 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"SaatA2") $R1_SB1 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"SaatB1") $R1_SB2 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"SaatB2") $R1_SC1 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"SaatC1") $R1_SC2 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\1\"&GUICtrlRead($Usr),"SaatC2") RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"Kullanici", "REG_SZ",GUICtrlRead($Usr)) ;Usr Combodaki yazıyı rege yaz RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"Gun", "REG_SZ",GUICtrlRead($2_Gun)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"SaatA1", "REG_SZ",GUICtrlRead($2_SA1)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"SaatA2", "REG_SZ",GUICtrlRead($2_SA2)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"SaatB1", "REG_SZ",GUICtrlRead($2_SB1)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"SaatB2", "REG_SZ",GUICtrlRead($2_SB2)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"SaatC1", "REG_SZ",GUICtrlRead($2_SC1)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"SaatC2", "REG_SZ",GUICtrlRead($2_SC2)) $RUser = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"Kullanici") $R2_Gun = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"Gun") $R2_SA1 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"SaatA1") $R2_SA2 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"SaatA2") $R2_SB1 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"SaatB1") $R2_SB2 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"SaatB2") $R2_SC1 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"SaatC1") $R2_SC2 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\2\"&GUICtrlRead($Usr),"SaatC2") RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"Kullanici", "REG_SZ",GUICtrlRead($Usr)) ;Usr Combodaki yazıyı rege yaz RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"Gun", "REG_SZ",GUICtrlRead($3_Gun)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"SaatA1", "REG_SZ",GUICtrlRead($3_SA1)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"SaatA2", "REG_SZ",GUICtrlRead($3_SA2)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"SaatB1", "REG_SZ",GUICtrlRead($3_SB1)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"SaatB2", "REG_SZ",GUICtrlRead($3_SB2)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"SaatC1", "REG_SZ",GUICtrlRead($3_SC1)) RegWrite("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"SaatC2", "REG_SZ",GUICtrlRead($3_SC2)) $RUser = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"Kullanici") $R3_Gun = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"Gun") $R3_SA1 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"SaatA1") $R3_SA2 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"SaatA2") $R3_SB1 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"SaatB1") $R3_SB2 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"SaatB2") $R3_SC1 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"SaatC1") $R3_SC2 = RegRead("HKEY_CURRENT_USER\Software\Kamuran Kullanici Zaman Siniri\3\"&GUICtrlRead($Usr),"SaatC2") ;Battaki net user hakan /times:Pazartesi,19-22 ; Battaki net user hakan /times:Pazartesi,08-17;Perşembe,08-17 $Kur = ($RKom)&($RUser)&($RPTimes)& _ $R1_Gun&$Virgul&$R1_SA1&$Tire&$R1_SA2&$Tirnak&$R1_Gun&$Virgul&$R1_SB1&$Tire&$R1_SB2 &$Tirnak &$R1_Gun&$Virgul&$R1_SC1&$Tire&$R1_SC2&$Tirnak& _ $R2_Gun&$Virgul&$R2_SA1&$Tire&$R2_SA2&$Tirnak&$R2_Gun&$Virgul&$R2_SB1&$Tire&$R2_SB2 &$Tirnak &$R2_Gun&$Virgul&$R2_SC1&$Tire&$R2_SC2&$Tirnak& _ ; Salı Satır 2 $R3_Gun&$Virgul&$R3_SA1&$Tire&$R3_SA2&$Tirnak&$R3_Gun&$Virgul&$R3_SB1&$Tire&$R3_SB2 &$Tirnak &$R3_Gun&$Virgul&$R3_SC1&$Tire&$R3_SC2; Çarşamba Satır 3 $Bilgi = ($RUser) &"'ın Serbest Olacağı saatler" &@CRLF & _ $R1_Gun&"="&$R1_SA1&$Tire&$R1_SA2&$Virgul&" "& $R1_SB1&$Tire&$R1_SB2&$Virgul&" "& $R1_SC1&$Tire&$R1_SC2&@CRLF & _ $R2_Gun&"="&$R2_SA1&$Tire&$R2_SA2&$Virgul&" "& $R2_SB1&$Tire&$R2_SB2&$Virgul&" "& $R2_SC1&$Tire&$R2_SC2&@CRLF & _ ; Salı Satır 2 $R3_Gun&"="&$R3_SA1&$Tire&$R3_SA2&$Virgul&" "& $R3_SB1&$Tire&$R3_SB2&$Virgul&" "& $R3_SC1&$Tire&$R3_SC2; Çarşamba Satır 3 IniWrite("Kamuran.ini", "Komut1" ,"Uygulanan Komut" ,$Kur) TrayTip("Bilgi",$Bilgi ,2) Run($Kur) EndFunc Func On_Exit() FileDelete(@TempDir & "\*.mp3") FileDelete(@TempDir & "\*.tmp") Exit EndFunc Func _Listele() ;Kullanıcıları $Usrcombo ya listeleme Local $colUsers, $sTmp, $Array[1] = ["user"] $colUsers = ObjGet("WinNT://" & @ComputerName) If IsObj($colUsers) Then $colUsers.Filter = $Array For $objUser In $colUsers _GUICtrlComboBox_InsertString($Usrcombo,$objUser.Name, 0) Next EndIf EndFunc While 1 Sleep(10) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE On_Exit() ;Exit Case $BtKur ;Alarmı Kur _KurSon() Case $Sil ;net user "hakan" /del $NAME = GUICtrlRead($Usr) ;run("netuser ($Usr) /del") ; ShellExecute(@ComSpec & ' /c ' & 'Net User ' $NAME & ' /delete', '', @SW_HIDE) run("netuser" "avalonasondareme /del") Case $DenetimMasasi ;MsgBox("Kamuran.ini", "Komut1" ,$kam) Run('control.exe nusrmgr.cpl') Case $Bos EndSwitch WEnd Edited May 6, 2013 by kamuran731 Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted May 6, 2013 Share Posted May 6, 2013 Üstte ufak bi syntax hatası yapmışım & işareti eksik olduğu için kod çalışmadı şimdi düzelttim ekleme ve silme işlemi yapıyor. Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted May 6, 2013 Author Share Posted May 6, 2013 (edited) evet şimdi denedim ekleme silme işlemi tamam. Teşekkür ederim Edited May 7, 2013 by kamuran731 Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted May 6, 2013 Share Posted May 6, 2013 Rica ederim. Pairs in üstte verdiği örnek sizde kasma yapıyor mu bende acayip bi kasılma olduktan sonra listeliyor neden anlamadım :hım: Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted May 6, 2013 Editor Share Posted May 6, 2013 window kutuphanesinden çekiyor o yüzdendir simps Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted May 6, 2013 Share Posted May 6, 2013 (edited) Onu biliyorum objeleri kullandım sadece bende mi böyle oluyor onu merak ettim. $Form1 = GUICreate("Form1", 287, 147, 192, 124) $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 24, 24, 97, 17) $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 24, 48, 97, 17) $Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 24, 72, 97, 17) $Button1 = GUICtrlCreateButton("Button1", 24, 104, 123, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 If GUICtrlRead($Checkbox1) = 1 Then _ISLEM1() If GUICtrlRead($Checkbox2) = 1 Then _ISLEM2() If GUICtrlRead($Checkbox3) = 1 Then _ISLEM3() EndSwitch WEnd Func _ISLEM1() MsgBox(64,"Bilgi","1. Checkbox secili") EndFunc Func _ISLEM2() MsgBox(64,"Bilgi","2. Checkbox secili") EndFunc Func _ISLEM3() MsgBox(64,"Bilgi","3. Checkbox secili") EndFunc Bunları checkbox değilde radiobutonlada yapabilirsin.Bu arada Üstte butonun olayına yazdım yani butonu tıkladıktan sonra işlem yapar eğer böyle istemiyorsan case $Checkbox şeklinde yazıp if ile kontrol edebilirsin fark etmez. Edited May 6, 2013 by SimpsoN_Bart Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted May 6, 2013 Author Share Posted May 6, 2013 (edited) Bendede kasma yapıyor, yapacak birşey yok herhalde, büyük bir sorun değil zaten işlev görmesi önemli. checbox 1 ve 2 seçili ise _ISLEM1() yaptırmak istiyorum sadece checbox 1 seçili ise işlem yapmasın sadece checbox 2 seçili ise işlem yapmasın istiyorum Edited May 6, 2013 by kamuran731 Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted May 6, 2013 Share Posted May 6, 2013 And ile beraber yapabilirsin mantıksal operatör bunlar & and or vs. $Form1 = GUICreate("Form1", 287, 147, 192, 124) $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 24, 24, 97, 17) $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 24, 48, 97, 17) $Button1 = GUICtrlCreateButton("Button1", 24, 104, 123, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 If GUICtrlRead($Checkbox1) = 1 And GUICtrlRead($Checkbox2) = 1 Then _ISLEM1() EndSwitch WEnd Func _ISLEM1() MsgBox(64,"Bilgi","1 ve 2 Checkbox secili") EndFunc Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted May 7, 2013 Author Share Posted May 7, 2013 Yardımlarınz için çok teşekkür ederim. Hocam kullanıcıları combo ya listeliyorum ya sildiğim kullanıcı combodan silinmiyor. programı kapatıp açınca siliniyor Programı kapatıp açmadan combo daki verileri nasıl güncelleyebiliriz? Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted May 7, 2013 Editor Share Posted May 7, 2013 Local $sIndex = _GUICtrlComboBox_GetCurSel($Combo1) Combobox da seçilen degerin ID sini alıyoruz. _GUICtrlComboBox_DeleteString($Combo1,$sIndex) Seçilen değeri combobox tan siliyoruz. Bu iki kodu silme işleminden sonra çalıştırman yeterli. Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted May 7, 2013 Author Share Posted May 7, 2013 (edited) Cbx1 ve Cbx2 seçili iken _Kur1() ile _Kur1ve2() fonksiyonları çalışıyor Cbx1 ve Cbx2 seçili iken sadece _Kur1ve2() fonksiyonunun çalışmasını nasıl sağlarım Case $KurSureKisitla If GUICtrlRead($Cbx1) = 1 Then _Kur1() If GUICtrlRead($Cbx1) = 1 And GUICtrlRead($Cbx2) = 1 Then _Kur1ve2() Edited May 9, 2013 by kamuran731 Quote Link to comment Share on other sites More sharing options...
x_files_x Posted May 11, 2013 Share Posted May 11, 2013 Elimde böyle bişi var işine yarar mı bilmem. #include <GUIConstants.au3> #Region ### START Koda GUI section ### $Form1 = GUICreate("X_FiLeS_X", 220, 220, 300, 260) GUISetBkColor(0x66ff00) $Checkbox1 = GUICtrlCreateCheckbox("IDM", 4, 40, 121, 25) $Checkbox2 = GUICtrlCreateCheckbox("Resource Tools", 4, 60, 121, 25) $Checkbox3 = GUICtrlCreateCheckbox("Smart Install Maker", 4, 80, 121, 25) $Checkbox4 = GUICtrlCreateCheckbox("AnaSayfa GoogLe Yap", 4, 100, 130, 25) $Checkbox5 = GUICtrlCreateCheckbox("Klasor ikon degiş", 4, 120, 121, 25) $Checkbox6 = GUICtrlCreateCheckbox("RegShoT", 4, 140, 121, 25) $Checkbox7 = GUICtrlCreateCheckbox("Msn Aç", 4, 160, 121, 25) $Checkbox8 = GUICtrlCreateCheckbox("7 Zip Kur", 4, 180, 121, 25) $Button1 = GUICtrlCreateButton("Tümünü Sec", 4, 4, 100, 17, 0) $Button2 = GUICtrlCreateButton("Calistir", 60,24, 75, 17, 0) $Button3 = GUICtrlCreateButton("Secme", 115,4, 100, 17, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 GUICtrlSetState($Checkbox1,$GUI_CHECKED) GUICtrlSetState($Checkbox2,$GUI_CHECKED) case $Button2 If GUICtrlRead($Checkbox1)=1 then Run("Internet Download Manager.exe") If GUICtrlRead($Checkbox2)=1 then Run("Resource Tools.exe") If GUICtrlRead($Checkbox3)=1 then Run("Smart Install Maker.exe") If GUICtrlRead($Checkbox4)=1 then Run("ANASAYFA GOOGLE OLSUN.exe") If GUICtrlRead($Checkbox5)=1 then Run("Klasor ikon degiş.exe") If GUICtrlRead($Checkbox6)=1 then Run("Regshot.exe") If GUICtrlRead($Checkbox7)=1 then Run("MSN.exe") If GUICtrlRead($Checkbox8)=1 then Run("7ZiP.exe") Case $Button3 GUICtrlSetState($Checkbox1,$GUI_UNCHECKED) GUICtrlSetState($Checkbox2,$GUI_UNCHECKED) EndSwitch WEnd Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted May 11, 2013 Share Posted May 11, 2013 (edited) x_files_x, on 11 May 2013 - 13:39, said: Elimde böyle bişi var işine yarar mı bilmem. #include <GUIConstants.au3> #Region ### START Koda GUI section ### $Form1 = GUICreate("X_FiLeS_X", 220, 220, 300, 260) GUISetBkColor(0x66ff00) $Checkbox1 = GUICtrlCreateCheckbox("IDM", 4, 40, 121, 25) $Checkbox2 = GUICtrlCreateCheckbox("Resource Tools", 4, 60, 121, 25) $Checkbox3 = GUICtrlCreateCheckbox("Smart Install Maker", 4, 80, 121, 25) $Checkbox4 = GUICtrlCreateCheckbox("AnaSayfa GoogLe Yap", 4, 100, 130, 25) $Checkbox5 = GUICtrlCreateCheckbox("Klasor ikon degiş", 4, 120, 121, 25) $Checkbox6 = GUICtrlCreateCheckbox("RegShoT", 4, 140, 121, 25) $Checkbox7 = GUICtrlCreateCheckbox("Msn Aç", 4, 160, 121, 25) $Checkbox8 = GUICtrlCreateCheckbox("7 Zip Kur", 4, 180, 121, 25) $Button1 = GUICtrlCreateButton("Tümünü Sec", 4, 4, 100, 17, 0) $Button2 = GUICtrlCreateButton("Calistir", 60,24, 75, 17, 0) $Button3 = GUICtrlCreateButton("Secme", 115,4, 100, 17, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 GUICtrlSetState($Checkbox1,$GUI_CHECKED) GUICtrlSetState($Checkbox2,$GUI_CHECKED) case $Button2 If GUICtrlRead($Checkbox1)=1 then Run("Internet Download Manager.exe") If GUICtrlRead($Checkbox2)=1 then Run("Resource Tools.exe") If GUICtrlRead($Checkbox3)=1 then Run("Smart Install Maker.exe") If GUICtrlRead($Checkbox4)=1 then Run("ANASAYFA GOOGLE OLSUN.exe") If GUICtrlRead($Checkbox5)=1 then Run("Klasor ikon degiş.exe") If GUICtrlRead($Checkbox6)=1 then Run("Regshot.exe") If GUICtrlRead($Checkbox7)=1 then Run("MSN.exe") If GUICtrlRead($Checkbox8)=1 then Run("7ZiP.exe") Case $Button3 GUICtrlSetState($Checkbox1,$GUI_UNCHECKED) GUICtrlSetState($Checkbox2,$GUI_UNCHECKED) EndSwitch WEnd daha kısa yöntem yapsaydın #include <GUIConstants.au3> #Region ### START Koda GUI section ### $Form1 = GUICreate("Checkbox :)", 220, 220, 300, 260) GUISetBkColor(0x66ff00) dim $Checkboxe[9] Local $pro = StringSplit("Internet Download Manager.exe,Resource Tools.exe,Smart Install Maker.exe,ANASAYFA GOOGLE OLSUN.exe,Klasor ikon degiş.exe,Regshot.exe,MSN.exe,notepad.exe",",") Local $proadi = StringSplit("IDM,Resource Tools,Smart Install Maker,AnaSayfa GoogLe Yap,Klasor ikon degiş,RegShoT,Msn Aç,Not defteri",",") for $aa = 1 to 8 $Checkboxe[$aa] = GUICtrlCreateCheckbox($proadi[$aa],4,($aa *20)+20,121,25) next $Button1 = GUICtrlCreateButton("Tümünü Sec", 4, 4, 100, 17, 0) $Button2 = GUICtrlCreateButton("Calistir", 60,24, 75, 17, 0) $Button3 = GUICtrlCreateButton("Secme", 115,4, 100, 17, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 for $aa = 1 to 8 GUICtrlSetState($Checkboxe[$aa],$GUI_CHECKED) next case $Button2 for $aa = 1 to 8 If GUICtrlRead($Checkboxe[$aa])=1 then Run($pro[$aa]) next Case $Button3 for $aa = 1 to 8 GUICtrlSetState($Checkboxe[$aa],$GUI_UNCHECKED) next EndSwitch WEnd Edited May 11, 2013 by mesale0077 Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted May 12, 2013 Author Share Posted May 12, 2013 (edited) Teşekkür ederim ama malesef bunlar işime yaramıyor. ama sonunda Programı bitirip paylaştım http://www.tnctr.com/topic/220889-windows-kullanycy-ekle-sil-sure-synyrlama-prog/ Takıldığım bazı kodlama kısımlarında yardımlarını esirgemeyen Simon ve Simson_Bart arkadaşlarımıza teşekkür ederim Edited May 12, 2013 by kamuran731 Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted May 12, 2013 Share Posted May 12, 2013 (edited) #RequireAdmin #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Array.au3> #include <File.au3> Dim $avarray RunWait("cmd.exe /c " & "wmic USERACCOUNT get Name >"&@Tempdir&"\users.txt",@ScriptDir,@SW_HIDE) _FileReadToArray(@Tempdir&"\users.txt",$avarray) $Form1 = GUICreate("TEST GET USER LIST", 398, 217, -1,-1) $Combo1 = GUICtrlCreateCombo("", 96, 48, 185, 25, $CBS_DROPDOWNLIST) For $i=2 To $avarray[0] GUICtrlSetData($Combo1,$avarray[$i]) Next $Button1 = GUICtrlCreateButton("Ok", 136, 152, 89, 25, $WS_GROUP) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 MsgBox(64,"",GUICtrlRead($Combo1),15) EndSwitch WEnd Local $colUsers, $sTmp, $Array[1] = ["user"] $colUsers = ObjGet("WinNT://" & @ComputerName) If IsObj($colUsers) Then $colUsers.Filter = $Array For $objUser In $colUsers $sTmp &= $objUser.Name & @LF Next EndIf MsgBox(0, "Users", $sTmp) $oMyError = ObjEvent("AutoIt.Error","MyErrFunc"); Install a custom error handler Local $objDomain = ObjGet("WinNT://" & @ComputerName & "" ) Dim $filter[2] = ["user"] $objDomain.Filter = $filter For $aUser In $objDomain ; ConsoleWrite( msgbox(0,"",$aUSer.Name & "|" & $aUSer.Description & @LF) Next ;COM Error function Func ComError() If IsObj($oMyError) Then $HexNumber = Hex($oMyError.number, ConsoleWrite($oMyError.scriptline & ' $HexNumber = ' & $HexNumber & "Windescription is: " & $oMyError.description & "|" & $oMyError.windescription & @lf);### Debug Console SetError($HexNumber) Else SetError(1) EndIf Return 0 EndFunc ;==>ComError Edited May 12, 2013 by mesale0077 Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted May 12, 2013 Author Share Posted May 12, 2013 @mesela0077 verdiğin kodlar için teşekkür ederim fazla kasma yapmadan kullanıcıları listeliyor Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.