前端辅助之系统右键生成HTML+CSS

vickeychen 楼主

相信各位网页代码实现者，都经常重复插入图片甚至是将图片设置成为背景的操作，这对于习惯在code模式下的朋友来说，的确是个繁琐的过程，笔者也常常觉得特别麻烦，早就有想实现一个这样的功能(在系统任何地方的图片上点击右键，在右键菜单里有“生成HTML代码”项，点击则生成HTML+CSS)，技术难点不大，今天为了大家多偷懒也终于不肯自己偷懒，只好动手了，本来仅使用VBS脚本就可以实现的东东，只是要将它们关联到系统右键菜单，没办法，只好将代码移植到VB里，基本不用修改，直接搬到VB里，就可以运行，哈哈，解决 ^^*

　因为考虑到很多使用Windows XP的朋友，笔者只好下载了微软的WIA运行库，一起打包，安装的时候将wiaaut.dll文件拷贝到了 system32文件夹里.

   下载地址：http://www.nihaoku.cn/temp/linr.exe

   双击“Linr.exe”，按默认安装，程序解压在C:\Program Files\Linr文件夹，解压完成后，自动运行"setup.vbs".

　如果安装成功，您将在资源管理器任意图片上的右键菜单中找到“生成HTML(H)”，不妨点击试试，如果提示“内容已经拷贝到剪贴板”，说明您已成功安装，把CSS代码直接在网页编辑器里粘贴即可。

　当然您还可以根据你的需要修改程序，笔者只是告诉大家其实有很多偷懒的东西（在此抛砖引玉吧，呵呵^^*），我们只要稍微用心就可以实现它们，工作效率也会高了很多。

Linr Shell 2 HTML.exe　使用VB 6开发，程序代码如下：

Set oImg = CreateObject("WIA.ImageFile") '创建WIA对象 Set oProc = CreateObject("WIA.ImageProcess") '创建WIA进程 dim tagStart,tagEnd,arg,src,tag,css '声明变量 tagStart="<img src=""" tagEnd=""" alt="""" />" styleStart="#bg{" styleEnd="}" arg = Command '获取命令行参数 src="../images/" & Mid(arg,InStrRev(arg,"\")+1) '获取图片文件名 Clipboard.Clear '清空剪贴板中的数据 if arg <> "" Then oImg.LoadFile arg '载入图片 else end ' 中止程序 end if tag = tagStart & src & tagEnd css = styleStart & "width:" & oImg.Width & "px;" & "height:" & oImg.Height & "px;background:url(" & src & ") 0 0 no-repeat;overflow:hidden;" & styleEnd Clipboard.SetText tag & vbNewLine & css MsgBox "内容已经拷贝到剪贴板：" & vbNewLine & Clipboard.GetText

运行代码 复制代码 另存代码  提示：您可以先修改部分代码再运行

        setup.vbs 文件代码：


       

Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFile "C:\Program Files\Linr\wiaaut.dll" , "C:\windows\system32\wiaaut.dll" Set WshShell=wscript.CreateObject("WScript.Shell") wshshell.run "regedit.exe toRegedit.reg" wshshell.run "regsvr32 wiaaut.dll" msgbox "安装成功"

运行代码 复制代码 另存代码  提示：您可以先修改部分代码再运行

   安装或使用过程中的任何问题，请与笔者联系：QQ/MSN/Email/web：www@xiaogezi.cn

hao3721

可以啊.沙发先

e4

强，好方法

4767850

强,好东东

ttde

试过了，不错，但现在还没有能实际用上。

joelioa

感觉还是手写的好些，不能太依赖工具。。。

icheney

鸽子跑到这里来发东东了???

jsgswjtu

恩，好思路，不错不错，厉害。

mallard00

好厉害啊

佩服啊