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

Ams8 De Arkaplan Uygulaması Yapmak (soru)


turkoglu98
 Share

Recommended Posts

Hala AMS8 ile uğraşlanlar var mı bilmiyorum çünkü bayağı zamandır konu açılmamış ama ben yinede sorayım dedim. Benim istediğim arkaplan uygulaması yapmak yani uygulama çalıştığında herhangi bir ekran gelmeyecek. Bunun bir ayarı var mı bilmiyorum ama daha önce araştırdığımda bulamamıştım ve boşver demiştim busefer bi sorayım dedim.

Link to comment
Share on other sites

  • Editor

Ams de en fazla yapacağın şu olur. formu en küçük boyuta alırsın. Sonrasında mask işlemi vardı formu farklı şekillere sokan. Onunlada özel bi mask ayarlarsın. yanlş hatırlamıyorsam siyah kısımlar görünmüyordu komple siyah yaparsın. Form görünmez ama çalışır.

Link to comment
Share on other sites

dediğin gibi yaptım oldu. formu küçültüp siyah mask kullandım. Sistem hidden seçeneği ile de tam oldu, forum gözükmedi ama görev yöneticisinde normal uygulama gibi görünüyor oda benim için sorun değil.  Yalnız tek bir sorunum var programım 10sn de bir internet testi yapıyor şu kodla:

IsConnected = HTTP.TestConnection("http://www.google.com", 10, 80, nil, nil);
if (IsConnected == false) then
disable = "1";
else
disable = "0";
end

Normalde sıkıntı yok yani ortalama bir bilgisayar ve ortalama bir internet. Yalnız geçenlerde Vmware'den win7 winxp testi yapıyordum aklıma internet hızını düşürmek geldi ve test ettim. İnternet hızı düşünce bu kontrol olayı çok uzun sürüyor ve program yanıt vermiyor diyor , aynı zamanda da gizlenen form siyah bir ekran olarak karşıma çıkıyor. 2-3 sn sonra tekrar gizleniyor. Şu internet kontrolünü daha hızlı yapabileceğim bir yöntem varmıdır mesela dll ile filan 

Link to comment
Share on other sites

İhtiyacı olan için kullandığım kodu yazayım.

connect.cmd  "AutoPlay\\Docs\\" içine atılacak

ping -t -f -n 1 google.com>isonline.txt

Page->On Preload

result = File.Run("AutoPlay\\Docs\\connect.cmd", "", "", SW_HIDE, true); --CMD' gizli olarak çalıştır ve bitmesini bekle
IsConnected = TextFile.ReadToString("isonline.txt"); --bilgileri al
IsConnected = String.Find(IsConnected, "could not find", 1, false); -- "could not find" ben bunu kullanarak arattırdım eğer yoksa -1 değerini verir.
if (IsConnected == -1) then
disable = "0";
else
disable = "1";
end

 

Edited by turkoglu98
Link to comment
Share on other sites

  • 3 hafta sonra ...
  • Editor
pingDurumu = os.execute('ping google.com.tr')
if pingDurumu then
--ping atılıyor
else
--ping atılmıyor
end

Bunuda kullanabilirsiniz. AMS olmadıgı için deneyemedim ama olacaktır diye düşünüyorum.

Link to comment
Share on other sites

  • 2 hafta sonra ...
function PingTest()
    local pReturn;
    File.Run("cmd.exe", "/C ping google.com > ".._TempFolder.."\\net_test.txt", _SystemFolder, SW_HIDE, true);
    local get_ping_info = TextFile.ReadToString(_TempFolder.."\\net_test.txt");
    if get_ping_info:find("Ping request could not find") then
        pReturn = 0;
    elseif get_ping_info:find("Pinging") then
        pReturn = 1;
    end
    os.remove(_TempFolder.."\\net_test.txt");
    return pReturn;
end

if PingTest() == 1 then
    Dialog.Message("", "Bağlantı var");
else
    Dialog.Message("", "Bağlantı bulunamadı");
end

 

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