التعديل هيكون في Module ده
ووانا حاولت كتير فية بس فشلت
غيرت
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
========================================'