• GZIP圧縮されたHTTPコンテンツを取得するためのVBSコード

    多くのウェブサイトでは、読み込み速度を向上させるために、HTTPサーバーのGZIP圧縮機能を有効にしています。クライアントから送信されたHTTPリクエストがGZIPエンコードを許容することを宣言すると、サーバーは自動的にHTTPレスポンスのコンテンツをGZIPで圧縮します。しかし、VBSでGZIPエンコードを自動的に解凍するのは、それほど簡単ではありません。 GZIP圧縮は、Msxml2.

    2022-02-08 11:32:42
  • ドットで終わるファイルの属性をvbsでhiddenに変更する。

    コアコードです。 rem Change the attribute of files ending in a dot to "hidden" @echo off set DstFile=C:\test\batcher. >"%temp%\FileProperty.vbs" echo Set objFSO = CreateObject("Scripting.FileSystemObje

    2022-02-08 11:26:48
  • VBSの基本 - ループ (for, do, while)

    コードを書くときに、あるコードを何度も実行したいことがよくありますが、そのためにコード内でループを使用することができます。 ループは、条件がFalseになる前に文を繰り返すもの、条件がTrueになる前に文を繰り返すもの、指定した回数だけ文を繰り返すものの3つに分類されます。 For... 次は ステートメントを何回繰り返すかをカウンタで指定する Do... ループ 条件が成立し

    2022-02-08 11:06:03
  • VBAでのタイマー関数の使用方法

    例1.40 タイマー関数 I. タイトル   あなたは、Timer関数を使って、このコードが実行されるのにかかる時間を計算するコードを書くように要求されています。 II. コード Sub Example_1_040() Dim t, i&, a t = Timer For i = 1 To 1000000 a = a + i Nex

    2022-02-08 10:43:54
  • 指定されたプロセス名の小さなVBSを終了させる

    指定したプロセス名を強制終了する小さなvbsです、お役に立てれば幸いです。 Function KillProc(strProcName) On Error Resume Next Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}! \\\. \root\cimv2") Set arrProc

    2022-02-08 10:31:48
  • VCで縦書き文字を実現する簡単な方法(推奨)

    VCで縦書き文字を実装するのは難しいと思われがちですが、"lying"フォントを使えば簡単に実装することができます。 Windowsには、@Fixedsys、@System、@Song、@Boldなど、"lie"するフォントが存在します。その数は多く、@のないフォントとの違いは、それで表示される文字が"lieing"であることだけです。 "lieingです。以下のようになります。

    2022-02-08 10:07:02
  • VBSでスペースを含むパスを解決する3つの方法

    方法1. Set wshell=CreateObject("WScript.Shell") wshell.Run """"C:\Program Files\360\360se\360se.exe"""",5,True Set wshell = Nothing 方法2 temp="C:\Program Files\360\360se3\360se.exe" path = Ch

    2022-02-08 08:55:28
  • Windows 64ビットOS上で32ビット版vbscriptを実行する方法

    今日、2008 r2 64ビットサーバーシステムで、vbsファイルを実行すると、次のようなメッセージが表示されました。 --------------------------- Windows Script Host --------------------------- Script: C:\Users\Administrator\Desktop\vbs_cf.vbs Lines: 10

    2022-02-08 08:22:06
  • DNSを変更し、IEの一時ファイルを空にするvbsスクリプト

    今朝、Mountain Green Instituteから電話があり、DNSをキャンパスDNSに変更し、IEの一時ファイルを空にするスクリプトが必要だと言われました。 コピーコード コードは以下の通りです。 rem programed by Kaisir @echo off echo The purpose of this script is to chang

    2022-02-08 07:54:35
  • ディスクの種類を判別し、ハードディスクの残量を検出するvbs実装コード

    コアとなるコードです。 Function ShowDriveType(drvpath) Dim fso, d, t Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvpath)) Select Case d.DriveType Ca

    2022-02-08 06:54:49
  • VBSのRunとExecの違い

    Set ws = CreateObject("WScript.Shell") 'Create an object reference here to be used in the following example code. 'Demon's note: Why is this variable name so obscene (WS) 構文です。(常識(鬼注:常識は好きな言葉です):

    2022-02-08 06:39:14
  • VBSの基本 - vbscriptキュー

    コード例 スクリプトファイル:c.vbs キューの要素追加(in)、要素削除(out)、トラバース、要素数、emptyを含む 'Create a queue Dim Que : Set Que = CreateObject("System.Collections.Queue") Que.EnQueue("Element1") Que.EnQueue("Element2") Que.

    2022-02-08 06:36:04
  • VBSがWMIを呼び出してハードディスクのファイルをトラバースしてカウントする

    何年か前に、WMIを呼び出してハードディスクのファイルを反復してカウントするVBS関数を書いたのですが、今日、それをWebサイトで見て投稿してみました コアとなるコード Function wmisfile(path_sf,justcnt) 'On Error Resume Next StrComputer = ". " Set ObjWMIService = GetObj

    2022-02-08 06:14:06
  • VBSの基本 - vbscriptスタック

    コード例 スクリプトファイル:d.vbs 要素追加(スタック)、要素削除(スタック)、トラバース、要素数カウント、エンプティ(空)のスタックが含まれています。 Option Explicit 'Create the stack Dim Stk : Set Stk = CreateObject("System.Collections.Stack") Stk.Push "Elemen

    2022-02-08 04:24:08
  • VBSの基本 - 条件付き文(IfとSelect Case)

    If ... Then ... Else 次のような場合、If... を使用することができます。.Then... Else ステートメントを使用します。 条件が真のとき、コードの一部を実行する 2つのコードのうち1つが実行対象として選択された場合 dim a 'Define a variable a = 100 if a < 200 then a = 300

    2022-02-08 03:33:30
  • コンピュータのオン/オフ時間を問い合わせるためのvbsコード

    コアとなるコードです。 strComputer = ". " Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}! \\\" _ & strComputer & "\root\cimv2") Set colLoggedEvents = objWMIServic

    2022-02-08 02:56:22
  • VBScriptにおけるOn Error文の使用法まとめ

    On Errorステートメントを使用しない場合、実行時エラーはすべて致命的なものとなります。エラーハンドラとは、On Errorステートメントによって開かれたハンドラで、quot;active"エラーハンドラとは、エラー処理中に許可されたエラーハンドラのことです。 On Error GoTo 0 現在のプロセスで開始されたすべてのエラーハンドラが無効であることを示す。&nbsp

    2022-02-08 02:31:32
  • vbscript Webページシミュレートログイン効果コード

    今日はもうやることがないんだ〜。 パソコンのブラウザーのパスワード記憶機能が痛くて~、うまく機能しないときがあって~、CMCC-EDUにログインするときはいつもアカウントを入力しないといけない。ログインページのソースコードを見ていると、Vbsスクリプトで設定ファイルを読み込んで、CMCC-EDU本体にログインするだけ。アカウントは1行、パスワードは1行です。 久しぶりにvbsを使ったので

    2022-02-08 01:51:45
  • ホストファイルのドメインアドレスの内容を削除するためにvbsを使用します。

    要件 元のホストに次の3行が追加されています。 202.102.101.105 intranet.corp 202.102.101.107 mail.intranet.corp 202.102.101.108 sip.intranet.corp この3行はその後不要になるので、上記のvbsコードを実行して、hostファイルからこの3行を削除してください。 'This s

    2022-02-08 01:45:19
  • ComboBoxコントロールの使用方法に関するチュートリアル

    先ほどListBoxコントロールの使い方を学びましたが、vb.netにはListBoxコントロールとよく似たコントロールがもう一つあります - ComboBoxコントロール、別名コンボボックスとも呼ばれます。ComboBoxコントロールは、上部のリスト項目を入力するテキストボックスと、テキストボックスの下にある、選択可能な項目リストを表示するリストボックスの2つの部分から構成されています

    2022-02-08 01:19:15