Jump to content
Sign in to follow this  
Vicks

gui skin builder

Recommended Posts

SkinBuilder builds skins. SkinCrafter allows you to display skins on GUIs. To use skin builder, download it from their website and follow their instructions. To use SkinCrafter, download their trial dll or buy it and get the official dll...then run some code like this (their API for the dll is on their wesite somewhere - I think in the manual).

#include <GuiConstants.au3>

$dll = DllOpen(@ScriptDir & "\SkinCrafter.dll")            ; location of dll

DllCall($dll, "int", "InitLicenKeys", "int", BSTR("0"), "int", BSTR("SKINCRAFTER"), "int", BSTR("SKINCRAFTER.COM"), "int", BSTR("support@skincrafter.com"),"int", BSTR("DEMOSKINCRAFTERLICENCE"))
DllCall($dll, "int", "DefineLanguage", "int", 0)
DllCall($dll, "int", "InitDecoration", "int", 1)
DllCall($dll, "int", "LoadSkinFromFile", "int", BSTR(@ScriptDIr & "\SC-Skins\WinterBlues.skf"))    ; location of skin
DllCall($dll, "int", "ApplySkin")

$handle = GuiCreate("Mem Stats", 300, 270,(@DesktopWidth-220)/2, (@DesktopHeight-220)/2)

$Label_1 = GuiCtrlCreateLabel("Memory Load:", 10, 10, 190, 20)
$Label_2 = GuiCtrlCreateLabel("Total Physical RAM:", 10, 40, 190, 20)
$Label_3 = GuiCtrlCreateLabel("Available Physical RAM", 10, 70, 190, 20)
$Label_4 = GuiCtrlCreateLabel("Total Pagefile", 10, 100, 190, 20)
$Label_5 = GuiCtrlCreateLabel("Available Pagefile", 10, 130, 190, 20)
$Label_6 = GuiCtrlCreateLabel("Total Virtual", 10, 160, 190, 20)
$Label_7 = GuiCtrlCreateLabel("Available Virtual", 10, 190, 190, 20)
$Progress1 = GUICtrlCreateProgress(200,10,25,200,$PBS_SMOOTH + $PBS_VERTICAL)
$Progress2 = GUICtrlCreateProgress(235,10,25,200,$PBS_SMOOTH + $PBS_VERTICAL)
$Progress3 = GUICtrlCreateProgress(270,10,25,200,$PBS_SMOOTH + $PBS_VERTICAL)
$MPV_Label = GUICtrlCreateLabel("M         P          V",205,215)
$timestamp = TimerInit()

GuiSetState()

DllCall($dll, "int", "UpdateControl", "int", 0)

While 1
    If TimerDiff($timestamp) > 1000 Then
        $timestamp = TimerInit()
        $mem = MemGetStats()
        GUICtrlSetData($Progress1,$mem[0])
        GUICtrlSetData($Progress2,($mem[3]-$mem[4])*100/$mem[3])
        GUICtrlSetData($Progress3,($mem[5]-$mem[6])*100/$mem[5])
        GUICtrlSetData($Label_1,"Memory Load: " & $mem[0] & " %")
        GUICtrlSetData($Label_2,"Total Physical RAM: " & $mem[1] & " KB")
        GUICtrlSetData($Label_3,"Available Physical RAM: " & $mem[2] & " KB")
        GUICtrlSetData($Label_4,"Total Pagefile: " & $mem[3] & " KB")
        GUICtrlSetData($Label_5,"Available Pagefile: " & $mem[4] & " KB")
        GUICtrlSetData($Label_6,"Total Virtual: " & $mem[5] & " KB")
        GUICtrlSetData($Label_7,"Available Virtual: " & $mem[6] & " KB")
        WinSetTitle(WinGetTitle($handle),"","Mem Stats - " & $mem[0] & " %")
    EndIf
    $msg = GuiGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Quit()
        Case Else
            ;;;
    EndSelect
WEnd

Func BSTR($str)
    $len = StringLen($str)
    $buff = DllCall("oleaut32.dll", "int", "SysAllocStringLen", "int", 0, "int", $len)
    DllCall("kernel32.dll", "int", "MultiByteToWideChar", "int", 0, "int", 0, "str", $str, "int", $len, "ptr", $buff[0], "int", $len)
    Return $buff[0]
EndFunc

Func Quit()
    GUISetState(@SW_HIDE)
    DllCall($dll, "int", "DeInitDecoration")
    DllCall($dll, "int", "RemoveSkin")
    DllClose($dll)
    Exit
EndFunc

Share this post


Link to post
Share on other sites

You bumped a *very* old topic but...

This script contains a working SkinCrafter .dll and the required AutoIt code.

Error !! :whistle:

Posted Image

I am Use Autoit V 3, 2, 4, 9

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...