Konu: Bir Windows 7 sorunu da benden ...
Aslında sorun Internet Explorer 9 ile ilgili.
IE8 ve öncesinde sorun yoktu.
Şimdi aşağıdaki kodu çalıştırınca hata alıyorum.
IE9 açmaması gereken IE formunu doğrudan açıyor. Önceden işimi kullanıcının görmeyeceği şekilde rahat rahat çözüyordum. Şimdi uğraş dur ...
Kod aşağıda: Pratik bir önerisi olan var mı?
? GetInternetTime()
Function GetInternetTime
*!* Author: Ugur YILMAZ
Local ldReturnDate, lcHtml, lcUrl, lcLocalFile, loIE
*!* lcUrl = "http://free.timeanddate.com/clock/i2467ggw/n136/tluk/tt1/tw0" && London
lcUrl = "http://free.timeanddate.com/clock/i2465v6w/n19/tluk/tt1/tw0/td2" && Ankara
lcLocalFile = Forcepath("InternetTime.HTML",Sys(2023))
If getFileFromURL(m.lcUrl,m.lcLocalFile) = 0
loIE = Createobject("InternetExplorer.Application")
loIE.Navigate(m.lcLocalFile)
* Error In IE9 -> Why?
Strtofile(loIE.Document.body.innertext, Forcepath("InternetTime.TXT",Sys(2023)))
m.lcHtml = FileToStr(Forcepath("InternetTime.TXT",Sys(2023)))
* Burada TXT dosyası yerine HTML oluşuyor
m.ldReturnDate = "{^";
+GetWordNum(m.lcHtml,3);
+"-";
+ICase(;
Upper(GetWordNum(m.lcHtml,2)) = "JANUARY","01", ;
Upper(GetWordNum(m.lcHtml,2)) = "FEBRUARY","02", ;
Upper(GetWordNum(m.lcHtml,2)) = "MARCH","03", ;
Upper(GetWordNum(m.lcHtml,2)) = "APRIL","04", ;
Upper(GetWordNum(m.lcHtml,2)) = "MAY","05", ;
Upper(GetWordNum(m.lcHtml,2)) = "JUNE","06", ;
Upper(GetWordNum(m.lcHtml,2)) = "JULY","07", ;
Upper(GetWordNum(m.lcHtml,2)) = "AUGUST","08", ;
Upper(GetWordNum(m.lcHtml,2)) = "SEPTEMBER","09", ;
Upper(GetWordNum(m.lcHtml,2)) = "OCTOBER","10", ;
Upper(GetWordNum(m.lcHtml,2)) = "NOVEMBER","11", ;
Upper(GetWordNum(m.lcHtml,2)) = "DECEMBER","12") ;
+"-";
+GetWordNum(m.lcHtml,1);
+"}"
loIE.Stop
Release loIE
RETURN (m.ldReturnDate)
Endif
Endfunc
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü