Anthony
Fri Aug 18 07:14:24 CDT 2006
Dim objIE ' <--- Did you not try this like I suggested??
Public Function RunScript()
Set mesajboard = document.getElementById("mesajimiz")
ccSleep(3)
Set objIE = CreateObject("InternetExplorer.Application")
'objIE.visible=true
objIE.Navigate("
http://eczane.ssk.gov.tr/eczane/basla")
objIE.ToolBar = 0
objIE.StatusBar = 0
objIE.width="900"
objIE.height="800"
objIE.top="80"
objIE.left="75"
objIE.Visible = True
Do Until objIE.busy
readyx=objIE.ReadyState
ccSleep(1)
readyxcount=readyxcount+1
if readyxcount = 10 then
objExplorer.stop
objIE.close '<!--- are you sure this is what you want to be doing?
end if
mesajboard.innerHTML=readyxcount & " saniye oldu...!"
mesajboard.innerHTML="<font size=1 color=red>Pencerenin tamamen
yüklenmesi bekleniyor...!</font>"
Loop
'MsgBox(objIE.document.readyState)
Set sskdoc=objIE.document
sskdoc.title="EOP kontrolünde SSK islemleri devam ediyor..."
sskdoc.all.tags("INPUT")(1).value="0600100897"
sskdoc.all.tags("INPUT")(2).value="12345678" ' ofcourse wrong pass
sskdoc.all.tags("INPUT")(3).focus()
End Function
Sub ccSleep(seconds)
set oShell = CreateObject("Wscript.Shell")
cmd = "%COMSPEC% /c ping -n " & 1 + seconds & " 127.0.0.1>nul"
oShell.Run cmd,0,1
End Sub
--------------------------------------o-------------------------------------
--
I wish to use the objIE from other functions. But how?