『漫游』酷论坛>『eDonkey交流区』>ED精華區>实用工具小卖部>[分享]ED链接发贴工具 ..
[分享]ED链接发贴工具（推荐）
jackytj@2003-07-02 20:45
老大们的链接都做的很完美，但是新人必看里面那个好像不怎么好用，也找不到老大用的。只能自己改一个了。还是用Tele的那个改的。
http://www.duriel.pwp.blueyonder.co.uk/converter.htm
稍微修改了下，现在更完美了
eg:
下载链接：[URL='ed2k://|file|[yydm][Touch][04][jp_big5][Xvid_BF].avi|178337792|09678DFDFEF0E393B83935101FC075C2|/'][yydm][Touch][04][jp_big5][Xvid_BF].avi[/URL] Size: 170.08 MB
下载链接：touch_v.srt Size: 12 KB
bosch@2003-07-02 21:43
呵呵，很简单的事情。
连接制作器的代码，在VB.net 调试通过。
Dim a, x, b As String
a = TextBox1.Text
x = Len(a)
b = Mid(a, 14, x - 58)
TextBox2.Text = "[url=""" & a & """" & "]" & b & "[/url]"
Clipboard.SetDataObject(TextBox2.Text)
VB5，6 如果要用这个代码，请把 Clipboard.SetDataObject(TextBox2.Text) 改为
Clipboard.settext TextBox2.Text)
pojen@2005-09-04 12:11
聯盟版
| TOP