//以下是按键语法
//创建ie
Set ie = CreateObject("Internetexplorer.Application")
//显示ie
ie.Visible = True
//暂停10秒
Delay 10000
//隐藏ie
ie.Visible=False
//暂停10秒
Delay 10000
//显示ie
ie.Visible = True
//IE 网址设置为 http://www.baidu.com
ie.Navigate "http://www.baidu.com"
While IE.busy Or IE.readystate<>4
//让网页加载完毕后再继续运行，并显示状态
If IE.busy = true Then
TracePrint "占线 "
End If
If IE.readystate = 0 Then
TracePrint "（未初始化）还没有调用send()方法 "
End If
If IE.readystate = 1 Then
TracePrint "（载入）已调用send()方法，正在发送请求 "
End If
If IE.readystate = 2 Then
TracePrint "（载入完成）send()方法执行完成，已经接收到全部响应内容"
End If
If IE.readystate = 3 Then
TracePrint "（交互）正在解析响应内容 "
End If
//暂停1秒
Delay 1000
Wend
//暂停1秒
Delay 1000

'以下是VBA语法
'创建ie
Set ie = CreateObject("Internetexplorer.Application")
' 显示ie
ie.Visible = True
'暂停10秒
Application.Wait (Now + TimeValue("0:00:10"))
'隐藏ie
ie.Visible=False
'暂停10秒
Application.Wait (Now + TimeValue("0:00:10"))
'显示ie
ie.Visible = True
'IE 网址设置为 http://www.baidu.com
ie.Navigate "http://www.baidu.com"
While IE.busy Or IE.readystate<>4
//让网页加载完毕后再继续运行，并显示状态
If IE.busy = true Then
debug.Print "占线 "
End If
If IE.readystate = 0 Then
debug.Print "（未初始化）还没有调用send()方法 "
End If
If IE.readystate = 1 Then
debug.Print "（载入）已调用send()方法，正在发送请求 "
End If
If IE.readystate = 2 Then
debug.Print "（载入完成）send()方法执行完成，已经接收到全部响应内容"
End If
If IE.readystate = 3 Then
debug.Print "（交互）正在解析响应内容 "
End If
//暂停1秒
Application.Wait (Now + TimeValue("0:00:01"))
Wend
//暂停1秒
Application.Wait (Now + TimeValue("0:00:01"))

%MATLAB语言
ie=actxserver('internetexplorer.application')
%创建ie
% 显示ie
ie.Visible = true
% 暂停10秒
pause (10)
% 隐藏ie
ie.Visible=false
% 暂停10秒
pause (10)
% 显示ie
ie.Visible = true
% IE 网址设置为 http://www.baidu.com
ie.Navigate (' http://www.baidu.com' )
while ((ie.busy == true))||(~strcmp(ie.ReadyState, 'READYSTATE_COMPLETE'))
%让网页加载完毕后再继续运行，并显示状态
if ie.busy == true
disp ('占线')
end
if strcmp(ie.ReadyState, 'READYSTATE_UNINITIALIZED' )
disp('（未初始化）还没有调用send()方法 ')
end
if strcmp(ie.ReadyState, 'READYSTATE_LOADING')
disp('（载入）已调用send()方法，正在发送请求 ')
end
if strcmp(ie.ReadyState, 'READYSTATE_LOADED')
disp('（载入完成）send()方法执行完成，已经接收到全部响应内容')
end
if strcmp(ie.ReadyState, 'READYSTATE_INTERACTIVE')
disp('（交互）正在解析响应内容 ')
end
%暂停1秒
pause (1)
end
%暂停1秒
pause (1)