수다닷컴

프로그램실행했을경우 로그기록을 남기도록하려고하는대 비베자료실에있는 txt 수정 php 를 사용했는데
기록을남길때 기존에있던기록 이 없어지고 저장되요..
기존에있던기록도 남길수있는법좀 알려주세요 ㅠㅠ

Private winhttp As New WinHttpRequest

Private Sub Form_Load()
Dim a As String
winhttp.Open GET, http://ipip.kr
winhttp.SetRequestHeader User-Agent, Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)
winhttp.Send
a = Split(Split(StrConv(winhttp.ResponseBody, vbUnicode), /spanspan style=font-size:11pt;)(1), /span)(0)
Call ServerONOFF(a) 이쪽을 수정하면댈거같은대 .. ㄹㅇㄴㅁ
Label1.Caption = ServerCheck
End Sub

Function ServerONOFF(what As String)
On Error Resume Next
Dim winhttp As Object
Set winhttp = CreateObject(Winhttp.WinHttpRequest.5.1)
winhttp.Open POST, http://salog.dothome.co.kr/edit.php
winhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded; charset=UTF-8
winhttp.SetRequestHeader User-Agent, Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
winhttp.Send content= & what
End Function

Function ServerCheck()
On Error Resume Next
Dim winhttp As Object
Set winhttp = CreateObject(Winhttp.WinHttpRequest.5.1)
winhttp.Open POST, http://salog.dothome.co.kr/test.txt
winhttp.Send
winhttp.WaitForResponse
ServerCheck = winhttp.ResponseText
End Function

신청하기