搜索 社区服务 统计排行 帮助
  • 5096阅读
  • 2回复

[分享]ED链接发贴工具(推荐)

楼层直达
级别: 新手上路
注册时间:
2003-03-24
在线时间:
0小时
发帖:
269
老大们的链接都做的很完美,但是新人必看里面那个好像不怎么好用,也找不到老大用的。只能自己改一个了。还是用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


详细信息请点击图片↑
级别: 工作组
注册时间:
2002-07-07
在线时间:
0小时
发帖:
6249
只看该作者 1楼 发表于: 2003-07-02
呵呵,很简单的事情。
连接制作器的代码,在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)

反腐倡廉
网络上没有人知道对面是否为狗,但欠债迟早要还,这点上帝公平
级别: 工作组
注册时间:
2003-03-29
在线时间:
39小时
发帖:
4597
只看该作者 2楼 发表于: 2005-09-04

☆ 偶是新人請多多指教! ☆