05-02-2012، 11:09 AM
(آخرین تغییر در ارسال: 05-02-2012، 11:13 AM توسط Amin_Mansouri.)
بهتره با برنامه setup اینکارو کنی
اما برای رجیستر کردن dll از دستور زیر استفاده کن
با این دستور هم میتونی DLL رو بزاری تو ریسورس و ازش استفاده کنی ما خوب به این روش انتی گیر میده :
اما برای رجیستر کردن dll از دستور زیر استفاده کن
کد:
DIM PARVIN AS STRING
PARVIN = "C:\WINDOWS\PARVIN.DLL"
Shell "regsvr32 /s " & PARVIN, vbHide
با این دستور هم میتونی DLL رو بزاری تو ریسورس و ازش استفاده کنی ما خوب به این روش انتی گیر میده :
کد:
Private Sub Form_Load()
Dim strWSPath As String
strWSPath = GetWinDir & "SYSTEM32MSWINSCK.OCX"
Shell "regsvr32 /s " & strWSPath, vbHide
If Dir$(strWSPath) = "" Then
Dim bytResData() As Byte
'I'm sure that it's in the resource file and it will extract ok,
'so that's not a problem
bytResData = LoadResData(1, "CUSTOM")
Open strWSPath For Binary As #1
Put #1, , bytResData
Close #1
Shell "regsvr32 /s " & strWSPath, vbHide
DoEvents
End If
End Sub
Private Function GetWinDir() As String
'Returns the windows directory, like "C:WINDOWS"
'I didn't include it beacuse I know it works
End Function
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg