AU3更改壁纸例子

12月142015

作者：绿色风发布：2015-12-14 12:34 Monday 分类：阅读：13508次评论：8条

使用ObjCreateInterface

创建IActiveDesktop

更改壁纸例子

;===============================================================================
#interface "IActiveDesktop"
Global Const $sCLSID_ActiveDesktop = "{75048700-EF1F-11D0-9888-006097DEACF9}"
Global Const $sIID_IActiveDesktop = "{F490EB00-1240-11D1-9888-006097DEACF9}"
Global Const $tagIActiveDesktop = _
        "ApplyChanges hresult(dword);" &amp; _
        "GetWallpaper hresult(wstr;uint;dword);" &amp; _
        "SetWallpaper hresult(wstr;dword);" &amp; _
        "GetWallpaperOptions hresult(struct*;dword);" &amp; _
        "SetWallpaperOptions hresult(struct*;dword);" &amp; _
        "GetPattern hresult(wstr;uint;dword);" &amp; _
        "SetPattern hresult(wstr;dword);" &amp; _
        "GetDesktopItemOptions hresult(struct*;dword);" &amp; _
        "SetDesktopItemOptions hresult(struct*;dword);" &amp; _
        "AddDesktopItem hresult(struct*;dword);" &amp; _
        "AddDesktopItemWithUI hresult(hwnd;struct*;dword);" &amp; _
        "ModifyDesktopItem hresult(struct*;dword);" &amp; _
        "RemoveDesktopItem hresult(struct*;dword);" &amp; _
        "GetDesktopItemCount hresult(int*;dword);" &amp; _
        "GetDesktopItem hresult(int;struct*;dword);" &amp; _
        "GetDesktopItemByID hresult(ulong_ptr;struct*;dword);" &amp; _
        "GenerateDesktopItemHtml hresult(wstr;struct*;dword);" &amp; _
        "AddUrl hresult(hwnd;wstr;struct*;dword);" &amp; _
        "GetDesktopItemBySource hresult(wstr;struct*;dword);"
;===============================================================================

Global Const $AD_APPLY_ALL = 0x00000007

;;;;;;;;;;;;;;;;;;; Example ;;;;;;;;;;;;;;;;;;;;;;;;;;;
$oActiveDesktop = ObjCreateInterface($sCLSID_ActiveDesktop, $sIID_IActiveDesktop, $tagIActiveDesktop)

$sFile = FileOpenDialog("Select New Wallpaper", "", "Images (*.jpg;*.bmp;*.png;*.gif;*.whatever)") ; whatever
If $sFile Then
    $oActiveDesktop.SetWallpaper($sFile, 0)
    $oActiveDesktop.ApplyChanges($AD_APPLY_ALL)
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

本文固定链接: http://jianyiit.com/post-155.html

该日志由绿色风于2015-12-14 12:34 Monday发表在分类下。
版权所有：《绿色风's Blog》 → 《AU3更改壁纸例子》；
除特别标注,本博客很多文章均为原创. 互联分享,尊重版权,转载请以链接形式标明本文地址；
本文标签：

扫描二维码，在手机上阅读

上一篇：：女生的裙子越短越好
下一篇：AU3的强制注册表刷新

热门文章

评论列表 ↓

手拿菜刀砍电线，一路火花带闪电。 Robertmiz 2025-02-20 18:53 @回复
В Санкт-Петербурге:

是鸟总会有飞的一天。 Ascentrvb 2025-02-15 07:37 @回复
The most common form

你的出现，全场震动。 Fendervyk 2025-02-15 06:54 @回复
, text and illustrations to which

一生复能几，倏如流电惊。 TommyPiori 2025-02-11 14:13 @回复
Backed by 13 years of expertise, MailBanger.com has been a leader in email marketing. Our platform offers millions of targeted contacts to drive measurable results. Whether you’re targeting B2B leads, our accurately segmented lists are designed to meet your marketing needs. Discover the difference at MailBanger.com!

Trusted by businesses for 13+ years, MailBanger.com has helped thousands of businesses through high-quality email lists. With a vast database across industries, we make it easy to connect with your audience. See why we’re a leader in marketing lists today!

Looking for a reliable partner in marketing? With 13 years of experience, we provide millions of verified leads for email, telemarketing, and direct mail marketing. Our targeted lists are built to get results fast. Take the guesswork out of your campaigns—visit MailBanger.com today!

At MailBanger.com, you’re backed by 13 years of proven success. We offer a database that spans industries to achieve your goals. From email marketing lists, our affordable solutions help you scale. Download your lists today at MailBanger.com.

四楼，你来晚了。 RichardEvace 2025-02-09 00:15 @回复
Im fine

越有内涵的人越低调出现。 Donaldsoady 2025-01-28 09:07 @回复
Hello. I would like to buy advertising on your site. Write to me

自古二楼出人才。 NeuroSemantBeta 2025-01-23 21:22 @回复
我们很高兴邀请您参加我们开创性的SEO神经网络的独家测试阶段。作为您在搜索引擎优化领域的可靠伙伴，我们的平台提供八种语言的语义核心的自动创建。

主要特点:

自动生成语义核心和网站结构。
关键字聚类在搜索引擎中最大的可见性.
全球复盖，支持17种语言。

与我们一起探索我们的先进技术如何提高您的在线形象，并推动您的业务在搜索排名中达到新的高度。

我们期待着您的加入