kumatti1

#define UNICODE
#include <windows.h>
#include <stdio.h>

DWORD OldProtect;
BYTE tmp[6];
BYTE ByteAsm[6];
DWORD * pFunc;

kumatti1

//#define CINTERFACE
#include <exdisp.h>
#include <windows.h>
#include <Objbase.h>
#include <Shlwapi.h>


void hoge()
{
	IShellWindows *psw;

kumatti1

#include <windows.h>

void WINAPI hoge();
FARPROC func = (FARPROC)&hoge;

int CALLBACK WinMain(
  _In_ HINSTANCE hInstance,
  _In_ HINSTANCE hPrevInstance,
  _In_ LPSTR     lpCmdLine,
  _In_ int       nCmdShow

kumatti1

'目的の要素を選択
Sub Main()
    Application.OnTime Now + TimeSerial(0, 0, 2), "GetSub"
End Sub

kumatti1

Option Explicit

Private Declare Function OutputDebugStringW Lib "kernel32.dll" (ByVal lpOutputString As LongPtr) As LongPtr

Sub hoge()

    Dim ret As LongPtr
    ret = OutputDebugStringW(StrPtr("あいうえお"))
    MsgBox ret

kumatti1

Private Declare PtrSafe _
Function InitVariantFromVariantArrayElem Lib "Propsys" ( _
        ByRef varIn As Any, _
        ByVal iElem As Long, _
        ByRef pvar As Variant _
) As Long

Sub hoge()

    Dim hr&

kumatti1

Private Declare PtrSafe _
Function InitVariantFromInt32Array Lib "Propsys" ( _
        ByRef prgn As Any, _
        ByVal cElems As Long, _
        ByRef pvar As Variant _
) As Long

Sub hoge()

    Dim hr&

kumatti1

Option Explicit


Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

kumatti1

Option Explicit


Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

kumatti1

Option Explicit


Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type