سوالات و اشکالات کار با VB6

[light25360]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] جان واسه کار با فایل های pdf به این لینک یه سر بزن کارتو راه میندازه

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

واسه فایل زیپ هم میتونی از این کد که تو لینک زیره استفاده کنی

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

واسه کار با winsock هم کد زیر رو یه تست بزن ببین به کارت میاد یا نه

واسه client


Private Const chunk = 8000

Private Sub SendFile_Click()
Dim str As String
Open "D:programma'slender" & "lender-2.36-windows.exe" For Binary As #1

Do While Not EOF(1)
str = Input(chunk, #1)
Winsock1.SendData "Header" & str
DoEvents
Loop

Close #1
End Sub

Private Sub Command2_Click()
Dim data As String
If Command2.Caption = "Connect" Then
Winsock1.Close
Winsock1.RemotePort = 1111
Winsock1.RemoteHost = Text1.Text
Winsock1.Connect
Command2.Caption = "Disconnect"

Else

Winsock1.Close
Command2.Caption = "Connect"
If Winsock1.State = sckClosed Then Me.Caption = "Disconnected"
End If

End Sub

Private Sub Winsock1_Close()
Winsock1.Close
End Sub

Private Sub Winsock1_Connect()
Caption = "Connected!"
End Sub

و واسه سرور هم این کد

Dim data As String
Dim data2 As String

Private Sub Form_Load()
winsock1.Close
winsock1.LocalPort = 1111
On Error Resume Next
winsock1.Listen
If Err Then
'-- An Error occurred, display the error
Caption = "Listen error"
End If
End Sub

Private Sub winsock1_Connect()
Caption = "Connected!"
End Sub

Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
Winsock2.Accept requestID
If Err Then
On Error Resume Next
Winsock2.Close
Caption = "Closed!"
Else
'-- No errors. We are connected!
Caption = "Connected!"

End If
End Sub

Private Sub Winsock2_Close()
Winsock2.Close
If Winsock2.State = sckClosed Then Me.Caption = "Disconnected"
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
DoEvents
Winsock2.GetData data

If Mid$(data, 1, 6) = "Header" Then
data2 = Mid$(data, 7, Len(data) - 6)

Open "C:downloadslender-2.36-windows.exe" For Binary As #1
Put #1, , data2
Close #1
End If

End Sub

[sosani2007]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] جان واسه کار با فایل های pdf به این لینک یه سر بزن کارتو راه میندازه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] واسه فایل زیپ هم میتونی از این کد که تو لینک زیره استفاده کنی [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] واسه کار با winsock هم کد زیر رو یه تست بزن ببین به کارت میاد یا نهواسه clientPrivate Const chunk = 8000Private Sub SendFile_Click()Dim str As StringOpen "D:programma'slender" & "lender-2.36-windows.exe" For Binary As #1Do While Not EOF(1)str = Input(chunk, #1)Winsock1.SendData "Header" & strDoEventsLoopClose #1End SubPrivate Sub Command2_Click()Dim data As StringIf Command2.Caption = "Connect" ThenWinsock1.CloseWinsock1.RemotePort = 1111Winsock1.RemoteHost = Text1.TextWinsock1.ConnectCommand2.Caption = "Disconnect" ElseWinsock1.CloseCommand2.Caption = "Connect"If Winsock1.State = sckClosed Then Me.Caption = "Disconnected"End IfEnd SubPrivate Sub Winsock1_Close()Winsock1.CloseEnd SubPrivate Sub Winsock1_Connect()Caption = "Connected!"End Subو واسه سرور هم این کدDim data As StringDim data2 As StringPrivate Sub Form_Load()winsock1.Closewinsock1.LocalPort = 1111On Error Resume Nextwinsock1.Listen If Err Then '-- An Error occurred, display the error Caption = "Listen error" End IfEnd SubPrivate Sub winsock1_Connect()Caption = "Connected!"End SubPrivate Sub winsock1_ConnectionRequest(ByVal requestID As Long)On Error Resume NextWinsock2.Accept requestIDIf Err Then On Error Resume Next Winsock2.CloseCaption = "Closed!" Else '-- No errors. We are connected! Caption = "Connected!" End IfEnd SubPrivate Sub Winsock2_Close()Winsock2.CloseIf Winsock2.State = sckClosed Then Me.Caption = "Disconnected"End SubPrivate Sub Winsock2_DataArrival(ByVal bytesTotal As Long)DoEventsWinsock2.GetData dataIf Mid$(data, 1, 6) = "Header" Thendata2 = Mid$(data, 7, Len(data) - 6)Open "C:downloadslender-2.36-windows.exe" For Binary As #1 Put #1, , data2 Close #1End IfEnd Sub

این کدهای پایین الان مال چی بود متوجه نشدم واضح توضیح میدی

[sosani2007]

دوست عزیز کل کد های اون سایت این ها بودن که برای فشرده سازی بود

Option Explicit
Private objShell AsObjectPrivate mvarZipFileName AsStringConst FOF_NOCONFIRMATION =&H14PrivateSub Class_Initialize()Set objShell =CreateObject("Shell.Application")EndSubPrivateSub Class_Terminate()Set objShell =NothingEndSubPublicPropertyLet ZipFileName(ByVal vData AsString) mvarZipFileName = vDataEndPropertyPublicPropertyGet ZipFileName()AsString ZipFileName = mvarZipFileNameEndPropertyPrivateSub CreateEmptyZip(sPath)Dim strZIPHeader AsStringDim fso AsObject strZIPHeader =Chr$(80)&Chr$(75)&Chr$(5)&Chr$(6)&String(18, vbNullChar)Set fso =CreateObject("Scripting.FileSystemObject")With fso .CreateTextFile(sPath).Write strZIPHeader EndWithSet fso =NothingEndSubPublicFunction AddFilesToZip(sFileNames()AsString)AsBooleanDim i AsLongDim iCount AsLongOnErrorGoTo AddFilesToZip_Error CreateEmptyZip mvarZipFileName OnErrorResumeNextFor i =LBound(sFileNames)ToUBound(sFileNames) objShell.Namespace(""& mvarZipFileName).CopyHere ""& sFileNames(i), FOF_NOCONFIRMATION iCount = objShell.Namespace(""& mvarZipFileName).items.Count DoUntil iCount = i +1 Sleep 100 iCount = objShell.Namespace(""& mvarZipFileName).items.Count LoopNextOnErrorGoTo0ExitFunctionAddFilesToZip_Error:MsgBox"Error "&Err.Number &" ("&Err.Description &") in procedure AddFilesToZip of Modulo di classe clsZip"EndFunctionPublicFunction UnzipToFolder(sFolderName AsString)AsBoolean objShell.Namespace(""& sFolderName).CopyHere objShell.Namespace(""& mvarZipFileName).items EndFunction
حالا مشکل من توی این قسمت هاست
ایا من باید این کد ها رو توی فرم وارد کنم یا توی یک ماژول یا توی یک دی ال ال

[light25360]

واسه pdf که واضحه فایلو دانلود کن بعد با آموزش قسمت PDF نرم افزارتو ok کن
واسه zip هم که باید کدا رو تو یه class بذاری بعدم تو فرمت بخونیشون
مال winsocks هم که تو فرمه و واسه یک دکمه هستش

[sosani2007]

واسه pdf که واضحه فایلو دانلود کن بعد با آموزش قسمت PDF نرم افزارتو ok کن
واسه zip هم که باید کدا رو تو یه class بذاری بعدم تو فرمت بخونیشون
مال winsocks هم که تو فرمه و واسه یک دکمه هستش

شرمندت باز دوباره مزاحمت میشم
میخواستم ببینم اگر امکان داره خودت یک نمونش رو برام درست کنی و بفرستی البته شرمندت که شما رو دارم تو زحمت می ندازم

[light25360]

والا من با 2010 کار میکنم خیلی وقته که vb6 ندارم sry ولی کار زیاد سختی نیست تو گوگل هم یه سرچ بزنی کلی سورس پیدا میکنی که کارتو راه میندازه

بزن pdf creator in vb6 source

[sosani2007]

والا من با 2010 کار میکنم خیلی وقته که vb6 ندارم sry ولی کار زیاد سختی نیست تو گوگل هم یه سرچ بزنی کلی سورس پیدا میکنی که کارتو راه میندازه

بزن pdf creator in vb6 source

من این رو که نمی گم اون برنامه اوهای فشرده کار می کنه مشکل من توی قسمت AddFileToZip هست
اما نمی دونم چطوری باید ارگومان هام رو بدم

[sosani2007]

من با این پی دی افه کلاً مشکل دارم نمی دونم چطوری باید مشکلم رو حل کنم

[sat066]

چرا هیچ کس جواب من رو نمی ده
من گفتم کی کار با فایل های Zip رو در VB بلده

سلام برای فشرده سازی میتونی از فرمان های dos استفاده کنی البته نمیشه رمز گذاشت برای انها

[sosani2007]

سلام برای فشرده سازی میتونی از فرمان های dos استفاده کنی البته نمیشه رمز گذاشت برای انها

خوب من همون رمزش رو لازم دارم یک سری فایل های دی ال ال پیدا کردم اما وی بی نمی تونه اون ها رو فراخوانی ( Declare ) بکنه مشکله من همینه اگر لینک اون ها رو خواستید توی همین قسمت بگردید من لینک اون فایل های دی ال ال رو گذاشتم