1、你可以把参数保存在cookie里面;
2、获取失败后,会跳转到这里授权
Dim ul1 As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid={0}&redirect_uri={1}&response_type=code&scope=snsapi_base&state={2}#wechat_redirect"
你这里传进去的地址,也要包含参数才行
Dim ul2 As String = UrlEncode("http://www.123.com/456.htm")
改成对应要跳转的地址(包含参数)