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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 13:54:14
当WebBrowser1.Navigate的地址含有Default.aspx?时则修改为load.swf?

当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