搜索 社区服务 统计排行 帮助
发帖 回复
« 返回列表上一主题下一主题
  • 5104阅读
  • 2回复

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

 楼层直达
jackytj
级别: 新手上路
注册时间:
2003-03-24
在线时间:
0小时
发帖:
269
只看楼主 更多操作 楼主  发表于: 2003-07-02
老大们的链接都做的很完美，但是新人必看里面那个好像不怎么好用，也找不到老大用的。只能自己改一个了。还是用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
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信

详细信息请点击图片↑
回复 引用
举报顶端
bosch
级别: 工作组
注册时间:
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)
反腐倡廉
网络上没有人知道对面是否为狗，但欠债迟早要还，这点上帝公平
回复 引用
举报顶端
pojen
级别: 工作组
注册时间:
2003-03-29
在线时间:
39小时
发帖:
4597
只看该作者 2楼 发表于: 2005-09-04
☆ 偶是新人請多多指教! ☆
回复 引用
举报顶端
发帖 回复
« 返回列表上一主题下一主题