Jump to content
Son zamanlarda artan kullanıcı hesap hırsızlıkları sebebiyle tüm kullanıcılara şifre sıfırlama maili gönderilmiştir. Lütfen güveli şifreler seçiniz. Mevcut e-mail adresinize erişemiyorsanız, en aşağıdaki destek linkinden bize ulaşınız. ×

All In One Yapımı


lontokyo
 Share

Recommended Posts

Güzel bir anlatım olmuş arkadaşım teşekkür ediyorum.Yazılanların hepsini okudum ve bende bazı arkadaşlar gibi seçmeli bir şekilde program menüsü hazırlamak istiyorum ama ben bu checkbox ları nereden ekleyceğimi bulamadım. checkbox larla ilgili diğer kısımları arkadaşların yazdıklarından anladım (az-çok) ama ben dediğim gibi bu checkbox ları menüye nasıl ekleyebilirim(programı epeyce kurcaladım ama malum dil olmayınca bulamadım) yardımlarınızı bekliyorum tekrar teşekkür ederim.

Link to comment
Share on other sites

  • 2 hafta sonra ...
  • Replies 398
  • Created
  • Last Reply

Top Posters In This Topic

arkadaşlar güncelle butonu yapma istiyorum

ad aware personal için elimde site var ama kod yok

aşagidaki verdiğim kod sadece dosyayı internetten indiriyor ve açiyor

benim istediğim indiriler defs.zip dosyasini ad aware personal files dosyasi içine kopyalamak açik bir vaziyette

edit: kod ayarladim sadece ayr eksikmiş :)

-- Internet baglantisini kontrol edelim..

connected = HTTP.TestConnection(" 20, 80, nil, nil);

-- Baglanti varsa dosyamizi indirelim..

if connected then

-- Dosyayi onları Temp klasorune kopyalıyoruz...

StatusDlg.Show(MB_ICONNONE, false);

HTTP.Download("

Please register to see this content.
_TempFolder.."\\uharc.exe", MODE_BINARY, 20, 80, nil, nil, nil);

-- Herhangi bir hata karsisinda...

error = Application.GetLastError();

StatusDlg.Hide();

if error ~= 0 then

result = Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);

-- Download sorunsuz biter dosyamizi acalim..

else

File.Run(_TempFolder.."\\uharc.exe", "", "", SW_SHOWNORMAL, true);

end

-- Bagalnti yoksa..

else

Dialog.Message("Internet Hatası", "Bağlantınız yoktur.Lütfen tekrar deneyiniz..");

Edited by mytesylvi
Link to comment
Share on other sites

arkadaşlar güncelle butonu yapma istiyorum

ad aware personal için elimde site var ama kod yok

aşagidaki verdiğim kod sadece dosyayı internetten indiriyor ve açiyor

benim istediğim indiriler defs.zip dosyasini ad aware personal files dosyasi içine kopyalamak açik bir vaziyette

edit: kod ayarladim sadece ayr eksikmiş :)

Bu kodları çok iyi hatırlıyorum..Niye acaba bu kodları aldığınız yere sormuyorsunuz?

Link to comment
Share on other sites

  • 2 hafta sonra ...
  • 3 hafta sonra ...
Yardımsever bir arkadaş çıksa da şu "Checkbox" kullanmayı ayrıntılarıyla resimli bir şekilde anlatsa ne güzel olur. Sadece 2 program kullanarak bir anlatım hazırlayan çıkar mı?

ÖM ile bana ulaşırsan yardımcı olmaya çalışırım.Ayrıca yaptığım derslerinde linkini veririm :D

Link to comment
Share on other sites

  • 3 hafta sonra ...
Ustatlar utanarak soruyorum ama bu konuda yardımcı olursanız sevinirim.ben bir türlü seçmeli program işini yapamadım :)

Böyle bir program yapmak istiyorum

adsztl9.gif

Kur butonuna atatığım kod:

Java = CheckBox.GetChecked("[u][color="#FF0000"]java[/color][/u]");
if java then
File.Run("AutoPlay\\Docs\\JAVA.exe", "", "", SW_SHOWNORMAL, true);
end
Flash = CheckBox.GetChecked[color="#FF0000"]("[u]Flash[/u]");[/color]
if Flash then
File.Run("AutoPlay\\Docs\\flash.exe", "", "", SW_SHOWNORMAL, true);
end

checkboxların Object Name lerini değiştirdim.Java ve Flash olmak üzere.Acaba nerde hata yapıyorum.Kusura bakmayın çok kez anlatmışsınız ama bilmediğimiz iiçin bu sorunları yaşıyoruz.

Bilmiyorum Sorununa Cevap Geldimi Diye Ama Ben Acemi Olarak Gördüğüm Hatayı Belirteyim.Belkide Ben Yanlış Biliyorumdur Bu Sayede Bende Öğrenirim

Yukarda Altını Çizdiğim ve Kırmızı Renkle Belirttiğim Yerlerde Checkbox1,Checkbox2 ,,,,, vs Gibi Olması Gerekmiyomu.Yani Orda Belirttiğin Jawa , Flash Yazılarını Düzelt Bence

Edited by LaND
Link to comment
Share on other sites

Bilmiyorum Sorununa Cevap Geldimi Diye Ama Ben Acemi Olarak Gördüğüm Hatayı Belirteyim.Belkide Ben Yanlış Biliyorumdur Bu Sayede Bende Öğrenirim

Yukarda Altını Çizdiğim ve Kırmızı Renkle Belirttiğim Yerlerde Checkbox1,Checkbox2 ,,,,, vs Gibi Olması Gerekmiyomu.Yani Orda Belirttiğin Jawa , Flash Yazılarını Düzelt Bence

checkboxların Object Name lerini değiştirdim.Java ve Flash olmak üzere

Cevap buda ;)

http://www.tnctr.com/index.php?s=&showtopic=57263&view=findpost&p=306752[/CODE]

[/font][/b]

Edited by talha_252
Link to comment
Share on other sites

s.a emeğine sağlık anlatımın için teşekkürler...bir sorum olacak ben butonları felan herşeyi hazırladım ancak içine nasıl program atılacağını yapamadım yardımcı olursanız sevinirim....

butonun üstüne cift tikla hizli eylem kismindan Run Programi sec programin yolunu göster tamamdir

Link to comment
Share on other sites

  • 2 hafta sonra ...

Böyle bir AIO hazırladım.

21m7mmq.jpg

Yanlış bir kodlama var mı? :good:

AdvancedSystemCare = CheckBox.GetChecked("AdvancedSystemCare 3.1.1.602");

if AdvancedSystemCare then

File.Run("AutoPlay\\Docs\\AdvancedSystemCare 3.1.1.602.exe", "", "", SW_SHOWNORMAL, false);

end

CCleaner = CheckBox.GetChecked("CCleaner.2.15.815");

if CCleaner then

File.Run("AutoPlay\\Docs\\CCleaner.2.15.815.exe", "", "", SW_SHOWNORMAL, true);

end

ESETNOD32ANTIVIRUS = CheckBox.GetChecked("ESET NOD32 Antivirus 3.0.684");

if ESETNOD32Antivirus then

File.Run("AutoPlay\\Docs\\ESET NOD32 Antivirus 3.0.684.exe", "", "", SW_SHOWNORMAL, false);

end

FastFolder = CheckBox.GetChecked("Fast Folders 4.1.2");

if FastFolder then

File.Run("AutoPlay\\Docs\\Fast Folder.exe", "", "", SW_SHOWNORMAL, true);

end

FlashGet = CheckBox.GetChecked("Flash Get 1.9.6.1073");

if FlashGet then

File.Run("AutoPlay\\Docs\\Flash Get 1.9.6.1073.exe", "", "", SW_SHOWNORMAL, false);

end

FoxitReader = CheckBox.GetChecked("Foxit Reader 3.0.1301");

if FoxitReader then

File.Run("AutoPlay\\Docs\\Foxit Reader 3.0.1301.exe", "", "", SW_SHOWNORMAL, true);

end

Framework = CheckBox.GetChecked("Framework 2.0");

if Framework then

File.Run("AutoPlay\\Docs\\Framework 2.0.exe", "", "", SW_SHOWNORMAL, false);

end

IDMAN = CheckBox.GetChecked("Internet Download Manager 5.15.5.0");

if IDMAN then

File.Run("AutoPlay\\Docs\\Internet Download Manager 5.15.5.0.exe", "", "", SW_SHOWNORMAL, true);

end

Klite = CheckBox.GetChecked("K.Lite Mega Codec Pack 4.4.5");

if Klite then

File.Run("AutoPlay\\Docs\\K.Lite.Mega.Codec.Pack.4.4.5.exe", "", "", SW_SHOWNORMAL, false);

end

Limewire = CheckBox.GetChecked("LimeWire 4.18.8");

if Limewire then

File.Run("AutoPlay\\Docs\\LimeWire 4.18.8.exe", "", "", SW_SHOWNORMAL, true);

end

Office2003 = CheckBox.GetChecked("Microsoft Office 2003 PRO SP3 Lite");

if Office2003 then

File.Run("AutoPlay\\Docs\\Microsoft Office 2003 PRO SP3 Lite v.1.3.exe", "", "", SW_SHOWNORMAL, false);

end

MozillaFirefox = CheckBox.GetChecked("Mozilla Firefox 3.0.5");

if MozillaFirefox then

File.Run("AutoPlay\\Docs\\Mozilla Firefox 3.0.5.exe", "", "", SW_SHOWNORMAL, true);

end

Nero8 = CheckBox.GetChecked("Nero 8 Lite");

if Nero8 then

File.Run("AutoPlay\\Docs\\Nero Lite 8.0.exe", "", "", SW_SHOWNORMAL, false);

end

ResourceTools = CheckBox.GetChecked("Resource Tools 2.6");

if ResourceTools then

File.Run("AutoPlay\\Docs\\Resource Tools 2.6.exe", "", "", SW_SHOWNORMAL, true);

end

ShockwawePlayer11 = CheckBox.GetChecked("Shockwawe Player 11");

if ShockwawePlayer11 then

File.Run("AutoPlay\\Docs\\Shockwawe Player 11.EXE", "", "", SW_SHOWNORMAL, false);

end

TuneUP2009 = CheckBox.GetChecked("TuneUp Utilities 2009");

if TuneUP2009 then

File.Run("AutoPlay\\Docs\\TuneUp Utilities 2009.exe", "", "", SW_SHOWNORMAL, true);

end

UltraISO = CheckBox.GetChecked("UltraISO Premium 9.3.2.2656");

if UltraISO then

File.Run("AutoPlay\\Docs\\UltraISO Premium 9.3.2.2656.exe", "", "", SW_SHOWNORMAL, false);

end

UTorrent = CheckBox.GetChecked("UTorrent 1.8.1.0");

if UTorrent then

File.Run("AutoPlay\\Docs\\UTorrent 1.8.1.0.msi", "", "", SW_SHOWNORMAL, true);

end

Winamp = CheckBox.GetChecked("Winamp 5.53");

if AdvancedSystemCare then

File.Run("AutoPlay\\Docs\\Winamp 5.53.exe", "", "", SW_SHOWNORMAL, false);

end

WindowsLiveMessenger85 = CheckBox.GetChecked("Windows Live Messenger 8.5 (Plus 4.79)");

if WindowsLiveMessenger85 then

File.Run("AutoPlay\\Docs\\Windows Live Messenger 8.5 (Plus 4.79).EXE", "", "", SW_SHOWNORMAL, true);

end

WindowsLiveMessenger9 = CheckBox.GetChecked("Windows Live Messenger 9.0");

if WindowsLiveMessenger9 then

File.Run("AutoPlay\\Docs\\Windows Live Messenger 9.0.exe", "", "", SW_SHOWNORMAL, false);

end

VistaSideBar = CheckBox.GetChecked("Windows Vista Sidebar");

if VistaSideBar then

File.Run("AutoPlay\\Docs\\Vista Sidebar.exe", "", "", SW_SHOWNORMAL, true);

end

XPlusLiveCursors = CheckBox.GetChecked("XPlus Live! Cursors");

if XPlusLiveCursors then

File.Run("AutoPlay\\Docs\\XPlus Live! Cursors.exe", "", "", SW_SHOWNORMAL, true);

end

XPlusLiveSounds = CheckBox.GetChecked("XPlus Live! Sounds");

if XPlusLiveSounds then

File.Run("AutoPlay\\Docs\\XPlus Live! Sounds.EXE", "", "", SW_SHOWNORMAL, false);

end

Edited by _EFE_
Link to comment
Share on other sites

Konu sabitlenmiştir.

Eline sağlık çok güzel ve neşeli bir anlatım olmuş.

Benim ufak bir sorum olacak kayıt için cam studio kullanmışsın ya bu program vistada açılıyor ama kayıt yapmıyor yani swf ya da avi olsun kaydet penceresi geliyor dosyaya ad veriyorum ancak kaydetmiyor???

Link to comment
Share on other sites

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...