查看完整版本: [-- [分享]ED链接发贴工具（推荐） --]

『漫游』酷论坛 -> 实用工具小卖部 -> [分享]ED链接发贴工具（推荐） [打印本页] 登录 -> 注册 -> 回复主题 -> 发表主题

jackytj 2003-07-02 20:45

[分享]ED链接发贴工具（推荐）

老大们的链接都做的很完美，但是新人必看里面那个好像不怎么好用，也找不到老大用的。只能自己改一个了。还是用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
聯盟版


查看完整版本: [-- [分享]ED链接发贴工具（推荐） --] [-- top --]


Powered by phpwind v8.5 Code ©2003-2011 phpwind
Time 0.005742 second(s),query:2 Gzip disabled