Jump to content

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
Link to comment
Share on other sites

  • 2 months later...
  • Moderators

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

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

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.

Link to comment
Share on other sites

  • 10 months later...
  • 15 years later...
  • Developers
29 minutes ago, Skeletor said:

Before the mods get to you first, please start a new thread and do not NECROPOST.

Please don't post these kind of post.  Only report in case you really can't suppress the urge to do something about it. ;)  thanks!   

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Link to comment
Share on other sites

  • Jos locked this topic
Guest
This topic is now closed to further replies.
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...