通过 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)
| 
[复制链接]
发表于 2014-7-15 05:22
|
发表于 2014-7-15 05:36
谢谢分享
