앱이 자동으로 로그 파일을 보내도록 지원하는 방법은 무엇입니까?

Question

특정 클라이언트에서 오는 오류를 관리하기 위해 앱을 시작하면 현재 오류 로그 파일을 내게 보내도록 할 생각입니다.

VB6/XP 환경에서이 작업을 수행하는 가장 좋은 방법은 무엇입니까?

이메일은 쉽게 들릴 수 있지만 모든 종류의 안티 바이러스/방화벽 보호 기능을 사용할 수 있다고 상상해보십시오.

웹 서버에 연결하는 것이 더 좋을 수도 있습니다. 이 경우 앱이 여전히 Windows 방화벽을 열어야합니까? 나는이 같은 클라이언트 오류 로그를 업로드 XMLHTTP을 사용하고

Answer 1

: 당신은 Windows 방화벽을 트리거에 자신의 컴퓨터에서 연결 http://wqweto.wordpress.com/2011/07/12/vb6-using-wininet-to-post-binary-file/

Private Sub pvPostFile(sUrl As String, sFileName As String, Optional ByVal bAsync As Boolean) 
    Const STR_BOUNDARY As String = "3fbd04f5-b1ed-4060-99b9-fca7ff59c113" 
    Dim nFile   As Integer 
    Dim baBuffer()  As Byte 
    Dim sPostData  As String 

    '--- read file 
    nFile = FreeFile 
    Open sFileName For Binary Access Read As nFile 
    If LOF(nFile) > 0 Then 
     ReDim baBuffer(0 To LOF(nFile) - 1) As Byte 
     Get nFile, , baBuffer 
     sPostData = StrConv(baBuffer, vbUnicode) 
    End If 
    Close nFile 
    '--- prepare body 
    sPostData = "--" & STR_BOUNDARY & vbCrLf & _ 
     "Content-Disposition: form-data; name=""uploadfile""; filename=""" & Mid$(sFileName, InStrRev(sFileName, "\") + 1) & """" & vbCrLf & _ 
     "Content-Type: application/octet-stream" & vbCrLf & vbCrLf & _ 
     sPostData & vbCrLf & _ 
     "--" & STR_BOUNDARY & "--" 
    '--- post 
    With CreateObject("Microsoft.XMLHTTP") 
     .Open "POST", sUrl, bAsync 
     .SetRequestHeader "Content-Type", "multipart/form-data; boundary=" & STR_BOUNDARY 
     .Send pvToByteArray(sPostData) 
    End With 
End Sub 

Private Function pvToByteArray(sText As String) As Byte() 
    pvToByteArray = StrConv(sText, vbFromUnicode) 
End Function