i making simple web browser using visual studio 2015 community edition , visual basic. have added code below. browser works, problem seems work https protocol links. think because http automatically throws error causes error handler run, retries website https prefix. not know error might or how fix it... can help?
code:
public class form1 'one button go. other settings -incognito, history, homepage???? 'window button actions private sub green_click(sender object, e eventargs) handles green.click me.windowstate = formwindowstate.maximized end sub private sub yellow_click(sender object, e eventargs) handles yellow.click me.windowstate = formwindowstate.minimized end sub private sub red_click(sender object, e eventargs) handles red.click me.close() end sub private sub form1_load(sender object, e eventargs) handles me.load titletext.parent = grey titletext.backcolor = color.transparent titletextdivider.parent = grey titletextdivider.backcolor = color.transparent versiontext.parent = grey versiontext.backcolor = color.transparent end sub public sub gobutton_click(sender object, e eventargs) handles gobutton.click 'add checking blacklist , adding link history file here later. use separate subs , call them here better organisation. dim input string = textbox1.text 'prefix http , www input = "http://www." + input 'convert uri dim url uri = new uri(input) 'set url webbrowser1.url = url 'refresh webbrowser1.refresh() 'on error, retry https on error goto https_handler https_handler: 'new string url, replacing http https dim https_input string = replace(input, "http", "https") 'all did last time, again... dim newurl uri = new uri(https_input) webbrowser1.url = newurl webbrowser1.refresh() end sub end class don't worry first bit, focus on bit after "public sub gobutton_clicked"...
your trying use old vb6 style of error handling. comments above suggested better in vb.net use newer try\catch syntax.
if want keep write so...
public sub gobutton_click(sender object, e eventargs) handles gobutton.click on error goto https_handler dim input string = textbox1.text input = "http://www." + input dim url uri = new uri(input) webbrowser1.url = url webbrowser1.refresh() exit sub https_handle: dim https_input string = replace(input, "http", "https") dim newurl uri = new uri(https_input) webbrowser1.url = newurl webbrowser1.refresh() end sub note 'exit sub' keep going error handling code if there isn't error. doing stands may not have error @ unintentionally refreshing page reguardless.
plus there error variable can check in error handling see err.description , err.number
Comments
Post a Comment