Function UploadImage(winsock As winsock)
    Dim filen$, strBoundary$, header$, footer$, head$
    Dim temp() As Byte
    
    filen = App.Path & "\image\" & NowfileName & ".png"
    strBoundary = "---------------------------7d9399321e05d2"
    
    header = "--" & strBoundary & vbCrLf & _
             "Content-Dis form-data; name=""userfile""; filename=""11.png""" & vbCrLf & _
             "Content-Type: ""image/png""" & vbCrLf & vbCrLf
    footer = vbCrLf & "--" & strBoundary & "--" & vbCrLf
    
    winsock.Close
    winsock.Connect "upload.krkrkrkr.kr", 80
    Do
        DoEvents
        sleep 1
    Loop While winsock.State <> sckConnected
    
    head = "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=" & strBoundary & vbCrLf & _
            "Host: upload.krkrkrkr.kr" & vbCrLf & _
            "Cache-Control: no-cache" & vbCrLf & _
            "Content-Length: " & CLng(Len(header) + Len(footer) + FileLen(filen)) & vbCrLf & _
            vbCrLf & header
            
    winsock.SendData head
    
    Open filen For Binary Access Read As #1
       ReDim temp(LOF(1))
       Get #1, , temp
    Close #1
    ' 파일의 바이너리 읽어오는 부분

    winsock.SendData temp
    winsock.SendData footer

End Function



이게 네이버 카페에서본 이미지 업로드하는소스인데

vb6.0소스라서그런지 .net에선 안먹힘..

솔직히 저소스도 잘 이해안되는데 좀 도와주세요 사진업로드하는거 꼭만들어야됨 ㅜㅜ