-
Posts
377 -
Joined
-
Last visited
Content Type
Profiles
Forums
Calendar
Posts posted by asmazh
-
-
Çok sağ olun. AutoİT bilgim fena değil, bu yüzden AMS'yi seri bir şekilde öğrenmeye başladım. Dediğiniz gibi yapıp 2 sini bir arada götüreceğim. Akabinde c#
-
Merhaba.
Geçen gün forumda bir de AutoPlay Media Studio bölümüne bakayım dedim. Baktım. Son 2 yılımı "Kayıp yıllar" olarak nitelendirdim zira AutoİT ile meşguldüm... AMS, AutoİT'den bin kat daha kolay ve zevkli imiş. Uzatmadan sorularımı sorayım.
1) AutoİT ile yapılan her türlü program AMS ile de yapılabilir mi? Bu sorumu şu şekilde de sorabilirim: AMS mi AutoİT mi?
2) AMS'nin barındırdığı tüm kodları güzel bir şekilde açıklayan Türkçe belgeler var mı elinizde.
3) AMS'nin demo sürümlerini buldum hep. Bunun tam sürümünü (ücretsiz olanından: freware) nereden indirebilirim. Ya da en güzel sürümünü?
Çok teşekkür ederim. -
@ykd96
Sleep(3000)
_IENavigate($oIE,"www.google.com")
Fakat bu yöntem uyku sırasında programı işlevsiz bırakır.
"TimerDiff", "TimerInit" komutlarını kullanabilirsin. Bunları öğrenmenin en güzel yolu: Autoit'in yardım klasörü.
Blackman12'nin verdiği örneğin üzerine yapmak istediğin işlemin basit bir şeklini senin için hazırladım.
[code]
Global $sart, $mesaj, $emesaj
$form = GUICreate("pencere",300,200)
$button1 = GUICtrlCreateButton("sartı sıfırla",10,10)
$button2 = GUICtrlCreateButton("sartı aç",10,50)
GUISetState()
$StartTime = 0
while 1
Local $diff = Int(TimerDiff($StartTime)) > 3000
If $diff = True Then
ConsoleWrite("3 saniyede bir yapılmasını istediğin işlemi buraya gir." & @CRLF)
$StartTime = TimerInit()
EndIf
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
Case $button1
$sart = 0
Case $button2
$sart = 1
EndSwitch
if $sart Then
$mesaj = "sart tamam"
Else
$mesaj = "sart sağlanamadı"
EndIf
if $emesaj <> $mesaj Then ToolTip($mesaj)
$emesaj = $mesaj
WEnd[/code] -
"Müslüman" sıfatını hak eden her kulun beraat kandilini içtenlikle kutluyorum. Yüce Allah, yolunda olan herkesin günahlarını affetsin, sapmışları hidayete erdirsin.
-
Çok ufak bir soru daha... Fazla vaktinizi almayacak sanırım.
[code]#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 623, 442, 192, 124)
$List1 = GUICtrlCreateList("", 88, 40, 185, 305)
GUICtrlSetData(-1, "Bugün hava çok sıcak|İnsanın kendini denize atası geliyor|Selamünaleyküm")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
[/code]
Burada list'in herhangi bir itemine fare ile sol tıklayınca o itemi seçiyor ya. Aynı işlemi farenin sağ tuşunun da yapmasını istiyorum. Yani list'in bir itemine fare ile sağ tıklayınca o itemi seçsin. -
Anlaşıldı SQL şart! SQL ile Autoit arasında veri alışverişi yapılabilir mi? "Evet, yapılabilir"se nasıl?
-
@blackman12 ilgilendiğiniz için teşekkür ederim.
Şu an kullandığım arama yöntemleri gayet hızlı. Mesela "aba" kelimesini aradınız, program "aba" kelimesini ve ondan sonra gelen 5000 kelimeyi 1 saniyeden az bir süre içerisinde kullanıcıya listeliyor.
Herhalde kendimi tam olarak anlatamadım...
4. sorumda da şunu demek istemiştim:
Kullanıcı aşağıdaki kelimeler arasına yeni bir kelime eklediğinde, bu eklediği kelime alfabetik dizilişe göre eklenmeli.
Mesela "aba güneşi" "aba" dan sonra gelmiş. Zira alfabetik diziliş bunu gerektiriyor.
aba
aba güreşi
abacı
abacılık
abadî
abajur
abajurcu
abajurculuk
abajurlu
abaküs
abalı
abandırma
abandırmak
abandone
abanî
abanma
abanmak
abanoz
abanozgiller
abanozlaşma
abanozlaşmak -
Sağol dostum.
Bu dediklerine pek gerek yok. İşi uzatmadan nasıl yaparım, ben bunu sormak istedim. Yoksa pek çok yöntem var denediğim hepsiyle de oluyor amma gel gör ki iş çok karışık. -
Selamünaleyküm
Bir kaç sorum var, umarım ki yardımcı olursunuz.
Öncelikle yazdığım programı kısa bir şekilde anlatayım ki beni daha iyi anlayabilesiniz.
100.000 kelimelik bir Türkçe Sözlük yazıyorum. Kelimelerin bulunduğu veri tabanı bir "not defteri". Ve sorularımı daha iyi anlayabilmeniz için örnek:
[code]30 Ağustos=1
a=2
a (2)=3
a / e=4
-a- / -e-=5
-a / -e=6
-a / -e (2)=7
a, A=8
ab=9
aba=10
aba güreşi=11
abacı=12
abacılık=13
abadî=14
abajur=15
abajurcu=16
abajurculuk=17
abajurlu=18
abaküs=19
abalı=20
abandırma=21
abandırmak=22
abandone=23
abanî=24
abanma=25
abanmak=26
abanoz=27
abanozgiller=28
abanozlaşma=29
abanozlaşmak=30
abartı=31
abartıcı=32
abartıcılık=33
abartılı=34
abartılma=35
abartılmak=36
abartısız=37
abartış=38
abartma=39
abartmacı=40
abartmacılık=41
abartmak=42
abartmalı=43
abartmasız=44
abasız=45
abaşo=46
abat=47
Abaza=48
Abazaca=49
abazan=50
abazanlık=51
Abbasî=52
abd=53
Abdal=54
abdal (2)=55
abdallık=56
abdest=57
abdestbozan=58
abdestbozan otu=59
abdesthane=60
abdestli=61
abdestlik=62
abdestsiz=63
abdiâciz=64
abdülleziz=65
abece=66
abece sırası=67
abecesel=68
aberasyon=69
abes=70
abeslik=71
abıhayat=72
abıkevser=73
abıru=74
abide=75
abideleşme=76
abideleşmek=77
abideleştirme=78
abideleştirmek=79
abidemsi=80
abidevî=81
abis=82
abiye=83
abla=84
ablak=85
ablakça=86
ablaklık=87
ablalık=88
ablâtif=89
ablatya=90
abli=91
abluka=92
abone=93
abonelik=94
abonman=95
aborda=96
abra=97
abrakadabra=98
abrama=99
abramak=100
...
...
...
"?"=100000[/code]
Kelimelerin tanımlanmış hali de başka bir ".ini" dosyasına kayıtlı.
[code][?]
T= "Tanımı simgeler."
A= "Bu kelimenin, varsa, deyimleri araya "-" konularak sıralanır.
B= "Başlık. Örneğin 'aba' "
[1]
T=30 Ağustos :~ 1 ) Zafer Bayramı~
A=
B=30 Ağustos
[2]
T=a :~ 1 ) Seslenme bildirir~ Cümle 1: A birader! Nerde kaldın a canım!~
A=
B=a
[3]
T=a :~ 1 ) (a:) Şaşma, hatırlama, sevinme, acıma, üzülme, kızma gibi duyguları güçlendirir, cümlenin başında veya sonunda kullanılır~ Cümle 1: A, ne güzel!~ Cümle 2: A, sen burada mıydın?~
A=
B=a (2)
[4]
T=a / e :~ 1 ) Çekimli fiilin sonuna gelerek anlamı pekiştirir~ Cümle 1: alsana, gelsene, olur a.~
A=
B=a / e
[5]
T=-a- / -e- :~ 1 ) İsimden fiil türeten ek~ Cümle 1: kan-a-mak, tün-e-mek, boş-a-mak, harc-a-mak.~
A=
B=-a- / -e-
[6]
T=-a / -e :~ 1 ) Yönelme durumu eki: dağa, eve, yola, öne. Ünlü ile biten isimlerden sonra araya y sesi girer~ Cümle 1: odaya, tepeye, duyguya, ülküye.~
A=
B=-a / -e
[7]
T=-a / -e :~ 1 ) Fiilden zarf türeten ek: yaza yaza, gide gide, koşa koşa, düşe kalka, güle oynaya. Ünlü ile biten fiillerden sonra araya y sesi girer: yaşaya yaşaya, bekleye bekleye, okuya okuya, yürüye yürüye. Bu ek göre, kala, geçe, sapa örneklerinde kalıplaşmıştır~
A=
B=-a / -e (2)
[8]
T=a, A :~ 1 ) Türk alfabesinin birinci harfi, ses bilimi bakımından kalın ünlülerin düz ve geniş olanını gösterir~ 2 ) ( Müzik ) Nota işaretlerini harflerle gösterme yönteminde lâ sesini bildirir~
A=a'dan z'ye kadar
B=a, A
[9]
T=ab :~ İsim Eskidil~ Farsça~ 1 ) Su~
A=
B=ab
[10]
T=aba :~ İsim~ Arapça~ 1 ) Yünden, dövülerek yapılan kalın ve kaba kumaş~ 2 ) ( İsim ) Bu kumaştan yapılmış yakasız ve uzun üstlük~ Cümle 1: Bir abam var atarım, nerde olsa yatarım. - Atasözü~ Cümle 2: Abanın kadri yağmurda bilinir. - Atasözü~ 3 ) ( Sıfat ) Bu kumaştan yapılmış olan~ Cümle 1: Aba terlik.~ Cümle 2: Ayağında bir aba potur vardı. - R. N. Güntekin~ 4 ) ( Sıfat ) Eskiden dervişlerin giydiği abadan yapılmış, önü açık hırka~ Cümle 1: Aba var, post var, meydanda er yok. - Y. K. Beyatlı~ 5 ) ( Halkdili ) Abla~ 6 ) ( Halkdili ) Anne~
A=aba altından değnek (sopa) göstermek-aba gibi-aba vakti yaba, yaba vakti aba-abayı sermek-abayı yakmak
B=aba
...
...
...
[100000]
T= "Tanımı simgeler."
A= "Bu kelimenin, varsa, deyimleri araya "-" konularak sıralanır.
B= "Başlık. Örneğin 'aba' "[/code]
[color="#FF0000"]Sorum 1:[/color]
Kullanıcı örneğin "aba" kelimesini aramak istedi. Ama arama yerine "abâ" yazdı. Programın "â,a"-"i,î" gibi harfleri aynı algılamasını istiyorum. Bunu nasıl yaparım, inşallah bir bilginiz vardır.
[color="#FF0000"]Sorum 2:[/color]
Kullanıcıya şöyle bir arama seçeneği sunmak istiyorum: İçerisinde kullanıcının istediği karakterleri barındıran kelimeleri liste halinde kullanıcıya vermek istiyorum. Örneğin: İçerisinde "al" olan bütün kelimeleri listelemek istiyorum. Bu işi sondan karakter olarak becerdim. Yani, kullanıcı sonunda "al" olan kelimeleri, sunduğum arama seçeneği sayesinde, gayet seri bir şekilde, listeleyebiliyor.
[color="#FF0000"]Sorum 3:[/color]
Ben, istemeyerek, çok karmaşık bir düzen içerisinde program ile veri tabanı arasında iletişim kurmuşum.
Mesela verdiğim 1. veri tabanında kelime aramayı kolaylaştırmak için, her kelimeyi numaralandırmışım.
Şöyle bir arama biçimi tasarlıyorum, aslında tasarlamaya çalışıyorum demek daha doğru olur.
Kullanıcı örneğin "aba" kelimesini aramak istedi. Program bunun veri tabanında olduğunu algılar hemen.
aba
aba güreşi
abacı
abacılık
abadî
abajur
abajurcu
abajurculuk
abajurlu
abaküs
abalı
abandırma
abandırmak
abandone
abanî
abanma
abanmak
abanoz
abanozgiller
abanozlaşma
abanozlaşmak
Bu şekilde kelimeleri numaralandırmamışım varsayın. Program, "aba" kelimesini bulduktan sonra "aba" kelimesinin ardındaki 20 kelimeyi de kullanıcıya versin. Bunu istiyorum. İşte buradaki problem yüzünden kelimeleri numaralandırdım.
Kelimelerin numaralandırılmamış hali ile "Sonran arama" ve "İçten arama" yapmak istiyorum. Yani sonu "al" olan kelimeleri ve içerisinde "al" olan kelimeleri yukarıdaki gibi kelimelerin numaralandırılmamış hali ile aramak istiyorum. [Seri bir şekilde!]
[color="#FF0000"]Sorum 4:[/color]
Kullanıcı bu kelimeler arasına bir kelime daha koymak istiyor diyelim. Mesela "Merhaba" kelimesi olsun bu kelime. Program, kelimeyi yukarıdaki gibi alfabetik dizilişin gerektirdiği yere koysun.
Burada yardım edebilmeniz için programın bir öğrneğini verdim.
[code]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Sözlük (Deneme)", 661, 426, 199, 142)
$List1 = GUICtrlCreateList("", 8, 48, 225, 344)
$Input1 = GUICtrlCreateInput("Input1", 8, 24, 177, 21)
$Button1 = GUICtrlCreateButton("Ara", 192, 24, 43, 21)
$Edit1 = GUICtrlCreateEdit("", 248, 24, 401, 369, $ES_WANTRETURN)
GUICtrlSetData(-1, StringFormat("Buradaki buton ($Button1) _ara() fonksiyonuna bağlı. Arama işlemini $VeriTabani değişkeninden yapın. \n\n"))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Radio1 = GUICtrlCreateRadio("Sondan ara", 8, 400, 81, 17)
$Radio2 = GUICtrlCreateRadio("İçten ara", 96, 400, 81, 17)
$Radio3 = GUICtrlCreateRadio("Normal arama", 184, 400, 81, 17)
$button2 = GUICtrlCreateButton("Yeni bir kelime ekle",325,398,150,25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $VeriTabani = "30 Ağustos" & _
@CRLF & "a" & _
@CRLF & "a (2)" & _
@CRLF & "a / e" & _
@CRLF & "-a- / -e-" & _
@CRLF & "-a / -e" & _
@CRLF & "-a / -e (2)" & _
@CRLF & "a, A" & _
@CRLF & "ab" & _
@CRLF & "aba" & _
@CRLF & "aba güreşi" & _
@CRLF & "abacı" & _
@CRLF & "abacılık" & _
@CRLF & "abadî" & _
@CRLF & "abajur" & _
@CRLF & "abajurcu" & _
@CRLF & "abajurculuk" & _
@CRLF & "abajurlu" & _
@CRLF & "abaküs" & _
@CRLF & "abalı" & _
@CRLF & "abandırma" & _
@CRLF & "abandırmak" & _
@CRLF & "abandone" & _
@CRLF & "abanî" & _
@CRLF & "abanma" & _
@CRLF & "abanmak" & _
@CRLF & "abanoz" & _
@CRLF & "abanozgiller" & _
@CRLF & "abanozlaşma" & _
@CRLF & "abanozlaşmak" & _
@CRLF & "abartı" & _
@CRLF & "abartıcı" & _
@CRLF & "abartıcılık" & _
@CRLF & "abartılı" & _
@CRLF & "abartılma" & _
@CRLF & "abartılmak" & _
@CRLF & "abartısız" & _
@CRLF & "abartış" & _
@CRLF & "abartma" & _
@CRLF & "abartmacı" & _
@CRLF & "abartmacılık" & _
@CRLF & "abartmak" & _
@CRLF & "abartmalı" & _
@CRLF & "abartmasız" & _
@CRLF & "abasız" & _
@CRLF & "abaşo" & _
@CRLF & "abat" & _
@CRLF & "Abaza" & _
@CRLF & "Abazaca" & _
@CRLF & "abazan" & _
@CRLF & "abazanlık" & _
@CRLF & "Abbasî" & _
@CRLF & "abd" & _
@CRLF & "Abdal" & _
@CRLF & "abdal (2)" & _
@CRLF & "abdallık" & _
@CRLF & "abdest" & _
@CRLF & "abdestbozan" & _
@CRLF & "abdestbozan otu" & _
@CRLF & "abdesthane" & _
@CRLF & "abdestli" & _
@CRLF & "abdestlik" & _
@CRLF & "abdestsiz" & _
@CRLF & "abdiâciz" & _
@CRLF & "abdülleziz" & _
@CRLF & "abece" & _
@CRLF & "abece sırası" & _
@CRLF & "abecesel" & _
@CRLF & "aberasyon" & _
@CRLF & "abes" & _
@CRLF & "abeslik" & _
@CRLF & "abıhayat" & _
@CRLF & "abıkevser" & _
@CRLF & "abıru" & _
@CRLF & "abide" & _
@CRLF & "abideleşme" & _
@CRLF & "abideleşmek" & _
@CRLF & "abideleştirme" & _
@CRLF & "abideleştirmek" & _
@CRLF & "abidemsi" & _
@CRLF & "abidevî" & _
@CRLF & "abis" & _
@CRLF & "abiye" & _
@CRLF & "abla" & _
@CRLF & "ablak" & _
@CRLF & "ablakça" & _
@CRLF & "ablaklık" & _
@CRLF & "ablalık" & _
@CRLF & "ablâtif" & _
@CRLF & "ablatya" & _
@CRLF & "abli" & _
@CRLF & "abluka" & _
@CRLF & "abone" & _
@CRLF & "abonelik" & _
@CRLF & "abonman" & _
@CRLF & "aborda" & _
@CRLF & "abra" & _
@CRLF & "abrakadabra" & _
@CRLF & "abrama" & _
@CRLF & "abramak"
; Veri tabanı bende bir not defterine kayıtlı. Aman ha sakın 100000 kelimeyi bu şekilde bir değişkene verdiğimi sanmayın.
; Size kolaylık olsun diye kısa bir örneği, bir değişkene verdim.
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Ara(GuiCtrlread($Input1))
Case $button2
$YeniKelime = InputBox("","")
If Not @error Then
EndIf
; Bahsettiğim gibi burada eklenecek kelime aritmetik sıralamaya uymak zorunda.
; Aslında bu işlem "array" ile çok basit bir şekilde yapılabilir ama ben 100000 kelimelerlik bir not defterinden bahsediyorum.
; Bana bu işlemi en kısa bir şekilde nasıl yapabilirim, bunu anlatırsanız sevinirim.
EndSwitch
WEnd
func _ara($NeyiArayayim)
If GUICtrlRead($Radio1) = $GUI_CHECKED Then ; Kullanıcı sonran arama yapmak istiyorsa...
ElseIf GUICtrlRead($Radio2) = $GUI_CHECKED Then ; Kullanıcı İçten arama yapmak istiyorsa...
ElseIf GUICtrlRead($Radio3) = $GUI_CHECKED Then ; Kullanıcı Normal arama yapmak istiyorsa...
EndIf
EndFunc
[/code]
Konu hayli uzun oldu. Yardım etmek de hayli sıkıcı olabilir. Buna rağmen yardım edenlere "sonsuz teşekkür".
Rabbim herkesin yolunu açık etsin. -
Çok sağolun blackman12...
Bir ufak sorum daha olacak:
For döngüsü ile işlem sayısı kullanıcının yapmak istediğine göre değişen bir komut yazacağım. Yani demek istediğim işlem sayısı 100 de olabilir 1567 de olabilir. Ve $i yapılan işlem sayısını temsil ediyor olsun. Kullanıcıya işlemin yüzde kaçının yapıldığını göstermek istiyorum bir progressbar'da. Nasıl bir metematiksel işlem yapmam gerekiyor?
Matematiğim kötü bir türlü yapamadım.
Örneğin:
For $i = 1 to 521 ; ~ ("521" sayısı "5" de olabilir "7455" de olabilir!)
;~ $i'nin ilerleyişine göre işlemin yüzde kaçının yapıldığını burada progressbar ile göstermek istiyorum.
;~ Nasıl bir metematiksel işlem yapmam gerekiyor?
Next -
Güzel çalışma... Velakin gerekli yerleri biraz daha açımlarsan bizi daha da iyi aydınlatmış olursun.
Bilindiği gibi İngilizcesi pek iyi olmayan biri DllCall fonksiyonlarını pek anlamaz. Anladığım kadarıyla "SimpsoN_Bart" sen bu işten anlıyorsun. Bize bir iyilik yap, aşağıda yazdıklarımı güzel bir tanımla... :=)
1.si her "DllCall" fonksiyonunda geçen "int,hwnd,str vb." gibi işlevini bilmediğimiz işlemleri açımla.
2.si "DllStructCreate, DllStructGetData vb." kodların işlevini az çok anlamışım amma senin bizi aydınlatman daha iyi olur.
"DllStructCreate" ile bir değişken oluşturduk varsayalım.
Global yahut Local ile oluşturulan değişkenlerle aynı değil mi "DllStructCreate" ile oluşturduğumuz değişken? -
Sayın Hocalarım, "ByRef"in bir fonksiyondaki görevi tam olarak nedir?[code]
Func _NewState(ByRef $Hwnd, $Misal = "")
EndFunc
[/code]
Misal, ByRef, buradaki $Hwnd değişkenine nasıl bir işlev veriyor? -
Victor Hugo "Sefiller"
Reşat Nuri Güntekin "Dudaktan Kalbe" -
Dil ve anlatım çok kolay nasıl kaldın be!
Diğer derslerin iyiyse no problem. -
Hocam, [color="#0000FF"]StringRegExpReplace(),BitAND(), BitNOT(), BitOR(), BitRotate(), BitShift(), BitXOR(),Sqrt()[/color] bu komutları bir türlü çözemedim. İngilizceden fazla anladığım yok. Siz müsait olduğunuz bir vakitte bunların kısaca bir tanımını yaparak, yine kısaca örneklendirirseniz makbule geçer. Bir çok örnekte görmemize rağmen tam olarak çözemiyoruz görevlerini.
-
Arkadaşım ne kadar uğraşsan da nafile. Anladığım kadarıyla bir online oyun için otomasyon yapmak istiyorsun. Fakat hiçbir online oyun otomasyona izin vermez. Peki ya yapanlar yok mu? Çok. Profesyonel bir programcı olman lazım+ Autoit ile yapılabileceğini sanmıyorum. Zamanında çok demedim de. :-) Iyisi mi? Hakkıyla oynayıp derece kazanmak.
-
Hadi bakalım. Allah herkese hak ettiğini versin.
[quote name='admince' date='18 March 2012 - 22:37 ' timestamp='1332103073' post='1171786']
Yok Kardeşim Yanlışın Var İlk Olarak Liseyi Bitirmeden Önce Veriyolar Ama Bir Daha Ki Şifre İçin Ösym'den İstiyorsun..
[/quote]
Alınabiliyor. Geçen sene mezun oldum bu sene sifremi unuttum okula gidip geçici şifre aldım. Parasıyla değil mi -
Her yerde hertürlü insan olabilir. Bu ne kadar ekenomiye bağlı bir durum gibi görünse de öyle değil. Ya da ben öyle düşünüyorum.
-
@ıstanbul82
Aha bu dediğin içimi kararttı ışte... Öyle farklı bir tipim yok. Daha da açıklayayım tipim yok. Ünlü bir yazarın meşhur bir sözü vardı hiç unutmam- şuan ismini hatırlayamıyorum- "Eğer bir ülkede yazarlar yani bilgiç insanlar fakirse o ülke geri kalmıştır..." -
@Ali63kal
Bu mu yani? Ne kadar düşüncelisin -
Merhabalar.
Fikirlerinizi almak istediğim bir husus var. Meslek konusunda. Üniversiteye hazırlanıyorum, geçen sene lise mezunu oldum, sözelciyim. Allah kısmet ederse bu sene edebiyat öğretmenliği okuyacam ya da garanti konuşmayayım kismetse kazanacam. (Amin!) Üstüne basa basa edebiyat öğretmeni olmak istiyorum; zira bir yazar, bir şair, tabiri caizse, sanatçı olmak istiyorum. Tabi kiminiz: "Öyle herkes sanatçı olamaz." diyecektir ama o yönüm gerçekten ağır. Ara sıra düşünüyorum da benden başka bir şey olmaz. Bu yönümün ağır basması fıtratımdan mıdır yoksa kitaba -aşırı bir şekilde- bağlılığımdan mıdır bilemiyorum. Ara sıra kendimi yazmaya zorunlu hissediyorum, bir şeyler karalıyorum. Bu yönümü hep gizledim herkesten. Benle alay geçerler diye. Tnctr'yi seviyorum paylaşmak istedim.
ŞIMDI SIZLERE BIR ŞAIR, YAZAR, SANATÇI OLMAM IÇIN HANGI YOLLARDAN YÜRÜMEM GEREKIYOR BUNU SORMAK ISTIYORUM.
Hatta bu kadar yazmışken bir kaç siirimi de paylaşayım - aman ha okuyup gülmeyin- bir değerlendirme yaparsanız çok sevinirim...
(öyle basit bir şey de değil ha! Uyaklı, kafiyeli.)
Milletin illeti garba gark olan zilletti.
İffeti gayba zorlayan halk edilmiş fertti.
İnsanî hisleri yoklayan vicdan ki meçhul.
İnsana lütfedilmiş sağduyu şimdi yoksul.
Aranan suçlu değil, aranan bir lütufkâr.
Bulunan insanlık değil ki kul olunan kâr.
İnsan var, zorluktan gafil, sefahate meyil.
Fert var sırtındaki yük bir tek ceketi değil...
Böylesi daha çok var ışte umarım ki beğenirsiniz. -
Doğum günün kutlu olsun mutlu ol senelerce...
-
Merhabalar,
Dün canım sıkıldı kitabı attım kenara (Üniversiteye hazırlanıyorum da) dedim bu kadar yeter.
Bilgisayarı açtım stres atmak için program yazayım dedim ama ne yazacam diye düşünmeye başladım.
Eni sonu bu geldi aklıma sizlerle paylaşmak istedim. Eksik yönleri olabilir aceleye geldi zaten. [color="#FF0000"]Yorumlarınızı bekliyorum arkadaşlar.[/color]
[img]http://www.tnctr.com/uploads/imgs/pre_1328524107__sb_-_642634492294863.jpeg[/img]
[media]http://www.upload.gen.tr/d.php/www/ccx2ycy8/RegAu3.au3.html[/media]
[codebox]#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=RegAu3
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Mahmut TAŞKIRAN Copyright
#AutoIt3Wrapper_Res_Language=1055
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiTreeView.au3>
#include <GuiListView.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GuiComboBoxEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <GuiRichEdit.au3>
$Form1 = GUICreate("Regedit Okuyucusu - Mahmut TAŞKIRAN [AsmazH]", 618, 478, 241, 139)
GUISetBkColor(0xFFFFFF)
Local $iStyle = BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS, $TVS_CHECKBOXES, $WS_BORDER)
$TreeView1 = GUICtrlCreateTreeView(8, 8, 177, 441, $iStyle)
Global $TreeView1_0 = _GUICtrlTreeView_Add($TreeView1, 0, "HKEY_CLASSES_ROOT")
_RegEnumKey_ListAdd("HKCR", $TreeView1_0)
Global $TreeView1_1 = _GUICtrlTreeView_Add($TreeView1, 0, "HKEY_LOCAL_MACHINE")
_RegEnumKey_ListAdd("HKLM", $TreeView1_1)
Global $TreeView1_2 = _GUICtrlTreeView_Add($TreeView1, 0, "HKEY_CURRENT_USER")
_RegEnumKey_ListAdd("HKCU", $TreeView1_2)
Global $TreeView1_3 = _GUICtrlTreeView_Add($TreeView1, 0, "HKEY_USERS")
_RegEnumKey_ListAdd("HKU", $TreeView1_3)
Global $TreeView1_4 = _GUICtrlTreeView_Add($TreeView1, 0, "HKEY_CURRENT_CONFIG")
_RegEnumKey_ListAdd("HKCC", $TreeView1_4)
$ListView1 = GUICtrlCreateListView("", 192, 8, 417, 257)
_GUICtrlListView_AddColumn($ListView1, "Ad", 150)
_GUICtrlListView_AddColumn($ListView1, "Tür", 100)
_GUICtrlListView_AddColumn($ListView1, "Veri", 200)
$Input_code = GUICtrlCreateInput("", 296, 272, 313, 21)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1, -1, "", BitOR($SBARS_SIZEGRIP, $SBARS_TOOLTIPS, $WS_VISIBLE, $WS_CHILD), $WS_EX_STATICEDGE)
_GUICtrlStatusBar_SetSimple($StatusBar1)
_GUICtrlStatusBar_SetText($StatusBar1, "")
$Combo1 = GUICtrlCreateCombo("RegWriteCode:", 192, 272, 97, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "RegReadCode:|RegDeleteCode:")
$Edit1 = GUICtrlCreateEdit("", 192, 300, 417, 105)
GUICtrlSetColor(-1, 0x0000FF)
$Button2_Copy = GUICtrlCreateButton("Kopyala", 192, 416, 51, 25)
$Button2_Pres = GUICtrlCreateButton("Yenile", 248, 416, 51, 25)
$Button2_Exit = GUICtrlCreateButton("Çık", 360, 416, 51, 25)
$Button2_INF = GUICtrlCreateButton("Yardım", 304, 416, 51, 25)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUISetState(@SW_SHOW)
$Form2 = GUICreate("Bilgiler", 320, 192, -1, -1, $GUI_SS_DEFAULT_GUI, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("", 8, 0, 305, 153)
$Input1_Yol = GUICtrlCreateInput("", 16, 16, 289, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
$Group2 = GUICtrlCreateGroup("", 16, 40, 289, 105)
$Label1 = GUICtrlCreateLabel("Ad", 22, 56, 19, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Input_ad = GUICtrlCreateInput("", 48, 53, 249, 21)
$Input_Veri = GUICtrlCreateInput("", 48, 85, 249, 21)
$Label3 = GUICtrlCreateLabel("Veri", 22, 88, 26, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Label2 = GUICtrlCreateLabel("Tür", 22, 120, 23, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800080)
$Input_Tur = GUICtrlCreateCombo("", 48, 116, 249, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL, $WS_BORDER), $WS_EX_CLIENTEDGE)
GUICtrlSetData(-1, "REG_NONE|REG_SZ|REG_EXPAND_SZ|REG_BINARY|REG_DWORD|REG_DWORD_BIG_ENDIAN|REG_LINK|REG_MULTI_SZ|REG_RESOURCE_LIST|REG_FULL_RESOURCE_DESCRIPTOR|REG_RESOURCE_REQUIREMENTS_LIST")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button_Sil = GUICtrlCreateButton("Sil", 160, 160, 75, 25)
$Button_Kaydet = GUICtrlCreateButton("Kaydet", 238, 160, 75, 25)
GUISetState(@SW_HIDE)
Func _Yenile()
$GetHandle = _GUICtrlTreeView_GetSelection($TreeView1)
_GUICtrlTreeView_DeleteChildren($TreeView1, $GetHandle)
_GUICtrlTreeView_SetSelected($TreeView1, $GetHandle, True)
EndFunc ;==>_Yenile
While 1
$nMsg = GUIGetMsg(1)
If $nMsg[1] = $Form1 Then
If $nMsg[0] = $GUI_EVENT_CLOSE Then Exit
If $nMsg[0] = $Button2_Copy Then
$Edi_read = GUICtrlRead($Edit1)
If $Edi_read <> "" Then
ClipPut(GUICtrlRead($Edit1))
MsgBox(64, "Başarılı!", "Kopyalandı. İstediğiniz yere yapıştırabilirsiniz.", "", $Form1)
Else
MsgBox(16, "Başarısız!", "Edit boş!", "", $Form1)
EndIf
EndIf
If $nMsg[0] = $Button2_Pres Then _Yenile()
If $nMsg[0] = $Button2_Exit Then Exit
If $nMsg[0] = $Button2_INF Then
MsgBox(32, "Hakkında!", "Program Mahmut TAŞKIRAN tarafından yazılmıştır." & @CRLF & @CRLF & "Au3 kodunu almak istediğiniz yeri fare ile ilkin sol tıklayın, sonra yine fare ile sağ tıklayıp seçili hale getirin." & @CRLF & @CRLF & "Bilmem ki öyle uzun uzadıya açıklama yapmaya gerek var mı? Sağa sola tıklayıp öğrenin işte. ", "", $Form1)
EndIf
ElseIf $nMsg[1] = $Form2 Then
If $nMsg[0] = $GUI_EVENT_CLOSE Then
GUISetState(@SW_HIDE, $Form2)
WinSetState($Form1, "", @SW_ENABLE)
WinSetOnTop($Form1, "", 1)
WinSetOnTop($Form1, "", 0)
EndIf
If $nMsg[0] = $Button_Sil Then
_Sil()
If Not @error Then
_GUICtrlListView_DeleteItemsSelected($ListView1)
EndIf
GUISetState(@SW_HIDE, $Form2)
WinSetState($Form1, "", @SW_ENABLE)
WinSetOnTop($Form1, "", 1)
WinSetOnTop($Form1, "", 0)
EndIf
If $nMsg[0] = $Button_Kaydet Then
_Kaydet()
$aItem = _GUICtrlListView_GetItemTextArray($ListView1, _GUICtrlListView_GetSelectedColumn($ListView1))
RegDelete(GUICtrlRead($Input1_Yol), $aItem[1])
GUISetState(@SW_HIDE, $Form2)
WinSetState($Form1, "", @SW_ENABLE)
WinSetOnTop($Form1, "", 1)
WinSetOnTop($Form1, "", 0)
_GUICtrlListView_DeleteItemsSelected($ListView1)
GUICtrlCreateListViewItem(GUICtrlRead($Input_ad) & "|" & GUICtrlRead($Input_Tur) & "|" & GUICtrlRead($Input_Veri), $ListView1)
EndIf
EndIf
WEnd
Func _Kaydet()
Global $Arr_asd[2]
$iMsgBoxAnswer = MsgBox(36, "Kaydı Değiştir?", "Kaydı değiştirmek istediğinizden emin misiniz?", "", $Form1)
Select
Case $iMsgBoxAnswer = 6 ;Yes
RegWrite(GUICtrlRead($Input1_Yol), GUICtrlRead($Input_ad), GUICtrlRead($Input_Tur), GUICtrlRead($Input_Veri))
If @error Then
MsgBox(16, "Hata", "Reg kayıt değiştirilemedi!", "", $Form1)
Else
RegWrite(GUICtrlRead($Input1_Yol), GUICtrlRead($Input_ad), GUICtrlRead($Input_Tur), GUICtrlRead($Input_Veri))
$Reg_L = GUICtrlRead($Input1_Yol) & "\" & GUICtrlRead($Input_ad) & GUICtrlRead($Input_Tur) & " ''" & GUICtrlRead($Input_Veri) & "''"
MsgBox(64, "Reg kaydı değiştirildi!", "Reg kaydı değiştirildi:" & @CRLF & $Reg_L, "", $Form1)
EndIf
EndSelect
EndFunc ;==>_Kaydet
Func _Sil()
If GUICtrlRead($Input_ad) = "(Varsayılan)" Then
MsgBox(16, "Hata", "Bu kaydı silemezsiniz!", "", $Form1)
Return SetError(1)
EndIf
$iMsgBoxAnswer = MsgBox(36, "Kayır sil?", "Bu kaydı silmek istediğinden emin misin?" & @CRLF & GUICtrlRead($Input1_Yol) & "\" & GUICtrlRead($Input_ad), "", $Form1)
Select
Case $iMsgBoxAnswer = 6 ;Yes
RegDelete(GUICtrlRead($Input1_Yol) & "\", GUICtrlRead($Input_ad))
If @error Then
MsgBox(16, "Hata", "Reg kaydı silinemedi!", "", $Form1)
Else
MsgBox(64, "Reg kaydı slindi!", "Reg kaydı silindi:" & @CRLF & GUICtrlRead($Input1_Yol) & "\" & GUICtrlRead($Input_ad), "", $Form1)
EndIf
Case $iMsgBoxAnswer = 7 ;No
EndSelect
EndFunc ;==>_Sil
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndTreeview
$hWndTreeview = $TreeView1
If Not IsHWnd($TreeView1) Then $hWndTreeview = GUICtrlGetHandle($TreeView1)
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndTreeview
Switch $iCode
Case $NM_DBLCLK
_YolBelirle()
$GetHandle = _GUICtrlTreeView_GetSelection($TreeView1)
_RegEnumKey_ListAdd(_GUICtrlStatusBar_GetText($StatusBar1, 0), $GetHandle)
_RegEnumVal_ListAdd(_GUICtrlStatusBar_GetText($StatusBar1, 0))
Case $NM_RCLICK
_YolBelirle()
$GetHandle = _GUICtrlTreeView_GetSelection($TreeView1)
If _GUICtrlTreeView_GetChecked($TreeView1, $GetHandle) = False Then
_GUICtrlTreeView_SetChecked($TreeView1, $GetHandle, True)
_Au3Code_Edit($GetHandle, True)
Else
_GUICtrlTreeView_SetChecked($TreeView1, $GetHandle, False)
_Au3Code_Edit($GetHandle, False)
EndIf
EndSwitch
Case $hWndListView
Switch $iCode
Case $NM_DBLCLK
$aItem = _GUICtrlListView_GetItemTextArray($ListView1, _GUICtrlListView_GetSelectedColumn($ListView1))
GUICtrlSetData($Input1_Yol, _GUICtrlStatusBar_GetText($StatusBar1, 0))
If $aItem[1] = "(Yeni Kayıt Oluştur)" Then
GUICtrlSetData($Button_Kaydet, "Kaydet")
GUICtrlSetData($Input_ad, "")
GUICtrlSetData($Input_Veri, "")
_GUICtrlComboBox_SelectString($Input_Tur, "", -1)
Else
GUICtrlSetData($Button_Kaydet, "Değiştir")
GUICtrlSetData($Input_ad, $aItem[1])
_GUICtrlComboBox_SelectString($Input_Tur, $aItem[2], -1)
GUICtrlSetData($Input_Veri, $aItem[3])
EndIf
If $aItem[2] = "" Then Return
GUISetState(@SW_SHOW, $Form2)
WinSetState($Form1, "", @SW_DISABLE)
Case $NM_CLICK
GUICtrlSetData($Input_code, _Au3Code(_GUICtrlListView_GetItemTextArray($ListView1, _GUICtrlListView_GetSelectedColumn($ListView1))))
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func _Au3Code($INF)
$READ_YOL = _GUICtrlStatusBar_GetText($StatusBar1, 0)
If $INF[1] = "(Yeni Kayıt Oluştur)" Then Return ""
If $INF[2] = "" Then Return ""
Switch GUICtrlRead($Combo1)
Case "RegReadCode:"
$Var = StringRegExpReplace($INF[1], "[!'()^+%&)/={[}{[}?.-><*/,]iüğşç;:!", "")
Return '$' & $Var & ' = ' & 'RegRead("' & $READ_YOL & '", "' & $INF[1] & '")'
Case "RegWriteCode:"
Return 'RegWrite("' & $READ_YOL & '", "' & $INF[1] & '", "' & $INF[2] & '", "' & $INF[3] & '")'
Case "RegDeleteCode:"
Return 'RegDelete("' & $READ_YOL & '", "' & $INF[1] & '")'
EndSwitch
EndFunc ;==>_Au3Code
Func _RegEnumVal_ListAdd($GetText_2)
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
GUICtrlCreateListViewItem("(Yeni Kayıt Oluştur)" & "|" & "REG_SZ" & "|" & "", $ListView1)
$Deger = RegRead($GetText_2, "")
For $i = 1 To 2000
$Var = RegEnumVal($GetText_2, $i)
If @error <> 0 Then ExitLoop
$Deger = RegRead($GetText_2, $Var)
If $Var = "" Then $Var = ("(Varsayılan)")
$Extended = _Extended(@extended)
$a = GUICtrlCreateListViewItem($Var & "|" & $Extended & "|" & $Deger, $ListView1)
Next
EndFunc ;==>_RegEnumVal_ListAdd
Func _Au3Code_Edit($GetHandle, $Bool)
Local $READ_YOL = _GUICtrlStatusBar_GetText($StatusBar1, 0), $Message_Edit
For $i = 1 To 5000
$Var = RegEnumVal($READ_YOL, $i)
If @error Then ExitLoop
$Deger = RegRead($READ_YOL, $Var)
$Extended = _Extended(@extended)
Switch GUICtrlRead($Combo1)
Case "RegReadCode:"
$Var_ = StringRegExpReplace($Var, "[!'() ^+%&)/=?.-><*/,iüğşç;:!", "")
$Message_Edit &= '$' & $Var_ & ' = ' & 'RegRead("' & $READ_YOL & '", "' & $Var & '")' & @CRLF
Case "RegWriteCode:"
$Message_Edit &= 'RegWrite("' & $READ_YOL & '", "' & $Var & '", "' & $Extended & '", "' & $Deger & '")' & @CRLF
Case "RegDeleteCode:"
$Message_Edit &= 'RegDelete("' & $READ_YOL & '", "' & $Var & '")' & @CRLF
EndSwitch
Next
If $Bool = True Then
GUICtrlSetData($Edit1, $Message_Edit, 1)
Else
If $Message_Edit <> "" Then
$Data_1 = StringReplace(GUICtrlRead($Edit1), $Message_Edit, "")
GUICtrlSetData($Edit1, $Data_1)
EndIf
EndIf
EndFunc ;==>_Au3Code_Edit
Func _Extended($ex)
Switch $ex
Case 0
Return "REG_NONE"
Case 1
Return "REG_SZ"
Case 2
Return "REG_EXPAND_SZ"
Case 3
Return "REG_BINARY"
Case 4
Return "REG_DWORD"
Case 5
Return "REG_DWORD_BIG_ENDIAN"
Case 6
Return "REG_LINK"
Case 7
Return "REG_MULTI_SZ"
Case 8
Return "REG_RESOURCE_LIST"
Case 9
Return "REG_FULL_RESOURCE_DESCRIPTOR"
Case 10
Return "REG_RESOURCE_REQUIREMENTS_LIST"
Case Else
Return "@error"
EndSwitch
EndFunc ;==>_Extended
Func _RegEnumKey_ListAdd($GetText, $GetHandle)
$GuiChlidC = _GUICtrlTreeView_GetChildCount($TreeView1, $GetHandle)
If $GuiChlidC > 0 Then
Return ""
EndIf
For $i = 1 To 10000
$Var = RegEnumKey($GetText, $i)
If @error <> 0 Then ExitLoop
_GUICtrlTreeView_AddChild($TreeView1, $GetHandle, $Var)
Next
EndFunc ;==>_RegEnumKey_ListAdd
Func _YolBelirle()
$Yol = _GUICtrlTreeView_GetTree($TreeView1)
$Yol = StringReplace($Yol, "|", "\")
_GUICtrlStatusBar_SetText($StatusBar1, $Yol, 1)
EndFunc ;==>_YolBelirle
[/codebox] -
Bir bilen yok mu? Arıyorum, Arıyorum bulamıyorum. :@
İnternet kafeye bu sebeble geldim birazdan sürem bitecek .
Elveda Autoit, Merhaba Ams
in AutoPlay Media Studio
Posted