اسکین اتوران سی دی های لورد

[menosoft]

با سلام و تسلیت ایام سوگواری امام حسین

کسی میدون که اتوران سی دی های لورد که با وبی نوشته شده از چه اسکینی استفاده می کنه
لطفا اگر کسی این اسکین هارو داره از ما دریغ نکنه

با تشکر

[menosoft]

با سلام
خدایش کسی نمی دونه که برای اتوران سی دی های لورد از چه اسکین ساز یا اسکینی استفاده شده
با تشکر

[parselearn]

لطفا تصوير اسكين رو قرار دهيد

[maryamb]

اتفاقا منم از اسكينشون خيلي خوشم اومد.ولي هر كاري كردن نتونستم بسازمش.اگه كسي داره دريغ نكنه
مرسي

[Babak.Hassanpour]

با سلام
خدایش کسی نمی دونه که برای اتوران سی دی های لورد از چه اسکین ساز یا اسکینی استفاده شده
با تشکر

Stardock SkinStudio
Stardock SkinStudio Professional ver 5.0.0, Build 1111 - http://www.skinstudio.net
فایهاش هم اینجاست.\Data\Skins\Airframe توی دی وی دی

[menosoft]

Stardock SkinStudio
Stardock SkinStudio Professional ver 5.0.0, Build 1111 - http://www.skinstudio.net
فایهاش هم اینجاست.\Data\Skins\Airframe توی دی وی دی
دوست عزیز می تونی بگی چجور باید با این نرم افزار کار کرد
منظورم اینه که چجوری اسکین ها تو Vb استفاده کرد.

[Babak.Hassanpour]

سلام دوست عزیز
به علت ممنوع بودن فعالیت های Warez از گذاشتن کامپوننت معذورم.ولی اگه منظورتون کد های لازم برای این کاره بفرمایید:


Private Sub Form_Load()
' Skinning setup starts here

' Intialize DirectSkin's data structures
wb.InitWB

' We want to use the samples path
wb.SetRootPath 1
Dim skinpath As String
skinpath = App.Path & "\skins\"
wb.SetRootPathStr skinpath

' Specify a skin to load - note that this is a relative path from the root path
wb.LoadUIS "setigreen\setigreen.uis"

' Tell DirectSkin to start skinning this thread
wb.DoWindow Me.hwnd

End Sub



در ماژول :


Option Explicit

' Let us change border style at runtime

Public Const GWL_STYLE As Long = (-16&)
Public Const GWL_EXSTYLE As Long = (-20&)

Public Const WS_DLGFRAME As Long = &H400000
Public Const WS_SYSMENU As Long = &H80000
Public Const WS_THICKFRAME As Long = &H40000
Public Const WS_MINIMIZEBOX As Long = &H20000
Public Const WS_MAXIMIZEBOX As Long = &H10000

Public Const WS_EX_DLGMODALFRAME As Long = &H1&
Public Const WS_EX_TOOLWINDOW As Long = &H80&
Public Const WS_EX_CONTROLPARENT As Long = &H10000

Public Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd&, ByVal nIndex&) As Long
Public Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&) As Long


' SetWindowPos Flags
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOZORDER = &H4
Public Const SWP_NOREDRAW = &H8
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_SHOWWINDOW = &H40
Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_NOCOPYBITS = &H100
Public Const SWP_NOOWNERZORDER = &H200

Public Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Public Const SWP_NOREPOSITION = SWP_NOOWNERZORDER

' SetWindowPos() hwndInsertAfter values
Public Const HWND_TOP = 0
Public Const HWND_BOTTOM = 1
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2

Public Declare Function SetWindowPos Lib "User32" (ByVal hwnd&, ByVal hWndInsertAfter&, ByVal x&, ByVal y&, ByVal cx&, ByVal cy&, ByVal wFlags&) As Long

Public Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uparam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SETDESKWALLPAPER = 20
Public Const SPIF_SENDWININICHANGE = &H2

Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInternet As Long) As Long

Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" _
(ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, _
ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long

Public Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" _
(ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, ByVal sBuffer As String, _
ByRef lBufferLength As Long, ByRef lIndex As Long) As Long

Public Declare Function InternetReadFile Lib "wininet.dll" _
(ByVal hFile As Long, _
ByVal sBuffer As String, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const HTTP_QUERY_CONTENT_LENGTH = 5

Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
(ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long

Public Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" _
(ByVal lpszPath As String, ByVal lpPrefixString As String, _
ByVal wUnique As Long, ByVal lpTempFileName As String) _
As Long

Public Const MAX_PATH = 260

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Public Const HKEY_CURRENT_USER = &H80000001

Public Declare Function SetSysColors Lib "User32" (ByVal nChanges As Long, lpSysColor As Any, lpColorValues As Any) As Long
Public Const COLOR_BACKGROUND = 1

Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long
Public Const CSIDL_LOCAL_APPDATA = &H1C
Public Const CSIDL_APPDATA = &H1A

Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1

Public Declare Function GetFileAttributes Lib "kernel32.dll" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long





فایل های اسکین رو باید کنار برنامه بزارید.اونها رو میتونید از خود سی دی لرد کش برید:چشمک:
ضمنا اگه فایلی به نام wbocx.ocx روی سیستمتون هست(توی System32) که فکر می کنم باشه ،همین الان میتونید به نوشتن برنامه اقدام کنید.

http://barnamenevis.org/forum/attachment.php?attachmentid=31297&stc=1&d=1243414122

[butterfly8528]

babak125 عزیز خیلی ممنون .

حالا فرمت فایلهای اسکین چیه ؟؟؟



به علت ممنوع بودن فعالیت های Warez از گذاشتن کامپوننت معذورم

منظورت کدوم کامپوننت هست ؟

[میلاد علوی]

با سلام آقا من از کد خیلی خوبت استفاده کردم اما ابزارهامو استایل نمیده مثلا دکمه ها حالت عادی شونو دارن و همینطور کامبو و اسکرولر ها
همه کدتو کپی کردم درضمن در ویستا هم کار می کنه

[Babak.Hassanpour]

در بعضی موارد برنامه حتما باید کامپایل بشه تا اسکین به درستی اعمال بشه.این کار رو کردید؟

[میلاد علوی]

بله من کام÷ایل کردم اما بازم دکمه ها کار نمیکنه و فقط لیست ویو استایل میکیره
در ویستا کار می کنه؟

[runttx]

با سلام خدمت دوستان گرامي !

آقا دستتون درد نكنه ! من برنامه رو كامپايل كردن و خيلي درست و عالي جواب داد . همه اشياء هم اين خاصيت اسكين رو گرفتند.

واقعاً ممنون از شما .

[میلاد علوی]

منم باهاش ور رفتم تو کامپیوتر خودم درست شد اما تو لپ تاپ Vaio sony Vista business که امتحان کردم اصلا کلا دکمه کلوز ماکسیمایز و غیره رو حذف کرد چه کنم ؟؟؟؟؟؟؟؟؟؟؟

[mpmsoft]

این موضوع چه ربطی به بخش وی بی داشت ؟؟