Jump to content

Recommended Posts

Posted

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
  • 2 months later...
  • Moderators
Posted

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.

  • 10 months later...
Posted

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.

Posted

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.

  • 15 years later...
  • Developers
Posted
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.
  :)

  • Jos locked this topic
Guest
This topic is now closed to further replies.
  • Recently Browsing   0 members

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