AMD

ASUS EX A320M-GAMING 정보

 

 

■ 스펙 정보■

http://shop.danawa.com/pc/?controller=estimateDeal&methods=productInformation&productSeq=6051885

 

샵다나와 : 조립PC의 모든 것

샵다나와는 코스닥 상장기업 '다나와'가 운영하는 공식쇼핑몰 입니다.

shop.danawa.com

 

■상품 정보

https://coupa.ng/bjGhIy

 

■기타 정보

https://www.asus.com/kr/Motherboards/EX-A320M-GAMING/

 

EX-A320M-GAMING | 메인보드 | ASUS 한국

AMD A320, AM4 소켓 기반의 메인보드로 AURA Sync, 항습 코팅, USBGuard, 금도금 x16 PCIe 슬롯, LAN Port, 8핀 전원를 지원하는 Micro-ATX 플랫폼

www.asus.com

https://www.youtube.com/watch?v=7GBINtXaook

 

'IT' 카테고리의 다른 글

ASUS EX A320M-GAMING 정보  (0) 2019.11.05
AMD 라이젠 5 2600 피나클 정보  (0) 2019.11.04
AMD 라이젠 5 3500X 마티스 정보  (0) 2019.11.03

AMD 라이젠 5 2600 피나클 정보

 

 

■ 스펙 정보■

CPU 코어 수 : 6

스레드 수 : 12

기본 클럭 : 3.3GHz

최대 부스트 클럭 : 최대 3.9GHz

 

■상품 정보

https://coupa.ng/bjFjG4

https://coupa.ng/bjFjUl

 

■기타 정보

https://www.cpubenchmark.net/high_end_cpus.html

 

PassMark Intel vs AMD CPU Benchmarks - High End

This chart comparing high end CPUs is made using thousands of PerformanceTest benchmark results and is updated daily. These are the high end AMD and Intel CPUs are typically those found in newer computers. The chart below compares the performance of Intel

www.cpubenchmark.net

https://www.amd.com/ko/products/cpu/amd-ryzen-5-2600

불러오는 중입니다...

 

'IT' 카테고리의 다른 글

ASUS EX A320M-GAMING 정보  (0) 2019.11.05
AMD 라이젠 5 2600 피나클 정보  (0) 2019.11.04
AMD 라이젠 5 3500X 마티스 정보  (0) 2019.11.03

유틸리티 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' 카테고리의 다른 글

유틸리티 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
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11

AMD 라이젠 5 3500X 마티스

■ 스펙 정보■

CPU 코어 수 : 6

스레드 수 : 6

기본 클럭 : 3.6GHz

최대 부스트 클럭 : 최대 4.1GHz

총 L1 캐시 : 384KB

총 L2 캐시 : 3MB

 

■상품 정보

https://coupa.ng/bjEbAf

https://coupa.ng/bjEbz2

 

■기타 정보

https://www.amd.com/ko/products/cpu/amd-ryzen-5-3500x

 

'IT' 카테고리의 다른 글

ASUS EX A320M-GAMING 정보  (0) 2019.11.05
AMD 라이젠 5 2600 피나클 정보  (0) 2019.11.04
AMD 라이젠 5 3500X 마티스 정보  (0) 2019.11.03

유틸리티 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' 카테고리의 다른 글

유틸리티 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
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11

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' 카테고리의 다른 글

유틸리티 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
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11

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

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

유틸리티 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
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11

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' 카테고리의 다른 글

유틸리티 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
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11

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' 카테고리의 다른 글

유틸리티 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
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11

 

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' 카테고리의 다른 글

유틸리티 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
좌표를 합친 롱 값을 만든다.  (0) 2019.08.11

+ Recent posts