Comboboxta Kullanıcıları Listeleme

kamuran731 · 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

SimpsoN_Bart · May 5, 2013

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

amas_1 · 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

kamuran731 · 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

pairs · 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)

kamuran731 · 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

SimpsoN_Bart · 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

kamuran731 · May 6, 2013

$NAME = "Kamuran" kodunu eklemişim zaten yinede çalışmadı

pairs · 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]

kamuran731 · May 6, 2013

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

SimpsoN_Bart · 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.

kamuran731 · May 6, 2013

evet şimdi denedim ekleme silme işlemi tamam. Teşekkür ederim

Edited May 7, 2013 by kamuran731

SimpsoN_Bart · 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:

pairs · May 6, 2013

window kutuphanesinden çekiyor o yüzdendir simps

SimpsoN_Bart · May 6, 2013

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

kamuran731 · May 6, 2013

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

SimpsoN_Bart · 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

kamuran731 · 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?

pairs · 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.

kamuran731 · May 7, 2013

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

x_files_x · 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

mesale0077 · May 11, 2013

x_files_x, on 11 May 2013 - 13:39, said:
Elimde böyle bişi var işine yarar mı bilmem.

#include &lt;GUIConstants.au3&gt;

#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&ccedil;", 4, 160, 121, 25)
$Checkbox8 = GUICtrlCreateCheckbox("7 Zip Kur", 4, 180, 121, 25)
$Button1 = GUICtrlCreateButton("T&uuml;m&uuml;n&uuml; 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 &lt;GUIConstants.au3&gt;
#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&ccedil;,Not defteri",",")
for $aa = 1 to 8
$Checkboxe[$aa] = GUICtrlCreateCheckbox($proadi[$aa],4,($aa *20)+20,121,25)
next
$Button1 = GUICtrlCreateButton("T&uuml;m&uuml;n&uuml; 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

kamuran731 · May 12, 2013

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

mesale0077 · May 12, 2013

#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

kamuran731 · May 12, 2013

@mesela0077 verdiğin kodlar için teşekkür ederim

fazla kasma yapmadan kullanıcıları listeliyor

Sign In

Comboboxta Kullanıcıları Listeleme

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members