비쥬얼베이직접속기

페이지 정보

profile_image
작성자21세기톰 조회 23회 작성일 2021-04-22 07:23:28 댓글 0

본문

비주얼베이직으로 접속기 만들기 네이버 로그인 인증

Dim W As New WinHttpRequest
Dim WinHttp As New WinHttpRequest

Private Sub Command1_Click()
W.Open "POST", "https://nid.naver.com/nidlogin.login"
W.SetRequestHeader "Referer", "https://nid.naver.com/nidlogin.login"
W.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
W.Send "enctp=1\u0026svctype=0\u0026id=" \u0026 ID \u0026 "\u0026pw=" \u0026 PW
If InStr(W.ResponseText, "location") Then
MsgBox "네이버 로그인에 성공하였습니다.",vbinformation,"관리자"
Else
Form1.Height = 4035
If UBound(Split(W.ResponseText, "key=")) = 4 Then
MsgBox "로그인실패 또는 보안문자에 문제가있습니다.", , ""
LB = Split(Split(W.ResponseText, "key=")(2), """")(0)
LoadURLPicture "https://nid.naver.com/login/image/captcha/nhncaptchav4.gif?key=" \u0026 LB, Picture1
Text3.Visible = True
Picture1.Visible = True
End If
End If
End Sub

Private Sub LoadURLPicture(URL As String, PictureBox As PictureBox)
Dim IE As Object, Bte() As Byte, TitleStr$
Set IE = CreateObject("winhttp.winhttprequest.5.1")
IE.Open "GET", URL
IE.Send
Bte = IE.ResponseBody
TitleStr = Replace(Split(URL, "/")(UBound(Split(URL, "/"))), "?", "")
Open App.Path \u0026 "\\" \u0026 TitleStr For Binary As #1
Put 1, , Bte
Close #1
PictureBox.Picture = LoadPicture(App.Path \u0026 "\\" \u0026 TitleStr)
Kill App.Path \u0026 "\\" \u0026 TitleStr
End Sub

비주얼베이직으로 접속기 만들기 IF문

비주얼 베이직으로 접속기 만들기 #1

♥재밌는 자동제어 세상♥ VB.Net 2019 무작정 따라하기 01(Butten, TextBox)

안녕하세요?
가공장비, 프레스, 용접기 등 설비 정보 수집 전문 “스마트공장 구축업체”
아이오텍 박원호입니다.
특히 FANUC 가공장비 사용자 인터페이스 개발로 많은 정보를 수집하여
생산성 향상 및 품질관리를 가능하게 하여 기업 경쟁력 향상에 기여를 하고있습니다.

www.io-tech.kr 에서 원격 체험을 할 수 있으니 많이들 보시고
시스템 구축을 위해 상담을 원하시면 연락주십시요.
(박원호 / 아이오텍 대표 : 010-2586-8848, iotech2020@daum.net)

구독, 좋아요. 알람은 저한테 큰 힘이 됩니다.
많이 시청해주시고 사랑해 주십시요.


감사합니다.

... 

#비쥬얼베이직접속기

댓글목록

등록된 댓글이 없습니다.

전체 2,244건 10 페이지
게시물 검색
Copyright © www.arko-yearbook.kr. All rights reserved.  Contact : help@oxmail.xyz