طریقه ایجاد وینسوک در Module

[just4froum]

با سلام به همگی :

می خواستم بدونم چه طوری میشه یک وینسوک را در Module ایجاد کرد ؟

البته برنامه من هیچ فرمی نداره.

من هرکاری می کنم اررور Object variable or with blockvariable not set رو میده.

با تشکر

[M.T.P]

اگه می تونی سعی کن یه فرم داشته باشی و اصلا هم نیاز نیست نمایشش بدی و فقط صرفا به خاطر این باشه که لایسنس کامپوننت رو به دنبال بکشه
در غیر این صورت یعنی بدون فرم باید Object ازش بسازی:


Dim wsk As Object

Set wsk = CreateObject("MSWinsock.Winsock")
MsgBox wsk.State

Set wsk = Nothing

این روش روش خوبیه اما بدیش اینه که موقع ایجاد آبجکت لایسنس بررسی میشه و شما باید لایسنس رو قبل از همه تو ریجستری ثبت کنی.
البته الان چون روی سیستم شما vb6 نصبه لایسنس هست اما رو سیستم های مشتری که میبری باید لایسنس رو Add کنی.
لایسنسش هم هست:


Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d]
@="mlrljgrlhltlngjlthrligklpkrhllglqlrk"

پس ابتدا لایسنس رو تو ریجستری اضافه کن بعد آبجکت رو بساز.

موفق باشی/