Jump to content

WORKING Skincrafter Example?


Recommended Posts

I've found a bunch of old examples for Skincrafter but none of them seem to work.

Does anyone have an example that works with 3.3?

Thanks,

Kenny

 "I believe that when we leave a place, part of it goes with us and part of us remains... Go anywhere, when it is quiet, and just listen.. After a while, you will hear the echoes of all our conversations, every thought and word we've exchanged.... Long after we are gone our voices will linger in these walls for as long as this place remains."

Link to comment
Share on other sites

Link to comment
Share on other sites

Well here's the simplest one I found

They all just crash

Windows says"AutoIT3 has stopped working"

SciTe gives me rc:-1073741783

Thanks,

Kenny

#include <GUIConstantsEx.au3>

;Used by SkinCrafter
$dll = DllOpen(@ScriptDir & "\SkinCrafterDLL.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 & '\Skinastic.skf') );Select the skin to use here
DllCall ($Dll, 'int', 'ApplySkin')

GuiCreate("Test", 300, 270,(@DesktopWidth-220)/2, (@DesktopHeight-220)/2)
GUICtrlCreateButton("Test Button Ctrl", 10, 10, 190, 25)
GuiSetState()

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

While 1
    $msg = GuiGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
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 OnAutoITExit()
    GUISetState(@SW_HIDE)
    DllCall($dll, "int", "DeInitDecoration")
    DllCall($dll, "int", "RemoveSkin")
    DllClose($dll)
    Exit
EndFunc

 "I believe that when we leave a place, part of it goes with us and part of us remains... Go anywhere, when it is quiet, and just listen.. After a while, you will hear the echoes of all our conversations, every thought and word we've exchanged.... Long after we are gone our voices will linger in these walls for as long as this place remains."

Link to comment
Share on other sites

Great, I'm lovin this thing lol

Thanks Again!

Kenny :P

Edited by ken82m

 "I believe that when we leave a place, part of it goes with us and part of us remains... Go anywhere, when it is quiet, and just listen.. After a while, you will hear the echoes of all our conversations, every thought and word we've exchanged.... Long after we are gone our voices will linger in these walls for as long as this place remains."

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

  • Recently Browsing   0 members

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