为什么换不了！

痞子哥

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.6.1
Author:         黄岩博创电脑  - Autt

Script Function:
                     随机换壁纸                  
Date :
         2011-09-11
                 
Description:   
                壁纸目录在C:/windows/wallpaper
                                只支持将jpg格式的转换成bmp格式.
                                
Ver   :  0.1.0                          
                 
#ce ----------------------------------------------------------------------------

#AutoIt3Wrapper_Res_Comment=系统 V0.2
#AutoIt3Wrapper_Res_Description=系统 V0.2
#AutoIt3Wrapper_Res_LegalCopyright= 黄岩博创电脑
#AutoIt3Wrapper_Res_Field=产品版本|V0.1.2
#AutoIt3Wrapper_Res_Field=产品名称|桌面随心换 V0.1.2
#AutoIt3Wrapper_Res_Field=源文件名|converter.ExE
#AutoIt3Wrapper_Res_Field=内部名称|点我.exe
#AutoIt3Wrapper_Res_Field=程序作者|JOHn
#AutoIt3Wrapper_Res_Field=日期 | 2011-09-09

#include <GDIPlus.au3>
#include <Array.au3>

Local $arry[1]
Local $count=0
Local $dest="C:\WINDOWS\WallPaper\"

$search=FileFindFirstFile("C:\WINDOWS\WallPaper\"&"*.*")

while 1
        $file=FileFindNextFile($search)
          if @error then ExitLoop
                _ArrayAdd($arry,$file)   
        $count=$count+1
WEnd                              ;循环目录中的所有文件

$rnd=Random(1,$count,1)                ; 产生随机数

$wpaper=$arry[$rnd]        ;随机图片

_GDIPlus_Startup ()
;初始化gdi
$hImage = _GDIPlus_ImageLoadFromFile ($dest&$wpaper)
;选择文件,保存句柄到$hImage

$sCLSID = _GDIPlus_EncodersGetCLSID ("BMP")
;理解成要保存的格式??

$tData = DllStructCreate("int Data")
;创建一个类似C++的数据结构

DllStructSetData($tData, "Data", $GDIP_EVTTRANSFORMROTATE90)

$tParams = _GDIPlus_ParamInit (1)
_GDIPlus_ParamAdd ($tParams, $GDIP_EPGTRANSFORMATION, 1, $GDIP_EPTLONG, DllStructGetPtr($tData, "Data"))

;_GDIPlus_ImageSaveToFileEx ($hImage, "Wallpaper1.bmp", $sCLSID, DllStructGetPtr($tParams))  原句,非完美
_GDIPlus_ImageSaveToFileEx ($hImage, "c:\Wallpaper1.bmp", $sCLSID, DllStructGetPtr($tParams))   ;实现之处,就是给图片加个路径
;保存文件,并命名为wallpaper1.bmp
_GDIPlus_ShutDown ()

dllcall("user32","int","SystemParametersInfo","int",20,"int",1,"str","c:\Wallpaper1.bmp","int",1) ;同样在这句中给图片加设路径,即重启后背景图片为上一次所设定的,功能实现~!!!!!


这是在论坛里找一个换桌面的AU3代码，我现在想把C:\WINDOWS\WallPaper\改成读取config.ini里的Wallpaper路径，要怎么改
下面是config.ini的内容
[Wallpaper]
Wallpaper=C:\Wallpaper

我把
Local $dest="C:\WINDOWS\WallPaper\"跟$search=FileFindFirstFile("C:\WINDOWS\WallPaper\"&"*.*")
改成
$dest = @ScriptDir & '\Wallpaper\' & IniRead('Config.ini', 'Wallpaper', 'Wallpaper', 0)
$search =FileFindFirstFile($dest & "*.*")
没用！为什么呢？

痞子哥

咋没人呢？

veket_linux

$dest =  IniRead(@ScriptDir & '\' &'Config.ini', 'Wallpaper', 'Wallpaper', 0)

veket_linux

$dest =  IniRead(@ScriptDir & '\' &'Config.ini', 'Wallpaper', 'Wallpaper', 0)

痞子哥

谢谢，解决了！同目录下不能加\ 把\删了就好了！