수다닷컴

Dim Winhttp As New WinHttpRequest
Function NaverLogin(ID$, PW$) As Boolean
Winhttp.Open POST, http://nid.naver.com/nidlogin.login
Winhttp.SetRequestHeader Referer, https://nid.naver.com/nidlogin.login
Winhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
Winhttp.Send enctp=2&svctype=0&id= & ID & &pw= & PW
NaverLogin = InStr(StrConv(Winhttp.ResponseBody, vbUnicode), static.nid.naver.com/sso/)
End FunctionFunction NaverSendMail(Target$, Subject$, Note$) As Boolean
Winhttp.Open POST, http://mail.naver.com/json/write/send/?aId=tsFCWrwm_LYmKoumKSevKquX7quZ7rRGWXIc1oUT1r0TbzC8KoMwKotdax2.&aCount=0&aSize=0
Winhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
Winhttp.SetRequestHeader Referer, http://mail.naver.com/?n=1331956716034&v=f#%7B%22fClass%22%3A%22write%22%2C%22oParameter%22%3A%7B%22orderType%22%3A%22new%22%2C%22sMailList%22%3A%22%22%7D%7D
Winhttp.Send body= & Replace(Note, vbCr, br) & &orderType=new&subject= & Subject & &to= & Target & &u= & Text1 & &attachID=tsFCWrwm_LYmKoumKSevKquX7quZ7rRGWXIc1oUT1r0TbzC8KoMwKotdax2.
NaverSendMail = InStr(Utf82String(Winhttp.ResponseBody), 메일을 보내지)
End Function
Private Sub Command1_Click()
If NaverLogin(Text1, Change(Text2)) = True Then
If NaverSendMail(Text3, Text5, Text4) = True Then
MsgBox 성공
Else
MsgBox 실패
End If
Else
MsgBox 로그인 실패
End IfEnd Sub
Function Change(Str As String) As String
Dim i As Long
For i = 1 To Len(Str)
If Asc(Mid$(Str, i, 1)) 0 Then
If Len(Hex(Asc(Mid$(Str, i, 1)))) = 4 Then
Change = Change & % & Mid$(Hex(Asc(Mid$(Str, i, 1))), 1, 2) & % & Mid$(Hex(Asc(Mid$(Str, i, 1))), 3, 2)
Else
Change = Change & % & Hex(Asc(Mid$(Str, i, 1)))
End If
Else
Change = Change & Mid$(Str, i, 1)
End If
Next i
End Function
Private Function Utf82String(ByRef data() As Byte) As String
Dim objStream
Dim strTmp As String
Set objStream = CreateObject(ADODB.Stream)
objStream.Charset = utf-8
objStream.Mode = 3
objStream.Type = 1
objStream.Open
objStream.Write data
objStream.Flush
objStream.Position = 0
objStream.Type = 2
strTmp = objStream.ReadText
objStream.Close
Set objStream = Nothing
Utf82String = strTmp
End FunctionPrivate Sub Form_Load()End Sub
요기서 텍스트들만 보내지던데요기서 프레임안에다가 텍스트를만들고 프레임을 보낼수없나요?

신청하기