1 - از قسمت Add-Ins > Add-In Manager گزینه VB 6 Resource Editor رو انتخاب کن و بعد تو همون صفحه تیک های Loaded/Unloaded و Load On Start Up رو بزن و OK پنجره رو بزن تا بسته شه .
2- حالا از منوی ابزار بر روی آیکن VB 6 Resource Editor کلیک کن تا باز شه .
3- حالا از نوار ابزار بالای صفحه باز شده بر روی Add Custom Resource کلیک کنید و MSWINSCK.OCX رو انتخاب کنید .
4 - حالا این کد ها رئ به پروژت اضافه کن .
'Coded By Faraz Azadi
' peyda kardane pooshe system32
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
' tarife miteghayeri ke havie masire system 32 khahad bood
Dim sysm32 As String
Private Sub getsystem32()
' peyda kardane pooshe system32
Dim Buffer As String
Buffer = String(255, 0)
GetSystemDirectory Buffer, 255
sysm32 = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
End Sub
Private Sub copyfromres()
'copy winsock be system32
Dim w() As Byte, winsockpath As String
winsockpath = sysm32 & "\MSWINSCK.OCX"
w = LoadResData(101, "CUSTOM")
Open winsockpath For Binary As #1
Put #1, , w()
Close #1
End Sub
Private Sub registerwinsock()
' registerkardane winsock
winsockpath = sysm32 & "\MSWINSCK.OCX"
Shell "regsvr32 " & winsockpath & " /s" ', vbHide
End Sub
Private Sub Form_Load()
'farakhanie rooye haye fogh
getsystem32
copyfromres
registerwinsock
End Sub
پروژه رو هم ضمیمه کردم .
ولی دوست من اگه میخوای واقعا برنامه نویسی رو یاد بگیری خودت دست به کار شو و منتظر پروژه های آماده دیگران نباش !!!
اگه سوالی بود در خدمتم .