VNote - VB.NET : Microsoft Visual Studio

My.Computer.Registry - 레지스트리 등록

VNote — Wed, 03 May 2023 16:26:26 +0900

If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Power\PowerSettings", "ActivePowerScheme", Nothing) Is Nothing Then My.Computer.Registry.CurrentUser.CreateSubKey("PowerSettings") My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Power\PowerSettings", "ActivePowerScheme", "8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c") End If

SendKeys 사용시 한글전송 문제 해결방법

VNote — Sat, 25 Feb 2023 09:15:40 +0900

Appium + Win App Driver (WAD) SendKeys 사용시 Unknown server-side error 1. Windows 설정 -> 시간 및 언어 -> 언어 -> 기본 설정 언어 -> 기본 설정 언어 추가하기 -> English 2. 상태표시줄에서 입력 언어를 ENG 로 설정 *ENG 로 선택해도, SendKeys 에서 한글 입력은 정상적으로 동작한다.

SendKeys.Send함수에 들어가는 키값

VNote — Tue, 14 Feb 2023 16:02:19 +0900

Key 코드 백스페이스 {BACKSPACE} {BS} 또는 {BKSP} BREAK {BREAK} CAPS LOCK {CAPSLOCK} DEL 또는 삭제 {DELETE} 또는 {DEL} 아래쪽 화살표 {DOWN} END {END} ENTER {ENTER} 또는 ~ Esc 키 {ESC} 도움말 {HELP} 홈 {HOME} INS 또는 INSERT {INSERT} or {INS} 왼쪽 화살표 {LEFT} NUM LOCK {NUMLOCK} Page Down {PGDN} Page Up {PGUP} 화면 인쇄 {PRTSC} (나중에 사용할 예약 됨). 오른쪽 화살표 {RIGHT} 스크롤 잠금 {SCROLLLOCK} ...

vb.net folder name get

VNote — Tue, 24 May 2022 06:59:59 +0900

C:\Windows\SysWOW64 1. Dim split As String() = filePath.Split("\") Dim parentFolder As String = split(split.Length - 1) parentFolder = SysWOW64 2. Dim filePath As String = "C:\Windows\SysWOW64" Dim directory As String = Path.GetFileName(filePath) directory = SysWOW64

ftp file upload,download,delete,rename

VNote — Tue, 17 May 2022 07:19:08 +0900

Imports System.Net Imports System.IO Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim wrUpload As FtpWebRequest = DirectCast(WebRequest.Create _ ("ftp://ftp.test.com/file.txt"), FtpWebRequest) 'Specify Username & Password' wrUpload.Credentials = New NetworkCredential("user", _ "password") 'Start Upload Process' wrUpload.Method = ...

ftp file upload download

VNote — Tue, 17 May 2022 07:11:04 +0900

listbox line spacing

VNote — Sun, 15 May 2022 07:34:35 +0900

Spacing: listBox1.ItemSpacing = 10; Indenting each string horizontally: listBox1.ItemFormatStyle.Margin = new Padding(5, 10, 2, 2); listBox1.ItemFormatStyle.Padding = new Padding(7);

키보드 마우스 유휴 상태 체크 / keyboard mouse idle time

VNote — Mon, 09 May 2022 12:39:42 +0900

Option Strict On Option Explicit On Imports System.Runtime.InteropServices Public Class Form1 Private Declare Function GetLastInputInfo Lib "user32.dll" _ (ByRef plii As PLASTINPUTINFO) As Boolean Private Structure PLASTINPUTINFO Dim cbSize As Integer Dim dwTime As Integer End Structure Private Declare Function SystemParametersInfo Lib "user32" _ Alias "SystemParametersInfoA" (ByVal uAction As Inte...

폴더 권한 가져오기

VNote — Thu, 28 Apr 2022 16:36:17 +0900

Dim fileSec = System.IO.File.GetAccessControl("폴더", Security.AccessControl.AccessControlSections.Access) Dim accessRules = fileSec.GetAccessRules(True, True, GetType(System.Security.Principal.NTAccount)) For Each rule As System.Security.AccessControl.FileSystemAccessRule In accessRules MsgBox(rule.IdentityReference.Value) MsgBox(rule.AccessControlType.ToString()) MsgBox(rule.FileSystemRights.ToSt...

실행중인 프로세스 가져오기

VNote — Thu, 28 Apr 2022 15:08:01 +0900

Imports System.Diagnostics Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim plist() As Process = Process.GetProcesses() For Each prs As Process In plist ListBox1.Items.Add(prs.ProcessName + " (" + prs.PrivateMemorySize64.ToString() + ")") 'ListBox1.Items.Add(prs.MainWindowTitle + " / (" + prs.PrivateMemorySize64.ToStr...

열려 있는 폴더 종료 open folder CLOSE

VNote — Tue, 26 Apr 2022 09:04:14 +0900

열려 있는 폴더 종료 Imports System.Runtime.InteropServices Imports System.Text Public Class Form1 Public Const WM_CLOSE As Integer = &H10 _ Private Shared Function FindWindowExW(ByVal hwndParent As IntPtr, ByVal hwndChildAfter As IntPtr, ByVal lpszClass As String,

VB.NET 경로에서 확장자알아내기, 확장자 없이 파일이름만 알아내기, 경로만 알아내기, 파일이름만 알아내기

VNote — Thu, 17 Mar 2022 09:22:34 +0900

VB.NET에서 파일 경로가 하나 있다고 가정하에 IO.PATH 클래스에서 여러가지를 알아낼 수 있다. "C:\WorkSpace\N빵계산기v1.0.xlsm" VB.NET 경로에서 확장자 알아내기 Console.WriteLine("GetExtension : {0}", IO.Path.GetExtension(path)) VB.NET 경로에서 확장자 없이 파일 이름만 가져오기 Console.WriteLine("GetFileNameWithoutExtension : {0}", IO.Path.GetFileNameWithoutExtension(path)) VB.NET 경로에서 확장자 포함한 ...

vb.net ipvp4 get / ip가져오기

VNote — Wed, 16 Feb 2022 17:01:08 +0900

Private Function GetIPv4Address() As String GetIPv4Address = String.Empty Dim strHostName As String = System.Net.Dns.GetHostName() Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName) For Each ipheal As System.Net.IPAddress In iphe.AddressList If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then GetIPv4Address = ipheal.ToString() End If Next End Func...

vb.net administrator privileges

VNote — Wed, 16 Feb 2022 05:46:43 +0900

You can edit the UAC Settings (in VB 2008) which is located in the Project Settings. Look for the line that says Change level="asInvoker" to level="asInvoker" (same access token as the parent process) level="requireAdministrator" (require full administrator) level="highestAvailable" (highest privileges available to the current user)

vb.net txt파일 한글깨짐

VNote — Mon, 14 Feb 2022 06:51:50 +0900

생성시 Dim f As New System.IO.StreamWriter("xxx.txt", True, System.Text.Encoding.GetEncoding("euc-kr")) 읽을때 Dim Lines() As String = IO.File.ReadAllLines("xxx.txt",, System.Text.Encoding.Default)