2021. 3. 31. 01:36

VB.NET WinHttp.WinHttpRequest

 

        Dim winhttp As New WinHttp.WinHttpRequest
        winhttp.Open("GET", "https://www.naver.com/")
        winhttp.Send()
        TextBox1.Text = winhttp.ResponseText

 

 

'VB.NET' 카테고리의 다른 글

VB.NET 이미지서치 ImageSearchDLL.dll  (1) 2021.03.16
VB.NET FindWindow, FindWindowEX API  (0) 2021.03.15
alert 없애기  (0) 2020.07.11
웹연동 소스  (0) 2020.07.11
유틸리티 Microsoft Spy++ V10.0 다운로드  (0) 2019.11.04
유틸리티 API뷰어(Winapi) 다운로드  (0) 2019.11.03
vb.net SendInput  (0) 2019.08.28
웹연동  (0) 2019.08.26
참조 추가 Management  (0) 2019.08.20
핸들값  (0) 2019.08.12
Posted by 블로그(8109)
2021. 3. 16. 20:28

ImageSearchDLL.dll
0.11MB

 

VB.NET 이미지서치 ImageSearchDLL.dll

 

API

- FindWindow

- FindWindowEx

- SendMessage

- PostMessage

- ImageSearch

- GetWindowRect

- ScreenToClient

- GetWindowRect

 

    Private Function LparamToScreenPositionXY(ByVal X As Long, ByVal Y As Long) As Int32
        LparamToScreenPositionXY = (Y And &HFFFF&) * &H10000 Or (X And &HFFFF&) 
        ' 좌표를 합친 롱 값을 만든다. 마우스 클릭 메시지 보낼때 필요한 좌표 정보를 만든다.
    End Function
    
        Dim rc As RECT
    <StructLayout(LayoutKind.Sequential)>
    Public Structure RECT
        Public left As Integer
        Public top As Integer
        Public right As Integer
        Public bottom As Integer
    End Structure
    
    Private Const WM_LBUTTONDOWN As Int32 = &H201
    Private Const WM_LBUTTONUP As Int32 = &H202

        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 3,4번 = 이미지의 세로가로길이
        '참고 링크 https://blog.naver.com/134686/220944621041

        Dim client As String = FindWindow(ClassName, WindowName)
        Dim clientEX As String = FindWindowEx(client, 0&, ClassName, WindowName)
        ' FindWindow FindWindowEX 사용법
        ' https://writes.tistory.com/entry/VBNET-FindWindow-FindWindowEX-API 참고
        
        Dim p As Point
        GetWindowRect(client, rc)
        'GetWindowRect(clientEX, rc)

        If imgData(0) = 1 Then
            p.X = imgData(1)
            p.Y = imgData(2)
            '좌표값

            ScreenToClient(client, p)
            'ScreenToClient(clientEX, p)

            SendMessage(client, WM_LBUTTONDOWN, &H1, LparamToScreenPositionXY(p.X, p.Y))
            SendMessage(client, WM_LBUTTONUP, &H0, LparamToScreenPositionXY(p.X, p.Y))
            'PostMessage
        End If

 

'VB.NET' 카테고리의 다른 글

VB.NET WinHttp.WinHttpRequest  (3) 2021.03.31
VB.NET FindWindow, FindWindowEX API  (0) 2021.03.15
alert 없애기  (0) 2020.07.11
웹연동 소스  (0) 2020.07.11
유틸리티 Microsoft Spy++ V10.0 다운로드  (0) 2019.11.04
유틸리티 API뷰어(Winapi) 다운로드  (0) 2019.11.03
vb.net SendInput  (0) 2019.08.28
웹연동  (0) 2019.08.26
참조 추가 Management  (0) 2019.08.20
핸들값  (0) 2019.08.12
Posted by 블로그(8109)
2021. 3. 15. 23:47

VB.NET FindWindow, FindWindowEX API + Microsoft Spy++ V10.0

 

FindWindow API

- www.pinvoke.net/default.aspx/user32/FindWindow.html

 

pinvoke.net: FindWindow (user32)

Type a page name and press Enter. You'll jump to the page if it exists, or you can create it if it doesn't. To create a page in a module other than user32, prefix the name with the module name and a period. FindWindow (user32) . Summary The FindWindow func

www.pinvoke.net

FindWindowEx API

- www.pinvoke.net/default.aspx/user32/FindWindowEx.html

 

pinvoke.net: FindWindowEx (user32)

Type a page name and press Enter. You'll jump to the page if it exists, or you can create it if it doesn't. To create a page in a module other than user32, prefix the name with the module name and a period. FindWindowEx (user32) . Summary C# Signature: [Dl

www.pinvoke.net

 

Microsoft Spy++ V10.0.zip
5.31MB

 

        NoteFind = FindWindow("Notepad", "테스트용 - Windows 메모장")
        NoteFindEx = FindWindowEx(NoteFind, 0&, "Edit", vbNullString)

 

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Private Declare Auto Function FindWindowEx Lib "user32.dll" (
    ByVal hwndParent As IntPtr,
    ByVal hwndChildAfter As IntPtr,
    ByVal lpszClass As String,
    ByVal lpszWindow As String
    ) As IntPtr

        Dim NoteFind As String
        Dim NoteFindEx As String
    
        NoteFind = FindWindow("Notepad", "테스트용 - Windows 메모장")
        NoteFindEx = FindWindowEx(NoteFind, 0&, "Edit", vbNullString)

'VB.NET' 카테고리의 다른 글

VB.NET WinHttp.WinHttpRequest  (3) 2021.03.31
VB.NET 이미지서치 ImageSearchDLL.dll  (1) 2021.03.16
alert 없애기  (0) 2020.07.11
웹연동 소스  (0) 2020.07.11
유틸리티 Microsoft Spy++ V10.0 다운로드  (0) 2019.11.04
유틸리티 API뷰어(Winapi) 다운로드  (0) 2019.11.03
vb.net SendInput  (0) 2019.08.28
웹연동  (0) 2019.08.26
참조 추가 Management  (0) 2019.08.20
핸들값  (0) 2019.08.12
Posted by 블로그(8109)
2020. 9. 27. 15:47
2020. 9. 25. 03:21

앱플레이어 해상도 차이 - 바람의나라 연

https://www.barammobile.com/TIP/3

 

앱플레이어 해상도 차이 > 팁/공략 게시판 | 올 바람 - 바람의나라:연

조금더 넓게 쓰는게 더 약간 잘보임

www.barammobile.com

 

 

Posted by 블로그(8109)
2020. 9. 25. 03:21

앱플레이어 CPU 점유율 낮추기 - 바람의나라 연

https://www.barammobile.com/TIP/2

 

앱플레이어 CPU 점유율 낮추기 > 팁/공략 게시판 | 올 바람 - 바람의나라:연

컴퓨터 사양마다 다를 수 있습니다.

www.barammobile.com

Posted by 블로그(8109)
2020. 9. 22. 04:22

감정표현 매크로 설정 - 바람의나라 연

https://www.barammobile.com/TIP/17

 

감정표현 매크로 설정 > 팁/공략 게시판 | 올 바람 - 바람의나라:연

패치이후 제가 쓰는 방식입니다. 수치는 개인에 맞게 조정하시면 됩니다추가적으로 감정표현 업적 즐겨찾기 한다음 끝까지 모두 완료 하면 업적이 맨 아래로 내려갑니다설정한 3개가 맨위에 없

www.barammobile.com

 


 

패치이후 제가 쓰는 방식입니다. 수치는 개인에 맞게 조정하시면 됩니다

 

 


 

추가적으로 감정표현 업적 즐겨찾기 한다음 끝까지 모두 완료 하면 업적이 맨 아래로 내려갑니다

설정한 3개가 맨위에 없다면 완료한것이니 다른 감정표현 설정하시면 됩니다

 

 

*감정표현

/춤 /뽀뽀 /웃음 /부끄 /삐짐 /으쓱 /놀람 /메롱 /윙크 /화남 /하품 /울기 /졸기 /뽐내기 /인사 /황당

Posted by 블로그(8109)
2020. 9. 22. 04:21

 

 

 

몰라도 되는 팁 - 바람의나라 연

https://www.barammobile.com/TIP/18

 

몰라도 되는 팁 > 팁/공략 게시판 | 올 바람 - 바람의나라:연

무기 밑 수치는 변신 소환력 수치이다비영사천문을 사용 후 왼쪽위에 지도를 눌르면지도가 크게 표시되며 동서남북 선택해서 이동할수 있다.그룹창에서 파티장을 누르면 따라가기를 할수있다.

www.barammobile.com

 

 

무기 밑 수치는 변신 소환력 수치이다

 


비영사천문을 사용 후 왼쪽위에 지도를 눌르면

 

지도가 크게 표시되며 동서남북 선택해서 이동할수 있다.

 

그룹창에서 파티장을 누르면 따라가기를 할수있다.
 

Posted by 블로그(8109)
2020. 7. 11. 17:33

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_blocker As String = "window.alert = function(){}"

script_element.SetAttribute("text", alert_blocker)

head.AppendChild(script_element)

End Sub

 

출처

https://blog.naver.com/lsc980109/220967886886 

 

[VB.NET] WebBrowser에서 모든 alert를 비활성화 하는 법

안녕하세요, 니코벨릭 입니다. 이번 포스팅에서는 VB.NET WebBrowser 컨트롤에서 모든 메세지창을 ...

blog.naver.com

그외

window.alert=function()

 

WebBrowser1.Document.InvokeScript("window.confirm=function(){return true;}") WebBrowser1.Document.InvokeScript("window.alert=function(){return true;}") WebBrowser1.Document.InvokeScript("window.close=function(){}")

'VB.NET' 카테고리의 다른 글

VB.NET WinHttp.WinHttpRequest  (3) 2021.03.31
VB.NET 이미지서치 ImageSearchDLL.dll  (1) 2021.03.16
VB.NET FindWindow, FindWindowEX API  (0) 2021.03.15
웹연동 소스  (0) 2020.07.11
유틸리티 Microsoft Spy++ V10.0 다운로드  (0) 2019.11.04
유틸리티 API뷰어(Winapi) 다운로드  (0) 2019.11.03
vb.net SendInput  (0) 2019.08.28
웹연동  (0) 2019.08.26
참조 추가 Management  (0) 2019.08.20
핸들값  (0) 2019.08.12
Posted by 블로그(8109)
2020. 7. 11. 01:36

 

 

WebBrowser1.Document.InvokeScript("GetRNameApply")

'자바스크립트 실행

WebBrowser1.Document.GetElementById("id").SetAttribute("value", "대머리")

'값넣기

WebBrowser1.ScriptErrorsSuppressed = True

'스크립트 무시

'VB.NET' 카테고리의 다른 글

VB.NET WinHttp.WinHttpRequest  (3) 2021.03.31
VB.NET 이미지서치 ImageSearchDLL.dll  (1) 2021.03.16
VB.NET FindWindow, FindWindowEX API  (0) 2021.03.15
alert 없애기  (0) 2020.07.11
유틸리티 Microsoft Spy++ V10.0 다운로드  (0) 2019.11.04
유틸리티 API뷰어(Winapi) 다운로드  (0) 2019.11.03
vb.net SendInput  (0) 2019.08.28
웹연동  (0) 2019.08.26
참조 추가 Management  (0) 2019.08.20
핸들값  (0) 2019.08.12
Posted by 블로그(8109)
2019. 11. 4. 00:07

유틸리티 Microsoft Spy++ V10.0 다운로드

 

spy++
Microsoft Spy++ V10.0.zip
5.31MB

 

 

■ 기타 정보

https://docs.microsoft.com/ko-kr/visualstudio/debugger/how-to-start-spy-increment?view=vs-2019

'VB.NET' 카테고리의 다른 글

VB.NET WinHttp.WinHttpRequest  (3) 2021.03.31
VB.NET 이미지서치 ImageSearchDLL.dll  (1) 2021.03.16
VB.NET FindWindow, FindWindowEX API  (0) 2021.03.15
alert 없애기  (0) 2020.07.11
웹연동 소스  (0) 2020.07.11
유틸리티 API뷰어(Winapi) 다운로드  (0) 2019.11.03
vb.net SendInput  (0) 2019.08.28
웹연동  (0) 2019.08.26
참조 추가 Management  (0) 2019.08.20
핸들값  (0) 2019.08.12
Posted by 블로그(8109)
2019. 11. 3. 00:50

유틸리티 API뷰어(Winapi) 다운로드

 

 

OCX 에러 나오시는분들은

Visual_BASIC_6_Runtimes_Pack_Release_7 파일 설치 하시면 정상 구동 가능합니다.

Visual_BASIC_6_Runtimes_Pack_Release_7.exe
2.64MB

 

Winapi.zip
0.21MB

 

'VB.NET' 카테고리의 다른 글

VB.NET 이미지서치 ImageSearchDLL.dll  (1) 2021.03.16
VB.NET FindWindow, FindWindowEX API  (0) 2021.03.15
alert 없애기  (0) 2020.07.11
웹연동 소스  (0) 2020.07.11
유틸리티 Microsoft Spy++ V10.0 다운로드  (0) 2019.11.04
vb.net SendInput  (0) 2019.08.28
웹연동  (0) 2019.08.26
참조 추가 Management  (0) 2019.08.20
핸들값  (0) 2019.08.12
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11
Posted by 블로그(8109)
2019. 8. 28. 20:25

Imports System.Runtime.InteropServices

Module Module1


    Private Const VK_H As Short = 72
    Private Const VK_E As Short = 69
    Private Const VK_L As Short = 76
    Private Const VK_O As Short = 79

    Private Const KEYEVENTF_KEYUP As Integer = &H2
    Private Const INPUT_MOUSE As Integer = 0
    Private Const INPUT_KEYBOARD As Integer = 1
    Private Const INPUT_HARDWARE As Integer = 2

    Private Structure MOUSEINPUT
        Public dx As Integer
        Public dy As Integer
        Public mouseData As Integer
        Public dwFlags As Integer
        Public time As Integer
        Public dwExtraInfo As IntPtr
    End Structure

    Private Structure KEYBDINPUT
        Public wVk As Short
        Public wScan As Short
        Public dwFlags As Integer
        Public time As Integer
        Public dwExtraInfo As IntPtr
    End Structure

    Private Structure HARDWAREINPUT
        Public uMsg As Integer
        Public wParamL As Short
        Public wParamH As Short
    End Structure

    <StructLayout(LayoutKind.Explicit)>
    Private Structure INPUT
        <FieldOffset(0)>
        Public type As Integer
        <FieldOffset(4)>
        Public mi As MOUSEINPUT
        <FieldOffset(4)>
        Public ki As KEYBDINPUT
        <FieldOffset(4)>
        Public hi As HARDWAREINPUT
    End Structure

    Private Declare Function SendInput Lib "user32" (ByVal nInputs As Integer, ByVal pInputs() As INPUT, ByVal cbSize As Integer) As Integer
    Private Declare Function AttachThreadInput Lib "user32" (ByVal idAttach As IntPtr, ByVal idAttachTo As IntPtr, ByVal fAttach As Boolean) As Boolean
    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As IntPtr, ByVal lpwdProcessId As IntPtr) As IntPtr
    Private Declare Function GetCurrentThreadId Lib "kernel32" () As IntPtr
    Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As IntPtr) As Boolean

    Private Sub SendKey(ByVal bKey As Short)
        Dim GInput(1) As INPUT

        ' press the key
        GInput(0).type = INPUT_KEYBOARD
        GInput(0).ki.wVk = bKey
        GInput(0).ki.dwFlags = 0

        ' release the key
        GInput(1).type = INPUT_KEYBOARD
        GInput(1).ki.wVk = bKey
        GInput(1).ki.dwFlags = KEYEVENTF_KEYUP

        SendInput(2, GInput, Marshal.SizeOf(GetType(INPUT)))

    End Sub

    Private Const VK_0 As Short = 48
    Private Const VK_1 As Short = 49
    Private Const VK_2 As Short = 50
    Private Const VK_3 As Short = 51
    Private Const VK_4 As Short = 52
    Private Const VK_5 As Short = 53
    Private Const VK_6 As Short = 54
    Private Const VK_7 As Short = 55
    Private Const VK_8 As Short = 56
    Private Const VK_9 As Short = 57
    Private Const VK_Et As Short = 13
    Private Const VK_Dn As Short = 40


    Sub Main(key As Short)
        'Dim notepad As Process = Process.Start("notepad.exe")
        'If notepad.WaitForInputIdle() Then

        'Dim hNotePad As IntPtr = notepad.MainWindowHandle
        Dim hNotePad As IntPtr = FindWindow(Nothing, "####")

        Dim hNoteThread As IntPtr = GetWindowThreadProcessId(hNotePad, IntPtr.Zero)

        If hNoteThread <> IntPtr.Zero Then
            If AttachThreadInput(GetCurrentThreadId(), hNoteThread, True) Then

                'SetForegroundWindow(hNotePad)
                SendKey(key)
                'SendKey(VK_Dn)
                'SendKey(VK_Et)
                'SendKey(VK_E)
                'SendKey(VK_L)
                'SendKey(VK_L)
                'SendKey(VK_O)

                AttachThreadInput(GetCurrentThreadId(), hNotePad, False)
            End If
        End If
        'End If
    End Sub
End Module

'VB.NET' 카테고리의 다른 글

VB.NET 이미지서치 ImageSearchDLL.dll  (1) 2021.03.16
VB.NET FindWindow, FindWindowEX API  (0) 2021.03.15
alert 없애기  (0) 2020.07.11
웹연동 소스  (0) 2020.07.11
유틸리티 Microsoft Spy++ V10.0 다운로드  (0) 2019.11.04
유틸리티 API뷰어(Winapi) 다운로드  (0) 2019.11.03
웹연동  (0) 2019.08.26
참조 추가 Management  (0) 2019.08.20
핸들값  (0) 2019.08.12
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11
Posted by 블로그(8109)
2019. 8. 26. 20:52

        WebBrowser1.Document.GetElementById("####").SetAttribute("value", "####")
        WebBrowser1.Document.GetElementById("####").InvokeMember("focus")
        WebBrowser1.Document.GetElementById("####").SetAttribute("value", "####")
        WebBrowser1.Document.GetElementById("####").InvokeMember("focus")

'VB.NET' 카테고리의 다른 글

VB.NET 이미지서치 ImageSearchDLL.dll  (1) 2021.03.16
VB.NET FindWindow, FindWindowEX API  (0) 2021.03.15
alert 없애기  (0) 2020.07.11
웹연동 소스  (0) 2020.07.11
유틸리티 Microsoft Spy++ V10.0 다운로드  (0) 2019.11.04
유틸리티 API뷰어(Winapi) 다운로드  (0) 2019.11.03
vb.net SendInput  (0) 2019.08.28
참조 추가 Management  (0) 2019.08.20
핸들값  (0) 2019.08.12
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11
Posted by 블로그(8109)
2019. 8. 20. 22:30

Imports System.Management

 

    Public Function hubeenGet(ByVal driveletter As String) As String
        Dim mobjSearcher As New ManagementObjectSearcher("SELECT VolumeSerialNumber FROM Win32_LogicalDisk WHERE Name = '" & driveletter & ":'")
        For Each obj As ManagementObject In mobjSearcher.Get
            Return obj("VolumeSerialNumber")
        Next
        Return -1
    End Function

 

 

MsgBox(hubeenGet("C"))

'VB.NET' 카테고리의 다른 글

VB.NET 이미지서치 ImageSearchDLL.dll  (1) 2021.03.16
VB.NET FindWindow, FindWindowEX API  (0) 2021.03.15
alert 없애기  (0) 2020.07.11
웹연동 소스  (0) 2020.07.11
유틸리티 Microsoft Spy++ V10.0 다운로드  (0) 2019.11.04
유틸리티 API뷰어(Winapi) 다운로드  (0) 2019.11.03
vb.net SendInput  (0) 2019.08.28
웹연동  (0) 2019.08.26
핸들값  (0) 2019.08.12
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11
Posted by 블로그(8109)
2019. 8. 12. 22:05

Imports System.Diagnostics

Public Class Form1
    Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Integer) As Integer
    Public Declare Function IsZoomed Lib "user32" (ByVal hwnd As Integer) As Integer


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim poc() As Process = Process.GetProcesses()
        Dim lResult As Integer
        For i As Integer = 0 To poc.Length - 1
            If poc(i).MainWindowTitle <> "" Then
                Try
                    lResult = IsWindowVisible(poc(i).MainWindowHandle) + IsZoomed(poc(i).MainWindowHandle)
                    If lResult > 0 Then
                        'If poc(i).MainWindowTitle = "캡션명" Then
                            ListBox1.Items.Add(poc(i).MainWindowHandle)
                        'End If
                    End If
                Catch ex As Exception
                    MsgBox(poc(i).ProcessName.ToString & " " & ex.Message)
                End Try
            End If
        Next

    End Sub
End Class

'VB.NET' 카테고리의 다른 글

VB.NET 이미지서치 ImageSearchDLL.dll  (1) 2021.03.16
VB.NET FindWindow, FindWindowEX API  (0) 2021.03.15
alert 없애기  (0) 2020.07.11
웹연동 소스  (0) 2020.07.11
유틸리티 Microsoft Spy++ V10.0 다운로드  (0) 2019.11.04
유틸리티 API뷰어(Winapi) 다운로드  (0) 2019.11.03
vb.net SendInput  (0) 2019.08.28
웹연동  (0) 2019.08.26
참조 추가 Management  (0) 2019.08.20
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11
Posted by 블로그(8109)
2019. 8. 11. 09:28

 

Private Function LparamToScreenPositionXY(ByVal X As Long, ByVal Y As Long) As Long
        LparamToScreenPositionXY = (Y And &HFFFF&) * &H10000 Or (X And &HFFFF&) 

' 좌표를 합친 롱 값을 만든다. 마우스 클릭 메시지 보낼때 필요한 좌표 정보를 만든다.
End Function

'VB.NET' 카테고리의 다른 글

VB.NET 이미지서치 ImageSearchDLL.dll  (1) 2021.03.16
VB.NET FindWindow, FindWindowEX API  (0) 2021.03.15
alert 없애기  (0) 2020.07.11
웹연동 소스  (0) 2020.07.11
유틸리티 Microsoft Spy++ V10.0 다운로드  (0) 2019.11.04
유틸리티 API뷰어(Winapi) 다운로드  (0) 2019.11.03
vb.net SendInput  (0) 2019.08.28
웹연동  (0) 2019.08.26
참조 추가 Management  (0) 2019.08.20
핸들값  (0) 2019.08.12
Posted by 블로그(8109)