25-05-13, 01:14 AM
التعديل هيكون في Module ده
ووانا حاولت كتير فية بس فشلت
غيرت name=""userfile"" باسم الزر في المركز وفشل
وطبعاً مع تغيير رابط المركز
بس بردو مقدرتش علية
وطلبت في موقع دريم إن كود حاسس انهم بيزلوني عشان الكود اسغفر الله العظيم
ووانا حاولت كتير فية بس فشلت
غيرت name=""userfile"" باسم الزر في المركز وفشل
وطبعاً مع تغيير رابط المركز
بس بردو مقدرتش علية
وطلبت في موقع دريم إن كود حاسس انهم بيزلوني عشان الكود اسغفر الله العظيم
========================================'
Public Function UploadImage(Winsock As Winsock, ByVal ImageName As String) As Boolean
Dim ImagePath$, Header$, Footer$, ConnectHead$
Dim ImageBinary() As Byte
ImagePath = MainForm.Text1
Open ImagePath For Binary Access Read As #1
ReDim ImageBinary(LOF(1))
Get #1, , ImageBinary
Close #1
Header = "-----------------------------junche421e05d2" & vbCrLf & _
"Content-Disposition: form-data; name=""userfile""; filename=""" & ImageName & ".jpg""" & vbCrLf & _
"Content-Type: ""image/png""" & vbCrLf & vbCrLf
Footer = vbCrLf & "-----------------------------junche421e05d2--" & vbCrLf
Winsock.Close
Winsock.Connect "upload.krkrkrkr.kr", 80
Do
DoEvents: Sleep 1
Loop While Winsock.State <> sckConnected
ConnectHead = "POST /ajaxUpload_ok.php HTTP/1.0" & vbCrLf & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" & vbCrLf & _
"Content-Type: multipart/form-data, boundary=---------------------------junche421e05d2" & vbCrLf & _
"Host: upload.krkrkrkr.kr" & vbCrLf & _
"Cache-Control: no-cache" & vbCrLf & _
"Content-Length: " & CLng(Len(Header) + Len(Footer) + FileLen(ImagePath)) & vbCrLf & _
vbCrLf & Header
Winsock.SendData ConnectHead: Winsock.SendData ImageBinary: Winsock.SendData Footer
Do
DoEvents: Sleep 1
Loop While Winsock.State = sckConnected
If InStr(PacketBuffer, "error") Then: Exit Function
PacketBuffer = Replace$(PacketBuffer, """", ""): PacketBuffer = Replace$(PacketBuffer, "\", ""): PacketBuffer = Replace$(PacketBuffer, "}", "")
PacketBuffer = Mid$(PacketBuffer, InStr(PacketBuffer, "filename:") + Len("filename:"))
UploadImage = True
End Function
========================================'
Public Function UploadImage(Winsock As Winsock, ByVal ImageName As String) As Boolean
Dim ImagePath$, Header$, Footer$, ConnectHead$
Dim ImageBinary() As Byte
ImagePath = MainForm.Text1
Open ImagePath For Binary Access Read As #1
ReDim ImageBinary(LOF(1))
Get #1, , ImageBinary
Close #1
Header = "-----------------------------junche421e05d2" & vbCrLf & _
"Content-Disposition: form-data; name=""userfile""; filename=""" & ImageName & ".jpg""" & vbCrLf & _
"Content-Type: ""image/png""" & vbCrLf & vbCrLf
Footer = vbCrLf & "-----------------------------junche421e05d2--" & vbCrLf
Winsock.Close
Winsock.Connect "upload.krkrkrkr.kr", 80
Do
DoEvents: Sleep 1
Loop While Winsock.State <> sckConnected
ConnectHead = "POST /ajaxUpload_ok.php HTTP/1.0" & vbCrLf & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" & vbCrLf & _
"Content-Type: multipart/form-data, boundary=---------------------------junche421e05d2" & vbCrLf & _
"Host: upload.krkrkrkr.kr" & vbCrLf & _
"Cache-Control: no-cache" & vbCrLf & _
"Content-Length: " & CLng(Len(Header) + Len(Footer) + FileLen(ImagePath)) & vbCrLf & _
vbCrLf & Header
Winsock.SendData ConnectHead: Winsock.SendData ImageBinary: Winsock.SendData Footer
Do
DoEvents: Sleep 1
Loop While Winsock.State = sckConnected
If InStr(PacketBuffer, "error") Then: Exit Function
PacketBuffer = Replace$(PacketBuffer, """", ""): PacketBuffer = Replace$(PacketBuffer, "\", ""): PacketBuffer = Replace$(PacketBuffer, "}", "")
PacketBuffer = Mid$(PacketBuffer, InStr(PacketBuffer, "filename:") + Len("filename:"))
UploadImage = True
End Function
========================================'