WHS で Win APIが使える DynamicWrapper

Windows Scripting Host 上で Windows API が使えるようになる Dynamic Wrapper というのを使ってみました

リンク元が切れてるので、 dynawrapNt.zip で探してみてね

Dim objDynaWrap
Dim hWnd
Dim CC
Set objDynaWrap = CreateObject("DynamicWrapper")
objDynaWrap.Register "USER32.DLL", "FindWindow", "i=sl", "f=s", "r=h"
objDynaWrap.Register "USER32.DLL", "FindWindowEx", "i=hhsl", "f=s", "r=h"

hWnd = objDynaWrap.FindWindow("IEFrame", 0)
If hWnd = 0 Then
   WScript.Echo  "IE 動いてないよ"
Else
  CC=0
  DO UNTIL hWnd = 0
    CC = CC + 1
    hWnd = objDynaWrap.FindWindowEx(0,hWnd,"IEFrame", 0)
  Loop
  WScript.Echo  "IEが" & CC & "個動いているよ"
End If

サンプルコード、 WHS で FindWindow が使える

readme.txt に詳しく書いてるけど、
i= が引数の型宣言
f= が関数呼び出し規約
r= が返り値の型 だよ

whs

おすすめ

コメントを残す

メールアドレスが公開されることはありません。 ※ が付いている欄は必須項目です