Login Register
🎂 Happy 14th Birthday Sinisterly!


[AutoIt]Advanced changing wallpaper filter_list
Author
Message
1234hotmaster Offline
No code no life
Thirteen Years of Service
Posts: 2,367
Threads: 170
Reputation: 0
Currency: 0 SP
[AutoIt]Advanced changing wallpaper 11-06-2011, 07:14 PM #1
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 EndFunc
(This post was last modified: 11-06-2011, 07:17 PM by Skullmeat.)
Pierce the life fibers with your drill.

Reply

dr.fano Offline
Junior Member
Thirteen Years of Service
Posts: 6
Threads: 0
Reputation: 0
Currency: 0 SP
RE: [AutoIt]Advanced changing wallpaper 10-15-2012, 01:42 AM #2
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

Reply







Users browsing this thread: 1 Guest(s)