김윤호닷컴

DateAndTime.Today.AddDays(-1).ToString("yyMMdd")

Imports System.Text.RegularExpressions Module Module1 Sub Main() Dim winhttp As New WinHttp.WinHttpRequest Dim strURL As String = "http://m.comic.naver.com/webtoon/detail.nhn?titleId=358422&no=" Dim regex1 As New Regex("lazy-src=""(.*?)"" id=""toon_") Dim matches As MatchCollection For page = 1 To 140 ' 게시물 한계 winhttp.Open("GET", strURL & page) winhttp.Send() matches..

Imports System.Windows.Forms Module ReadWritingMemory Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer Private Declare Function WriteProcessMemory1 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As..

원문출처 http://www.inven.co.kr/board/powerbbs.php?come_idx=2641&l=9646 1층 월 : 마법의 힘이 담긴 책 수거 12개 8개 (※도서관곳곳의 바닥에 떨어져있음) 화 : 에아나드의 금서 수집 20개 (※비밀없는금서or기밀없는금서 Drop) 수 : 도서관 비품상자 8개 (※파티원이 동시에 클릭시 여러개 습득가능) 목 : 도..

C9 버서커

-_-; 오랫만에 잘되길래 그때부터 촬영시작.. 첨에 방들어가서 3번죽고 시작하지만 오늘나라 대충긁어두 다 죽넹 그러나 저화질.. 떵컴이라

http://www.youtube.com/playlist?list=PLx1YqgRZv7lTogS_TIWuQbTNcollkJ7BN

Function GetScreenPixel(ByVal pt As Point) As Color Using bmp As New Bitmap(1, 1) Using g As Graphics = Graphics.FromImage(bmp) g.CopyFromScreen(pt, Point.Empty, New Size(1, 1)) Return bmp.GetPixel(0, 0) End Using End Using End Function

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Int32 Dim p As POINTAPI GetCursorPos(p) Dim str As String = p.x & " " & p.y

http://www.devpia.com/MAEUL/Contents/Detail.aspx?BoardID=45&MAEULNO=18&no=511&page=1 이런저런 코딩중에 좀 더 간단한 Sub호출을 위해 방법을 찾다가 알게 된건데요... 항상 클릭 이벤트를 받아서 select case 등으로 각각의 서브를 호출했었는데 간단히 문자열로 Sub를 호출하는 방법이 있었네요같은 클래스 안에..