수다닷컴

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

dataVal() = StrConv(userid= & suserid & &passwad= & spasswad & &enctp=1, 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 &
DoEventsIf InStr(winhttp.responseText, ) ThenElse
MsgBox 로그인 실패, vbCritical, 올레 로그인
Exit Sub
End IfCall KTFAXLogin(Text1, Text2, KT올레)End Sub
화물차를 직업으로 하다보니 팩스쓸일이 많아서 인터넷팩스를 사용할려고하는데 일일이 아이디 넣기가(누가 도용하는바람에 아이디가 좀 어려워서) 패스워드도 마찬가지로자동로그인을 이곳에 있는걸로 해서 했는데 자꾸 비베가 먹통이됩니다!여러번 먹통이 되서 방법좀 알려주셨으면 감사합니다!참고로 팩스 주소는 http://mobile.olleh.com/index.asp?code=KB00000이것입니다!어디가 잘못된건가요??아님 이것만 따로 해서 이거 구입한다면 얼마에 해주실수있는지요?? 비베 프로그램으로요!참 저기에서 몇가지는 필요없습니다! 체크 -국제팩스는 사용않해서 필요없어여!전송시간은 지금 전송으로 계속할거구요전송화질은 일반화질과 고화질이요! 두개중 선택할수있게미리보기도 구연됬으면하고 취소하기는 필요없구요!팩스커버도 안보낼꺼라 필요없습니다!주소록 최근전송리스트도 필요없습니다! 한군데에만 계속 보내는 게 아니라서요!나머지는 있어야하구요! 혹시 비용이 얼마나되는지요??

신청하기