1. Tải bản cài đặt AutoIT mới nhất

    Chào Khách. Nếu bạn mới tham gia và chưa cài đặt AutoIT.
    Vui lòng vào topic trên để tải bản AutoIT mới nhất nhé
    Dismiss Notice
  2. Quy định và nội quy

    Chào Khách. Vui lòng đọc kỹ nội quy và quy định của diễn đàn
    Để tránh bị ban một cách đáng tiếc nhé!
    Dismiss Notice
  3. Hướng dẫn chèn mã AutoIT trong diễn đàn

    Chào Khách. Vui lòng xem qua bài viết này
    Để biết cách chèn mã AutoIT trong diễn đàn bạn nhé :)
    Dismiss Notice

Source Change Wall Paper Source code

Thảo luận trong 'Chia sẻ mã nguồn' bắt đầu bởi Xuân Dũng 38, 22/10/15.

  1. Xuân Dũng 38

    Xuân Dũng 38 Thành viên hiểu biết
    • 83/90

    Tham gia ngày:
    9/9/15
    Bài viết:
    89
    Đã được thích:
    1,967
    Nơi ở:
    Hà Nội
    Hôm nay rảnh rỗi nên share cho anh em code cùi về ngâm cứu :v , lượm lặt trên mạng


    Nội dung bị ẩn:
    ** Nội dung ẩn: Bạn phải nhấn 'Like' trước khi bạn có thể xem các dữ liệu ẩn chứa ở đây. **
    Hình minh hoạ:


    [​IMG]

    code + file mẫu dưới đính cmn kèm
     

    Các file đính kèm:

    Chỉnh sửa cuối: 22/10/15
  2. Tungtata

    Tungtata Tà tà mà sống ~ Thành viên BQT Administrator
    • 93/113

    Tham gia ngày:
    25/8/15
    Bài viết:
    289
    Đã được thích:
    924
    Nơi ở:
    Hà Nội
    phát triển ý tưởng thay hình nền theo thời gian thì sao nhỉ ;) cũng là 1 hướng hay đấy
     
    Phan Dong thích bài này.
  3. Xuân Dũng 38

    Xuân Dũng 38 Thành viên hiểu biết
    • 83/90

    Tham gia ngày:
    9/9/15
    Bài viết:
    89
    Đã được thích:
    1,967
    Nơi ở:
    Hà Nội
    cái đó dễ mà :3
     
    Thắng222 and Phan Dong like this.
  4. Vĩ Kha AutoIT

    Vĩ Kha AutoIT Trial Moderator Trial Moderator
    • 8/11

    Tham gia ngày:
    7/9/15
    Bài viết:
    39
    Đã được thích:
    97
    Dễ cơ mà ngốn ram ạ :(
     
    Phan Dong and Xuân Dũng 38 like this.
  5. Cô Giáo Thảo

    Cô Giáo Thảo Thành viên
    • 18/23

    Tham gia ngày:
    4/1/16
    Bài viết:
    57
    Đã được thích:
    91
    Nơi ở:
    ĐH Sư Phạm Hà Nội
    Đá lên cái, của cô nè:


    Mã (AutoIt):
    #include <GDIPlus.au3>
    Global $IMGformats[11] = ["JPG","TIF","RLE","PNG","GIF","BMP","DIB","TIFF","JFIF","JPEG","JPE"]
    $Pics = 'D:\LienMinhHuyenThoai\GameData\Apps\lolVN\Air\assets\images\champions\Aatrox_Splash_1.jpg'
    ConsoleWrite(ChangeDesktopWallpaper($Pics,0))
    Func ChangeDesktopWallpaper($bmp,$style)
    ;===============================================================================
    ; Usage: _ChangeDesktopWallPaper(@WindowsDir & '' & 'zapotec.bmp')
    ; Parameter(s): $bmp - Full Path to BitMap File (*.bmp)
    ; Requirement(s): None.
    ; Return Value(s): On Success - Returns 0
    ; On Failure - -1
    ;===============================================================================

    If Not FileExists($bmp) Then Return -1
    Local $TrueFormatIMG = False
    For $Imgformat in $Imgformats
       If StringUpper(StringRight($pics,stringlen($ImgFormat))) == $ImgFormat Then $TrueFormatIMG = True
    Next
    If Not $TrueFormatIMG Then Return -2
    ; Initialize GDI+ library
    _GDIPlus_StartUp()

    ; Load image
    $hImage = _GDIPlus_ImageLoadFromFile($bmp)

    ; Get JPG encoder CLSID
    $sCLSID = _GDIPlus_EncodersGetCLSID("BMP")

    ; Save image as JPG
    _GDIPlus_ImageSaveToFileEx($bmp, "NewWallPaper.bmp", $sCLSID)

    ; Shut down GDI+ library
    _GDIPlus_ShutDown()

    ;The $SPI* values could be defined elsewhere via #include - if you conflict,
    ; remove these, or add if Not IsDeclared "SPI_SETDESKWALLPAPER" Logic
    Local $SPI_SETDESKWALLPAPER = 20
    Local $SPIF_UPDATEINIFILE = 1
    Local $SPIF_SENDCHANGE = 2
    Local $REG_DESKTOP= "HKEY_CURRENT_USERControl PanelDesktop"
    ;Don't tile - just center
    If $style=0 Or $style=2 Then
    RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 0)
    RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", $style)
    Else
    RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", $style)
    RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", 0)
    EndIf

    RegWrite($REG_DESKTOP, "Wallpaper", "REG_SZ", $bmp)

    DllCall("user32.dll", "int", "SystemParametersInfo","int", $SPI_SETDESKWALLPAPER, "int", 1, "str", $bmp, "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE))
    FileDelete("NewWallPaper.bmp")
    Return 0
    EndFunc;==>_ChangeDestopWallpaper
     
     
    DanielEncoder and Huân Hoàng like this.
  6. DanielEncoder

    DanielEncoder Thành viên mới
    • 3/6

    Tham gia ngày:
    23/4/20
    Bài viết:
    9
    Đã được thích:
    3
    Где мне нравятся кнопки?
     
  7. #Rainy# Hoàng Vũ IT

    #Rainy# Hoàng Vũ IT Hoàng Vũ IT Moderator
    • 43/45

    Tham gia ngày:
    21/11/16
    Bài viết:
    404
    Đã được thích:
    122
    Ở đây. Nếu sau khi ấn nút thích vẫn không hiện thì bạn hãy ấn không thích, rồi ấn thích.
    [​IMG]
     
    DanielEncoder thích bài này.
  8. DanielEncoder

    DanielEncoder Thành viên mới
    • 3/6

    Tham gia ngày:
    23/4/20
    Bài viết:
    9
    Đã được thích:
    3
    cảm ơn bạn rất nhiều
     
    #Rainy# Hoàng Vũ IT thích bài này.
  9. Titoepro

    Titoepro Thành viên mới
    • 1/6

    Tham gia ngày:
    2/1/22
    Bài viết:
    1
    Đã được thích:
    0
    hay quá cám ơn
     

Chia sẻ trang này

Đang tải...