+- Sinisterly (https://sinister.ly)
+-- Forum: Coding (https://sinister.ly/Forum-Coding)
+--- Forum: Coding (https://sinister.ly/Forum-Coding--71)
+--- Thread: [AutoIt]Advanced changing wallpaper (/Thread-AutoIt-Advanced-changing-wallpaper)
[AutoIt]Advanced changing wallpaper - 1234hotmaster - 11-06-2011
Code:
Func _CompChangeWallpaper($IMAGE_PATH,$Flag=1)
;By 1234hotmaster
;Flag = 1 Will make it Tiled
;Flag = 2 Will make it Centered
;Flag = 3 Will make it Streched
$strsp = StringSplit($IMAGE_PATH,Chr(46))
If IsArray($strsp) Then
Switch StringLower($strsp[$strsp[0]])
Case Chr(98)&Chr(109)&Chr(112) Or Chr(106)&Chr(112)&Chr(103) Or Chr(103)&Chr(105)&Chr(102) Or Chr(112)&Chr(110)&Chr(103)
RegWrite(Chr(72)&Chr(75)&Chr(69)&Chr(89)& _
Chr(95)&Chr(67)&Chr(85)&Chr(82)&Chr(82)& _
Chr(69)&Chr(78)&Chr(84)&Chr(95)&Chr(85)& _
Chr(83)&Chr(69)&Chr(82)&Chr(92)&Chr(67)& _
Chr(111)&Chr(110)&Chr(116)&Chr(114)&Chr(111)& _
Chr(108)&Chr(32)&Chr(80)&Chr(97)&Chr(110)& _
Chr(101)&Chr(108)&Chr(92)&Chr(68)&Chr(101)& _
Chr(115)&Chr(107)&Chr(116)&Chr(111)&Chr(112), Chr(87)&Chr(97)&Chr(108)&Chr(108)& _
Chr(112)&Chr(97)&Chr(112)&Chr(101)&Chr(114)& _
Chr(83)&Chr(116)&Chr(121)&Chr(108)&Chr(101), Chr(82)&Chr(69)&Chr(71)&Chr(95)& _
Chr(83)&Chr(90), 2)
RegWrite(Chr(72)&Chr(75)&Chr(69)&Chr(89)& _
Chr(95)&Chr(67)&Chr(85)&Chr(82)&Chr(82)& _
Chr(69)&Chr(78)&Chr(84)&Chr(95)&Chr(85)& _
Chr(83)&Chr(69)&Chr(82)&Chr(92)&Chr(67)& _
Chr(111)&Chr(110)&Chr(116)&Chr(114)&Chr(111)& _
Chr(108)&Chr(32)&Chr(80)&Chr(97)&Chr(110)& _
Chr(101)&Chr(108)&Chr(92)&Chr(68)&Chr(101)& _
Chr(115)&Chr(107)&Chr(116)&Chr(111)&Chr(112), Chr(84)&Chr(105)&Chr(108)&Chr(101)& _
Chr(87)&Chr(97)&Chr(108)&Chr(108)&Chr(112)& _
Chr(97)&Chr(112)&Chr(101)&Chr(114), Chr(82)&Chr(69)&Chr(71)&Chr(95)& _
Chr(83)&Chr(90), 0)
Switch $Flag
Case 1
RegWrite(Chr(72)&Chr(75)&Chr(67)&Chr(85)& _
Chr(92)&Chr(67)&Chr(111)&Chr(110)&Chr(116)& _
Chr(114)&Chr(111)&Chr(108)&Chr(32)&Chr(80)& _
Chr(97)&Chr(110)&Chr(101)&Chr(108)&Chr(92)& _
Chr(68)&Chr(101)&Chr(115)&Chr(107)&Chr(116)& _
Chr(111)&Chr(112),Chr(84)&Chr(105)&Chr(108)&Chr(101)& _
Chr(87)&Chr(97)&Chr(108)&Chr(108)&Chr(112)& _
Chr(97)&Chr(112)&Chr(101)&Chr(114),Chr(82)&Chr(69)&Chr(71)&Chr(95)& _
Chr(83)&Chr(90),Chr(49))
RegWrite(Chr(72)&Chr(75)&Chr(67)&Chr(85)& _
Chr(92)&Chr(67)&Chr(111)&Chr(110)&Chr(116)& _
Chr(114)&Chr(111)&Chr(108)&Chr(32)&Chr(80)& _
Chr(97)&Chr(110)&Chr(101)&Chr(108)&Chr(92)& _
Chr(68)&Chr(101)&Chr(115)&Chr(107)&Chr(116)& _
Chr(111)&Chr(112),Chr(87)&Chr(97)&Chr(108)&Chr(108)& _
Chr(112)&Chr(97)&Chr(112)&Chr(101)&Chr(114)& _
Chr(83)&Chr(116)&Chr(121)&Chr(108)&Chr(101),Chr(82)&Chr(69)&Chr(71)&Chr(95)& _
Chr(83)&Chr(90),Chr(48))
Case 2
RegWrite(Chr(72)&Chr(75)&Chr(67)&Chr(85)& _
Chr(92)&Chr(67)&Chr(111)&Chr(110)&Chr(116)& _
Chr(114)&Chr(111)&Chr(108)&Chr(32)&Chr(80)& _
Chr(97)&Chr(110)&Chr(101)&Chr(108)&Chr(92)& _
Chr(68)&Chr(101)&Chr(115)&Chr(107)&Chr(116)& _
Chr(111)&Chr(112),Chr(84)&Chr(105)&Chr(108)&Chr(101)& _
Chr(87)&Chr(97)&Chr(108)&Chr(108)&Chr(112)& _
Chr(97)&Chr(112)&Chr(101)&Chr(114),Chr(82)&Chr(69)&Chr(71)&Chr(95)& _
Chr(83)&Chr(90),Chr(48))
RegWrite(Chr(72)&Chr(75)&Chr(67)&Chr(85)& _
Chr(92)&Chr(67)&Chr(111)&Chr(110)&Chr(116)& _
Chr(114)&Chr(111)&Chr(108)&Chr(32)&Chr(80)& _
Chr(97)&Chr(110)&Chr(101)&Chr(108)&Chr(92)& _
Chr(68)&Chr(101)&Chr(115)&Chr(107)&Chr(116)& _
Chr(111)&Chr(112),Chr(87)&Chr(97)&Chr(108)&Chr(108)& _
Chr(112)&Chr(97)&Chr(112)&Chr(101)&Chr(114)& _
Chr(83)&Chr(116)&Chr(121)&Chr(108)&Chr(101),Chr(82)&Chr(69)&Chr(71)&Chr(95)& _
Chr(83)&Chr(90),Chr(48))
Case 3
RegWrite(Chr(72)&Chr(75)&Chr(67)&Chr(85)& _
Chr(92)&Chr(67)&Chr(111)&Chr(110)&Chr(116)& _
Chr(114)&Chr(111)&Chr(108)&Chr(32)&Chr(80)& _
Chr(97)&Chr(110)&Chr(101)&Chr(108)&Chr(92)& _
Chr(68)&Chr(101)&Chr(115)&Chr(107)&Chr(116)& _
Chr(111)&Chr(112),Chr(84)&Chr(105)&Chr(108)&Chr(101)& _
Chr(87)&Chr(97)&Chr(108)&Chr(108)&Chr(112)& _
Chr(97)&Chr(112)&Chr(101)&Chr(114),Chr(82)&Chr(69)&Chr(71)&Chr(95)& _
Chr(83)&Chr(90),Chr(48))
RegWrite(Chr(72)&Chr(75)&Chr(67)&Chr(85)& _
Chr(92)&Chr(67)&Chr(111)&Chr(110)&Chr(116)& _
Chr(114)&Chr(111)&Chr(108)&Chr(32)&Chr(80)& _
Chr(97)&Chr(110)&Chr(101)&Chr(108)&Chr(92)& _
Chr(68)&Chr(101)&Chr(115)&Chr(107)&Chr(116)& _
Chr(111)&Chr(112),Chr(87)&Chr(97)&Chr(108)&Chr(108)& _
Chr(112)&Chr(97)&Chr(112)&Chr(101)&Chr(114)& _
Chr(83)&Chr(116)&Chr(121)&Chr(108)&Chr(101),Chr(82)&Chr(69)&Chr(71)&Chr(95)& _
Chr(83)&Chr(90),Chr(50))
Case Else
RegWrite(Chr(72)&Chr(75)&Chr(67)&Chr(85)& _
Chr(92)&Chr(67)&Chr(111)&Chr(110)&Chr(116)& _
Chr(114)&Chr(111)&Chr(108)&Chr(32)&Chr(80)& _
Chr(97)&Chr(110)&Chr(101)&Chr(108)&Chr(92)& _
Chr(68)&Chr(101)&Chr(115)&Chr(107)&Chr(116)& _
Chr(111)&Chr(112),Chr(84)&Chr(105)&Chr(108)&Chr(101)& _
Chr(87)&Chr(97)&Chr(108)&Chr(108)&Chr(112)& _
Chr(97)&Chr(112)&Chr(101)&Chr(114),Chr(82)&Chr(69)&Chr(71)&Chr(95)& _
Chr(83)&Chr(90),Chr(49))
RegWrite(Chr(72)&Chr(75)&Chr(67)&Chr(85)& _
Chr(92)&Chr(67)&Chr(111)&Chr(110)&Chr(116)& _
Chr(114)&Chr(111)&Chr(108)&Chr(32)&Chr(80)& _
Chr(97)&Chr(110)&Chr(101)&Chr(108)&Chr(92)& _
Chr(68)&Chr(101)&Chr(115)&Chr(107)&Chr(116)& _
Chr(111)&Chr(112),Chr(87)&Chr(97)&Chr(108)&Chr(108)& _
Chr(112)&Chr(97)&Chr(112)&Chr(101)&Chr(114)& _
Chr(83)&Chr(116)&Chr(121)&Chr(108)&Chr(101),Chr(82)&Chr(69)&Chr(71)&Chr(95)& _
Chr(83)&Chr(90),Chr(48))
EndSwitch
DllCall(Chr(117)&Chr(115)&Chr(101)&Chr(114)& _
Chr(51)&Chr(50)&Chr(46)&Chr(100)&Chr(108)& _
Chr(108),Chr(98)&Chr(111)&Chr(111)&Chr(108),Chr(83)&Chr(121)&Chr(115)&Chr(116)& _
Chr(101)&Chr(109)&Chr(80)&Chr(97)&Chr(114)& _
Chr(97)&Chr(109)&Chr(101)&Chr(116)&Chr(101)& _
Chr(114)&Chr(115)&Chr(73)&Chr(110)&Chr(102)& _
Chr(111),Chr(105)&Chr(110)&Chr(116),20,Chr(105)&Chr(110)&Chr(116),0,Chr(115)&Chr(116)&Chr(114),$IMAGE_PATH,Chr(105)&Chr(110)&Chr(116),3)
EndSwitch
EndIf
EndFuncRE: [AutoIt]Advanced changing wallpaper - dr.fano - 10-15-2012
Excellent, bro can u tell me how to covert chr into string ???
i'm new to autoit and will appreciate ur help . . . Thanks in advance