Private Sub Form_Activate() Dim a() As String Dim b() As String Text1.Text = Command a = Split(Text1.Text, "//") Print a(0), a(1) b = Split(a(1), "/") Print b(0) End Sub reg.reg Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT/startQQ] @="startQQ 自定义协议" "URL Protocol"=hex(2):00,00 [HKEY_CLASSES_ROOT/startQQ/DefaultIcon] @="D://yuan//test.exe,1" [HKEY_CLASSES_ROOT/startQQ/shell] [HKEY_CLASSES_ROOT/startQQ/shell/open] [HKEY_CLASSES_ROOT/startQQ/shell/open/command] @="/"D://yuan//test.exe/" /"%1/"" 网页调用 <a href="startQQ://天天好心情">123</a> <a href="startQQ://gdfgdfg">123</a> <a href="startQQ://gdfgfgdfgdf">123</a> <a href="startQQ://ffffffffffffffffff心情">123</a> 生成软件名:test.exe 存入地址:d:/yuan |
超链接自定义协议(可以传值)
最新推荐文章于 2022-10-21 15:16:35 发布