Vb.net Vb+；自定义Url字符串UTF-8

我有一个url，可以搜索一些产品。 但是url有一个奇怪的符号：

https://www.hobbydb.com/marketplaces/hobbydb/catalog_items?utf8=✓&q=daredevil+sideshow&commit=Go

当我把它放在我的vb网络代码中时，我有：

https://www.hobbydb.com/marketplaces/hobbydb/catalog_items?utf8=%E2%9C%93&q=daredevil+sideshow&commit=Go

我找不到我的产品

1尝试： 结果是：

https://www.hobbydb.com/marketplaces/hobbydb/catalog_items?utf8=✓&q=+&commit=Go

https://www.hobbydb.com/marketplaces/hobbydb/catalog_items?utf8=%E2%9C%93&q=+&commit=Go

2.尝试： 结果是：

https://www.hobbydb.com/marketplaces/hobbydb/catalog_items?utf8=✓&q=+&commit=Go

https://www.hobbydb.com/marketplaces/hobbydb/catalog_items?utf8=%E2%9C%93&q=+&commit=Go

这是我当前的代码：

        'find product
        Dim productsearch = TextBox4.Text 'Product name
        Dim brandsearch = ComboBox1.Text 'Branch Product
        Dim s1 = $"https://www.hobbydb.com/marketplaces/hobbydb/catalog_items?utf8=%E2%9C%93&q={productsearch}+{brandsearch}&commit=Go" 'Url Search with Strings
        TextBox5.Text = s1 'Result
        'find product

我需要像这样的回报：

https://www.hobbydb.com/marketplaces/hobbydb/catalog_items?utf8=%E2%9C%93&q=daredevil+sideshow&commit=Go

或

我为什么要这样做？

完成

'Dim encoded = HttpUtility.UrlPathEncode("http://zh.wikipedia.org/wiki/白雜訊")
    Dim productsearch = TextBox4.Text 'Product name
    Dim brandsearch = ComboBox1.Text 'Branch Product
    'Dim s1 = $"https://www.hobbydb.com/marketplaces/hobbydb/catalog_items?utf8=%E2%9C%93&q={productsearch}+{brandsearch}&commit=Go" 'Url Search with Strings
    Dim s1 = HttpUtility.UrlPathEncode($"https://www.hobbydb.com/marketplaces/hobbydb/catalog_items?utf8=✓&q={productsearch}+{brandsearch}&commit=Go") 'Url Search with Strings
    TextBox5.Text = s1 'Result
    'find product

---

URL不支持未编码的Unicode字符，仅支持ASCII字符。所以

✓不能在URL中显示为未编码，必须将其字符集编码为字节，然后将这些字节URL编码为
%HH
十六进制格式<代码>%E2%9C%93

是url编码的UTF-8形式的

✓。在浏览器UI中，您可以键入
✓，当传输到web服务器时，它将被编码为
%E2%9C%93
。这是网站用来检测浏览器是否支持Unicode字符的常见技巧。
'Dim encoded = HttpUtility.UrlPathEncode("http://zh.wikipedia.org/wiki/白雜訊")
    Dim productsearch = TextBox4.Text 'Product name
    Dim brandsearch = ComboBox1.Text 'Branch Product
    'Dim s1 = $"https://www.hobbydb.com/marketplaces/hobbydb/catalog_items?utf8=%E2%9C%93&q={productsearch}+{brandsearch}&commit=Go" 'Url Search with Strings
    Dim s1 = HttpUtility.UrlPathEncode($"https://www.hobbydb.com/marketplaces/hobbydb/catalog_items?utf8=✓&q={productsearch}+{brandsearch}&commit=Go") 'Url Search with Strings
    TextBox5.Text = s1 'Result
    'find product