论坛转帖图片辅助工具，AU3制作

gamewfj · 发表于 2014-7-15 05:22

通过 http://qq.ip138.com/zt.htm 转帖以后并不会清除类似我框起来的那些附件的信息，自己弄了这个小东西，唯一的功能就是只保留图片代码，其他的全部不要。
程序是AU3写的，可能会被某些杀软误报，请自己斟酌

将IP138处理过的东西复制到上方的编辑框内，点击只要图片，下面的编辑框就出现结果，点击复制结果就可以把内容复制到剪切板中

程序非常简单，高手勿喷，有需要的麻烦点击晚张国立再下载，谢谢

怕有病毒的自己下载AU3安装程序，然后编译就可以了。

#NoTrayIcon
#include <Array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("转帖工具图片提取工具", 586, 589, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Edit1 = GUICtrlCreateEdit("", 10, 10, 565, 229)
$Edit2 = GUICtrlCreateEdit("", 10, 290, 555, 289)
$Button1 = GUICtrlCreateButton("只要图片", 90, 250, 75, 25)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("复制结果", 370, 250, 75, 25)
GUICtrlSetOnEvent(-1, "Button2Click")
GUISetState(@SW_SHOW)
While 1
        Sleep(100)
WEnd
Func Button1Click()
        $sss = StringRegExp(GUICtrlRead ($Edit1), '(?s)\[img\].*?\[\/img\]', 3)
        GUICtrlSetData ($Edit2,_ArrayToString ($sss,@CRLF&@CRLF))
EndFunc   ;==>Button1Click
Func Button2Click()
        ClipPut (GUICtrlRead ($Edit2))
EndFunc   ;==>Button2Click
Func Form1Close()
        Exit
EndFunc   ;==>Form1Close

程序下载

转帖辅助.rar (382.96 KB, 下载次数: 74)

轩东丨Away · 发表于 2014-7-15 05:31

这个很好哦，有时候图片看不了用它正好

gamewfj · 发表于 2014-7-15 05:36

轩东丨Away 发表于 2014-7-15 05:31
这个很好哦，有时候图片看不了用它正好

如果对你有帮助的话麻烦多多点支持，奖励点评分之类的，谢谢

liusu277 · 发表于 2014-7-16 10:43

这个功能不错。。。

我讨厌装逼的人。我就从来不说自己用什么手机!

----来自iPhone 5S 32G 土豪金镶钻版 VIP客户语音对讲、双卡双待、高效沟通！

Sunshine_尕 · 发表于 2014-7-15 05:38

谢谢分享

dean1 · 发表于 2014-7-15 06:26

这个不错，学习一下。

tangren518 · 发表于 2014-7-15 06:37

辛苦楼主了！

a824492020 · 发表于 2014-7-15 06:38

看看.....

lostsjh · 发表于 2014-7-15 06:43

看看！感谢楼主分享

qiangua2001 · 发表于 2014-7-15 06:45

谢谢分享

tianlangxing866 · 发表于 2014-7-15 06:46

点击张国立，看到这个想到某吧喜欢这样说

帐号		自动登录	找回密码
密码			注册[Register]

[原创工具] 论坛转帖图片辅助工具，AU3制作

免费评分