当WebBrowser1.Navigate的地址含有Default.aspx?时则修改为load.swf?

来源:学生作业帮助网 编辑:六六作业网 时间:2024/07/09 07:45:27
当WebBrowser1.Navigate的地址含有Default.aspx?时则修改为load.swf?当WebBrowser1.Navigate的地址含有Default.aspx?时则修改为loa

当WebBrowser1.Navigate的地址含有Default.aspx?时则修改为load.swf?
当WebBrowser1.Navigate的地址含有Default.aspx?时则修改为load.swf?

当WebBrowser1.Navigate的地址含有Default.aspx?时则修改为load.swf?
Dim Pos as long
Pos = instr(WebBrowser1.LocationURL,"Default.aspx")
if Pos then
WebBrowser1.Navigate left(WebBrowser1.LocationURL,Pos - 1) & "load.swf"
end if