Jump to content

Auis-2 ( Otomatik Katılımsız Kurulum Sistemi )


Cyph3r
 Share

Recommended Posts

Auis-2 ( Otomatik Katılımsız Kurulum Sistemi )

 

46ngZ9U.jpg

 

 

http://www.tnctr.com/topic/208044-windows-x2012-eylul-guncel-sata-katylymsyz/

Konusunda kullanmış olduğum çalışmayı sizlerle paylaşıyorum.

 

AUIS 2 Özellikleri

 

- CD anadizininde ki "Programlar" klasörüne koyulan katılımsız programları otomatik olarak tanır ve listeler.
- AUIS 2 açıldıktan itibaren 20 sn içinde seçim yapılmaz ise otomatik olarak kapanır ve kuruluma devam eder.
- Programlarınız windows kurulum aşamasında kuracaksanız " Seçilenleri kur ve programı kapat" seçeneğini kullanmanız tavsiye edilir.
- AUIS 2 yi isterseniz windows kurulumu bittikten sonra da kullanbilirsiniz. Kurulum seçeneklerindeki kapat ve yeniden başlat seçenekleri size kalmış istediğiniz şekilde kurabilirsiniz.
- Sistemi USB den kurmak isteyenler için AUIS 2 de manuel olarak Program ekle/çıkar menüsü bulunmaktadır.
- CD anadizinde ki "Araçlar" klasörüne windows ortamında kullanabileceğiniz , reg ayarları, bat/cmd dosyaları, portable programlar... vb. ihtiyaç duyabileceğiniz dosyaları koyabilirsiniz. Artık ne amaçla kullanmak isterseniz....

 

 

AUIS2 çalışmasının temeli DivaneTR arkadaşımıza aittir. Paylaşımı için kendisine teşekkür ediyorum.

 

http://www.tnctr.com/topic/197687-katylymsyz-kurulum-platformu-14/

[spoiler]jhKyi3v.jpg[/spoiler]

 

 

 

  .apz dosyası

http://yadi.sk/d/JAyJuQDJ2SzwL

portable

http://yadi.sk/d/dp_oeykx2_ljp

 

XP kurulumunda programı 13.dk açtırmak için kullandığım Autoit kodu

[spoiler]

$CD_DRV = DriveGetDrive("CDROM");Mevcut Cd/Dvd Sürücülerini arıyor...
If NOT @error Then
        For $i = 1 to $CD_DRV[0]
                        $BlProg = $CD_DRV[$i] & "auis2.exe"
                        If FileExists($BlProg) Then; auis2.exe nin olup olmadığını kontrol ediyor..
                                Run($BlProg); Programı çalıştır.
                        EndIf
        Next
	 EndIf
	 
	 While 1
        If not ProcessExists("auis2.exe") Then
                ProcessClose("runauis2.exe")
                Exit
        EndIf
        sleep(100)
WEnd

[/spoiler]

Link to comment
Share on other sites

  • 2 hafta sonra ...
  • 2 ay sonra...
  • 1 ay sonra...

hocam win 8 hata veriyor program açılıyor ama programlar gözükmüyor

 

 

Win8 de denemedim hiç... Yönetici olarak çalıştırmak yada UAC açık/kapalı olaması çalışmasını etkileyebilir diye tahmin yürütüyorum... :rolleyes2:

Link to comment
Share on other sites

  • 1 yıl yıl...
  • 2 hafta sonra ...

Cyph3r

 

hocam senin programda dosya ekle araç ekle yardım bölümünü silmek istiyorum yukarıdan ama bir türlü silemedim yardımcı olur musun :(

 

 

Globalden

 

[spoiler]

function MenuOku()
tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "Dosya";
tblMenu[1].ID = 100;
tblMenu[1].IconID = 0;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "Program Ekle";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].IconID = 1;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "Program Sil";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].IconID = 1;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;
tblMenu[1].SubMenu[3] = {};
tblMenu[1].SubMenu[3].Text = "---";
tblMenu[1].SubMenu[3].ID = 999;
tblMenu[1].SubMenu[3].IconID = 1;
tblMenu[1].SubMenu[3].Checked = false;
tblMenu[1].SubMenu[3].Enabled = true;
tblMenu[1].SubMenu[4] = {};
tblMenu[1].SubMenu[4].Text = "Araç Ekle";
tblMenu[1].SubMenu[4].ID = 104;
tblMenu[1].SubMenu[4].IconID = 1;
tblMenu[1].SubMenu[4].Checked = false;
tblMenu[1].SubMenu[4].Enabled = true;
tblMenu[1].SubMenu[5] = {};
tblMenu[1].SubMenu[5].Text = "Araç Sil";
tblMenu[1].SubMenu[5].ID = 105;
tblMenu[1].SubMenu[5].IconID = 1;
tblMenu[1].SubMenu[5].Checked = false;
tblMenu[1].SubMenu[5].Enabled = true;
tblMenu[1].SubMenu[6] = {};
tblMenu[1].SubMenu[6].Text = "---";
tblMenu[1].SubMenu[6].ID = 999;
tblMenu[1].SubMenu[6].IconID = 1;
tblMenu[1].SubMenu[6].Checked = false;
tblMenu[1].SubMenu[6].Enabled = true;
tblMenu[1].SubMenu[7] = {};
tblMenu[1].SubMenu[7].Text = "Çıkış";
tblMenu[1].SubMenu[7].ID = 103;
tblMenu[1].SubMenu[7].IconID = 1;
tblMenu[1].SubMenu[7].Checked = false;
tblMenu[1].SubMenu[7].Enabled = true;
tblMenu[2] ={};
tblMenu[2].Text = "Araçlar";
tblMenu[2].ID = 200;
tblMenu[2].IconID = 0;
tblMenu[2].Checked = false;
tblMenu[2].Enabled = true;
tblMenu[2].SubMenu = {};
tAraclar = File.Find(_SourceFolder.."\\Araclar\\", "*", false, true, nil, nil);
if tAraclar then
for i,v in pairs(tAraclar) do
Split = String.SplitPath(v);
Table.Insert(Araclar, i, Split.Filename..Split.Extension);
tblMenu[2].SubMenu[i] = {};
tblMenu[2].SubMenu[i].Text = Split.Filename;
tblMenu[2].SubMenu[i].ID = 200+i;
tblMenu[2].SubMenu[i].IconID = 1;
tblMenu[2].SubMenu[i].Checked = false;
tblMenu[2].SubMenu[i].Enabled = true;
end
else
tblMenu[2].SubMenu = {};
tblMenu[2].SubMenu[1] = {};
tblMenu[2].SubMenu[1].Text = "Araçlar Klasörü Boş";
tblMenu[2].SubMenu[1].ID = 201;
tblMenu[2].SubMenu[1].IconID = 1;
tblMenu[2].SubMenu[1].Checked = false;
tblMenu[2].SubMenu[1].Enabled = false;
end
tblMenu[3] ={};
tblMenu[3].Text = "Seçim";
tblMenu[3].ID = 300;
tblMenu[3].IconID = 0;
tblMenu[3].Checked = false;
tblMenu[3].Enabled = true;
tblMenu[3].SubMenu = {};
tblMenu[3].SubMenu[1] = {};
tblMenu[3].SubMenu[1].Text = "Tümünü Seç";
tblMenu[3].SubMenu[1].ID = 301;
tblMenu[3].SubMenu[1].IconID = 0;
tblMenu[3].SubMenu[1].Checked = false;
tblMenu[3].SubMenu[1].Enabled = true;
tblMenu[3].SubMenu[2] = {};
tblMenu[3].SubMenu[2].Text = "Tüm Seçimi Kaldır";
tblMenu[3].SubMenu[2].ID = 302;
tblMenu[3].SubMenu[2].IconID = 0;
tblMenu[3].SubMenu[2].Checked = false;
tblMenu[3].SubMenu[2].Enabled = true;
tblMenu[4] ={};
tblMenu[4].Text = "Yardım";
tblMenu[4].ID = 400;
tblMenu[4].IconID = 0;
tblMenu[4].Checked = false;
tblMenu[4].Enabled = true;
tblMenu[4].SubMenu = {};
tblMenu[4].SubMenu[1] = {};
tblMenu[4].SubMenu[1].Text = "Hakkında";
tblMenu[4].SubMenu[1].ID = 401;
tblMenu[4].SubMenu[1].IconID = 1;
tblMenu[4].SubMenu[1].Checked = false;
tblMenu[4].SubMenu[1].Enabled = true;
tblMenu[4].SubMenu[2] = {};
tblMenu[4].SubMenu[2].Text = "---";
tblMenu[4].SubMenu[2].ID = 999;
tblMenu[4].SubMenu[2].IconID = 1;
tblMenu[4].SubMenu[2].Checked = false;
tblMenu[4].SubMenu[2].Enabled = true;
tblMenu[4].SubMenu[3] = {};
tblMenu[4].SubMenu[3].Text = "TNCTR Forum";
tblMenu[4].SubMenu[3].ID = 402;
tblMenu[4].SubMenu[3].IconID = 1;
tblMenu[4].SubMenu[3].Checked = false;
tblMenu[4].SubMenu[3].Enabled = true;
Application.SetMenu(tblMenu);
end
 

[/spoiler]

 

Page1 > OnShow evresinden 

MenuOku()

kodlarını silebilirsiniz... İleride kullanırım derseniz 

 

OnShowdaki kodu çift çizgiyle kapatın, menü çıkmaz...

 

--MenuOku()  

 

 gibi

Link to comment
Share on other sites

  • 1 yıl yıl...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...