Skip to content

Instantly share code, notes, and snippets.

View Module1.bas
Option Explicit
Private Declare PtrSafe _
Function SHGetDesktopFolder Lib "Shell32.dll" ( _
ByRef ppshf As IUnknown) As Long
Private Declare PtrSafe _
Function SHInvokeDefaultCommand Lib "shlwapi.dll" Alias "#279" ( _
ByVal hWnd As LongPtr, _
View Module1.bas
Option Explicit
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
'https://msdn.microsoft.com/en-us/library/52e6es3z.aspx
View Module1.bas
Option Explicit
Private Declare PtrSafe _
Function IUnknown_GetWindow Lib "shlwapi.dll" ( _
ByVal punk As IUnknown, _
ByRef phwnd As LongPtr _
) As Long
Const WM_LBUTTONDOWN = &H201
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
View UserForm1.frm
Option Explicit
Private Declare Function WindowFromAccessibleObject Lib "oleacc.dll" ( _
ByVal IAcessible As Object, _
ByRef hwnd As LongPtr _
) As Long
Private Declare _
Function SetWindowLongW Lib "user32.dll" ( _
ByVal hwnd As LongPtr, _
@kumatti1
kumatti1 / Module1.bas
Last active Dec 11, 2016
「shlwapi.dll」の無名関数
View Module1.bas
574F454D 0
1 4
0 8
0 12
C0 16
46000000 20
0 24
5 28
1DD0078E 32
E8E390A5 36
View Module1.bas
Option Explicit
Private Declare PtrSafe _
Function AtlFreeMarshalStream Lib "atl.dll" ( _
ByVal pStream As IUnknown _
) As Long
Sub hoge()
@kumatti1
kumatti1 / hoge.cpp
Created Mar 2, 2016
( ゚∀゚)o彡゜ワッフル!ワッフル!
View hoge.cpp
#include <windows.h>
#include <oleacc.h>
#include <Shlwapi.h>
#include <stdio.h>
#import <shdocvw.dll>
#import <mshtml.tlb>
typedef enum {
SWC_EXPLORER = 0x0,
View Module1.bas
Option Explicit
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
@kumatti1
kumatti1 / Module1.bas
Last active Jan 8, 2021
試行錯誤中
View Module1.bas
Option Explicit
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
@kumatti1
kumatti1 / Module1.bas
Last active Jan 8, 2021
WinHttpとIPersistStreamInit
View Module1.bas
Option Explicit
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type