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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 02:28:08
当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