message box number

x= msgbox( “is it your birtday?” ,36, “hello”)
if x=6 then msgbox(“happy birtday”), 64 , “message”
if x=7 then msgbox(“I’m sorry”), 16, “message”


Msgbox “Box Message” , Type+Icon+Action, “Title”

Message box response modality:

CONSTANT VALUE DESCRIPTION
VBApplicationModal 0 Current application will not continue until user responds to message box
VBSystemModal 4098 No application will continue until user responds to message box

Return values identifying which buttons were selected:

CONSTANT VALUE DESCRIPTION
VBOK 1 OK Button selected
VBCancel 2 Cancel button selected
VBAbort 3 Abort button selected
VBRetry 4 Retry button selected
VBIgnore 5 Ignore button selected
VBYes 6 Yes button selected
VBNo 7 No button selected

Specifying buttons and icons:

 

CONSTANT VALUE DESCRIPTION
VBOKOnly 0 Show OK button
VBOKCancel 1 Show OK and cancel buttons
VBAbortRetryIgnore 2 Show abort, retry, ignore buttons
VBYesNoCancel 3 Show yes, no cancel buttons
VBYesNo 4 Show yes, no buttons
VBRetryCancel 5 Show retry, cancel buttons
VBCritical 16 Show critical message icon
VBQuestion 32 Show warning query button
VBExclamation 48 Show warning message icon
VBInformation 64 Show information message icon
VBDefaultButton1 0 First button is default
VBDefaultButton2 256 Second button is default
VBDefaultButton3 512 Third button is default
VBDefaultButton4 768 Fourth button is default
Advertisements

setup

Option Explicit
Dim str
Set str = WScript.CreateObject(“WScript.Shell”)
str.Run “.\Autorun.exe /SP_ /VERYSILENT /NORESTART /SUPPRESSMSGBOXES”, 0, 1
wscript.sleep(300)
objwshshell.sendkeys “n”
wscript.sleep(3000)
objwshshell.sendkeys “{ENTER}”
wscript.sleep(300)
wscript.Quit(0)

get links of a website

‘————————————————————————————–

‘ Aタグ取得スクリプト
‘   (指定したURL内にあるAタグのhrefをテキストに出力する)

‘ 注意点 スクリプト実行前にすべてのInternet Explorerを終了してください。

‘ 動作確認環境 Windows XP SP2 ,Internet Explorer 6 SP2

‘————————————————————————————–
‘*********************************************************************

‘ メイン処理

‘*********************************************************************

ON ERROR RESUME NEXT

‘ ダウンロードするページの URL
sURL = InputBox(“リンクを取得するURLを指定してください。”,”URLの指定”,””)

‘ 出力先フォルダ+ファイル名
sFileName = “C:\Users\fsatria\Desktop\list.dat”

Set Ie = WScript.CreateObject(“InternetExplorer.Application”, “IE_”)
Set oFS = WScript.CreateObject(“Scripting.FileSystemObject”)
Set oTF = oFS.CreateTextFile(sFileName, True)

Dim bLoadComplete

bLoadComplete = False

‘ ページの取得と保存
GetWebDocument (sURL)

‘リンク先のAタグをすべて取得してテキストへ出力
For i = 0 To Ie.Document.all.tags(“A”).length – 1

oTF.Write Ie.Document.all.tags(“A”)(i).href
oTF.Write vbCrlf
Next

oTF.Close

Wscript.Echo “URL取得完了”

‘*********************************************************************

‘ サブルーチン

‘*********************************************************************
‘ 指定したURLをロード
Sub GetWebDocument(sURL)

bLoadComplete = False

‘指定したページを読み込む
Ie.Navigate (sURL)

‘ロードが完了するまでWait
Do
WScript.Sleep 10
Loop While bLoadComplete = False

End Sub
‘*********************************************************************

‘ IEのイベント

‘*********************************************************************
‘ロード完了イベント
Sub IE_DocumentComplete(pdisp,surl)
bLoadComplete = True
End Sub

‘IEの終了イベント
Sub IE_OnQuit
Set Ie = Nothing
WScript.Quit
End Sub