본문 바로가기

전체 글156

[vb6.0/vba] vba를 이용한 네이버 블로그 공감하기 Sub program1472() Dim URL As String, Cookie As String Dim T As String Dim blogId As String, logNo As String blogId = "블로그 아이디" logNo = "게시글 번호" Cookie = "NID_AUT=쿠키(NID_AUT)값; " Cookie = Cookie & "NID_SES=쿠키(NID_SES) 값; " URL = "https://blog.like.naver.com/v1/search/contents?suppress_response_codes=true" URL = URL & "&callback=jQuery32108679104131702924_" & UNIX_TIME URL = URL & "&q=BLOG%5B" & b.. 2020. 7. 20.
[vb.net] DataTable 날짜를 그룹으로 설정하고 그룹별 합계내기 지식인 질문에 대한 답변내용입니다. https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=1040103&docId=362704813 비주얼베이직 vb.net 질문드려요 textbox 검색 기능 사진과 같이 왼쪽 textbox 내용을 기간별로 검색해서 오른쪽 텍스트박스에 출력하게끔 하려면 어떻게 해야 될까요??그리고 출력된 내용에서 10/2020-07-0310/2020-0... kin.naver.com ​ ​ ​ Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim D As New DataTable, R As DataRow D.Columns.Add.. 2020. 7. 16.
서울교차로(newspaper.seoulkcr.com)구인 크롤링 서울교차로(newspaper.seoulkcr.com)구인 크롤링을 해보자 지식인 답변내용입니다. Private Sub program1472_com() Dim elem As Object Dim oHTML As Object Set oHTML = CreateObject("htmlfile") Dim URL As String, Cookie As String, T As String, P As Integer Cells.Clear Do P = P + 1 URL = "http://newspaper.seoulkcr.com/paper?kcrid=kangnamkcr&cateid=0001&page=" & P With CreateObject("WinHttp.WinHttpRequest.5.1") .Open "GET", URL .S.. 2020. 7. 16.
[vb.net] DataTable Sort Dim dt As New DataTable() dt.Columns.AddRange(New DataColumn(3) {New DataColumn("Id"), New DataColumn("Name"), New DataColumn("Sid", GetType(Integer)), New DataColumn("Age", GetType(Integer))}) dt.Rows.Add("1", "xxx", 19, 20) dt.Rows.Add("2", "yyy", 18, 20) dt.Rows.Add("3", "zzz", 18, 20) dt.Rows.Add("4", "aaa", 1, 20) dt.Rows.Add("5", "aaa", 18, 20) dt.DefaultView.Sort = "Sid DESC" Dim dtResult.. 2020. 7. 15.
[MySQL] AUTO_INCREMENT 값을 초기화 후, 테이블 안의 모든 데이터의 ID값을 재조정 AUTO_INCREMENT 값을 초기화 하려면, 아래와 같은 쿼리를 실행시켜주면 됩니다. ALTER TABLE [테이블명] AUTO_INCREMENT=1; 하지만 이 경우에는, 테이블에 새로 시작할 값보다 높은 값이 있으면 안됩니다. 아래는 AUTO_INCREMENT 값을 초기화 후, 테이블 안의 모든 데이터의 ID값을 재조정하는 방법입니다. ALTER TABLE [테이블명] AUTO_INCREMENT=1; SET @COUNT = 0; UPDATE [테이블명] SET [AUTO_INCREMENT 열 이름] = @COUNT:=@COUNT+1; 위 쿼리문은 현재 모든 데이터 ID값을 1부터 재조정하고, 다음 인덱스 값을 [마지막 행번호 + 1] 로 정하는 명령어입니다. 2020. 7. 15.
[VB.NET] 폼(Form) 사이즈 고정(Size fix) 방법1:) Me.FormBorderStyle = FormBorderStyle.FixedSingle ​ 방법2:) Private Sub fMain_Resize(sender As Object, e As EventArgs) Handles Me.Resize Me.Size = New Size(800, 600) End Sub ​ 방법3:) 2020. 7. 14.
[vb6.0/vba] WinHttp로 사이트 파싱시 한글깨질경우 엔코딩 찿는 방법 Sub program1472() Dim B() As Byte, T As String, Cookie As String, Referer As String, URL As String, Host As String Cookie = "PHPSESSID=d4r5mc7clu18cd1bhc0dfm5v86; " URL = "사이트 주소" Referer = "사이트 이전주소" Host = "Host 주소" With CreateObject("WinHttp.WinHttpRequest.5.1") .Open "GET", URL .SetRequestHeader "Host", Host .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:50.0) Gecko/2010010.. 2020. 7. 14.
[vb.net] 네이버 QR Code 단축 URL 생성(https/443) Private Function nhnQRLink(ByVal nhnID As String, ByVal nhnCookie As String, ByVal link As String) As String Dim T As String = "" Try 'ServicePointManager.Expect100Continue = True 'ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12 Or SecurityProtocolType.Ssl3 ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls1.. 2020. 7. 2.
[vb6.0/vba] VBScript 를 이용한 URL Encode/Decode Private JSEngine As Object Public Function URLEncode(ByVal value As String) If JSEngine Is Nothing Then SetJSEngine value = JSEngine.CodeObject.encodeURIComponent(value) value = Replace(value, "'", "%27") URLEncode = Replace(value, """", "%22") End Function Public Function UrlDecode(ByVal value As String) If JSEngine Is Nothing Then SetJSEngine value = Replace(value, "+", " ") UrlDecode = JSEngi.. 2020. 6. 30.

티스토리툴바