fornext1119

use Win32::OLE;
 
use constant AcOutputReport => 3;
use constant AcViewPreview  => 2;
use constant AcFormatXLS    => "Microsoft Excel (*.xls)";
use constant AcFormatRTF    => "Rich Text Format (*.rtf)";
use constant AcFormatSNP    => "Snapshot Format (*.snp)";
use constant AcFormatHTML   => "HTML (*.html)";

Win32::OLE::CreateObject("Access.Application", $acApp);

fornext1119

# coding: Shift_JIS
import win32api, win32con, win32com, win32com.client, os, time, sys
 
acOutputReport = 3
acViewPreview  = 2
acFormatXLS    = "Microsoft Excel (*.xls)"
acFormatRTF    = "Rich Text Format (*.rtf)"
acFormatSNP    = "Snapshot Format (*.snp)"
acFormatHTML   = "HTML (*.html)"

fornext1119

require 'win32ole'

AcOutputReport = 3
AcViewPreview  = 2
AcFormatXLS    = "Microsoft Excel (*.xls)"
AcFormatRTF    = "Rich Text Format (*.rtf)"
AcFormatSNP    = "Snapshot Format (*.snp)"
AcFormatHTML   = "HTML (*.html)"

acApp = WIN32OLE.new('Access.Application')

fornext1119

Option Explicit

Const acOutputReport = 3
Const acViewPreview  = 2
Const acFormatXLS    = "Microsoft Excel (*.xls)"
Const acFormatRTF    = "Rich Text Format (*.rtf)"
Const acFormatSNP    = "Snapshot Format (*.snp)"
Const acFormatHTML   = "HTML (*.html)"

Dim acApp: Set acApp = CreateObject("Access.Application")

fornext1119

$ie              = New-Object -ComObject internetexplorer.application
$ie.Visible      = $true
$ie.Toolbar      = $true
$ie.MenuBar      = $true
$ie.AddressBar   = $true
$ie.StatusBar    = $true

#ログオン画面
$ie.Navigate('http://192.168.1.1/zzzz.asp')
while($ie.busy -or $ie.readystate -ne 4)

fornext1119

var ie          = WScript.CreateObject("InternetExplorer.Application");
ie.Visible      = true;
ie.Toolbar      = true;
ie.MenuBar      = true;
ie.AddressBar   = true;
ie.StatusBar    = true;

//ログオン画面
ie.Navigate("http://192.168.1.1/zzzz.asp");
while (ie.Busy || ie.readystate != 4)

fornext1119

# coding: Shift_JIS
import win32api, win32con, win32com, win32com.client, os, time, sys

ie              = win32com.client.Dispatch("InternetExplorer.Application") 
ie.Visible      = True
ie.ToolBar      = True
ie.MenuBar      = True
ie.AddressBar   = True
ie.StatusBar    = True

fornext1119

require 'win32ole'

ie              = WIN32OLE.new('InternetExplorer.Application')
ie.Visible      = true
ie.Toolbar      = true
ie.MenuBar      = true
ie.AddressBar   = true
ie.StatusBar    = true

#ログオン画面

fornext1119

<?php
$ie = new COM('InternetExplorer.Application');

$ie->Visible    = true;
$ie->ToolBar    = true;
$ie->MenuBar    = true;
$ie->AddressBar = true;
$ie->StatusBar  = true;

#ログオン画面

fornext1119

use strict;
use warnings;
use Win32::OLE;

my $ie = Win32::OLE->new('InternetExplorer.Application');

$ie->{Visible}      = 1;
$ie->{ToolBar}      = 1;
$ie->{MenuBar}      = 1;
$ie->{AddressBar}   = 1;