프로그래밍 블로그

VB.net 네이트온 팀룸 API 예제

Imports System
Imports System.Net
Imports System.IO
Imports System.Text.Encoding
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call Nateon_team()
    End Sub


    Public Sub Nateon_team()
        Dim request As HttpWebRequest
        request = WebRequest.Create("https://teamroom.nate.com/api/webhook/######/##############")
        Dim response As WebResponse
        Dim postData As String = Now
        Dim data As Byte() = UTF8.GetBytes(String.Format("content={0}", System.Web.HttpUtility.UrlEncode(postData)))

        request.Method = "POST"
        request.ContentType = "application/x-www-form-urlencoded"


        Dim stream As Stream = request.GetRequestStream()
        stream.Write(data, 0, data.Length)
        stream.Close()

        response = request.GetResponse()
        Dim sr As New StreamReader(response.GetResponseStream())

        MsgBox(sr.ReadToEnd)
    End Sub

End Class

c# -> VB.net

출처 : http://2nusa.blogspot.com/2017/12/api-c.html

Worksheets("Sheet1").Range("A65536").End(xlUp).Row

Worksheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column 

https://pythonhosted.org/Pafy/

https://github.com/ytdl-org/youtube-dl

https://stackoverflow.com/questions/8081676/how-to-download-a-youtube-video-using-the-youtubes-api

https://stackoverflow.com/questions/2678051/can-t-download-youtube-video

https://kibua20.tistory.com/23

https://namu.wiki/w/youtube-dl

WIN32API

https://www.pinvoke.net/

http://soen.kr/

네이버 API - 단축 URL

import os
import sys
import urllib.request
import json

client_id = "" # 개발자센터에서 발급받은 Client ID 값
client_secret = "" # 개발자센터에서 발급받은 Client Secret 값
encText = urllib.parse.quote("https://clanguage.tistory.com") # 단축 시킬 URL 주소
data = "url=" + encText
url = "https://openapi.naver.com/v1/util/shorturl"
request = urllib.request.Request(url)
request.add_header("X-Naver-Client-Id",client_id)
request.add_header("X-Naver-Client-Secret",client_secret)
response = urllib.request.urlopen(request, data=data.encode("utf-8"))
rescode = response.getcode()
if(rescode==200):
    response_body = response.read()

    response = response_body.decode('utf-8')
    responseJson = json.loads(response)

    print("단축된 URL 주소 : " + responseJson.get("result").get("url"))
else:
    print("Error Code:" + rescode)

https://developers.naver.com/docs/utils/shortenurl/

https://developers.naver.com/docs/utils/shortenurl/#python

파이썬 - urllib request 이용한 이미지 다운로드

from urllib import request

img_URL = "https://t1.daumcdn.net/daumtop_chanel/op/20200723055344399.png"

file_ext = img_URL.split('.')[-1] # 확장자 추출

request.urlretrieve(img_URL, "test" + "."+ file_ext)

티스토리 API - Authentication code 발급 방법

VB.NET - ImageSearchDLL.dll 이미지서치

    <DllImport("ImageSearchDLL.dll")> _
    Public Shared Function ImageSearch(ByVal x1 As Integer, ByVal y1 As Integer, ByVal right As Integer, ByVal bottom As Integer, ByVal findImage As String) As IntPtr
    End Function

        Dim img As String = ImageSearch(rc.left, rc.top, rc.right, rc.bottom, "*TransFF00FF *50 " & Application.StartupPath & "\" & img & ".png")
        '투명값 : *TransFF00FF 
        '오차율 : *50
        'Application.StartupPath : 응용 프로그램의 실행 경로
        
	Dim imgData() As String = Split(Marshal.PtrToStringAnsi(img), "|")
        '0 = 성공1, 실패0
        '1, 2 = 좌표 x, y

VB.net - 디시 댓글 클리너

정상 작동하는지 까지만 확인했습니다.

IP 차단 위험성이 존재합니다

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://gallog.dcinside.com/")
    End Sub

    Private Sub Inject_Alert_Blocker()
        Dim head As HtmlElement = WebBrowser1.Document.GetElementsByTagName("head")(0)
        Dim script_element As HtmlElement = WebBrowser1.Document.CreateElement("script")
        Dim alert_blocker1 As String = "window.confirm=function(){return true;}"
        Dim alert_blocker2 As String = "window.alert=function(){return true;}"
        Dim alert_blocker3 As String = "window.close=function(){}"
        script_element.SetAttribute("text", alert_blocker1)
        head.AppendChild(script_element)

        script_element.SetAttribute("text", alert_blocker2)
        head.AppendChild(script_element)

        script_element.SetAttribute("text", alert_blocker3)
        head.AppendChild(script_element)
    End Sub

    Private Sub WebBrowser1_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        Inject_Alert_Blocker()
        WebBrowser1.ScriptErrorsSuppressed = True
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        On Error Resume Next

        For Each divSect As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
                If divSect.OuterHtml.Contains("btn_box fr cont_btnbox") Then
                    For Each elem As HtmlElement In divSect.Children
                        If elem.GetAttribute("className") = "btn_delete btn_svc btn_lightgrey smaller" Then
                            elem.InvokeMember("click")
                        End If
                    Next
                End If
            Next

    End Sub
End Class

필요 컨트롤 - WebBrowser, Button, Timer

댓글말고 게시글도 위 코드 응용해서 지우면 됨

2021.05.08 - [VB.NET] - VB.NET - WebBrowser 메세지 창 제어

2021.05.10 - [VB.NET] - VB.net - WebBrowser의 Button 클릭하기

VB.net - WebBrowser의 Button 클릭하기

참조 링크 - 

docs.microsoft.com/ko-kr/dotnet/api/system.windows.forms.htmlelement?view=net-5.0

stackoverflow.com/questions/52375257/click-on-a-button-in-a-webbrowser-control

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://www.daum.net")
    End Sub

        For Each divSect As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
            If divSect.OuterHtml.Contains("inner_search") Then
                For Each elem As HtmlElement In divSect.Children
                    If elem.GetAttribute("className") = "ico_pctop btn_search" Then
                        elem.InvokeMember("click")
                    End If
                Next
            End If
        Next