Aio Da Pc Kapat Ve Restart

[Blue_World]

arkdaslar AIO ya yeniden baslat ve pc kapat'ı nasıl yerlestirebilirim.

varsa bu tip baska seylerde olur

[KintaRo]

Bilgisayarı Restart et: (20 sn. içinde bilgisayarı yeniden başlatır.)

File.Run("shutdown.exe -r -f -t 20 -c Windows 20sn sonra yeniden başlayacaktır.", "", "", SW_SHOWNORMAL, true);[/CODE]
Bilgisayarı Restart et: (Direk yeniden başlatır)
[CODE]File.Run("shutdown.exe -r -f", "", "", SW_SHOWNORMAL, true);[/CODE]
Bilgisayarı Kapat:
[CODE]File.Run("shutdown.exe -s -f", "", "", SW_SHOWNORMAL, true);[/CODE]
Oturumu Kapat:
[CODE]File.Run("shutdown.exe -l -f", "", "", SW_SHOWNORMAL, true);[/CODE]
Not: -f argümenti çalışan uygulamaları kapatmaya zorlamak içindir. İsterseniz bunu kullanmayabilirsiniz.
Not: "-t 20 -c mesaj" ekleyerek zamanlı işlem yaptırabilir ve bir mesaj penceresi çıkartarak kullanıcıya mesaj verebilirsiniz. (Bilgisayarı 20 sn içinde restart et örneğinde olduğu gibi)

[Blue_World]

kintaro cok tesekkürler sorun oldumu ilk sen yetişiyorsun valla ellerin dert görmesin kurtardın yine cok tesekkürler.

unutmadan birde bu kodları buton üzerinemi atıcam yoksa ana sayfa üzerinemi yazıcam. acılısa şifre felan ekledigimiz alana ?

[spydevil]

Restart için ek olarak;

System.Reboot();

Buton oluşturup On Click evresine yazarsan butona tıklanıldığında istediğin işlemi yapar restart, shutdown vs..

[Blue_World]

arkadaslar coook tesekkürler yardımlarınız için

[Blue_World]

BEYLER BİRDE TÜMÜNÜ SEÇ VE ÖNERİLEN SECİM NASIL OLUYOR

[KintaRo]

BEYLER BİRDE TÜMÜNÜ SEÇ VE ÖNERİLEN SECİM NASIL OLUYOR

Tümünü Seç:

Diyelim ki projede 10 adet checkbox var. Bir Button oluşturun ve Script>On Click sekmesine:

CheckBox.SetChecked("CheckBox1", true)
CheckBox.SetChecked("CheckBox2", true)
CheckBox.SetChecked("CheckBox3", true)
CheckBox.SetChecked("CheckBox4", true)
CheckBox.SetChecked("CheckBox5", true)
CheckBox.SetChecked("CheckBox6", true)
CheckBox.SetChecked("CheckBox7", true)
CheckBox.SetChecked("CheckBox8", true)
CheckBox.SetChecked("CheckBox9", true)
CheckBox.SetChecked("CheckBox10", true)[/CODE]
Kodlarını yazın. Buttona tıkladığınızda tüm checkbox'lar seçili hale gelecektir.
[b]Önerilen Seçim:[/b]
Diyelim ki bu 10 checkbox'tan 3 tanesini seçtirmek istiyorsunuz.Bunlar 1. 4. ve 7. programlar olsun. Yani bu 3 tane de önerdiğiniz programlar var. O zaman da:
[CODE]CheckBox.SetChecked("CheckBox1", true)
CheckBox.SetChecked("CheckBox4", true)
CheckBox.SetChecked("CheckBox7", true)[/CODE]
Buttona tıkladığınız zaman sadece bunları seçecektir.
[b]Tuş ile seçme:[/b]
Diyelim ki klavyeden S tuşuna basınca sistem programlarını seçmesini istiyoruz. O zaman Page Properties'e gelelim (Sayfa Özellikleri) Script>On Key sekmesini açalım ve şunları yazalım:
[CODE]if e_Key == 83 then
CheckBox.SetChecked("CheckBox1", true)
CheckBox.SetChecked("CheckBox3", true)
CheckBox.SetChecked("CheckBox5", true)
CheckBox.SetChecked("CheckBox7", true)
end[/CODE]
Klavye Tuşlarının AMS'deki Kodlarını yardım dosyasındaki "[b]Virtual Key Codes[/b]" başlığı altında bulabilirsiniz.

[Blue_World]

arkadaslar cok tesekürler

[isaavcı]

hocam s tışuyla tamam seçiyor fakat nasıl bırakacak birde ondan bahsedersen sevinirim

[blackman12]

pf.. adam size mantık öğretmeye çalışıyor siz ise mantık kapmaktan çok uzaksınız.

if e_Key == VKC* then

CheckBox.SetChecked("CheckBox1", false)

CheckBox.SetChecked("CheckBox3", false)

CheckBox.SetChecked("CheckBox5", false)

CheckBox.SetChecked("CheckBox7", false)

end

* "Virtual Key Codes" buraya kısayol tuşunun virtual key code değerini yazacaksın...

[TLnY]

pf.. adam size mantık öğretmeye çalışıyor siz ise mantık kapmaktan çok uzaksınız.

if e_Key == VKC* then

CheckBox.SetChecked("CheckBox1", false)

CheckBox.SetChecked("CheckBox3", false)

CheckBox.SetChecked("CheckBox5", false)

CheckBox.SetChecked("CheckBox7", false)

end

* "Virtual Key Codes" buraya kısayol tuşunun virtual key code değerini yazacaksın...

Sanırım arkadaşın istediği birdaha tıklandığında uncheck all yapmak İngilizce daha iyi anlaşılıyor

if e_Key == VKC* then

CheckBox.SetChecked("CheckBox1", true)

CheckBox.SetChecked("CheckBox3", true)

CheckBox.SetChecked("CheckBox5", true)

CheckBox.SetChecked("CheckBox7", true)

else

CheckBox.SetChecked("CheckBox1", false)

CheckBox.SetChecked("CheckBox3", false)

CheckBox.SetChecked("CheckBox5", false)

CheckBox.SetChecked("CheckBox7", false)

end[/CODE]

Bu şekilde olmalı... Ama emin değilim

[KintaRo]

@TLnY yanlış olmuş dost şu şekilde olacak;

if e_Key == 75 then

CheckBox.SetChecked("CheckBox1", false)

CheckBox.SetChecked("CheckBox3", false)

CheckBox.SetChecked("CheckBox5", false)

CheckBox.SetChecked("CheckBox7", false)

end[/CODE]

K tuşuna basınca seçimleri kaldıracaktır. blackman12'nin dediği gibi mantık üretmek gerek. Virtual Key Codes başlığından K tuşunun karşılığı olan 75'i bulup true kısımları false yapsanız bitmişti olay.

[TLnY]

Bende çalışmadı.. :S Checkbox Anlatımı 3 adlı konudaki dersi geliştirmeye çalışıyorum ama nedense olmadı..

Edit: Şimdi oldu...

Bir edit daha(!): Of.. AMS'yi yeni yeni öğreniyorum.. Birşeyler denedim; ancak başaramadım. Şimdi Enter=13 oluyor. Yani e_Key == 13 olacak.

Tamam bunu yapıyorum. Ancak birdaha Enter'a bastığımda onların yeniden false olmasını istiyorum. Çözemedim gitti bu işi

[blackman12]

bu fonksiyonu global functions a yaz tam olarak çalışması için checkboxlarının adı Checkbox1 , checkbox2, ... 3,4,5 diye gitmesi gerek.Checkbox sayısınıda for i=1, 100 yazan yerdeki 100 yerine yazmalısınız.:

function kontrol()

    for i=1, 100 do

      local sonuc = CheckBox.GetChecked("CheckBox" .. i)

      if (sonuc) == false then

          return "olmaz"

      end

    end

end[/CODE]

bunu da onkeye yazın:

[CODE]kontrolet = kontrol()

if e_Key == 13 and kontrolet == "olmaz" then

for i=1, 100 do

     CheckBox.SetChecked("CheckBox" .. i, false)

end

elseif e_Key == 13 then

for i=1, 100 do

     CheckBox.SetChecked("CheckBox" .. i, true)

end

end[/CODE]

kodda hatalar olabilir mesela global functions daki returnden sonra loop gelmesi gerekebilir.Elimin altında ams olmadığı için kafadan yazdım.

[TLnY]

Evet sanırım hatalı.. Enter a basıyorum, seçiyor ama saniyesinde tik işareti kalkıyor..

[spydevil]

On Show;

booChecked = false;[/CODE]

On Key;

[CODE]if e_Key == 13 then
    for nPoz = 1, 100 do
    CheckBox.SetChecked("CheckBox" .. nPoz, booChecked);
    end
    if booChecked == false then
    booChecked = true;
    else
    booChecked = false;
    end
end[/CODE]

[kamuran731]

AutoIt ile bir program yapmak istiyorum

Program açılışta devreye girecek ama gizli olacak. Kullanıcı programı fark etmeyecek

Program 30 saniye sonra PC yi uyarı vermeden kapatacak

Bunun için gerekli kodaları bilen varsa paylaşırsa çok iyi olur

[spydevil]

1. Programı açılışa eklersin (autorun.exe için)

File.Copy(_SourceFolder .. "\\autorun.exe", Shell.GetFolder(SHF_STARTUP_COMMON), true, true, false, true, nil);[/CODE]

2. Programın On Startup evresine;

[CODE]Window.Hide(Application.GetWndHandle());
Page.StartTimer(1000);
nSaniye = 0;[/CODE]

3. On Timer evresine;

[CODE]nSaniye = nSaniye + 1;
if nSaniye >= 30 then
File.Run("shutdown.exe -s -f", "", "", SW_SHOWNORMAL, true);
end[/CODE]

[kamuran731]

Kodları Ekledim Bilgisayarı Kapatıp açtım açılışta aşağıdaki uyarıyı veren bir pencere çıktı

Runtime

Error:Coult not find data file

[KintaRo]

Evet çünkü sadece autorun.exe yi attığı için diğer dosyaları bulamıyor. Spydevilin gözünden kaçmış sanırım.

En üstteki kod yerine şunu yazın:

Shell.CreateShortcut(Shell.GetFolder(SHF_STARTUP_COMMON), "program adi", _SourceFolder .. "\\autorun.exe", "", _SourceFolder, "", "", SW_SHOWNORMAL)[/CODE]

Bu kod programın kısayolunu başlangıca atacaktır. Diğer kısımları spydevil'in verdiği gibi yapın.

[kamuran731]

evet oldu. ama 2 sorunum daha var.

1- Programın başlattaki doyasını silince çalışmıyor (Gizli olmasını görünmemesini isterdim)

2- Açılışta program ekrana geliyor ( Ekrana gelmemsını Gizli çalışmasını isterdim)

bunları neden istediğimi merak edebilirsiniz nedeni ise kırmak istemediğim birilerini Leptopumu verince

kullanamayıp bana geri iada etsinler diye Yani vermıyorum demektense içne virüs falan girmiş olabilir demek daha matıklı bana göre

[KintaRo]

On Startup evresine yazdığın şu kodları;

Window.Hide(Application.GetWndHandle());

Page.StartTimer(1000);

nSaniye = 0;[/CODE]

On Startup yerine Sayfanın On Show evresine yaz. BU şekilde güzel çalışıyor. 30 saniye sonra bilgisayar çıldırmış gibi davranıyor. Harbiden virüs gibi oldu :-D

[kamuran731]

Sayfanın one Preload Bölümüne Girilen Aşağıdaki Komutu Girmedim.

Shell.CreateShortcut(Shell.GetFolder(SHF_STARTUP_COMMON), "program adi", _SourceFolder .. "\\autorun.exe", "", _SourceFolder, "", "", SW_SHOWNORMAL)

Onun yerine Programın açılışta çalışması için reg girdisi ekledim

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]

"autorun"="C:\WINDOWS\system32\SOFTWAR\OtmKapatAIO\CD_Root\autorun.exe"

Program Start Menü Başlangıç a dosya filan atmıyor Artık.

NOT: Bu Progamın Kodlarını veren Arkadaşlara Teşekkür ederim.

[spydevil]

Kodları Ekledim Bilgisayarı Kapatıp açtım açılışta aşağıdaki uyarıyı veren bir pencere çıktı

Runtime

Error:Coult not find data file

File.Copy(_SourceFolder .. "\\AutoPlay\\autorun.cdd", Shell.GetFolder(SHF_STARTUP_COMMON), true, true, false, true, nil);

bunuda ekle ..

bu verdiğim kodları denemedim o yüzden ufak tefek sorun çıkabiliyor şimdi sorunsuz çalışması lzm ..

+ olarak KintaRo'nun verdiğim regedite eklersin programı açılış için bu file.copy olaylarına gerek kalmaz ..

[blackman12]

Alooo kötü niyetlerini git kendi başına gerçekleştir.Bundan sonra yapacağın her paylaşım gözetimim altında olacak bilesin!