Sign in to follow this  
Followers 0
Vicks

gui skin builder

12 posts in this topic




anyone please


[s]Autoit[/s]

Share this post


Link to post
Share on other sites

Maybe this can help (only one strike at google).

Have a look. :D

Share this post


Link to post
Share on other sites

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

how i convert *.skf to *.dll ??

Convert? You don't... (Well you don't and expect it still to work that is).

[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

Please New Script And File Dll :whistle:

Share this post


Link to post
Share on other sites

Please New Script And File Dll :mellow:

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

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


A little reading goes a long way. Post count means nothing.

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

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

I used 3.2.1.13. Try an older version.

A little reading goes a long way. Post count means nothing.

Share this post


Link to post
Share on other sites

I used 3.2.1.13. Try an older version.

Thank you :whistle:

Share this post


Link to post
Share on other sites

I Need Update this Script and make it On Autoit V 3, 2, 4, 9 :whistle:

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  
Followers 0