vb 待機する サンプル

Option Explicit 'SampleNo=074　WindowsXP VB6.0(SP5) 2002.05.16
'既存のプロセスオブジェクトのハンドルを取得(P665)
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
'指定のプロセスの終了コードを取得（P660)
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long
'開かれているオブジェクトのハンドルを開放する（P1252)
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400&
Private Const STILL_ACTIVE = &H103&

Sub pcom()

Dim IDProcess As Long
Dim hProcess As Long
Dim ExitCode As Long
Dim ret As Long

IDProcess = Shell("パス\プログラム.exe")
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 1, IDProcess)
Do
ret = GetExitCodeProcess(hProcess, ExitCode)
DoEvents
Loop While (ExitCode = STILL_ACTIVE)
ret = CloseHandle(hProcess)

End Sub

firefoxのブックマークをfirefoxにインポートするには 移行

firefoxのツールバーから
ブックマーク－ブックマークの管理－ファイル－インポート－ファイルからインポートで
E:\Documents and Settings\ユーザー名\Application Data\Mozilla\Firefox\Profiles\xxxxxx.default\bookmarks.htmlを指定

レジストリ 隠しフォルダ 戻す

たぶん　

修正前　隠しフォルダが見れないｐｃのレジストリ
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"Hidden" = "2"
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"ShowSuperHidden" = "0"
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"NoDriveTypeAutoRun" = "145"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL\"CheckedValue" = "0"

修正後（なおす）私の隠しフォルダが見れる状態のレジストリ
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"Hidden" = "1"
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"ShowSuperHidden" = "1"
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"NoDriveTypeAutoRun" = "145"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL\"CheckedValue" = "1"

参考）Backdoor.Glupzy次のレジストリサブキー内の  *2012/1/19リンク先修正

1. 
   HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
   
   次のレジストリエントリを設定します。
   "NoFolderOptions" = "1"
   
   これにより、Windows Explorer 内の [Tools (ツール)] メニューから、[Folder Options (フォルダ オプション)] メニューアイテムを削除します。
   
2. 次のレジストリサブキー内の
   HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
   
   次のレジストリエントリを設定します。
   "HideFileExt" = "1"
   
   これにより、Windows Explorer 内でファイル拡張子を隠します。
   
3. 次のレジストリサブキー内の
   HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
   
   次のレジストリエントリを設定します。
   "Hidden" = "2"
   
   これにより、隠しフォルダおよびファイルを表示しないようにします。
   
4. 次のレジストリサブキー内の
   HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess
   
   次のレジストリエントリを設定します。
   "Start" = "4"
   
   これにより、Windows ネットワーク共有をストップします。

&H80004005(-2147467259)でこける

イベントログのアプリケーションを消去したら開くようになった
event log max
clear then run :-)

ログファイルのプロパティ設定について

から