blackman12

-.- inadım inat güncellemiyorum

Ben arama yaptım tonla çıktı, oradaki linkleri alıp buraya kopyalamak benim için çok kolay ama benim senin için bişeyler bulmam senin için başarı olmaz, bunu sen yapmalısın ki adı başarı olsun. bu konularda biraz huysuz ve aksiyim idare ediverin

Lisansbox 2.0 çıktı.

Fonksiyonları güncelledim, artık array şeklinde de dönüş alabiliyorsunuz.

Devlet Meteoroloji Enstitüsü sitesini yenilemiş dolayısıyla bu kodlar eksik veya hatalı veriler çekiyor. Bu yüzden UDF de değişiklikler yaptım, ayrıca _Ayirgetir, _Aragetir fonksiyonlarını da yeni sürümleriyle güncellemeniz gerekli:

[codebox]Dim $sehirler[341][2] = [[340,340],[01,"ADANA"],[02,"ADIYAMAN"],[03,"AFYONKARAHISAR"],[04,"AGRI"],[05,"AMASYA"],[06,"ANKARA"],[07,"ANTALYA"],[08,"ARTVIN"],[09,"AYDIN"], _
[10,"BALIKESIR"],[11,"BILECIK"],[12,"BINGOL"],[13,"BITLIS"],[14,"BOLU"],[15,"BURDUR"],[16,"BURSA"],[17,"CANAKKALE"], [18,"CANKIRI"],[19,"CORUM"],[20,"DENIZLI"], _
[21,"DIYARBAKIR"],[22,"EDIRNE"],[23,"ELAZIG"],[24,"ERZINCAN"],[25,"ERZURUM"],[26,"ESKISEHIR"],[27,"GAZIANTEP"], [28,"GIRESUN"],[29,"GUMUSHANE"],[30,"HAKKARI"], _
[31,"HATAY"],[32,"ISPARTA"],[33,"MERSIN"],[34,"ISTANBUL"],[35,"IZMIR"],[36,"KARS"],[37,"KASTAMONU"],[38,"KAYSERI"],[39,"KIRKLARELI"],[40,"KIRSEHIR"], _
[41,"KOCAELI"],[42,"KONYA"],[43,"KUTAHYA"],[44,"MALATYA"], [45,"MANISA"],[46,"K.MARAS"],[47,"MARDIN"],[48,"MUGLA"],[49,"MUS"],[50,"NEVSEHIR"],[51,"NIGDE"], _
[52,"ORDU"],[53,"RIZE"],[54,"SAKARYA"],[55,"SAMSUN"], [56,"SIIRT"],[57,"SINOP"],[58,"SIVAS"],[59,"TEKIRDAG"],[60,"TOKAT"],[61,"TRABZON"],[62,"TUNCELI"], _
[63,"SANLIURFA"],[64,"USAK"],[65,"VAN"],[66,"YOZGAT"],[67,"ZONGULDAK"],[68,"AKSARAY"],[69,"BAYBURT"],[70,"KARAMAN"],[71,"KIRIKKALE"],[72,"BATMAN"],[73,"SIRNAK"], _
[74,"BARTIN"],[75,"ARDAHAN"],[76,"IGDIR"],[77,"YALOVA"],[78,"KARABUK"],[79,"KILIS"],[80,"OSMANIYE"],[81,"DUZCE"],[0201,"CELIKHAN"],[0301,"BAYAT"],[0302,"BASMAKCI"], _
[0303,"BOLVADIN"],[0304,"CAY"],[0305,"COBANLAR"],[0306,"DINAR"],[0307,"EMIRDAG"],[0308,"EVCILER"],[0309,"HOCALAR"],[0310,"ISCEHISAR"],[0311,"IHSANIYE"], _
[0312,"KIZILOREN"],[0313,"SANDIKLI"],[0314,"SINANPASA"],[0315,"SUHUT"],[0316,"SULTANDAGI"],[0401,"DOGUBEYAZIT"],[0402,"PATNOS"],[6801,"ORTAKOY"],[0501,"MERZIFON"], _
[0502,"SULUOVA"],[0601,"BALA"],[0602,"BEYPAZARI"],[0603,"CANKAYA"],[0604,"CUBUK"],[0605,"ELMADAG"],[0606,"ETIMESGUT"],[0607,"GOLBASI"],[0608,"GUDUL"],[0609,"HAYMANA"], _
[0610,"KALECIK"],[0611,"KAZAN"],[0612,"KECIOREN"],[0613,"KIZILCAHAMAM"],[0614,"MAMAK"],[0615,"NALLIHAN"],[0616,"POLATLI"],[0617,"SEREFLIKOCHISAR"],[0701,"ALANYA"], _
[0702,"DEMRE"],[0703,"ELMALI"],[0704,"FINIKE"],[0705,"KAS"],[0706,"KEMER"],[0707,"KEPEZ"],[0708,"KONYAALTI"],[0709,"KORKUTELI"],[0710,"KUMLUCA"],[0711,"MANAVGAT"], _
[0801,"HOPA"],[0901,"DIDIM"],[0902,"KUSADASI"],[0903,"SULTANHISAR"],[0904,"SOKE"],[0905,"NAZILLI"],[1001,"AYVALIK"],[1002,"DURSUNBEY"],[1003,"BANDIRMA"], _
[1004,"EDREMIT"],[1005,"GONEN"],[1006,"MARMARAADASI"],[1007,"SINDIRGI"],[7401,"AMASRA"],[1101,"BOZUYUK"],[1102,"GOLPAZARI"],[1103,"OSMANELI"],[1104,"PAZARYERI"], _
[1105,"SOGUT"],[1301,"MUTKI"],[1501,"BUCAK"],[1502,"TEFENNI"],[1601,"GEMLIK"],[1602,"HARMANCIK"],[1603,"INEGOL"],[1604,"KELES"],[1605,"M.KEMALPASA"], _
[1606,"YENISEHIR"],[1701,"BIGA"],[1702,"BOZCAADA"],[1703,"GOKCEADA"],[1704,"LAPSEKI"],[1705,"EZINE"],[1801,"CERKES"],[1802,"ILGAZ"],[1803,"YAPRAKLI"], _
[2001,"ACIPAYAM"],[2002,"BABADAG"],[2003,"CAMELI"],[2004,"CARDAK"],[2005,"CIVRIL"],[2006,"GUNEY"],[2007,"KALE-DENIZLI"],[2008,"KARAHAYIT"],[2009,"PAMUKKALE"], _
[2010,"SARAYKOY"],[2011,"TAVAS"],[8101,"AKCAKOCA"],[2201,"IPSALA"],[2202,"UZUNKOPRU"],[2501,"HINIS"],[2502,"OLTU"],[2601,"ALPU"],[2602,"CIFTELER"],[2603,"GUNYUZU"], _
[2604,"MIHALICCIK"],[2605,"SARICAKAYA"],[2606,"SIVRIHISAR"],[2607,"SEYITGAZI"],[2801,"SEBINKARAHISAR"],[3001,"CUKURCA"],[3002,"SEMDINLI"],[3101,"ISKENDERUN"], _
[7601,"ARALIK"],[3201,"AKSU"],[3202,"EGIRDIR"],[3203,"SENIRKENT"],[3204,"ULUBORLU"],[3205,"YALVAC"],[3401,"BAKIRKOY"],[3402,"BESIKTAS"],[3403,"BEYKOZ"], _
[3404,"BUYUKADA"],[3405,"CATALCA"],[3406,"EYUP"],[3407,"FATIH"],[3408,"HADIMKOY"],[3409,"KADIKOY"],[3410,"PENDIK"],[3411,"SARIYER"],[3412,"SILIVRI"],[3413,"SILE"], _
[3414,"SISLI"],[3415,"TUZLA"],[3416,"UMRANIYE"],[3417,"USKUDAR"],[3501,"ALIAGA"],[3502,"BERGAMA"],[3503,"BORNOVA"],[3504,"CESME"],[3505,"CIGLI"],[3506,"DIKILI"], _
[3507,"FOCA"],[3508,"GAZIEMIR"],[3509,"KEMALPASA"],[3510,"KONAK"],[3511,"MENEMEN"],[3512,"ODEMIS"],[3513,"SEFERIHISAR"],[3514,"SELCUK"],[3515,"TORBALI"],[4601,"AFSIN"], _
[4602,"ELBISTAN"],[7001,"ERMENEK"],[3601,"ARPACAY"],[3602,"KAGIZMAN"],[3603,"SARIKAMIS"],[3701,"INEBOLU"],[3801,"BUNYAN"],[3802,"DEVELI"],[3803,"PINARBASI"], _
[3804,"SARIZ"],[3805,"TOMARZA"],[3806,"YESILHISAR"],[7101,"KARAKECILI"],[7102,"KESKIN"],[3901,"DEMIRKOY"],[3902,"LULEBURGAZ"],[4001,"CICEKDAGI"],[4002,"MUCUR"], _
[4101,"GEBZE"],[4102,"GOLCUK"],[4103,"KANDIRA"],[4104,"KARTEPE"],[4201,"AKSEHIR"],[4202,"BEYSEHIR"],[4203,"CUMRA"],[4204,"EREGLI-KONYA"],[4205,"KARAPINAR"], _
[4206,"KULU"],[4207,"SEYDISEHIR"],[4301,"ALTINTAS"],[4302,"DOMANIC"],[4303,"DUMLUPINAR"],[4304,"EMET"],[4305,"GEDIZ"],[4306,"SAPHANE"],[4307,"SIMAV"], _
[4308,"TAVSANLI"],[4401,"AKCADAG"],[4402,"DOGANSEHIR"],[4403,"KALE-MALATYA"],[4501,"AKHISAR"],[4502,"ALASEHIR"],[4503,"DEMIRCI"],[4504,"KOPRUBASI"],[4505,"SALIHLI"], _
[4506,"SOMA"],[4507,"TURGUTLU"],[4701,"KIZILTEPE"],[4702,"MAZIDAGI"],[4703,"NUSAYBIN"],[3301,"ANAMUR"],[3302,"SILIFKE"],[4801,"BODRUM"],[4802,"DALAMAN"], _
[4803,"DATCA"],[4804,"FETHIYE"],[4805,"KOYCEGIZ"],[4806,"MARMARIS"],[4807,"MILAS"],[4808,"YATAGAN"],[4901,"MALAZGIRT"],[5001,"AVANOS"],[5002,"DERINKUYU"], _
[5003,"KOZAKLI"],[5004,"URGUP"],[5201,"GOLKOY"],[5202,"UNYE"],[5301,"ARDESEN"],[5401,"GEYVE"],[5402,"HENDEK"],[5403,"KARASU"],[5501,"BAFRA"],[5601,"BAYKAN"], _
[5602,"ERUH"],[5801,"DIVRIGI"],[5802,"GEMEREK"],[5803,"GURUN"],[5804,"KANGAL"],[5805,"SARKISLA"],[6301,"BIRECIK"],[6302,"CEYLANPINAR"],[6303,"SIVEREK"], _
[6304,"VIRANSEHIR"],[5901,"CERKEZKOY"],[5902,"CORLU"],[5903,"MALKARA"],[6001,"BASCIFTLIK"],[6002,"ERBAA"],[6003,"NIKSAR"],[6004,"TURHAL"],[6005,"YESILYURT"], _
[6006,"ZILE"],[6101,"MACKA"],[6102,"OF"],[6401,"BANAZ"],[6402,"ESME"],[6403,"SIVASLI"],[6404,"ULUBEY-USAK"],[6501,"MURADIYE"],[7701,"CINARCIK"],[6601,"AKDAGMADENI"], _
[6602,"BOGAZLIYAN"],[6603,"SORGUN"],[6701,"ALAPLI"],[6702,"CAYCUMA"],[6703,"DEVREK"],[6704,"EREGLI-KARADENIZ"]]

Dim $hadise[28][2] = [[27,27],[0,"HAVA AÇIK"],[1,"SICAK"],[2,"SOĞUK"],[3,"AZ BULUTLU"],[4,"PARÇALI BULUTLU"],[5,"ÇOK BULUTLU"],[6,"KURU DUMAN"],[7,"PUSLU"],[8,"DONAN SİSLİ İNCE SİS (HAZE)"], _
[10,"YAĞMURLU"],[9,"HAFİF YAĞMURLU"],[11,"KUVVETLİ YAĞMURLU"],[13,"SAĞANAK YAĞIŞLI"],[12,"SAĞANAK HAFİF YAĞMURLU HAFİF SAĞANAK YAĞIŞLI"],[14,"KUVVETLİ SAĞANAK YAĞIŞLI"],[15,"HAFİF KAR YAĞIŞLI HAFİF KARLI"], _
[16,"KAR YAĞIŞLI"],[17,"YOĞUN KAR YAĞIŞLI"],[18,"YER YER SAĞANAK YAĞIŞLI"],[19,"DOLU"],[20,"GÖKGÜRÜLTÜLÜ SAĞANAK YAĞIŞLI"],[21,"KARLA KARIŞIK YAĞMURLU"], _
[22,"RÜZGARLI KUVVETLİ RÜZGAR"],[23,"TOZ VEYA KUM FIRTINASI"],[24,"GÜNEYLİ KUVVETLİ RÜZGAR"],[25,"KUZEYLİ KUVVETLİ RÜZGAR"],[26,""]]
#endregion

Func _YerOku($kod)
Local $text, $i, $t, $return[2]
if Not IsNumber($kod) then Return -1
for $i = 1 to $sehirler[0][0]
if Number($sehirler[$i][0]) = Number($kod) Then
$t = $i
ExitLoop
EndIf
Next
$return[0] = BinaryToString(InetRead('http://www.dmi.gov.tr/tahmin/il-ve-ilceler.aspx?m='&$sehirler[$t][1],1))
if $return[0] = "" Then Return -1
if StringInStr(_AraGetir($return[0],"<title>","</title>"),"istenen merkez bulunamad") <> 0 then Return -1
$return[1] = $t
Return $return
EndFunc

Func _CografiGetir($text)
;tCografi: 0: Sayi, 1: Yukseklik, 2: Enlem, 3: Boylam, 4: Gündoğumu, 5: Günbatımı, 6: Bölge, 7: Havza
Local $tCografi[8]
$tCografi[0] = 7
$tCografi[1] = _AyirGetir($text,'pMerkezYuksekligi">','</p>')
$tCografi[2] = _AyirGetir($text,'pMerkezEnlem">','</p>')
$tCografi[3] = _AyirGetir($text,'pMerkezBoylam">','</p>')
$tCografi[4] = _AyirGetir($text,'pMerkezGD">','</p>')
$tCografi[5] = _AyirGetir($text,'pMerkezGB">','</p>')
$tCografi[6] = _KelimeDuzelt(_AyirGetir($text,'pMerkezBolge">','</p>'))
If $tCografi[6] = "Güneydoğu Anadolu" Then $tCografi[6] = "G. Anadolu"
If $tCografi[6] = "Doğu Anadolu" Then $tCografi[6] = "D. Anadolu"
$tCografi[7] = "-"
Return $tCografi
EndFunc

Func _XGunlukGetir($text,$x = 5)
;t5Gunluk[a][b] a= Gunler b= 0: Değişken Sayısı, 1: Tarih, 2: Minimum Sıcaklık, 3: Maksimum Sıcaklık, 4: Durum, 5: Minimum Nem, 6: Maksimum Nem, 7: Rüzgar Yönü,
; 8: Rüzgar Hızı, 9: Hava Durum Resim No, 10: Rüzgar Yön Resim No
Local $t5Gunluk[$x][11], $a, $i
for $i = 1 to $x
if $i = 1 or $i = 3 or $i = 5 Then
$t5Gunluk[$i-1][0] = 10
$t5Gunluk[$i-1][1] = _AraGetir($text,'thmGun'&$i&'" class="arkaTrh">','</th>')
$t5Gunluk[$i-1][2] = _AraGetir($text,'thmMin'&$i&'" class="minS">','</td>')
$t5Gunluk[$i-1][3] = _AraGetir($text,'thmMax'&$i&'" class="maxS">','</td>')
$t5Gunluk[$i-1][4] = _KelimeDuzelt(_AraGetir($text,'imgHadise'&$i&'" title="','" src="../FILES/imgIcon/'))
$t5Gunluk[$i-1][5] = _AraGetir($text,'thmNemMin'&$i&'" class="minN">','</td>')
$t5Gunluk[$i-1][6] = _AraGetir($text,'thmNemMax'&$i&'" class="maxN">','</td>')
$t5Gunluk[$i-1][7] = _AyirGetir($text,'thmRuzgarYon'&$i&'">','" title="','"')
$t5Gunluk[$i-1][8] = _AraGetir($text,'thmRuzgarHiz'&$i&'">','</td>')
for $a = 1 to $hadise[0][0]
if StringInStr($hadise[$a][1],_AraGetir($text,'imgHadise'&$i&'" title="','" src="../FILES/imgIcon/')) Then
$t5Gunluk[$i-1][9] = $hadise[$a][0]
ExitLoop
EndIf
Next
$t5Gunluk[$i-1][10] = _AyirGetir($text,'thmRuzgarYon'&$i&'">','.gif" alt="','/')
Else
if $i = 2 Then
$t5Gunluk[$i-1][0] = $x-1
Else
$t5Gunluk[$i-1][0] = 10
EndIf
$t5Gunluk[$i-1][1] = _AraGetir($text,'thmGun'&$i&'" class="arkaAlterTrh">','</th>')
$t5Gunluk[$i-1][2] = _AraGetir($text,'thmMin'&$i&'" class="arkaAlter minS">','</td>')
$t5Gunluk[$i-1][3] = _AraGetir($text,'thmMax'&$i&'" class="arkaAlter maxS">','</td>')
$t5Gunluk[$i-1][4] = _KelimeDuzelt(_AraGetir($text,'imgHadise'&$i&'" title="','" src="../FILES/imgIcon/'))
$t5Gunluk[$i-1][5] = _AraGetir($text,'thmNemMin'&$i&'" class="arkaAlter minN">','</td>')
$t5Gunluk[$i-1][6] = _AraGetir($text,'thmNemMax'&$i&'" class="arkaAlter maxN">','</td>')
$t5Gunluk[$i-1][7] = _AyirGetir($text,'thmRuzgarYon'&$i&'" class="arkaAlter">','" title="','"')
$t5Gunluk[$i-1][8] = _AraGetir($text,'thmRuzgarHiz'&$i&'" class="arkaAlter">','</td>')
for $a = 1 to $hadise[0][0]
if StringInStr($hadise[$a][1],_AraGetir($text,'imgHadise'&$i&'" title="','" src="../FILES/imgIcon/')) Then
$t5Gunluk[$i-1][9] = $hadise[$a][0]
ExitLoop
EndIf
Next
$t5Gunluk[$i-1][10] = _AyirGetir($text,'thmRuzgarYon'&$i&'" class="arkaAlter">','.gif" alt="','/')
EndIf
Next
Return $t5Gunluk
EndFunc

Func _SonDurumGetir($text)
;SonDurum: 0: Sayi, 1: Hava Durumu, 2: Sıcaklık, 3: Nem, 4: Basınç, 5: Görüş Mesafesi, 6: Rüzgar Yönü, 7: Rüzgar Hızı, 8: Son Durum Resim No, 9: Rüzgar Yön Resim No
Local $tSonDurum[10], $local
$tSonDurum[0] = 9
$local = _AyirGetir($text,'<td rowspan="2"><img src="','" />','"')
$tSonDurum[1] = _KelimeDuzelt($local)
$nText = _AraGetir($text,'class="sond_zaman">','</tr>')
$donusler = _AyirGetir($nText,"<td>","</em>",">",1)
$tSonDurum[2] = $donusler[0]
$tSonDurum[3] = $donusler[1]
$tSonDurum[4] = $donusler[3]
$tSonDurum[5] = $donusler[4]
$tSonDurum[6] = _AyirGetir($nText,'imgIcon/ruzgar/','" />','"')
$tSonDurum[7] = $donusler[2]
$tSonDurum[8] = ""
for $a = 1 to $hadise[0][0]
if StringInStr($hadise[$a][1],$local) Then
if (Number(StringReplace(_AyirGetir($text,'pMerkezGB">','</p>'),":","")) < Number(@HOUR&@MIN)) or (Number(StringReplace(_AyirGetir($text,'pMerkezGD">','</p>'),":","")) > Number(@HOUR&@MIN)) Then
$tSonDurum[8] = "1" & $hadise[$a][0]
; $tSonDurum[8] = Random(0,1,1) & $hadise[$a][0]
Else
$tSonDurum[8] = "0" & $hadise[$a][0]
; $tSonDurum[8] = Random(0,1,1) & $hadise[$a][0]
EndIf
ExitLoop
EndIf
Next
if StringTrimLeft($tSonDurum[8],1) = "" or StringTrimLeft($tSonDurum[8],1) = "..." Then
if (Number(StringReplace(_AyirGetir($text,'pMerkezGB">','</p>'),":","")) < Number(@HOUR&@MIN)) or (Number(StringReplace(_AyirGetir($text,'pMerkezGD">','</p>'),":","")) > Number(@HOUR&@MIN)) Then
$tSonDurum[8] = "1" & $hadise[27][0]
; $tSonDurum[8] = Random(0,1,1) & $hadise[27][0]
Else
$tSonDurum[8] = "0" & $hadise[27][0]
;$tSonDurum[8] = Random(0,1,1) & $hadise[27][0]
EndIf
EndIf
$tSonDurum[9] = _AyirGetir($text,'imgIcon/ruzgar/','.gif" alt',"/")
Return $tSonDurum
EndFunc[/codebox]

herhangi bir ilişki kurmana gerek yok, rar.exe yi shellexecute ve parametrelerle çalıştırman yeterli, gerekli parametreler ben ve blue_life tarafından daha önce forumda verildi

Evvett gençler, programı güncelledim, çok bomba özellikler ekledim. Ama changelog tutmayı unuttum Üşenmezseniz, ilk mesajı okuyun üşenenler ve özet geç diyenler de programı indirip mutlaka denesinler

anladığım kadarıyla bir klasörde rar dosyaları var ve sen bunları çıkartmak istiyorsun o zaman ipuçların:

filelisttoarray, for, unrar (hatta ben unrar plugini kullanmıyorum çoğunlukla winrarın içindeki rar.exe daha güzel)

Biz onu yaptık videosunu bile koyduk.

off Logout butonunun resimli anlatımını ister misin? Yoksa illa siz mi yol gösterin diyosun?

Yok o şimdi mıçtım, tüyümü de dikim basmasınlar üstüne diye uğraşıyo.

Şimdi 1 Nisan Oscar'larını dağıtmaya geldi:

Şakayı En Hızlı Anlayan Üyemiz:

endı oskar gozzztuuu: acronisli

Günün en iyi tiyatral yeteneği: Akozdemir

Günün bombası: cumman (Ben once bu karari destekliyordum fakat aldigim 8. dustan sonra karsi cikma karari aldim.)

Günün Aynştaynı kendisine Blackman12 Jüri Özel Ödülünü de bizzat taktim etmek istiyorum: ByHaluK (Kendisi bu ödülü şakayı hala gerçek sanarak kazanmıştır.)

Günün Kaybedenleri: El-Arabi, ElsaTeknikServis

capsler mapslerde toplaşır yakında...

Biraz ekleme yapmak gerekirse:

Sqrt bana göre gereksiz bile denebilir. matematik bilen adam x^(1/2) şeklinde de karekök alabilir hatta bu yöntemle küp kök alabilirim ama autoitte küp kök için bir fonksiyon bulamazsınız mesela.

BitOR ve BitAND; eğer 2 tabanında verileriniz var ise (örneğin $deneme = true veya $degisken = false gibi) ve siz $button değişkenli butona bastığınızda bu iki durumu göz önünde bulundurarak bir işlem yaptıracaksanız kullanabilirsiniz. Örnek vermek gerekirse Fast Airbenderın son sürümünde görüceksiniz.
Program Kış uykusundayken $kisuykusu = 1 değerini alıyor, ve transparan modda olduğu için diğer pencerelerin üstüne çıkıyor.
Programda Her zaman üstte seçeneği seçildiğinde de $ontop = 1 değerini alıyor.
Yani bu iki değerden biri 1 e eşitse ben penceremiz diğer pencerelerin üstüne yerleştirmek istiyorum, bu durumda ben winsetontop komutunu verirken WinSetOnTop ( "title", "text", BitOR($kisuykusu,$ontop)) şeklinde kullanıyorum. Böylece kisuykusu = 1 ken $ontop = 0 olsa dahi pencere üstte oluyor. ya da tam tersinde de durum aynı.
BitAND ise aynı anda ikisi de 1 olmalıki sonuç 1 çıksın. buna uygun örneği sen geliştir ne kadar anladığını görelim

StringRegExpReplace() ı da biraz anladım ama anlatırsam benimde kafam karışır bu komut içimde bi yaradır ki sorma blue_life a sormak lazım onu da.

Ayrıca bi bilgilendirme yapmak gerekirse: kesin bir kaynak olarak bir nisanın nereden çıktığını söylemek yanlış olur ama, yok haçlıymış yok müslüman kalesiymiş gibi bir hikaye kesinlikle gerçek dışıdır ve hiç bir tarihi kitapta böyle safsatalara yer verilmez. Ama en azından wikipedia okuyun arkadaşlar ya:

1564 - İlk "1 Nisan" şakaları Fransa'da yapılmaya başlandı. Bu yıl değiştirilen takvime göre, eski yılbaşı sayılan Nisan'ın 1'i, yerini yeni yılbaşı [i]1 Ocak[/i]a bırakmaktaydı. Nisan'ın ilk günü yeni yıl kutlamaya alışmış olan halk ve yeni takvim uygulamasını beğenmeyenler, çeşitli şakalar yapmaya başladılar. Fransızlar, bu şakalara [i]Poisson D'avril[/i] (Nisan balığı) adını verdiler.

yardımcı olmaya çalışıyorm ama bi kere de eşeğin kulağına su kaçırmayın arkadaş ya.

her serialin bir kere kullanılması internet üzerinden kontrolünü yapabileceğin birşey. onu geç ama kullanıcıya serial üretip vermek senin elinde mesajımda vermiş oluğum ufak kod ile bunu yapabilirsin.

programa onu girmeden giriş yapamamasını falan sen yazıcaksın. programın açılışında bu fonksiyonu çağırırsın ve eşleşme doğru ise programı açarsın falan.

Gençler öyle diyosunuz da, buyrun işte 2 aylık host masrafımızı bir gece de çıkardık. anlaşılan uzun zamandır sitede ihtiyaç duyulan bi bölümmüş bu eksikliği farketmemizin bu kadar uzun sürmesi bile bir kayıp! Yeni TnCSever arkadaşlarımıza hoşgeldiniz diyoruz, bu bölüm bize çok iyi gelecek çoookk...

Kendinize key üretmek için:

[code]$kullanici = "blackman12"
$sor = MsgBox(4,"Örnek bir kullanıcı adı ve şifresi oluşturalım:","Kullanıcı adı:"&$kullanici&@CRLF&"Şifre:"&_Sifrele($kullanici)&@CRLF&@CRLF&"Şifre panoya kopyalansın mı?")
if $sor = 6 Then ClipPut(_Sifrele($kullanici))[/code]

Bu udf yi adım adım geliştirmeyi düşünüyorum ilk adım çoğu programın kullandığı kullanıcı adına göre key üretme metodu. Bu fonksiyonu direk programlarınıza kopyalayarak kullanabilirsiniz.

V2.0: Kendi yazımım algoritma ile ve kullanıcı adı kullanılarak:
İlgili örnek ve UDF linktedir.
[code]http://www.mediafire.com/?feq5v56tnwe97wf[/code]

V1.0 : AutoIT'in kendi algoritması ve kullanıcı adı kullanılarak:
[spoiler]
[codebox]#include <String.au3>
;blackman12
;FDF1blac80529DD983C8
Global $si[5]
_LisansBox()
Func _LisansBox()
HotKeySet("^v","_Yapistir")
$gui = GUICreate("Lisans Anahtarını Girin",320,120)
GUICtrlCreateLabel("Kullanıcı adı:",10,15)
$kinput = GUICtrlCreateInput("",80,12,215,21)
GUICtrlCreateLabel("Lisans kodu:",10,45)
$si[0] = GUICtrlCreateInput("",80,42,35,21)
GUICtrlSetLimit(-1,4)
GUICtrlCreateLabel("-",117,45)
$si[1] = GUICtrlCreateInput("",125,42,35,21)
GUICtrlSetLimit(-1,4)
GUICtrlCreateLabel("-",162,45)
$si[2] = GUICtrlCreateInput("",170,42,35,21)
GUICtrlSetLimit(-1,4)
GUICtrlCreateLabel("-",207,45)
$si[3] = GUICtrlCreateInput("",215,42,35,21)
GUICtrlSetLimit(-1,4)
GUICtrlCreateLabel("-",252,45)
$si[4] = GUICtrlCreateInput("",260,42,35,21)
GUICtrlSetLimit(-1,4)
$tamam = GUICtrlCreateButton("OK",20,80,100,20)
$cikis = GUICtrlCreateButton("Kapat",200,80,100,20)
GUISetState()
While 1
for $s = 0 to 4
if ControlGetHandle($gui,"",ControlGetFocus($gui)) = ControlGetHandle($gui,"",$si[$s]) Then
if StringLen(GUICtrlRead($si[$s])) = 4 Then ControlSend($gui,"",$si[$s],"{TAB}")
EndIf
Next
$nmsg = GUIGetMsg()
Switch $nmsg
Case -3, $cikis
HotKeySet("^v")
ExitLoop
Case $tamam
if StringLen(GUICtrlRead($kinput)) < 5 Then
MsgBox(0,"Kullanıcı adı yanlış","Kullanıcı adı 5 karakterden az olamaz.")
Else
$veri1= GUICtrlRead($kinput)
$veri2= ""
for $i = 0 to UBound($si)-1
$veri2 &= GUICtrlRead($si[$i])
Next
if _Sifrele($veri1) = StringUpper($veri2) Then
MsgBox(64,"Tebrikler!","Lisans işlemi başarıyla tamamlandı.")
Else
MsgBox(16,"Üzgünüz!","Girilen kayıt kodu geçerli değil.")
EndIf
EndIf
EndSwitch
WEnd
EndFunc

Func _Sifrele($text, $sifre = "www.TnCTR.com")
if not IsString($text) then Return -1
$enc = _StringEncrypt(1,$text,$sifre,3)
$len = StringLen($enc)
$donecek = StringMid($enc,$len-10,4)
$donecek &= StringLeft($text,4)
$donecek &= StringRight($enc,4)
$donecek &= StringMid($enc,$len-20,4)
$donecek &= StringMid($enc,$len-15,4)
Return $donecek
EndFunc

Func _Yapistir()
Local $clip = ClipGet(), $y = 1
if IsString($clip) And StringLen($clip) = 20 Then
For $i = 0 to UBound($si) -1
GUICtrlSetData($si[$i],StringMid($clip,$y,4))
$y += 4
Next
EndIf
EndFunc[/codebox]
[/spoiler]
Bundan sonraki adımlar:

1 - Girilen kullanıcı adını ve bilgisayarın değişmez bilgilerini baz alarak KENDİ ŞİFRELEME ALGORİTMASInı kullanarak key üretme.
2 - Girilen kullanıcı adını ve bilgisayarın değişmez bilgilerini kullanarak KENDİ ALGORİTMASInı kullanarak REFERANS KODU üretme ve bu kod ile İNTERNETTEN AKTİVASYON

Örneği biraz daha geliştirdim ve daha işlevsel bir hale getirdim:

[codebox]Global $dildosyasi = "lang.ini"
Dim $nesneler[4]
$nesneler[0] = GUICreate("",500,500)
$combo = GUICtrlCreateCombo("",20,20,100,20,0x0003)
$button = GUICtrlCreateButton("tamam",20,50,100,25)
$nesneler[1] = GUICtrlCreateLabel("",20,90,100,20)
$nesneler[2] = GUICtrlCreateInput("",20,120,100,21)
$nesneler[3] = GUICtrlCreateButton("",20,150,100,25)
;
$lang = _RegOku("lang","Türkçe")
GUICtrlSetData($combo,_SetLanguage($lang,0),$lang)
_DiliYerlestir($nesneler)
;
GUISetState()

While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case -3
Exit
Case $button
RegWrite("HKEY_CURRENT_USER\Software\HavvaDurumu\Dil","lang","REG_SZ",GUICtrlRead($combo))
_DiliYerlestir($nesneler)
EndSwitch
WEnd

Func _DiliYerlestir(ByRef $aArray)
if not IsArray($aArray) Then Return -1
$dilial = _RegOku("lang","Türkçe")
$dilgetir = _SetLanguage($dilial)
if Not @error Then
for $i = 0 to UBound($aArray)-1
if WinExists($aArray[$i]) Then
WinSetTitle($aArray[$i],"",$dilgetir[$i+1])
Else
GUICtrlSetData($aArray[$i],$dilgetir[$i+1])
EndIf
Next
Else
SetError(1)
Return -2
EndIf
EndFunc

Func _SetLanguage($dil,$flag = 1)
Local $dilvar = 0, $return[1] = [0], $diller = ""
if FileExists($dildosyasi) Then
$dilvarmi = IniReadSectionNames($dildosyasi)
if Not @error Then
if $flag Then
for $i = 1 to $dilvarmi[0]
if $dilvarmi[$i] = $dil Then
$dilvar = 1
ExitLoop
EndIf
Next
if $dilvar = 0 Then
SetError(3)
Return -3
Else
$deger = IniRead($dildosyasi,"t","deger",3)
ReDim $return[$deger+2]
$return[0] = $deger+1
if Not @error Then
for $i = 1 to $deger+1
$return[$i] = IniRead($dildosyasi,$dil,$i-1,"")
Next
SetError(0)
Return $return
Else
SetError(4)
Return -4
EndIf
EndIf
Else
for $i = 1 to $dilvarmi[0]
if $dilvarmi[$i] <> "t" Then $diller &= $dilvarmi[$i] & "|"
Next
Return $diller
EndIf
Else
SetError(2)
Return -2
EndIf
Else
SetError(1)
Return -1
EndIf
EndFunc

Func _RegOku($Ad,$Deger,$iStr = 1)
$Degisken = RegRead("HKEY_CURRENT_USER\Software\HavvaDurumu\Dil",$Ad)
If $Degisken = "" Then
if $iStr = 0 Then $Deger = Number($Deger)
RegWrite("HKEY_CURRENT_USER\Software\HavvaDurumu\Dil",$Ad,"REG_SZ",$Deger)
$Degisken = $Deger
Else
if $iStr = 0 Then $Degisken = Number($Degisken)
EndIf
Return $Degisken
EndFunc[/codebox]

Evet gecenin 1inde oturdum bu fonksiyonu yazdım arkadaşlar. işinizi hayli kolaylaştırabilecek bir fonksiyon. Bir örneği paylaşıyorum aşağıda kullanım alanları geniştir. size düşen bu alanları keşfetmek:

[code]Global $dildosyasi = "lang.ini"
$gui = GUICreate("",500,500)
$combo = GUICtrlCreateCombo("",20,20,100,20,0x0003)
$button = GUICtrlCreateButton("tamam",20,50,100,25)
$label = GUICtrlCreateLabel("",20,90,100,20)
$input = GUICtrlCreateInput("",20,120,100,21)
$buton2 = GUICtrlCreateButton("",20,150,100,25)
;
$lang = _RegOku("lang","Türkçe")
$dilgetir = _SetLanguage($lang)
GUICtrlSetData($combo,_SetLanguage($lang,0),$lang)
GUICtrlSetData($label,$dilgetir[1])
GUICtrlSetData($input,$dilgetir[2])
GUICtrlSetData($buton2,$dilgetir[3])
WinSetTitle($gui,"",$dilgetir[4])
;
GUISetState()

While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case -3
Exit
Case $button
RegWrite("HKEY_CURRENT_USER\Software\HavvaDurumu\Dil","lang","REG_SZ",GUICtrlRead($combo))
$yenile = _SetLanguage(GUICtrlRead($combo))
GUICtrlSetData($label,$yenile[1])
GUICtrlSetData($input,$yenile[2])
GUICtrlSetData($buton2,$yenile[3])
WinSetTitle($gui,"",$yenile[4])
EndSwitch
WEnd



Func _SetLanguage($dil,$flag = 1)
Local $dilvar = 0, $return[1] = [0], $diller = ""
if FileExists($dildosyasi) Then
$dilvarmi = IniReadSectionNames($dildosyasi)
if Not @error Then
if $flag Then
for $i = 1 to $dilvarmi[0]
if $dilvarmi[$i] = $dil Then
$dilvar = 1
ExitLoop
EndIf
Next
if $dilvar = 0 Then
SetError(3)
Return -3
Else
$deger = IniRead($dildosyasi,"t","deger",3)
ReDim $return[$deger+2]
$return[0] = $deger+1
if Not @error Then
for $i = 1 to $deger+1
$return[$i] = IniRead($dildosyasi,$dil,$i-1,"")
Next
SetError(0)
Return $return
Else
SetError(4)
Return -4
EndIf
EndIf
Else
for $i = 1 to $dilvarmi[0]
if $dilvarmi[$i] <> "t" Then $diller &= $dilvarmi[$i] & "|"
Next
Return $diller
EndIf
Else
SetError(2)
Return -2
EndIf
Else
SetError(1)
Return -1
EndIf
EndFunc

Func _RegOku($Ad,$Deger,$iStr = 1)
$Degisken = RegRead("HKEY_CURRENT_USER\Software\HavvaDurumu\Dil",$Ad)
If $Degisken = "" Then
if $iStr = 0 Then $Deger = Number($Deger)
RegWrite("HKEY_CURRENT_USER\Software\HavvaDurumu\Dil",$Ad,"REG_SZ",$Deger)
$Degisken = $Deger
Else
if $iStr = 0 Then $Degisken = Number($Degisken)
EndIf
Return $Degisken
EndFunc[/code]

lang.ini içeriği:

[code][t]
deger=3

[Spanish]
0=hola
1=este
2=experimento
3=el tutilo de esta

[Italian]
0=ciao
1=quesot
2=esperimento
3=il titolo di questo

[Türkçe]
0=merhaba
1=bu bir
2=deneme
3=bu da başlık

[English]
0=welcome
1=this is an
2=experiment
3=this is a title

[Russian]
0=??????
1=????
2=???????????
3=????? ? ???? ???????

[French]
0=bonjour
1=cette
2=exprience
3=le titre de cette[/code]

Maalesef :

[code]Most laptop computer keyboards have a special Fn key. This key cannot be simulated.[/code]

[code]Opt("GUIResizeMode", 802)
Dim $checkler[1] = [0]
$yol = "HKEY_CURRENT_USER\Software\HavvaDurumu"
$gui = GUICreate("deneme",200,200,0,20)
GUICtrlSetResizing (-1, 856);burayı hatırlayamadım
$y = 25
for $i = 1 to 100000
$reg = RegEnumVal($yol,$i)
if $reg = "" Then
ExitLoop
Else
ReDim $checkler[$i]
$checkler[$i-1] = GUICtrlCreateCheckbox($reg,20,$y,200,20)
$y += 25
EndIf
Next
WinMove($gui,"",Default,Default,200,$y + 50)
GUISetState()

While 1
$nmsg = GUIGetMsg()
if $nmsg = -3 Then
Exit
Elseif $nmsg = $checkler[2] Then
MsgBox(0,"","deneme")
EndIf
WEnd[/code]

bazı durumlarda daha yüksek boyutla çıkabilir ki çıkması da gerektir aslında sadece upxle sıkıştırdığımızdan dolayı bi kazanç sağlıyoruz. sonuçta:

boyut = kurulum dosyaları + autoit exesi

ControlSend("Oyunun texti", "", "edit1", sText)

oyunun texti gelmicek oraya handleı gelecek ya da title ı