ortho

Ustalarım, sayenizde autoit'le az bişeyler yapabiliyorum. Eskiden oynadığımız sayı oyunu vardı, dün onu yapayım dedim. 4 rakamlı ve rakamları birbirinden farklı bir sayı tutuyor bilgisayar. Sonra bizden tahmin istiyor. Rakamları ve yerleri tutarsa + olarak, rakamları tutup da yerleri tutmazsa - olarak bize ip ucu veriyor. +4 olursa sayıyı bildik demektir. Muhtemelen çoğu kişi bu oyunu biliyordur. Kodlarını yazdım ve çalışıyor. Bir eksiğim ya da yanlışım varsa ve düzeltirseniz sevinirim: Global $sRandom1 = "" Global $randarray[4] Global $answer1 Global $ansarray[4] Global $Plus = 0 Global $Minus = 0 Global $Ok = 1 Global $Ok2 = 1 Global $Yard = 0 Global $Sayac = 0 For $i = 0 To 3 $randarray[$i] = Random(0, 9, 1) If $i = 0 Then If $randarray[0] = "0" Then Do $randarray[$i] = Random(0, 9, 1) Until $randarray[0] <> "0" EndIf $sRandom1 &= $randarray[$i] EndIf If $i = 1 Then $a = StringCompare($randarray[1], $randarray[0]) If $a = 0 Then Do $randarray[$i] = Random(0, 9, 1) $a = StringCompare($randarray[1], $randarray[0]) Until $a <> 0 EndIf $sRandom1 &= $randarray[$i] EndIf If $i = 2 Then $a = StringCompare($randarray[2], $randarray[0]) $b = StringCompare($randarray[2], $randarray[1]) If $a = 0 Or $b = 0 Then Do $randarray[$i] = Random(0, 9, 1) $a = StringCompare($randarray[2], $randarray[0]) $b = StringCompare($randarray[2], $randarray[1]) Until $a <> 0 And $b <> 0 EndIf $sRandom1 &= $randarray[$i] EndIf If $i = 3 Then $a = StringCompare($randarray[3], $randarray[0]) $b = StringCompare($randarray[3], $randarray[1]) $c = StringCompare($randarray[3], $randarray[2]) If $a = 0 Or $b = 0 Or $c = 0 Then Do $randarray[$i] = Random(0, 9, 1) $a = StringCompare($randarray[3], $randarray[0]) $b = StringCompare($randarray[3], $randarray[1]) $c = StringCompare($randarray[3], $randarray[2]) Until $a <> 0 And $b <> 0 And $c <> 0 EndIf $sRandom1 &= $randarray[$i] EndIf Next MsgBox(0, "", "Aklımdan 4 basamaklı ve rakamları birbirinden farklı" & @CRLF & "bir sayı tuttum. Bakalım bilebilecek misin?") While Not $Plus = 4 Do $Plus = 0 $Minus = 0 $k = 0 $Ok = 1 $Ok2 = 1 $answer1 = InputBox("Tahmin", "Tahmininizi yazın" & @CRLF & "(Çıkış için Cancel'a basınız)" & @CRLF & 'Yardım için "help" yazınız', "", " M4", 190, 140) If @error = 1 Then Exit $i = 0 If $answer1 = "help" Then MsgBox(0, "KOPYA", $sRandom1) $Yard = 1 ExitLoop EndIf For $i = 0 To 3 $ansarray[$i] = StringMid($answer1, $i + 1, 1) If $i = 0 And $ansarray[$i] = "0" Then MsgBox(0, "Uyarı", "İlk rakam sıfır olamaz") $Ok = 0 $Ok = 0 EndIf $IsNum = StringIsDigit($ansarray[$i]) If $IsNum = 0 Then MsgBox(0, "Uyarı", "Sadece rakam giriniz") $Ok = 0 ExitLoop EndIf Next $i = 0 If $Ok = 1 Then For $i = 0 To 2 If $i = 0 Then If ($ansarray[0] = $ansarray[1]) Or ($ansarray[0] = $ansarray[2]) Or ($ansarray[0] = $ansarray[3]) Then MsgBox(48, "Uyarı", "Lütfen rakamları farklı olsun") $Ok2 = 0 ExitLoop EndIf EndIf If $i = 1 Then If ($ansarray[1] = $ansarray[2]) Or ($ansarray[1] = $ansarray[3]) Then MsgBox(48, "Uyarı", "Lütfen rakamları farklı olsun") $Ok2 = 0 ExitLoop EndIf EndIf If $i = 2 Then If ($ansarray[2] = $ansarray[3]) Then MsgBox(48, "Uyarı", "Lütfen rakamları farklı olsun") $Ok2 = 0 ExitLoop EndIf EndIf Next EndIf $i = 0 For $i = 0 To 3 If $randarray[$i] = $ansarray[$i] Then $Plus = $Plus + 1 EndIf Next $i = 0 $k = 0 For $i = 0 To 3 For $k = 0 To 3 If $ansarray[$i] = $randarray[$k] Then $Minus = $Minus + 1 EndIf Next Next $Minus = $Minus - $Plus $Sayac = $Sayac + 1 If $Plus = 4 Then If $Yard = 1 Then MsgBox(0, "Tebrikler", $Sayac & " hakta bildiniz!" & @CRLF & "(Biraz yardım aldık galiba:))") Else MsgBox(0, "Tebrikler", $Sayac & " hakta bildiniz!") EndIf Else If $Ok = 1 And $Ok2 = 1 Then MsgBox(0, "İpucu", "+" & $Plus & " -" & $Minus) EndIf Until $Plus = 4 WEnd Ayrıca birkaç sorum olacaktı: 1.Inputbox aracılığıyla alınan girdi string olarak mı alınıyor sadece? IsNumber komutuyla girilen değerin rakam içerip içermediğini kontrol etmeye çalıştım ama olmadı. Sonradan StringIsDigit komutuyla işi yaptım. 2.Inputbox veya MsgBox ile yazdığımız stringleri kutuya ortalayarak yazdırabilir miyiz? 3.Setup'ı aracılığıyla kurmakta olduğumuz bir programın nereye hangi dosyaları attığını, registry'e neler girdiğini öğrenebilir miyiz? Araştırdım ama bir yöntem ya da bu işi yapan bir program bulamadım. Şimdiden yardımlarınız için teşekkürler.

Ustam ben asistanım bir üniversitede, aldığımız hasta fotoğraflarının isimlerinin sonuna tarih eklememiz gerekiyor. Bayağı zahmetli oluyor. Benim yapmak istediğim sadece seçtiğim dosya ve/veya klasörlerin isimlerine sonuna 24.12.09 gibi o günün tarihi ne ise eklemek. "Ahmet DAYIOĞLU 12.05.10" olacak mesela. Hatta bunu yapabilirsem sabit bir metin + array+o günün tarihi şeklinde de geliştirebilirsem iyi olur benim için. Hasta ismi+array+o günün tarihi şeklinde yani."recursive" olayına gerek yok. Konu katılımsızın dışına çıktı, kusura bakma.

Ustam başının belası oldum ama birkaç sorum daha olacak. Öncelikle bu senin fileinstall recorder süper işime yaradı, teşekkürler. Dünden beri Autoit help dosyasında bir dosyanın ya da klasörün ismini öğrenme komutunu arıyorum ama bulamadım öyle birşey. Yapmak istediğim programı sağ tık eklentisi olarak kullanacağım. Sağ tıklayıp "tarihle adlandır" gibi bir komut seçerek klasör isminin ya da dosya isminin sonuna o günün tarihini ekleyecek. Aslında böyle bir eklenti var ama mesela bugün için 12052010 gibi noktasız virgülsüz birşey ekliyor. Sen fileinstall recorderda seçilen klasör içindeki dosya isimlerini alabilmişsin. Bunu hangi komutla yaptın? Sağ tık eklentisi yapmak için dosya ismine bi eklenti yapmak gerekecek sanırım. Tarih.exe desek, tarih (dosya ismi) gibi. Bir de böyle bir program yapmak mümkün müdür Autoit'le? Eğer değilse hiç uğraşmıyım

Ustam değişkenlerimizi Global, dim olarak tanımlamamız neye bağlı ve script başında tanımlamadan direkt işlemler arasında değişkene değer atasak ne olur? Bir de text kısmında "" şeklinde tırnak işareti barındıran pencereleri winwaitactive gibi komutlara nasıl yazarız, kabul etmiyor da ("Babylon English" sözlük dosyası yüklenemedi gibi)

Blue_life ustam valla eline sağlık. Sayende bişeyler öğrendim. Babylon'u katılımsız yaptım ama pencereleri gizlemedim şimdilik. İki dosyayı script içine alma olayı için örnek olarak vereyim dedim, katkım olsun benim de: http://www.qooy.com/files/EUWKHK9O/Babylon_Autoit_1.rar[/CODE] Sen senin scripti yenilemeden önce başladığım için senin script olmadan yazdım. Hatamı görür de söylersen sevinirim. Arşiv içinde Setup dosyası, script dosyası ve kırılmış babylon.exe vardır. Script içinde açıklamaları yaptım elimden geldiğince. Herkese kolay gelsin. EK: Bu da sözlük dosyalarının yüklenmesi için yazdığım Script. Yaklaşık 26 adet .bdc uzantılı sözlük dosyası var, onları scrtipte dahil edip tek bir KUR dosyasında birleşitiriyorum. Buradan: [CODE]http://freetexthost.com/wc2bmmkeu0[/CODE]

Ustam ben onu başka bir yolla çözdüm. Baştan inceledim programı ama senin scripti kullanmadan çözebildim. Hata verdi sürekli, bişeyleri yanlış yaptım sanırım. Run("unlocker.exe") WinWaitActive("Installer Language", "Please select a language.") Send("{DOWN}") Send("{DOWN}");Türkçe seçiliyor ControlClick("Installer Language","Please select a language.", "Button1") WinWaitActive("Unlocker 1.8.9 Kurulumu", "Unlocker 1.8.9 Kurulum sihirbazına hoş geldiniz") ControlClick("Unlocker 1.8.9 Kurulumu","Unlocker 1.8.9 Kurulum sihirbazına hoş geldiniz", "Button2") WinWaitActive("Unlocker 1.8.9 Kurulumu", "Install the new Bing Bar") ControlClick("Unlocker 1.8.9 Kurulumu","Install the new Bing Bar", "Button4") ControlClick("Unlocker 1.8.9 Kurulumu","Install the new Bing Bar", "Button2") WinWaitActive("Unlocker 1.8.9 Kurulumu", "Hedef dizini seçimi") ControlClick("Unlocker 1.8.9 Kurulumu","Hedef dizini seçimi", "Button2") WinWaitActive("Unlocker 1.8.9 Kurulumu", "Bileşen seçimi") Send("{DOWN}") Send("{DOWN}");Assistant üzerine geliniyor Send("{SPACE}");Assistant üzerindeki işaretleme kaldırılıyor ControlClick("Unlocker 1.8.9 Kurulumu","Bileşen seçimi", "Button2") WinWaitActive("Unlocker 1.8.9 Kurulumu", "Unlocker 1.8.9 Kurulum sihirbazı tamamlanıyor.") ControlClick("Unlocker 1.8.9 Kurulumu","Unlocker 1.8.9 Kurulum sihirbazı tamamlanıyor.", "Button2")[/CODE] Winrarla da katılımsız yaptım. Ama pencereyi gizleyemedim: [CODE]http://sharebee.com/d172a920[/CODE] Setup ile benim scripti birleştirip bir dosya haline getirmeyi beceremedim bir türlü, ancak winrarla yapabildim. Bu konuda da yardımcı olabilir misin? Senin script olmadan olmuyor mu acaba? Bir de çok soru olacak ama mesela ben yükleme işleminden önce kullanıcıya bir mesaj vermek istiyorum. Örneğin bende kaspersky virus uyarısı veriyor. Bu uyarıya aldırmayın, Kabul ediyorsanız devam edin yoksa No diyin gibi. Aslında inceledim, if...then... kalıbıyla kolayca oluyor. Ama pascaldaki prosedür olayında if...then go to... vardı. Onu burda nasıl yaparız, prosedür içine almayı yani? Son olarak da içinde keygeni olan bir programı nasıl Autoit'le katılımsız yapabiliriz.Teşekkürler şimdiden.

blue_life ustam anlatımlar için teşekkürler. Ben senin anlatımının da yardımıyla Unlocker programına el atmaya çalıştım. Yalnız "Bileşen seçimi" peceresindeki Assistant seçeneğindeki çeteleyi nasıl kaldıracağım bulamadım. Diğer kutucuklardaki gibi class:button olarak görünmüyor, SysTreeView32 olarak görünüyor. Yardımcı olursan sevinirim.

Ustam ya ben kendi bilgisayarımı downgrade yapıp xp yükledim 1 sene önce. Toparladığım driver'larıyla ve istediğim bazı programlarla birlikte XP'nin kurulması için bilgisayarıma özel XP yapacağım. Yalnız bir sorunum var sen katılımsız yaptığınız sürece demişsin ya NVidia ekran kartı sürücüsü ve Ses kartı gibi sürücülerim kendi setup programıyla kuruluyor ve bunların ne silent parametrelerini bulabildim ne de katılımsız yapabildim. Bunları direkt silent olmadan cab'lasak da XP'ye entegre etsek olmaz mı? Bir de mesela bazı programlarda keygen oluyor. Onları nasıl entegre edebiliriz? Silent olarak entegre etmezsek bize normal kurulurkenki şeyleri soracaksa da varsın öyle olsun. Bilgisayarı kurarken yeniden başlatma olayından yeğdir Yanıt için şimdiden teşekkürler.

Kardeş 6.5 diil 6.4.269.0 sürümü bu

Ya arkadaşlar, özellikle bu işten anlayan mühendis arkadaşlar cevaplayabilirse sevinirim. Ben bir diş hekimliği fakültesinde asistanım ve Finite Element yöntemi ile ilgili tez yapacağım. Yalnız inşaat mühendisliğinden konuştuğum bir hoca bana crackli ANSYS programının da sınırlı olduğunu, belirli bir sayıda eleman oluşturabildiğini söyledi. O sayıdan fazlası için lisanslısını almak lazımmış. Doğru mudur acaba?

Hocam ben nette "Windows Updates Downloader" diye bi program buldum. Windows updateleri exe olarak indiriyor. Şu an update pack olarak en son kasıma kadar olan updateleri içeren pack var sitede. Kasım sonrası updateleri indirdim. Onları da mı 7z formatına çevirip sonra nlite ile entegre edeceğiz?