수다닷컴

Dim winhttp As New winhttp.WinHttpRequest
Sub ktfaxLogin(ByVal suserid As String, ByVal spasswad As String, Optional ByVal retURL As String = https://login.olleh.com)
Dim dataVal() As Byte
Dim headVal As String

dataVal() = StrConv(userid= & suserid & &passwad= & spasswad & , vbFromUnicode)
headVal = Referer: https://login.olleh.com/wamui/AthOllehBeta.do?urlcd=http://www.olleh.com & vbNewLine & _
Content-Type: application/x-www-form-urlencoded & vbNewLine & _
User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; Trident/5.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; .NET4.0C)

WebBrowser1.Navigate https://login.olleh.com/wamui/AthWeb.do?urlcd=http://www.olleh.com & retURL, POST, , dataVal, headVal

Set IE = Nothing
End Sub
Private Sub CandyButton1_Click()
winhttp.Open POST, https://login.olleh.com/wamui/AthWeb.do?urlcd=http://www.olleh.com
winhttp.setRequestHeader Referer, https://login.olleh.com/wamui/AthOllehBeta.do?urlcd=http://www.olleh.com
winhttp.setRequestHeader Content-Type, application/x-www-form-urlencoded
winhttp.send userid= & Text1 & &passwad= & Text2 &
DoEvents
If InStr(winhttp.responseText, ) Then

Else
Exit Sub
End If
Call ktfaxLogin(Text1, Text2, 올레닷컴)
End Sub

화물차를 직업으로 하다보니 팩스쓸일이 많아서 인터넷팩스를 사용할려고하는데 일일이 아이디 넣기가(누가 도용하는바람에
아이디가 좀 어려워서) 패스워드도 마찬가지로

자동로그인을 이곳에 있는걸로 해서 했는데 자꾸 비베가 먹통이됩니다!
여러번 먹통이 되서 방법좀 알려주셨으면 감사합니다!

참고로 팩스 주소는 http://mobile.olleh.com/index.asp?code=KB00000 이것입니다!아 참 winhttp.send userid= & Text1 & &passwad= & Text2 &
이부분에서 비베 먹통됩니다!

신청하기