2014年05月22日


VBScript : 10秒毎に処理を実行する( 時刻指定も可能 )

コマンドプロンプトで実行しておいて、終了はコマンドプロンプトを閉じます。実行される処理は、非同期では無いので外部のスクリプトをプロセスとして実行するといいでしょう。どうしても、同一スクリプト内で実行したい場合は、Cron の代替え : VBScript でタイマー処理 を参照して下さい
' このセクションは、cscript.exe で処理を強制させるものです
str = WScript.FullName
str = Right( str, 11 )
str = Ucase( str )
if str <> "CSCRIPT.EXE" then
	str = WScript.ScriptFullName
	Set WshShell = CreateObject( "WScript.Shell" )
	Call WshShell.Run( "cmd.exe /c cscript.exe """ & str & """ & pause", 3 )
	WScript.Quit
end if

Set obj = GetObject("winmgmts:\\.\root\cimv2")
Set objMonitor = obj.ExecNotificationQuery( _
	"select * from __InstanceModificationEvent " & _
	"where TargetInstance isa 'Win32_LocalTime' " & _
	" and (TargetInstance.Second = 0" & _
	" or TargetInstance.Second = 10" & _
	" or TargetInstance.Second = 20" & _
	" or TargetInstance.Second = 30" & _
	" or TargetInstance.Second = 40" & _
	" or TargetInstance.Second = 50)" _
)

Do


	Set objLatestEvent = objMonitor.NextEvent 

	' ここに処理を記述
	Wscript.Echo Now()

Loop

以下のプロパティが使用できます
class Win32_LocalTime : Win32_CurrentTime
{
  uint32 Day;
  uint32 DayOfWeek;
  uint32 Hour;
  uint32 Milliseconds;
  uint32 Minute;
  uint32 Month;
  uint32 Quarter;
  uint32 Second;
  uint32 WeekInMonth;
  uint32 Year;
};





タグ:VBScript WMI
posted by at 2014-05-22 20:40 | WMI | このブログの読者になる | 更新情報をチェックする

2012年04月27日


Seesaa のアクセス解析ページからアクセス数と訪問者数を取得する : Ruby+Mechanize

先にログインを済ませておいてから実行します。

# **********************************************************
# Seesaa アクセス解析処理
# $agent はグローバル変数
# **********************************************************
def seesaaAction(blog_id,blog_nm,opt) 

	# ブログ選択
	page = $agent.get($seesaa_select_blog + blog_id)
	# アクセス解析デフォルトページ( ページ別 )
	page = $agent.get($seesaa_access_default)

	# アクセス数と訪問者数を取得
	/top_total right">(.+?)<\/td>.+top_total right">(.+?)</m =~ page.body
	$ucnt = $2
	$vcnt = $1

	print blog_nm + "   " +  $ucnt + "/" + $vcnt + "<br>\n"

end

関連する記事

Seesaa のブログ設定の『最新の情報に更新』を実行する Ruby のコード


posted by at 2012-04-27 19:53 | Ruby | このブログの読者になる | 更新情報をチェックする

Seesaa へのログイン / Ruby+Mechanize

この後、必要なページへ移動してユーザー操作を実行させます。
#!/usr/local/bin/ruby
print "Content-type: text/html; Charset=utf-8\n\n"

# 標準エラー出力の出力先を標準出力に変更
$stderr = $stdout

require "cgi"
cgi = CGI.new

require 'uri'

ENV['GEM_HOME']="/home/lightbox/gems"
$LOAD_PATH.push('/home/lightbox/lib')

require 'rubygems'
require 'mechanize'

agent = WWW::Mechanize.new

agent.open_timeout = 600
agent.read_timeout = 600

#seesaa にログイン
page = agent.get("https://ssl.seesaa.jp/www/pages/welcome/login/input")
form = page.forms.first
form["member__email"] = "メールアドレス"
form["member__password"] = "パスワード"
form.submit

関連する記事

Seesaa のブログ設定の『最新の情報に更新』を実行する Ruby のコード




posted by at 2012-04-27 19:39 | Ruby | このブログの読者になる | 更新情報をチェックする
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。