易打造屏保桌面两条飞龙调用WIN IE控件看图

已注销116355 · 发表于 2012-2-22 14:55:52

本帖最后由 32856146 于 2012-2-22 15:05 编辑

我破J的代码
DLL：
.版本 2
.DLL命令取窗口风格, 整数型, , "GetWindowLongA"
.参数 hwnd, 整数型
.参数 nIndex, 整数型
.DLL命令设置窗口, 整数型, , "SetWindowLongA"
.参数 hwnd, 整数型
.参数 nIndex, 整数型
.参数 dwNewLong
.DLL命令设置透明, 整数型, , "SetLayeredWindowAttributes"
.参数 hwnd, 整数型
.参数 crkey, 整数型
.参数 alpha, 字节型
.参数 dwflags, 整数型

代码：
.版本 2
.支持库 HtmlView
.支持库 shellEx
.程序集窗口程序集1
.程序集变量 a, 整数型
.子程序 __启动窗口_创建完毕
删除文件 (取运行目录 () ＋ “/smwn.fne”)
删除文件 (取运行目录 () ＋ “/smwn.swf”)
删除文件 (取运行目录 () ＋ “/smwn.fne”)
删除文件 (取运行目录 () ＋ “/smwn.swf”)
写到文件 (取运行目录 () ＋ “/smwn.fne”, 到字节集 (到文本 (“<head><div align=center><embed src=smwn.swf style=LEFT: 0px; POSITION: absolute; TOP: 0px; absolute: align=right width=1024 height=768type=application/x-shockwave-flash wmode=transparent quality=high ;></EMBED> </div>”)))
写到文件 (取运行目录 () ＋ “/smwn.swf”, #ll)
超文本浏览框1.地址＝取运行目录 () ＋ “/smwn.fne”
置文件属性 (取运行目录 () ＋ “/smwn.fne”, 2 ＋ 4)
置文件属性 (取运行目录 () ＋ “/smwn.swf”, 2 ＋ 4)
_启动窗口.宽度＝取屏幕宽度 () × 100
_启动窗口.高度＝取屏幕高度 () × 411
_启动窗口.左边＝ -10
_启动窗口.顶边＝ 0
超文本浏览框1.宽度＝ _启动窗口.宽度＋ 30
超文本浏览框1.高度＝ _启动窗口.高度＋ 30
超文本浏览框1.左边＝ -10
超文本浏览框1.顶边＝ -10
设置窗口 (取窗口句柄 (), -20, 位或 (取窗口风格 (取窗口句柄 (), -20), 524288))
设置透明 (取窗口句柄 (), #白色, 200, 1)
a ＝注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Esc键)
.子程序 _时钟1_周期事件
_启动窗口.总在最前＝真

.子程序 __启动窗口_可否被关闭, 逻辑型
删除文件 (取运行目录 () ＋ “/smwn.fne”)
删除文件 (取运行目录 () ＋ “/smwn.swf”)
删除文件 (取运行目录 () ＋ “/smwn.fne”)
删除文件 (取运行目录 () ＋ “/smwn.swf”)
返回 (真)
.子程序 _标签1_反馈事件, 整数型
.参数参数一, 整数型
.参数参数二, 整数型
.如果真 (参数一＝ a)
删除文件 (取运行目录 () ＋ “/smwn.fne”)
删除文件 (取运行目录 () ＋ “/smwn.swf”)
删除文件 (取运行目录 () ＋ “/smwn.fne”)
删除文件 (取运行目录 () ＋ “/smwn.swf”)
销毁 ()
.如果真结束

图片：
.版本 2
.图片 ll

ll.zip (198.6 KB, 下载次数: 3)

创建：
时钟1
左边200
顶边128
宽度40
高度32

超文本浏览框1
左边16
顶边8
宽度264
高度160

_启动窗口
左边50
顶边50
宽度298
高度200
底色品红

宅男 · 发表于 2012-2-22 15:00:32

很久没来论坛，发个经典的，大家学习下吧..

tianyouhuge · 发表于 2012-2-22 15:06:15

哇哈哈哦也啊

晓风残月xzj · 发表于 2012-2-22 16:59:50

支持一下。

微笑盖伤痕 · 发表于 2012-2-22 17:26:53

ddddddddddddddd

px0620 · 发表于 2012-3-10 18:02:51

我参考下，尽量板凳！

沉醉的阳光 · 发表于 2012-3-10 22:05:47

看看{:3_245:}

pf0546 · 发表于 2012-3-11 11:11:22

好东西啊，顶你

小洁 · 发表于 2012-3-11 13:01:16

我能说说看看

豆豆GZS · 发表于 2012-3-11 13:04:03

好东西啊{:3_227:}

		自动登录	找回密码
密码			注册

[易源码分享] 易打造屏保 桌面两条飞龙 调用WIN IE控件 看图

[易源码分享] 易打造屏保桌面两条飞龙调用WIN IE控件看图