Private Sub Command1_Click()
Dim sHTML
sHTML = RequestText("http://www.tcmb.gov.tr/kurlar/today.xml")
Text1.Text = sHTML
End Sub
Private Function RequestText(sURL, Optional sMethod = "GET")
Dim XMLHTTP
Set XMLHTTP = CreateObject("microsoft.XMLHTTP")
sMethod = UCase(sMethod)
XMLHTTP.Open sMethod, sURL, False
XMLHTTP.send (Null)
RequestText = XMLHTTP.responseText
Set XMLHTTP = Nothing
End Function
3 Nisan 2014 Perşembe
3 Mart 2014 Pazartesi
Linux ulimit hard ve soft limit ayarlaması
1. aşağıdaki satır /etc/security/limits.conf dosyasına eklenir
kullanıcı_adı hard nofile 65536
2. daha sonra kullanıcı_adı ile login olunur
.bashrc ve .bash_profile dosyalarına aşağıdaki satırlar eklenir
echo "ulimit -n 65536" >> .bashrc ; echo "ulimit -n 65536" >> .bash_profile
3. logout ve login işlemi sonrasında yeni ulimit değerleri set edilmiş olacaktır
kullanıcı_adı hard nofile 65536
2. daha sonra kullanıcı_adı ile login olunur
.bashrc ve .bash_profile dosyalarına aşağıdaki satırlar eklenir
echo "ulimit -n 65536" >> .bashrc ; echo "ulimit -n 65536" >> .bash_profile
3. logout ve login işlemi sonrasında yeni ulimit değerleri set edilmiş olacaktır
Kaydol:
Kayıtlar (Atom)