Jump to content

Güncelleyici


FİRE BİRD
 Share

Recommended Posts

sshot1nf.png



Örnek Çalışmalar bölümündede bulunsun istedim...
Kintaronun katkılarıyla...

Apz Dosyası :
http://www.4shared.com/file/w8xUAEDI/guncelle.html[/CODE]



Kod :

[CODE]------------ Baglanti Test ---------------------------------------------
test = HTTP.TestConnection("http://www.denemex.com", 20, 80, nil, nil);
if test == true then
HTTP.Download("http://www.denemex.com/Update.xml", _TempFolder .. "\Update.xml", 20, 80) -- xml dosyasını indir
end
if test == false then
Dialog.Message("Hata", "Servere Bağlanamadı.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
Application.ExitScript();
end
------------ Baglanti Test ---------------------------------------------
------------ Karsilastir Eskiyse Update Et -----------------------------
XML.Load(_TempFolder .. "\Update.xml") -- hafizaya yükle
a = XML.GetValue("version") -- Sunucudaki XML versiyon bilgisini al
XML.Load("AutoPlay\Docs\ref.xml") -- hafizaya yükle
b = XML.GetValue("version") -- Referans XML versiyon bilgisini al
if a > b then -- eger versiyon eskiyse
RichText.SetText("RichText1", "Güncelleme İndiriliyor.", false)
HTTP.Download("http://www.denemex.com/update.exe", _DesktopFolder .."\update.exe", 20, 80) --güncellemeyi indir
File.Open(_DesktopFolder .."\update.exe", "", SW_SHOWNORMAL); -- güncellemeyi çalıştır
File.Delete(_TempFolder .. "\Update.xml", true, true, true, nil);
Application.Exit(0);
else -- eğer versiyon yeniyse
RichText.SetText("RichText1", "Tebrikler,Güncellemeye gerek yok", false);
File.Delete(_TempFolder .. "\Update.xml", true, true, true, nil);
end
------------ Karsilastir Eskiyse Update Et -----------------------------[/CODE]

Link to comment
Share on other sites

  • 2 hafta sonra ...
  • 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...