YOUNG21975

資料來源:VB6 控制 IE 填入值及點擊按鈕

' 需引用 iframe.dll 元件
' 需引用 MSHTML.TLB 元件

Dim WithEvents IE As InternetExplorer
Dim Doc As HTMLDocument

Private Sub Command1_Click()
IENavigate "http://xxxxx"
End Sub

Private Sub Command2_Click()
IENavigate "http://www."
End Sub

Private Sub Command3_Click()
ObjSetValue "input",
"ctl00$TzuhuHolder$usridTxt", tb_usridTxt.Text
ObjSetValue "input",
"ctl00$TzuhuHolder$nameTxt", tb_nameTxt.Text
ObjSetValue "select",
"ctl00$TzuhuHolder$yearDDL", cb_yearDDL.Text
ObjSetValue "select",
"ctl00$TzuhuHolder$monthDDL", cb_monthDDL.Text
End Sub

' 建立IE及開啟某網頁
Sub IENavigate(URL As String)
If IE Is Nothing Then
Set IE = New InternetExplorer
IE.Visible = True
IE.Width = 1024 +
15
IE.Height = 640
IE.navigate URL
End Sub

' 在 IE 載入完成時，要做的事情
Private Sub IE_DocumentComplete(ByVal pDisp As Object,
URL As Variant)
Dim BObj As Object
Set BObj = Nothing
Set
Doc = IE.document
If UrlCheck(URL, "reminder.aspx") Then
Call
ButtonCheck("ctl00$TzuhuHolder$mybutton")
ElseIf UrlCheck(URL,
"declare.aspx") Then
ElseIf UrlCheck(URL, "process.aspx")
Then
ElseIf UrlCheck(URL, "index.aspx") Then
Call
ButtonCheck("ImageButton1")

End If
End Sub

' 控制改變某物件的值
Sub ObjSetValue(ObjTagName As String, ObjID As String,
ObjValue As String)
Dim I As Long, BObj As Object
Dim DocIB As
Object
Set BObj = Nothing
ObjTagName = LCase(ObjTagName)
Set DocIB = Doc.getElementsByTagName(ObjTagName)
For I = 0 To
DocIB.length - 1
If LCase(DocIB(I).id) = LCase(ObjID) Or
LCase(DocIB(I).Name) = LCase(ObjID) Then
Set BObj =
Doc.getElementById(ObjID)
Exit For
End If
Next
If
Not BObj Is Nothing Then
Select Case ObjTagName
Case "input",
"select"
BObj.Value = ObjValue
End Select
End If
End
Sub

' 控制點擊某按鈕 (Button) ( Click )
Function ButtonCheck(ObjID As String) As
Boolean
ButtonCheck = False
If Doc Is Nothing Then Exit
Function

Dim I As Long, BObj As Object
Dim DocIB As Object
Set BObj
= Nothing
Set DocIB = Doc.getElementsByTagName("input")
For I = 0
To DocIB.length - 1
If LCase(DocIB(I).id) = LCase(ObjID) Or
LCase(DocIB(I).Name) = LCase(ObjID) Then
Set BObj =
Doc.getElementById(ObjID)
Exit For
End If
Next

If Not BObj Is Nothing Then
BObj.disabled = False
BObj.Click
End If

End Function

Function UrlCheck(URL As Variant, ObjID As String) As Boolean
UrlCheck
= LCase(Right(URL, Len(ObjID))) = LCase(ObjID)
End Function

注意：choice命令為DOS或者Windows系統提供的外部命令，不同版本的choice命令語法會稍有不同，請用choice /?查看用法。

choice的命令語法（該語法為Windows 2003中choice命令的語法，其他版本的choice的命令語法與此大同小異）：

CHOICE [/C choices] [/N] [/CS] [/T timeout /D choice] [/M text]

描述:
該工具允許用戶從選擇列表選擇一個專案並返回所選項目的索引。

參數列表:
/C choices 指定要創建的選項列表。默認列表是 "YN"。

/N 在提示符中隱藏選項列表。提示前面的消息得到顯示，
選項依舊處於啟用狀態。

/CS 允許選擇分大小寫的選項。在默認情況下，這個工具
是不分大小寫的。

/T timeout 做出默認選擇之前，暫停的秒數。可接受的值是從 0
到 9999。如果指定了 0，就不會有暫停，默認選項
會得到選擇。

/D choice 在 nnnn 秒之後指定默認選項。字元必須在用 /C 選
項指定的一組選擇中; 同時，必須用 /T 指定 nnnn。

/M text 指定提示之前要顯示的消息。如果沒有指定，工具只
顯示提示。

/? 顯示幫助消息。

注意:
ERRORLEVEL 環境變數被設定為從選擇集選擇的鍵索引。列出的第一個選
擇返回 1，第二個選擇返回
2，等等。如果用戶按的鍵不是有效的選擇，
該工具會發出警告響聲。如果該工具檢測到錯誤狀態，它會返回 255 的
ERRORLEVEL
值。如果用戶按 Ctrl+Break 或 Ctrl+C 鍵，該工具會返回 0
的 ERRORLEVEL 值。在一個批程式中使用 ERRORLEVEL
參數時，將參數降
序排列。

示例:
CHOICE /?
CHOICE /C YNC /M "確認請按 Y，否請按 N，或者取消請按 C。"
CHOICE /T
10 /C ync /CS /D y
CHOICE /C ab /M "選項 1 請選擇 a，選項 2 請選擇 b。"
CHOICE /C ab
/N /M "選項 1 請選擇 a，選項 2 請選擇 b。"

==== willsort 編注 ===============================
我列出win98下choice的用法説明,
已資區分

Waits for the user to choose one of a set of choices.
等待用戶選擇一組待選字元中的一個

CHOICE [/C[:]choices] [/N] [/S] [/T[:]c,nn] [text]

/C[:]choices Specifies allowable keys. Default is YN
指定允許的按鍵(待選字元), 默認為YN
/N Do not display choices and ? at end of prompt string.
不顯示提示字串中的問號和待選字元
/S Treat choice keys as case sensitive.
處理待選字元時大小寫敏感
/T[:]c,nn Default choice to c after nn seconds
在 nn
秒後默認選擇 c
text Prompt string to display
要顯示的提示字串
ERRORLEVEL is set to
offset of key user presses in choices.
ERRORLEVEL 被設定為用戶鍵入的字元在待選字元中的偏移值
如果我執行命令：CHOICE /C YNC /M "確認請按 Y，否請按 N，或者取消請按 C。"
螢幕上會顯示：
確認請按 Y，否請按
N，或者取消請按 C。 [Y,N,C]?

例：test.bat的內容如下（注意，用if errorlevel判斷返回值時，要按返回值從高到低排列）:
@echo off
choice /C dme /M "defrag,mem,end"
if errorlevel 3 goto end
if
errorlevel 2 goto mem
if errorlevel 1 goto defrag

:defrag
c:\dos\defrag
goto end

:mem
mem
goto end

:end
echo good bye

此批次處理執行後，將顯示"defrag,mem,end[D,M,E]?" ，用戶可選擇d m e
，然後if語句根據用戶的選擇作出判斷，d表示執行標號為defrag的程式段，m表示執行標號為mem的程式段，e表示執行標號為end的程式段，每個程式段最後都以goto
end將程式跳到end標號處，然後程式將顯示good bye，批次處理執行結束。

四、for 迴圈命令，只要條件符合，它將多次執行同一命令。

語法：
對一組檔中的每一個檔執行某個特定命令。

FOR %%variable IN (set) DO command [command-parameters]

%%variable 指定一個單一字母可替換的參數。
(set) 指定一個或一組檔。可以使用通配符。
command
指定對每個檔執行的命令。
command-parameters
為特定命令指定參數或命令行開關。

例如一個批次檔案中有一行:
for %%c in (*.bat *.txt) do type %%c

則該命令行會顯示當前目錄下所有以bat和txt為副檔名的檔的內容。

==== willsort 編注 =====================================================
需要指出的是, 當()中的字串並非單個或多個檔案名時, 它將單純被當作字串替換, 這個特性再加上()中可以嵌入多個字串的特性, 很明顯 for
可以被看作一種遍曆型迴圈.
當然, 在 nt/2000/xp/2003 系列的命令行環境中, for 被賦予了更多的特性,
使之可以分析命令輸出或者檔中的字串, 也有很多開關被用於擴展了檔替換功能.
========================================================================

批次處理示例

1. IF-EXIST

1) 首先用記事本在C:\建立一個test1.bat批次檔案，檔內容如下：
@echo off
IF EXIST
\AUTOEXEC.BAT TYPE \AUTOEXEC.BAT
IF NOT EXIST \AUTOEXEC.BAT ECHO
\AUTOEXEC.BAT does not exist

然後執行它：
C:\>TEST1.BAT

如果C:\存在AUTOEXEC.BAT檔，那麼它的內容就會被顯示出來，如果不存在，批次處理就會提示你該檔不存在。

2) 接著再建立一個test2.bat檔，內容如下：
@ECHO OFF
IF EXIST \%1 TYPE \%1
IF NOT
EXIST \%1 ECHO \%1 does not exist

執行:
C:\>TEST2 AUTOEXEC.BAT
該命令執行結果同上。

說明：
(1) IF EXIST 是用來測試檔是否存在的，格式為
IF EXIST [路徑+檔案名] 命令
(2)
test2.bat檔中的%1是參數，DOS允許傳遞9個批參數資訊給批次檔案，分別為%1~%9(%0表示test2命令本身)
，這有點象編程中的實參和形參的關係，%1是形參，AUTOEXEC.BAT是實參。

==== willsort 編注 =====================================================
DOS沒有 "允許傳遞9個批參數資訊" 的限制, 參數的個數只會受到命令行長度和所調用命令處理能力的限制. 但是, 我們在批次處理程式中,
在同一時刻只能同時引用10個參數, 因為 DOS只給出了 %0~%9這十個參數引用符.
========================================================================

3) 更進一步的，建立一個名為TEST3.BAT的檔，內容如下：
@echo off
IF "%1" == "A" ECHO XIAO
IF "%2" == "B" ECHO TIAN
IF "%3" == "C" ECHO XIN

如果執行：
C:\>TEST3 A B C
螢幕上會顯示:
XIAO
TIAN
XIN

如果執行：
C:\>TEST3 A B
螢幕上會顯示
XIAO
TIAN

在這個命令執行過程中，DOS會將一個空字串指定給參數%3。

2、IF-ERRORLEVEL

建立TEST4.BAT，內容如下：
@ECHO OFF
XCOPY C:\AUTOEXEC.BAT D:\
IF
ERRORLEVEL 1 ECHO 檔拷貝失敗
IF ERRORLEVEL 0 ECHO 成功拷貝檔

然後執行檔:
C:\>TEST4

如果檔拷貝成功，螢幕就會顯示"成功拷貝檔"，否則就會顯示"檔拷貝失敗"。

IF ERRORLEVEL 是用來測試它的上一個DOS命令的返回值的，注意只是上一個命令的返回值，而且返回值必須依照從大到小次序順序判斷。
因此下面的批次檔案是錯誤的：

@ECHO OFF
XCOPY C:\AUTOEXEC.BAT D:\
IF ERRORLEVEL 0 ECHO 成功拷貝檔
IF
ERRORLEVEL 1 ECHO 未找到拷貝檔
IF ERRORLEVEL 2 ECHO 用戶通過ctrl-c中止拷貝操作
IF
ERRORLEVEL 3 ECHO 預置錯誤阻止檔拷貝操作
IF ERRORLEVEL 4 ECHO 拷貝過程中寫盤錯誤

無論拷貝是否成功，後面的：

未找到拷貝檔
用戶通過ctrl-c中止拷貝操作
預置錯誤阻止檔拷貝操作
拷貝過程中寫盤錯誤

都將顯示出來。

以下就是幾個常用命令的返回值及其代表的意義：

backup
0 備份成功
1 未找到備份檔案
2 檔共用衝突阻止備份完成
3 用戶用ctrl-c中止備份
4
由於致命的錯誤使備份操作中止

diskcomp
0 盤比較相同
1 盤比較不同
2 用戶通過ctrl-c中止比較操作
3 由於致命的錯誤使比較操作中止
4 預置錯誤中止比較

diskcopy
0 盤拷貝操作成功
1 非致命盤讀/寫錯
2 用戶通過ctrl-c結束拷貝操作
3
因致命的處理錯誤使盤拷貝中止
4 預置錯誤阻止拷貝操作

format
0 格式化成功
3 用戶通過ctrl-c中止格式化處理
4 因致命的處理錯誤使格式化中止
5
在提示"proceed with format（y/n）?"下用戶鍵入n結束

xcopy
0 成功拷貝檔
1 未找到拷貝檔
2 用戶通過ctrl-c中止拷貝操作
4 預置錯誤阻止檔拷貝操作
5
拷貝過程中寫盤錯誤

chkdsk
0 未找到錯誤
255 找到一個或多個錯誤

choice
0 用戶按下ctrl+c/break
1 用戶按下第一個鍵
255 檢測到命令行中的錯誤條件
其他
用戶按下的有效字元在列表中的位置

defrag
0 碎片壓縮成功
1 出現內部錯誤
2 磁片上沒有空簇。要執行DEFRAG，至少要有一個空簇
3
用戶用Ctrl+C退出了DEFRAG
4 出現一般性錯誤
5 DEFRAG在讀簇時遇到錯誤
6 DEFRAG在寫簇時遇到錯誤
7
分配空間有錯
8 記憶體錯
9 沒有足夠空間來壓縮磁片碎片

deltree
0 成功地刪除一個目錄

diskcomp
0 兩盤相同
1 發現不同
2 按CTRL+C 終止了比較
3 出現嚴重錯誤
4 出現初始化錯誤

find
0 查找成功且至少找到了一個匹配的字串
1 查找成功但沒找到匹配的字串
2 查找中出現了錯誤

keyb
0 鍵盤定義檔裝入成功
1 使用了非法的鍵盤代碼，字元集或語法
2 鍵盤定義檔壞或未找到
4
鍵盤、監視器通訊時出錯
5 要求的字元集未準備好

move
0 成功地移動了指定的檔
1 發生了錯誤

msav /N
86 檢查到了病毒

replace
0 REPLACE成功地替換或加入了文件
1 MS-DOS版本和REPLACE不相容
2
REPLACE找不到原始檔案
3 REPLACE找不到源路徑或目標路徑
5 不能存取要替換的檔
8 記憶體不夠無法執行REPLACE
11 命令行句法錯誤

restore
0 RESTORE成功地恢復了檔
1 RESTORE找不到要恢復的檔
3 用戶按CTRL+C終止恢復過程
4 RESTORE因錯誤而終止

scandisk
0 ScanDisk在它檢查的驅動器上未檢測到任何錯誤
1 由於命令行的語法不對，不能執行ScanDisk
2
由於記憶體用盡或發生內部錯誤，ScanDisk意外終止
3 用戶讓ScanDisk中途退出
4 進行盤面掃描時，用戶決定提前退出
254
ScanDisk找到磁片故障並已全部校正
255 ScanDisk找到磁片故障，但未能全部校正

setver
0 SETVER成功地完成了任務
1 用戶指定了一個無效的命令開關
2 用戶指定了一個非法的檔案名
3
沒有足夠的系統記憶體來執行命令
4 用戶指定了一個非法的版本號格式
5 SETVER在版本表中未找到指定的項
6
SETVER未找到SETVER.EXE文件
7 用戶指定了一個非法的驅動器
8 用戶指定了太多的命令行參數
9
SETVER檢測到丟失了命令行參數
10 在讀SETVER.EXE檔時，SETVER檢測到發生錯誤
11 SETVER.EXE文件損壞
12 指定的SETVER.EXE檔不支援版本表
13 版本表中沒有足夠的空間存放新的項
14
在寫SETVER.EXE檔時SETVER檢測到發生錯誤
========================================================================

3、IF STRING1 == STRING2

建立TEST5.BAT，檔內容如下：
@echo off
IF "%1" == "A" FORMAT A:

執行：
C:\>TEST5 A
螢幕上就出現是否將A:盤格式化的內容。

注意：為了防止參數為空的情況，一般會將字串用雙引號（或者其他符號，注意不能使用保留符號）括起來。
如：if [%1]==[A] 或者 if
%1*==A*

5、GOTO

建立TEST6.BAT，檔內容如下：
@ECHO OFF
IF EXIST C:\AUTOEXEC.BAT GOTO _COPY
GOTO _DONE
:_COPY
COPY C:\AUTOEXEC.BAT D:\
:_DONE

注意：
(1) 標號前是ASCII字元的冒號":"，冒號與標號之間不能有空格。
(2) 標號的命名規則與檔案名的命名規則相同。
(3) DOS支援最長八位元字元的標號，當無法區別兩個標號時，將跳轉至最近的一個標號。

==== willsort 編注 =====================================================
1)標號也稱作標籤(label)
2)標籤不能以大多數的非字母數位字元開始, 而檔案名中則可以使用很多
3)當無法區別兩個標籤時,
將跳轉至位置最靠前的標籤
========================================================================

6、FOR

建立C:\TEST7.BAT，檔內容如下：
@ECHO OFF
FOR %%C IN (*.BAT *.TXT *.SYS) DO
TYPE %%C

執行：
C:\>TEST7

執行以後，螢幕上會將C:盤根目錄下所有以BAT、TXT、SYS為副檔名的檔內容顯示出來（不包括隱藏檔）。

CDO物件常用的屬性與方法

public void doGet(HttpServletRequest req, HttpServletResponse resp)
throws IOException {
resp.setCharacterEncoding("UTF-8");
resp.setContentType("text/plain");
resp.getWriter().println("Hello, world");
}