VB.net106 투명을 위한 윈도우 API ''투명을 위한 윈도우 API이며 이것은 그냥 어디 메모해둬야함.''창을 투명하게 하여 최상단에 위치해도 클릭이 적용안되게 하는 API임''그냥 그렇게 쓴다고 메모해두자 다시 쓸일이 있을라나??Public NotInheritable Class WindowsServices Private Sub New() End Sub Const WS_EX_TRANSPARENT As Integer = &H20 Const GWL_EXSTYLE As Integer = (-20) _ Private Shared Function GetWindowLong(ByVal hwnd As IntPtr, ByVal index As Integer) As Integer End Function _ Private Shared Function SetWi.. 2018. 6. 21. Windows 잠금화면 변경 (Win7 - 64bit OS 적용 확인) #Region "잠금화면변경" Private Sub Button44_Click(sender As Object, e As EventArgs) Handles Button44.Click If Label1.Text = "본사" Then Dim D_day As Date = "2018-06-11" '만료되는 날짜 If D_day > Now Then Lock_Screen() Else UnLock_Screen() End If End If End Sub 'windows 32bit 프로그램을 이용하여 Windows 64bit OS에서 구동 시 Wow64 폴더가 아닌 system32를 사용하게 Declare Function Wow64DisableWow64FsRedirection Lib "kernel32.dll" (ByRef.. 2018. 6. 11. 64Bit OS에서 32Bit App으로 레지 리디렉션 시키지 않고 쓰기 Public Function WriteRegKey_64(ByVal KeyString As String, ByVal KeyName As String, ByVal KeyValue As Object) As Boolean Dim key As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64) Try key.CreateSubKey(KeyString).SetValue(KeyName, KeyValue) key.Close() Return True Catch Return False End Try End Function =====================================================.. 2018. 6. 11. Windows-64bit에 system32폴더를 wow64 폴더로 Redirection 방지 'windows 32bit 프로그램을 이용하여 Windows 64bit OS에서 구동 시 Wow64 폴더가 아닌 system32를 사용하게 [선언] Declare Function Wow64DisableWow64FsRedirection Lib "kernel32.dll" (ByRef ptr As IntPtr) As Boolean[사용] Wow64DisableWow64FsRedirection(True) ---------------------------------------------------------------------------------------------------------------------- [시스템 폴더] - 참고1. 개요[편집]Microsoft Windows, macOS, 리눅스와 같은.. 2018. 6. 8. 이전 1 ··· 11 12 13 14 15 16 17 ··· 27 다음