Checkbox Anlatımı 4

okinava14 · May 31, 2011

[quote name='talha_252' date='31 May 2011 - 02:06 ' timestamp='1306796797' post='1021293']
Exeleri katmadan içine koyarsan müsait olduğumda bakabilirim..
[/quote]

Buyur Bir ara yanıt yollarsan sevinirim.

http://hotfile.com/dl/119473529/7dcc711/2011_DRiVERS_CD.apz.html

MostWanted · June 1, 2011

Kodlarda sorun yok fakat eski kodlarla yeni kodların karman çorman etmişin.Onları biraz düzenledim hata mesajları koydum.Ayrıca yükle butonunda bıraktığım notu oku.Kolay gelsin..

http://www.myupload.dk/showfile/923335df2b1.apz/

Bu arada kodları kullananlar için bi düzeltme yapayım.Globaldeki kodları aşağıdaki gibi değiştirirseler daha güzel kodlara sahip olacaz..

[codebox]parca=0
tamami=0
function sifirla()
parca=0
tamami=0
end
function secme(yazim)
sonuc = CheckBox.GetChecked(yazim)
if not (sonuc) then
talha = {};
talha.FontBold = false
talha.FontWeight = 100
CheckBox.SetProperties(yazim, talha);
else
talha = {};
talha.FontBold = true
talha.FontWeight = 700
CheckBox.SetProperties(yazim, talha);
end
end
function okuyucu(yazim)
sonuc = CheckBox.GetChecked(yazim)
if (sonuc) then
tamami=tamami+1
end
end
function yaz()
parca=parca+1
end
function progress()
return Math.Ceil((parca/tamami)*100)
end
function kurulum(checkboxadi, progadi, progexe)
secilim = CheckBox.GetChecked(checkboxadi);
if (secilim) then
StatusDlg.SetMessage(progadi.." sisteminize kurulurken lütfen bekleyin.");
result = File.Run("AutoPlay\\Docs\\"..progexe, "", "", SW_SHOWNORMAL, true);
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error - "..progexe, _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
end

yaz()

StatusDlg.SetTitle("%"..progress().." kurulum tamamlandı..");
end
end
function hepsinioku(oku)
for i=1, oku do
okuyucu("CheckBox"..i)
end
end[/codebox]

Ayrıca artık page preload bölümündeki labeller fonksiyonuna gerek yok..

Edited June 3, 2011 by talha_252

okinava14 · June 2, 2011

Talha dostum şuan ben pcmi 1 hafta kullanemıyorum ama iş yerinden takip etmeye çalışacağım konuları. Ayrıca Teşekkür ederim emeğine sağlık.
Dediğim gibi inceleme fırsatım 1 hafta sonra şimdi sadece flash belleğe kopyasını alıyorum.

okinava14 · June 7, 2011

Slm dostum bu yooladıgın apz hata verdi açılmıyor neden acaba?

MostWanted · June 7, 2011

AMS 8 ile mi açmayı denedin?Denemediysen dene çünkü projeyi ams 8 ile editledim.

Edited June 7, 2011 by talha_252

radyofon · June 8, 2011

Ben programlarımın kurulumunda hepsi için ayrı ayrı progress istemiyorum. Combobox' dan seçtiğim programlara ve kendisi otomatik kurması gereken programların hepsine göre tek bir progress istiyorum. Bunu nasıl yapabilirim? Progress bar ilerlerken de barın üzerinde şimdi şu kuruluyor şimdi bu kuruluyor diye bilgi versin istiyorum. Bir de java' nın katılımsız kurulum parametlerini USSF ile bulamadım. Java' nın update 21' ini kurmam gerekiyor. Programım ise ön sayfalarda var. e-imza kurulumu.

okinava14 · June 8, 2011

[quote name='talha_252' date='07 June 2011 - 23:12 ' timestamp='1307477536' post='1025726']
AMS 8 ile mi açmayı denedin?Denemediysen dene çünkü projeyi ams 8 ile editledim.
[/quote]

Ben AMS 8.5 tr kullanıyorum tr olması bir engel teşkil edermi acaba?

radyofon · June 14, 2011

Bunu benim aşağıdaki kurulum butonunda nasıl uygularız? Benim kullandığım CheckBox yerine ComboBox.
[xml]
[size="1"]--- KURULUM AŞAMALARI ---

--- Java 21 Kurulumu ---
--Java 21' in katılımsız kurulumunu bulmam lazım.
if (Label.GetText("label.os", "Windows XP")) or (Label.GetText("label.os", "Windows Vista")) then
Registry.SetValue(HKEY_LOCAL_MACHINE, "[url="file://\SYSTEM\CurrentControlSet\Control\Session"]\\SYSTEM\\CurrentControlSet\\Control\\Session[/url] Manager\\Environment", "Path", ";C:\Program Files\Java\jre6\bin", REG_SZ)
else
Registry.SetValue(HKEY_LOCAL_MACHINE, "[url="file://\SYSTEM\CurrentControlSet\Control\Session"]\\SYSTEM\\CurrentControlSet\\Control\\Session[/url] Manager\\Environment", "Path", ";C:\Program Files (x86)\Java\jre6\bin", REG_SZ)
end
--- Kart Okuyucu Seçimi ---

okuyucuSelected = ComboBox.GetSelected("ComboBox1");
if okuyucuSelected ~= -1 then
okuyucuCategory = ComboBox.GetItemText("ComboBox1", okuyucuSelected);
end
--- SIM Kart Seçimi ---

simSelected = ComboBox.GetSelected("ComboBox2");
if simSelected ~= -1 then
simCategory = ComboBox.GetItemText("ComboBox2", simSelected);
end
-----------------------Gemalto
if (okuyucuCategory == "Gemalto") and (Label.GetText("label.bit","32 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.0") then
proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE);
if proceed == IDOK then
MSI.InstallProduct("AutoPlay\\Docs\\GemPcCCID_201_en-us_32.msi", "");
MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.38).msi", "");
else DialogEx.Close(9999);
end
elseif (okuyucuCategory == "Gemalto") and (Label.GetText("label.bit","32 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.2. veya v1.2.1") then
proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE);
if proceed == IDOK then
MSI.InstallProduct("AutoPlay\\Docs\\GemPcCCID_201_en-us_32.msi", "");
MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.41).msi", "");
else DialogEx.Close(9999);
end
elseif (okuyucuCategory == "Gemalto") and (Label.GetText("label.bit","64 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.0") then
proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE);
if proceed == IDOK then
MSI.InstallProduct("AutoPlay\\Docs\\GemPcCCID_201_en-us_64.msi", "");
MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.38).msi", "");
else DialogEx.Close(9999);
end
elseif (okuyucuCategory == "Gemalto") and (Label.GetText("label.bit","64 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.2. veya v1.2.1") then
proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE);
if proceed == IDOK then
MSI.InstallProduct("AutoPlay\\Docs\\GemPcCCID_201_en-us_64.msi", "");
MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.41).msi", "");
else DialogEx.Close(9999);
end
------------------------ACS
elseif (okuyucuCategory == "ACS") and (Label.GetText("label.bit","32 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.0") then
proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE);
if proceed == IDOK then
MSI.InstallProduct("AutoPlay\\Docs\\ACR38_100_122_PCSC_Driver_32.msi", "");
MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.38).msi", "");
else DialogEx.Close(9999);
end
elseif (okuyucuCategory == "ACS") and (Label.GetText("label.bit","32 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.2. veya v1.2.1") then
proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE);
if proceed == IDOK then
MSI.InstallProduct("AutoPlay\\Docs\\ACR38_100_122_PCSC_Driver_32.msi", "");
MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.41).msi", "");
else DialogEx.Close(9999);
end
elseif (okuyucuCategory == "ACS") and (Label.GetText("label.bit","64 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.0") then
proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE);
if proceed == IDOK then
MSI.InstallProduct("AutoPlay\\Docs\\ACR38_100_122_PCSC_Driver_64.msi", "");
MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.38).msi", "");
else DialogEx.Close(9999);
end
elseif (okuyucuCategory == "ACS") and (Label.GetText("label.bit","64 Bit İşletim Sistemi")) and (simCategory == "AKİS v1.2. veya v1.2.1") then
proceed = Dialog.Message("e-imza Kurulumu Aşağıda Seçtiğiniz Bilgilere Göre Başlıyor", "Akıllı Kart Okuyucu Tipi: "..okuyucuCategory.."\r\n\r\nSIM Kart Version: "..simCategory, MB_OKCANCEL, MB_ICONNONE);
if proceed == IDOK then
MSI.InstallProduct("AutoPlay\\Docs\\ACR38_100_122_PCSC_Driver_64.msi", "");
MSI.InstallProduct("AutoPlay\\Docs\\AKIS Yonetici (1.41).msi", "");
else DialogEx.Close(9999);
end
else
Dialog.Message("Hata Algılandı", "!!!Akıllı Kart Okuyucu Tipini veya SIM Kart Version' unu seçmediniz!!!")
end

if ((ComboBox.GetSelected("ComboBox1")~= -1) and (ComboBox.GetSelected("ComboBox2")~= -1)) then --kontrol

--- esyajni.dll ---

Dialog.TimedMessage("esyajni kopyalama", "esyajni.dll ilgili yerlere kopyalanıyor.......", 5000, MB_ICONNONE)
File.Copy("AutoPlay\\Docs\\esyajni.dll", _WindowsFolder, true, true, true, false)
File.Copy("AutoPlay\\Docs\\esyajni.dll", _SystemFolder, true, true, true, false)

--- 64 bit sysytem' de dosya kopyalama işlemleri ---

bit = System.Is64BitOS()
if bit then
File.Copy("AutoPlay\\Docs\\esyajni.dll", "[url="file://\Windows\SysWOW64\"]\\Windows\\SysWOW64\\[/url]", true, true, true, false);
File.Copy("[url="file://\Windows\SysWOW64\akiscsp.dll"]\\Windows\\SysWOW64\\akiscsp.dll[/url]", "[url="file://\Windows\System32\"]\\Windows\\System32\\[/url]", true, true, true, false);
File.Copy("[url="file://\Windows\SysWOW64\akiscsp.sig"]\\Windows\\SysWOW64\\akiscsp.sig[/url]", "[url="file://\Windows\System32\"]\\Windows\\System32\\[/url]", true, true, true, false);
File.Copy("[url="file://\Windows\SysWOW64\akis11.dll"]\\Windows\\SysWOW64\\akis11.dll[/url]", "[url="file://\Windows\System32\"]\\Windows\\System32\\[/url]", true, true, true, false);
end

--- KISAYOL KOPYALAMA ---

Shell.CreateShortcut(_DesktopFolderCommon, "AKiS Kart İzleme Aracı", "AutoPlay\\Docs\\runAkiA.bat", "", "", "AutoPlay\\Docs\\Cpp-AkisKartIzlemeAraci.exe", 0, SW_MAXIMIZE, nil)

--- INTERNET EXPLORER' da REGISTRY KAYITLARINI YAPMA ---

Dialog.TimedMessage("Internet Explorer ayarları", "Internet Explorer ayarları yapılıyor.......", 5000, MB_ICONNONE)
Registry.CreateKey(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\P3P\\History\\e-icisleri.gov.tr");
Registry.CreateKey(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\P3P\\History\\icisleri.gov.tr");
Registry.SetValue(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\P3P\\History\\e-icisleri.gov.tr", "", 1, REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\P3P\\History\\icisleri.gov.tr", "", 1, REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Internet"]\\Software\\Microsoft\\Internet[/url] Explorer\\New Windows\\Allow\\", "*.icisleri.gov.tr", 0, REG_BINARY);
Registry.SetValue(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Internet"]\\Software\\Microsoft\\Internet[/url] Explorer\\New Windows\\Allow\\", "*.e-icisleri.gov.tr", 0, REG_BINARY);
Registry.CreateKey(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\ZoneMap\\Domains\\e-icisleri.gov.tr");
Registry.CreateKey(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\ZoneMap\\Domains\\e-icisleri.gov.tr\\www");
Registry.SetValue(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\ZoneMap\\Domains\\e-icisleri.gov.tr\\www", "https", 2, REG_DWORD);
Registry.CreateKey(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\ZoneMap\\Domains\\icisleri.gov.tr");
Registry.CreateKey(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\ZoneMap\\Domains\\icisleri.gov.tr\\owa");
Registry.SetValue(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\ZoneMap\\Domains\\icisleri.gov.tr\\owa", "https", 2, REG_DWORD);
Registry.CreateKey(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\ZoneMap\\Domains\\icisleri.gov.tr\\owacert");
Registry.SetValue(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\ZoneMap\\Domains\\icisleri.gov.tr\\owacert", "https", 2, REG_DWORD);
Registry.CreateKey(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\ZoneMap\\Domains\\icisleri.gov.tr\\www");
Registry.SetValue(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\ZoneMap\\Domains\\icisleri.gov.tr\\www", "https", 2, REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER, "[url="file://\Software\Microsoft\Windows\CurrentVersion\Internet"]\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet[/url] Settings\\Zones\\", "1A04", 0, REG_DWORD)

Dialog.Message("Kurulum Tamamlandı!", "Seçtiğiniz Programlar Kuruldu...", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else Dialog.Message("Kurulumdan Vazgeçildi!....", "...Kart Okuyucu tipi veya SIM kart seçmediniz...", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1)
end
[/xml]
[/size]

Edited June 14, 2011 by radyofon

radyofon · June 14, 2011

@ talha_252

Üstad bunda bazı kontroller eksik. Bende bu programlar ilgili klasörde olmamasına rağmen hepsini seçip kur diyorum ve kurulum tamamlandı diyor. exe dosyalarının var olup olmadığına bakması gerekir bence. Bu kontrolleri de eklersen iyi olur.

okinava14 · August 5, 2011

[quote name='okinava14' date='08 June 2011 - 14:27 ' timestamp='1307532428' post='1026085']
Ben AMS 8.5 tr kullanıyorum tr olması bir engel teşkil edermi acaba?
[/quote]

Sorun indirmede imiş başka siteden yollaya bilirmisin acaba? eksik yani hasarlı olarak iniyor...

MostWanted · August 5, 2011

http://www.tnctr.com/topic/51523-katylymsyz-autoplay-media-studio-8050/

kompleda · November 1, 2011

Global Functions kodu (nCheck = 0;) bu kod bereye yapıştırılacak anlamadım

MostWanted · November 1, 2011

[img]http://img710.imageshack.us/img710/7169/01112011231344.png[/img]

Project menüsünde.

NotToday · November 1, 2011

Global Functions a.Projenin boş kısamına sağ tıkla orada Global Functions görürsün zaten

Sign In

Checkbox Anlatımı 4

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members