・15型 XGA アナログ入力対応
・17型 SXGA デジタル/アナログ入力対応
のように記載されてる場合があります。

「画面解像度」
呼称　　                解像度(横×縦)    画素数 
QVGA (Quarter-VGA)　      320×  240        76,800ピクセル 
CGA　　　　　　　　　     640×  240       153,600ピクセル 
VGA　　　　　　　　       640×  480       307,200ピクセル 
SVGA (Super-VGA)          800×  600       480,000ピクセル 
XGA                     1,024×  768       786,432ピクセル 
Quad-VGA                1,280×  960     1,228,800ピクセル 
SXGA (Super-XGA)        1,280×1,024     1,310,720ピクセル 
SXGA+                   1,400×1,050     1,470,000ピクセル 
UXGA (Ultra-XGA)        1,600×1,200     1,920,000ピクセル 
QXGA (Quad-XGA)         2,048×1,536     3,145,728ピクセル 
QUXGA (Quad-Ultra-XGA)  3,200×2,400     7,680,000ピクセル 
QUXGA Wide              3,840×2,400     9,216,000ピクセル 
 
参考までに
http://e-words.jp/p/r-screensize.html

E-Mail

Set UserWrap1 = CreateObject("DynamicWrapper")
Set UserWrap2 = CreateObject("DynamicWrapper")
UserWrap1.Register "findwin.dll", "FindWinEx", "i=lssss", "f=s", "r=l"
UserWrap2.Register "user32.dll", "MoveWindow", "i=llllll", "f=s", "r=l"

For Each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("SELECT * FROM Win32_Process WHERE NAME='kiri9.exe'")
    Call WaitExitKiri()
Next
msgbox "End!!!"
WScript.Quit

Sub WaitExitKiri()
    Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator")
                                                'SWbemLocatorオブジェクト作成
    Set oService = Locator.ConnectServer        'SWbemServicesオブジェクト取得

    On Error Resume Next                        'ここからエラー処理を有効に。
    Set oEvent = oService.ExecNotificationQuery _
                ("select * from __InstanceDeletionEvent within 1 " & _
                "where targetinstance isa 'Win32_Process' " & _
                "and targetinstance.Name = 'kiri9.exe' ")

    'イベントクラス(__InstanceDeletionEventクラス。
    'インスタンスの削除イベント)の作成。
    'within 1 …該当イベントを1秒間隔でポーリング
    'where targetinstance isa 'Win32_Process' …Win32_Processクラスのインスタンスを監視対象にする
    'targetinstance.Name = 'kiri9.exe' …インスタンス名が、kiri9.exeであるものを選ぶ

    Do
        WScript.Sleep 100                       'ループをまわしとく。100msec 待つ。

                                                '表引きウィンドウの存在チェック
        hWnd = UserWrap1.FindWinEx (0, "KiriPopupFrame", "", "Static", "複写する値を選んでください")
        If hWnd And ( hWnd <> hWndOld ) Then    '表引きウィンドウが存在し新規のウィンドウの場合。
            UserWrap2.MoveWindow hWnd , 0 , 0 , 800 , 1000 , 1
        End If
        hWndOld = hWnd

        Set oEvt = oEvent.NextEvent(500)
                                                'SWbemEventSourceオブジェクトのNextEventメソッド。
                                                '500msecでタイムアウトする。
        If Err.Number = -2147209215 Then        'タイムアウトすると、上記のエラー発生。
            Err.Clear
        Else                                    'エラーが発生しない場合は、正常に終了したということとなる。
            'MsgBox oEvt.TargetInstance.ExecutablePath & "が終了しました。"
                                                'SWemObject(__InstanceDeletionEventクラス)のTargetInstanceプロパティ
                                                'は、ターゲットインスタンスを返す。この場合はWin32_Processクラスのインスタンス。
             Exit Do
        End If
    Loop
End Sub

E-Mail

E-Mail

Set UserWrap1 = CreateObject("DynamicWrapper")
Set UserWrap2 = CreateObject("DynamicWrapper")
Set UserWrap3 = CreateObject("DynamicWrapper")
Set UserWrap4 = CreateObject("DynamicWrapper")

UserWrap1.Register "findwin.dll", "FindChildWin", "i=ssss", "f=s", "r=l"
UserWrap2.Register "user32.dll", "GetWindowLong", "i=ll", "r=l"
UserWrap3.Register "user32.dll", "FindWindowA", "i=ss", "r=l"
UserWrap4.Register "user32.dll", "PostMessageA", "i=huuu", "f=s", "r=l"

hWnd = UserWrap1.FindChildWin ("Kiri9", "", "msctls_statusbar32", "")
nIndex = UserWrap2.GetWindowLong (hWnd, -16)
If (nIndex And &H10000000) Then
  hWnd = UserWrap3.FindWindowA ("Kiri9", vbNullString)
  Ret = UserWrap4.PostMessageA (hWnd, &H0111, 59393, 0)
End If