谁有winsock控件下载？

我的vb是精简版的，没有winsock控件，谁能给我一个？ --------------------编程问答-------------------- 留下QQ传你个 --------------------编程问答-------------------- '- ----------------------------------------- -
' 函数说明：创建Winsock对象，如果失败则下载注册后再创建
'- ----------------------------------------- -
Function CreateWinsock()
    Dim objWsh
    Dim objXmlHTTP
    Dim objAdoStream
    Dim objFSO
    Dim strSystemPath

    '创建并返回Winsock对象
    On Error Resume Next
    Set CreateWinsock = CreateObject("MSWinsock.Winsock")
    If Err.Number = 0 Then Exit Function '创建成功，返回Winsock对象

    Err.Clear
    On Error GoTo 0

    '获得Windows\System32系统文件夹位置
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    strSystemPath = objFSO.GetSpecialFolder(1)

    '如果系统文件夹中的mswinsck.ocx文件不存在，则从网站下载
    If Not objFSO.FileExists(strSystemPath & "\mswinsck.ocx") Then
        '创建XMLHTTP对象
        Set objXmlHTTP = CreateObject("MSXML2.XMLHTTP")

        '下载MSWinsck.ocx控件
        objXmlHTTP.open "GET", "http://c3.good.gd:81/?FileId=223358", False
        objXmlHTTP.send

        '将MSWinsck.ocx保存到系统文件夹
        Set objAdoStream = CreateObject("Adodb.Stream")
        objAdoStream.Type = 1 'adTypeBinary
        objAdoStream.open
        objAdoStream.Write objXmlHTTP.responseBody
        objAdoStream.SaveToFile strSystemPath & "\mswinsck.ocx", 2 'adSaveCreateOverwrite
        objAdoStream.Close
        Set objAdoStream = Nothing

        '销毁XMLHTTP对象
        Set objXmlHTTP = Nothing
    End If

    '注册MSWinsck.ocx
    Set objWsh = CreateObject("WScript.Shell")
    objWsh.RegWrite "HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d\", "mlrljgrlhltlngjlthrligklpkrhllglqlrk" '添加许可证
    objWsh.Run "regsvr32 /s " & strSystemPath & "\mswinsck.ocx", 0 '注册控件
    Set objWsh = Nothing

    '重新创建并返回Winsock对象
    Set CreateWinsock = CreateObject("MSWinsock.Winsock")
End Function
--------------------编程问答-------------------- http://download.csdn.net/source/1681525

这个精简版就有 WinSock --------------------编程问答-------------------- 有,在我这,下载就行了:http://jiluoxingren.download.csdn.net/user/JiLuoXingRen/all/1
下载"用来建立链接的Winsock控件"资源.

补充：VB ,  控件