《真愛黑白配》

myday = day(now)
mymon = month(now)
myyear = year(now)
b = inputbox("第一次使用程式需要輸入帳號密碼請按1 欲先修改樣式在自動PO文請按2 已使用過此程式並已完成樣式修改，接續上次中斷時的帳號者請按3")
c = cint(b)
If c = 1 Then
Call aa()
ElseIf c = 2 Then
Call ff()
ElseIf c = 3 Then
Call bb()
End If

Sub aa()
a = inputbox("請輸入無名的密碼,輸入完畢請按確定")
a1 = inputbox("請輸入無名第1組的帳號,輸入完畢請按確定")
a2 = inputbox("請輸入無名第2組的帳號,輸入完畢請按確定")
a3 = inputbox("請輸入無名第3組的帳號,輸入完畢請按確定")
a4 = inputbox("請輸入無名第4組的帳號,輸入完畢請按確定")
a5 = inputbox("請輸入無名第5組的帳號,輸入完畢請按確定")
a6 = inputbox("請輸入無名第6組的帳號,輸入完畢請按確定")
a7 = inputbox("請輸入無名第7組的帳號,輸入完畢請按確定")
a8 = inputbox("請輸入無名第8組的帳號,輸入完畢請按確定")
a9 = inputbox("請輸入無名第9組的帳號,輸入完畢請按確定")
a10 = inputbox("請輸入無名第10組的帳號,輸入完畢請按確定")
a11 = inputbox("請輸入無名第11組的帳號,輸入完畢請按確定")
a12 = inputbox("請輸入無名第12組的帳號,輸入完畢請按確定")
a13 = inputbox("請輸入無名第13組的帳號,輸入完畢請按確定")
a14 = inputbox("請輸入無名第14組的帳號,輸入完畢請按確定")
a15 = inputbox("請輸入無名第15組的帳號,輸入完畢請按確定")
a16 = inputbox("請輸入無名第16組的帳號,輸入完畢請按確定")
a17 = inputbox("請輸入無名第17組的帳號,輸入完畢請按確定")
a18 = inputbox("請輸入無名第18組的帳號,輸入完畢請按確定")
a19 = inputbox("請輸入無名第19組的帳號,輸入完畢請按確定")
a20 = inputbox("請輸入無名第20組的帳號,輸入完畢請按確定")
a21 = inputbox("請輸入無名第21組的帳號,輸入完畢請按確定")
a22 = inputbox("請輸入無名第22組的帳號,輸入完畢請按確定")
a23 = inputbox("請輸入無名第23組的帳號,輸入完畢請按確定")
a24 = inputbox("請輸入無名第24組的帳號,輸入完畢請按確定")
a25 = inputbox("請輸入無名第25組的帳號,輸入完畢請按確定")
a26 = inputbox("請輸入無名第26組的帳號,輸入完畢請按確定")
a27 = inputbox("請輸入無名第27組的帳號,輸入完畢請按確定")
a28 = inputbox("請輸入無名第28組的帳號,輸入完畢請按確定")
a29 = inputbox("請輸入無名第29組的帳號,輸入完畢請按確定")
a30 = inputbox("請輸入無名第30組的帳號,輸入完畢請按確定")
a31 = inputbox("請輸入無名第31組的帳號,輸入完畢請按確定")
a32 = inputbox("請輸入無名第32組的帳號,輸入完畢請按確定")
a33 = inputbox("請輸入無名第33組的帳號,輸入完畢請按確定")
a34 = inputbox("請輸入無名第34組的帳號,輸入完畢請按確定")
a35 = inputbox("請輸入無名第35組的帳號,輸入完畢請按確定")
a36 = inputbox("請輸入無名第36組的帳號,輸入完畢請按確定")
a37 = inputbox("請輸入無名第37組的帳號,輸入完畢請按確定")
a38 = inputbox("請輸入無名第38組的帳號,輸入完畢請按確定")
a39 = inputbox("請輸入無名第39組的帳號,輸入完畢請按確定")
a40 = inputbox("請輸入無名第40組的帳號,輸入完畢請按確定")
a41 = inputbox("請輸入無名第41組的帳號,輸入完畢請按確定")
a42 = inputbox("請輸入無名第42組的帳號,輸入完畢請按確定")
a43 = inputbox("請輸入無名第43組的帳號,輸入完畢請按確定")
a44 = inputbox("請輸入無名第44組的帳號,輸入完畢請按確定")
a45 = inputbox("請輸入無名第45組的帳號,輸入完畢請按確定")
a46 = inputbox("請輸入無名第46組的帳號,輸入完畢請按確定")
a47 = inputbox("請輸入無名第47組的帳號,輸入完畢請按確定")
a48 = inputbox("請輸入無名第48組的帳號,輸入完畢請按確定")
a49 = inputbox("請輸入無名第49組的帳號,輸入完畢請按確定")
a50 = inputbox("請輸入無名第50組的帳號,輸入完畢請按確定")
a51 = inputbox("請輸入無名第51組的帳號,輸入完畢請按確定")
a52 = inputbox("請輸入無名第52組的帳號,輸入完畢請按確定")
a53 = inputbox("請輸入無名第53組的帳號,輸入完畢請按確定")
a54 = inputbox("請輸入無名第54組的帳號,輸入完畢請按確定")
a55 = inputbox("請輸入無名第55組的帳號,輸入完畢請按確定")
a56 = inputbox("請輸入無名第56組的帳號,輸入完畢請按確定")
a57 = inputbox("請輸入無名第57組的帳號,輸入完畢請按確定")
a58 = inputbox("請輸入無名第58組的帳號,輸入完畢請按確定")
a59 = inputbox("請輸入無名第59組的帳號,輸入完畢請按確定")
a60 = inputbox("請輸入無名第60組的帳號,輸入完畢請按確定")
Call Plugin.File.WriteINI("Command", "Val", a, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val1", a1, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val2", a2, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val3", a3, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val4", a4, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val5", a5, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val6", a6, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val7", a7, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val8", a8, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val9", a9, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val10", a10, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val11", a11, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val12", a12, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val13", a13, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val14", a14, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val15", a15, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val16", a16, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val17", a17, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val18", a18, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val19", a19, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val20", a20, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val21", a21, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val22", a22, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val23", a23, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val24", a24, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val25", a25, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val26", a26, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val27", a27, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val28", a28, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val29", a29, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val30", a30, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val31", a31, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val32", a32, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val33", a33, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val34", a34, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val35", a35, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val36", a36, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val37", a37, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val38", a38, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val39", a39, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val40", a40, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val41", a41, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val42", a42, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val43", a43, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val44", a44, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val45", a45, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val46", a46, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val47", a47, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val48", a48, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val49", a49, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val50", a50, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val51", a51, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val52", a52, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val53", a53, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val54", a54, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val55", a55, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val56", a56, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val57", a57, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val58", a58, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val59", a59, "C:\Config.ini")
Call Plugin.File.WriteINI("Command", "Val60", a60, "C:\Config.ini")
b = Plugin.File.ReadINI("Command", "Val1", "C:\Config.ini")
Call cc()
End Sub

Sub cc()
Call Plugin.File.WriteINI("Command", "Val100", b, "C:\Config.ini")
RunApp "C:\Program Files\PCMan Combo\PCMan.exe"
Delay 5000
KeyDown 18, 1
KeyPress 87, 1
KeyUp 18, 1
Delay 4000
SayString "www.wretch.cc/blog"
Delay 4000
KeyPress "Enter", 1
Delay 25000
KeyDown "Shift", 1
KeyPress "Tab", 4
KeyUp "Shift", 1
Delay 6000
KeyPress "Enter", 1
Delay 4000
a = Plugin.File.ReadINI("Command", "Val", "C:\Config.ini")
Delay 2000
SayString b
Delay 4000
KeyPress "Tab", 1
Delay 4000
SayString a
Delay 4000
KeyPress "Enter", 1
Delay 5000
KeyDown 18, 1
KeyPress 78, 1
KeyUp 18, 1
Delay 4000
SayString "tw.knowledge.search.yahoo.com/?fr=yfp"
Delay 4000
KeyPress "Enter", 1
Delay 5000
RunApp "C:\Documents and Settings\Administrator\桌面\桌面.txt"
Delay 4000
KeyDown 17, 1
KeyPress 76, 1
KeyUp 17, 1
Delay 4000
KeyDown 18, 1
KeyDown 16, 1
KeyPress 88, 1
KeyUp 16, 1
KeyUp 18, 1
Delay 4000
KeyPress "Enter", 1
Delay 5000
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 4000
KeyPress "Enter", 1
Delay 5000
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 4000
SayString "日期"
Delay 4000
KeyPress "Esc", 1
Delay 4000
KeyPress "Tab", 1
Delay 4000
KeyPress "Enter", 1
Delay 10000
KeyDown 17, 1
KeyPress 51, 1
KeyUp 17, 1
Delay 8000
KeyDown 18, 1
KeyPress 65, 1
KeyUp 18, 1
Delay 5000
KeyPress 65, 1
Delay 5000
KeyPress "Right", 1
Delay 4000
KeyPress "BackSpace", 13
Delay 4000
KeyPress "Tab", 4
Delay 4000
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
Delay 4000
KeyPress "Esc", 1
Delay 4000
KeyDown 17, 1
KeyPress 49, 1
KeyUp 17, 1
Delay 4000
KeyDown 18, 1
KeyPress 87, 1
KeyUp 18, 1
Delay 4000
SayString "www.wretch.cc/blog/modify.php?blog_id=" & b & "&func=post&year=" & myyear & "&month=" & mymon & "&day=" & myday
Delay 4000
KeyPress "Enter", 1
Delay 5000
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 4000
SayString "標題"
Delay 4000
KeyPress "Esc", 1
Delay 4000
KeyPress "Tab", 1
Delay 4000
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 4000
KeyPress "Tab", 5
Delay 4000
KeyPress "Space", 1
Delay 4000
KeyPress "Tab", 6
Delay 4000
KeyPress "Space", 1
Delay 4000
KeyDown 17, 1
KeyPress 51, 1
KeyUp 17, 1
Delay 4000
KeyPress "Alt", 1
Delay 3000
KeyPress "V", 1
Delay 3000
KeyPress "V", 1
Delay 4000
KeyDown "Ctrl", 1
KeyPress "A", 1
KeyUp "Ctrl", 1
Delay 4000
KeyDown "Ctrl", 1
KeyPress "C", 1
KeyUp "Ctrl", 1
Delay 4000
KeyPress "Alt", 1
Delay 3000
KeyPress "F", 1
Delay 3000
KeyPress "X", 1
Delay 4000
RunApp "C:\Documents and Settings\Administrator\桌面\EmEditor 8.05\EmEditor 8.05\EmEditor.exe"
Delay 4000
KeyDown "Ctrl", 1
KeyPress "V", 1
KeyUp "Ctrl", 1
Delay 4000
KeyDown "Ctrl", 1
KeyDown "Shift", 1
KeyPress "P", 1
KeyUp "Ctrl", 1
KeyUp "Shift", 1
Delay 4000
KeyDown "Ctrl", 1
KeyPress "A", 1
KeyUp "Ctrl", 1
Delay 4000
KeyDown "Ctrl", 1
KeyPress "C", 1
KeyUp "Ctrl", 1
Delay 4000
KeyDown "Alt", 1
KeyDown "Shift", 1
Keypress "X", 1
KeyUp "Alt", 1
KeyUp "Shift", 1
Delay 4000
KeyPress "N", 1
Delay 4000
KeyDown 17, 1
KeyPress 49, 1
KeyUp 17, 1
Delay 4000
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 4000
SayString "隔開"
Delay 4000
KeyPress "Esc", 1
Delay 4000
KeyDown "Shift", 1
KeyPress "Tab", 1
KeyUp "Shift", 1
Delay 4000
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 4000
Keypress "Tab", 3
Delay 4000
Keypress "Enter", 1
Delay 5000
KeyDown 17, 1
KeyPress 51, 1
KeyUp 17, 1
Delay 4000
KeyDown "Ctrl", 1
KeyPress "Delete", 1
KeyUp "Ctrl", 1
Delay 4000

For i = 0 To 24 Step 3
Delay 4000
KeyPress "Tab", 5+i
Delay 4000
KeyPress "Enter", 1
Delay 10000
KeyDown 17, 1
KeyPress 51, 1
KeyUp 17, 1
Delay 8000
KeyDown 18, 1
KeyPress 65, 1
KeyUp 18, 1
Delay 5000
KeyPress 65, 1
Delay 5000
KeyPress "Right", 1
Delay 4000
KeyPress "BackSpace", 13
Delay 4000
KeyPress "Tab", 4
Delay 4000
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
Delay 4000
KeyPress "Esc", 1
Delay 4000
KeyDown 17, 1
KeyPress 49, 1
KeyUp 17, 1
Delay 4000
KeyDown 18, 1
KeyPress 87, 1
KeyUp 18, 1
Delay 4000
SayString "www.wretch.cc/blog/modify.php?blog_id=" & b & "&func=post&year=" & myyear & "&month=" & mymon & "&day=" & myday
Delay 4000
KeyPress "Enter", 1
Delay 5000
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 4000
SayString "標題"
Delay 4000
KeyPress "Esc", 1
Delay 4000
KeyPress "Tab", 1
Delay 4000
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 4000
KeyPress "Tab", 5
Delay 4000
KeyPress "Space", 1
Delay 4000
KeyPress "Tab", 6
Delay 4000
KeyPress "Space", 1
Delay 4000
KeyDown 17, 1
KeyPress 51, 1
KeyUp 17, 1
Delay 4000
KeyPress "Alt", 1
Delay 3000
KeyPress "V", 1
Delay 3000
KeyPress "V", 1
Delay 4000
KeyDown "Ctrl", 1
KeyPress "A", 1
KeyUp "Ctrl", 1
Delay 4000
KeyDown "Ctrl", 1
KeyPress "C", 1
KeyUp "Ctrl", 1
Delay 4000
KeyPress "Alt", 1
Delay 3000
KeyPress "F", 1
Delay 3000
KeyPress "X", 1
Delay 4000
RunApp "C:\Documents and Settings\Administrator\桌面\EmEditor 8.05\EmEditor 8.05\EmEditor.exe"
Delay 4000
KeyDown "Ctrl", 1
KeyPress "V", 1
KeyUp "Ctrl", 1
Delay 4000
KeyDown "Ctrl", 1
KeyDown "Shift", 1
KeyPress "P", 1
KeyUp "Ctrl", 1
KeyUp "Shift", 1
Delay 4000
KeyDown "Ctrl", 1
KeyPress "A", 1
KeyUp "Ctrl", 1
Delay 4000
KeyDown "Ctrl", 1
KeyPress "C", 1
KeyUp "Ctrl", 1
Delay 4000
KeyDown "Alt", 1
KeyDown "Shift", 1
KeyPress "X", 1
KeyUp "Alt", 1
KeyUp "Shift", 1
Delay 4000
KeyPress "N", 1
Delay 4000
KeyDown 17, 1
KeyPress 49, 1
KeyUp 17, 1
Delay 4000
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 4000
SayString "隔開"
Delay 4000
KeyPress "Esc", 1
Delay 4000
KeyDown "Shift", 1
KeyPress "Tab", 1
KeyUp "Shift", 1
Delay 4000
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 4000
Keypress "Tab", 3
Delay 4000
Keypress "Enter", 1
Delay 5000
KeyDown 17, 1
KeyPress 51, 1
KeyUp 17, 1
Delay 4000
KeyDown "Ctrl", 1
KeyPress "Delete", 1
KeyUp "Ctrl", 1
Delay 4000
next
Delay 4000
KeyDown "Ctrl", 1
KeyPress "Delete", 1
KeyUp "Ctrl", 1
Delay 4000
KeyDown "Ctrl", 1
KeyPress "Delete", 1
KeyUp "Ctrl", 1
Delay 4000
KeyDown 18, 1
KeyDown 16, 1
KeyPress 88, 1
KeyUp 16, 1
KeyUp 18, 1
Delay 4000
a1 = Plugin.File.ReadINI("Command", "Val1", "C:\Config.ini")
a2 = Plugin.File.ReadINI("Command", "Val2", "C:\Config.ini")
a3 = Plugin.File.ReadINI("Command", "Val3", "C:\Config.ini")
a4 = Plugin.File.ReadINI("Command", "Val4", "C:\Config.ini")
a5 = Plugin.File.ReadINI("Command", "Val5", "C:\Config.ini")
a6 = Plugin.File.ReadINI("Command", "Val6", "C:\Config.ini")
a7 = Plugin.File.ReadINI("Command", "Val7", "C:\Config.ini")
a8 = Plugin.File.ReadINI("Command", "Val8", "C:\Config.ini")
a9 = Plugin.File.ReadINI("Command", "Val9", "C:\Config.ini")
a10 = Plugin.File.ReadINI("Command", "Val10", "C:\Config.ini")
a11 = Plugin.File.ReadINI("Command", "Val11", "C:\Config.ini")
a12 = Plugin.File.ReadINI("Command", "Val12", "C:\Config.ini")
a13 = Plugin.File.ReadINI("Command", "Val13", "C:\Config.ini")
a14 = Plugin.File.ReadINI("Command", "Val14", "C:\Config.ini")
a15 = Plugin.File.ReadINI("Command", "Val15", "C:\Config.ini")
a16 = Plugin.File.ReadINI("Command", "Val16", "C:\Config.ini")
a17 = Plugin.File.ReadINI("Command", "Val17", "C:\Config.ini")
a18 = Plugin.File.ReadINI("Command", "Val18", "C:\Config.ini")
a19 = Plugin.File.ReadINI("Command", "Val19", "C:\Config.ini")
a20 = Plugin.File.ReadINI("Command", "Val20", "C:\Config.ini")
a21 = Plugin.File.ReadINI("Command", "Val21", "C:\Config.ini")
a22 = Plugin.File.ReadINI("Command", "Val22", "C:\Config.ini")
a23 = Plugin.File.ReadINI("Command", "Val23", "C:\Config.ini")
a24 = Plugin.File.ReadINI("Command", "Val24", "C:\Config.ini")
a25 = Plugin.File.ReadINI("Command", "Val25", "C:\Config.ini")
a26 = Plugin.File.ReadINI("Command", "Val26", "C:\Config.ini")
a27 = Plugin.File.ReadINI("Command", "Val27", "C:\Config.ini")
a28 = Plugin.File.ReadINI("Command", "Val28", "C:\Config.ini")
a29 = Plugin.File.ReadINI("Command", "Val29", "C:\Config.ini")
a30 = Plugin.File.ReadINI("Command", "Val30", "C:\Config.ini")
a31 = Plugin.File.ReadINI("Command", "Val31", "C:\Config.ini")
a32 = Plugin.File.ReadINI("Command", "Val32", "C:\Config.ini")
a33 = Plugin.File.ReadINI("Command", "Val33", "C:\Config.ini")
a34 = Plugin.File.ReadINI("Command", "Val34", "C:\Config.ini")
a35 = Plugin.File.ReadINI("Command", "Val35", "C:\Config.ini")
a36 = Plugin.File.ReadINI("Command", "Val36", "C:\Config.ini")
a37 = Plugin.File.ReadINI("Command", "Val37", "C:\Config.ini")
a38 = Plugin.File.ReadINI("Command", "Val38", "C:\Config.ini")
a39 = Plugin.File.ReadINI("Command", "Val39", "C:\Config.ini")
a40 = Plugin.File.ReadINI("Command", "Val40", "C:\Config.ini")
a41 = Plugin.File.ReadINI("Command", "Val41", "C:\Config.ini")
a42 = Plugin.File.ReadINI("Command", "Val42", "C:\Config.ini")
a43 = Plugin.File.ReadINI("Command", "Val43", "C:\Config.ini")
a44 = Plugin.File.ReadINI("Command", "Val44", "C:\Config.ini")
a45 = Plugin.File.ReadINI("Command", "Val45", "C:\Config.ini")
a46 = Plugin.File.ReadINI("Command", "Val46", "C:\Config.ini")
a47 = Plugin.File.ReadINI("Command", "Val47", "C:\Config.ini")
a48 = Plugin.File.ReadINI("Command", "Val48", "C:\Config.ini")
a49 = Plugin.File.ReadINI("Command", "Val49", "C:\Config.ini")
a50 = Plugin.File.ReadINI("Command", "Val50", "C:\Config.ini")
a51 = Plugin.File.ReadINI("Command", "Val51", "C:\Config.ini")
a52 = Plugin.File.ReadINI("Command", "Val52", "C:\Config.ini")
a53 = Plugin.File.ReadINI("Command", "Val53", "C:\Config.ini")
a54 = Plugin.File.ReadINI("Command", "Val54", "C:\Config.ini")
a55 = Plugin.File.ReadINI("Command", "Val55", "C:\Config.ini")
a56 = Plugin.File.ReadINI("Command", "Val56", "C:\Config.ini")
a57 = Plugin.File.ReadINI("Command", "Val57", "C:\Config.ini")
a58 = Plugin.File.ReadINI("Command", "Val58", "C:\Config.ini")
a59 = Plugin.File.ReadINI("Command", "Val59", "C:\Config.ini")
a60 = Plugin.File.ReadINI("Command", "Val60", "C:\Config.ini")
If b = a1 Then
Call z1()
ElseIf b = a2 Then
Call z2()
ElseIf b = a3 Then
Call z3()
ElseIf b = a4 Then
Call z4()
ElseIf b = a5 Then
Call z5()
ElseIf b = a6 Then
Call z6()
ElseIf b = a7 Then
Call z7()
ElseIf b = a8 Then
Call z8()
ElseIf b = a9 Then
Call z9()
ElseIf b = a10 Then
Call z10()
ElseIf b = a11 Then
Call z11()
ElseIf b = a12 Then
Call z12()
ElseIf b = a13 Then
Call z13()
ElseIf b = a14 Then
Call z14()
ElseIf b = a15 Then
Call z15()
ElseIf b = a16 Then
Call z16()
ElseIf b = a17 Then
Call z17()
ElseIf b = a18 Then
Call z18()
ElseIf b = a19 Then
Call z19()
ElseIf b = a20 Then
Call z20()
ElseIf b = a21 Then
Call z21()
ElseIf b = a22 Then
Call z22()
ElseIf b = a23 Then
Call z23()
ElseIf b = a24 Then
Call z24()
ElseIf b = a25 Then
Call z25()
ElseIf b = a26 Then
Call z26()
ElseIf b = a27 Then
Call z27()
ElseIf b = a28 Then
Call z28()
ElseIf b = a29 Then
Call z29()
ElseIf b = a30 Then
Call z30()
ElseIf b = a31 Then
Call z31()
ElseIf b = a32 Then
Call z32()
ElseIf b = a33 Then
Call z33()
ElseIf b = a34 Then
Call z34()
ElseIf b = a35 Then
Call z35()
ElseIf b = a36 Then
Call z36()
ElseIf b = a37 Then
Call z37()
ElseIf b = a38 Then
Call z38()
ElseIf b = a39 Then
Call z39()
ElseIf b = a40 Then
Call z40()
ElseIf b = a41 Then
Call z41()
ElseIf b = a42 Then
Call z42()
ElseIf b = a43 Then
Call z43()
ElseIf b = a44 Then
Call z44()
ElseIf b = a45 Then
Call z45()
ElseIf b = a46 Then
Call z46()
ElseIf b = a47 Then
Call z47()
ElseIf b = a48 Then
Call z48()
ElseIf b = a49 Then
Call z49()
ElseIf b = a50 Then
Call z50()
ElseIf b = a51 Then
Call z51()
ElseIf b = a52 Then
Call z52()
ElseIf b = a53 Then
Call z53()
ElseIf b = a54 Then
Call z54()
ElseIf b = a55 Then
Call z55()
ElseIf b = a56 Then
Call z56()
ElseIf b = a57 Then
Call z57()
ElseIf b = a58 Then
Call z58()
ElseIf b = a59 Then
Call z59()
ElseIf b = a60 Then
Call z60()
End If
End Sub

Sub z1()
b = Plugin.File.ReadINI("Command", "Val2", "C:\Config.ini")
call cc()
End Sub

Sub z2()
b = Plugin.File.ReadINI("Command", "Val3", "C:\Config.ini")
call cc()
End Sub

Sub z3()
b = Plugin.File.ReadINI("Command", "Val4", "C:\Config.ini")
call cc()
End Sub

Sub z4()
b = Plugin.File.ReadINI("Command", "Val5", "C:\Config.ini")
call cc()
End Sub

Sub z5()
b = Plugin.File.ReadINI("Command", "Val6", "C:\Config.ini")
call cc()
End Sub

Sub z6()
b = Plugin.File.ReadINI("Command", "Val7", "C:\Config.ini")
call cc()
End Sub

Sub z7()
b = Plugin.File.ReadINI("Command", "Val8", "C:\Config.ini")
call cc()
End Sub

Sub z8()
b = Plugin.File.ReadINI("Command", "Val9", "C:\Config.ini")
call cc()
End Sub

Sub z9()
b = Plugin.File.ReadINI("Command", "Val10", "C:\Config.ini")
call cc()
End Sub

Sub z10()
b = Plugin.File.ReadINI("Command", "Val11", "C:\Config.ini")
call cc()
End Sub

Sub z11()
b = Plugin.File.ReadINI("Command", "Val12", "C:\Config.ini")
call cc()
End Sub

Sub z12()
b = Plugin.File.ReadINI("Command", "Val13", "C:\Config.ini")
call cc()
End Sub

Sub z13()
b = Plugin.File.ReadINI("Command", "Val14", "C:\Config.ini")
call cc()
End Sub

Sub z14()
b = Plugin.File.ReadINI("Command", "Val15", "C:\Config.ini")
call cc()
End Sub

Sub z15()
b = Plugin.File.ReadINI("Command", "Val16", "C:\Config.ini")
call cc()
End Sub

Sub z16()
b = Plugin.File.ReadINI("Command", "Val17", "C:\Config.ini")
call cc()
End Sub

Sub z17()
b = Plugin.File.ReadINI("Command", "Val18", "C:\Config.ini")
call cc()
End Sub

Sub z18()
b = Plugin.File.ReadINI("Command", "Val19", "C:\Config.ini")
call cc()
End Sub

Sub z19()
b = Plugin.File.ReadINI("Command", "Val20", "C:\Config.ini")
call cc()
End Sub

Sub z20()
b = Plugin.File.ReadINI("Command", "Val21", "C:\Config.ini")
call cc()
End Sub

Sub z21()
b = Plugin.File.ReadINI("Command", "Val22", "C:\Config.ini")
call cc()
End Sub

Sub z22()
b = Plugin.File.ReadINI("Command", "Val23", "C:\Config.ini")
call cc()
End Sub

Sub z23()
b = Plugin.File.ReadINI("Command", "Val24", "C:\Config.ini")
call cc()
End Sub

Sub z24()
b = Plugin.File.ReadINI("Command", "Val25", "C:\Config.ini")
call cc()
End Sub

Sub z25()
b = Plugin.File.ReadINI("Command", "Val26", "C:\Config.ini")
call cc()
End Sub

Sub z26()
b = Plugin.File.ReadINI("Command", "Val27", "C:\Config.ini")
call cc()
End Sub

Sub z27()
b = Plugin.File.ReadINI("Command", "Val28", "C:\Config.ini")
call cc()
End Sub

Sub z28()
b = Plugin.File.ReadINI("Command", "Val29", "C:\Config.ini")
call cc()
End Sub

Sub z29()
b = Plugin.File.ReadINI("Command", "Val30", "C:\Config.ini")
call cc()
End Sub

Sub z30()
b = Plugin.File.ReadINI("Command", "Val31", "C:\Config.ini")
call cc()
End Sub

Sub z31()
b = Plugin.File.ReadINI("Command", "Val32", "C:\Config.ini")
call cc()
End Sub

Sub z32()
b = Plugin.File.ReadINI("Command", "Val33", "C:\Config.ini")
call cc()
End Sub

Sub z33()
b = Plugin.File.ReadINI("Command", "Val34", "C:\Config.ini")
call cc()
End Sub

Sub z34()
b = Plugin.File.ReadINI("Command", "Val35", "C:\Config.ini")
call cc()
End Sub

Sub z35()
b = Plugin.File.ReadINI("Command", "Val36", "C:\Config.ini")
call cc()
End Sub

Sub z36()
b = Plugin.File.ReadINI("Command", "Val37", "C:\Config.ini")
call cc()
End Sub

Sub z37()
b = Plugin.File.ReadINI("Command", "Val38", "C:\Config.ini")
call cc()
End Sub

Sub z38()
b = Plugin.File.ReadINI("Command", "Val39", "C:\Config.ini")
call cc()
End Sub

Sub z39()
b = Plugin.File.ReadINI("Command", "Val40", "C:\Config.ini")
call cc()
End Sub

Sub z40()
b = Plugin.File.ReadINI("Command", "Val41", "C:\Config.ini")
call cc()
End Sub

Sub z41()
b = Plugin.File.ReadINI("Command", "Val42", "C:\Config.ini")
call cc()
End Sub

Sub z42()
b = Plugin.File.ReadINI("Command", "Val43", "C:\Config.ini")
call cc()
End Sub

Sub z43()
b = Plugin.File.ReadINI("Command", "Val44", "C:\Config.ini")
call cc()
End Sub

Sub z44()
b = Plugin.File.ReadINI("Command", "Val45", "C:\Config.ini")
call cc()
End Sub

Sub z45()
b = Plugin.File.ReadINI("Command", "Val46", "C:\Config.ini")
call cc()
End Sub

Sub z46()
b = Plugin.File.ReadINI("Command", "Val47", "C:\Config.ini")
call cc()
End Sub

Sub z47()
b = Plugin.File.ReadINI("Command", "Val48", "C:\Config.ini")
call cc()
End Sub

Sub z48()
b = Plugin.File.ReadINI("Command", "Val49", "C:\Config.ini")
call cc()
End Sub

Sub z49()
b = Plugin.File.ReadINI("Command", "Val50", "C:\Config.ini")
call cc()
End Sub

Sub z50()
b = Plugin.File.ReadINI("Command", "Val51", "C:\Config.ini")
call cc()
End Sub

Sub z51()
b = Plugin.File.ReadINI("Command", "Val52", "C:\Config.ini")
call cc()
End Sub

Sub z52()
b = Plugin.File.ReadINI("Command", "Val53", "C:\Config.ini")
call cc()
End Sub

Sub z53()
b = Plugin.File.ReadINI("Command", "Val54", "C:\Config.ini")
call cc()
End Sub

Sub z54()
b = Plugin.File.ReadINI("Command", "Val55", "C:\Config.ini")
call cc()
End Sub

Sub z55()
b = Plugin.File.ReadINI("Command", "Val56", "C:\Config.ini")
call cc()
End Sub

Sub z56()
b = Plugin.File.ReadINI("Command", "Val57", "C:\Config.ini")
call cc()
End Sub

Sub z57()
b = Plugin.File.ReadINI("Command", "Val58", "C:\Config.ini")
call cc()
End Sub

Sub z58()
b = Plugin.File.ReadINI("Command", "Val59", "C:\Config.ini")
call cc()
End Sub

Sub z59()
b = Plugin.File.ReadINI("Command", "Val60", "C:\Config.ini")
call cc()
End Sub

Sub z60()
b = Plugin.File.ReadINI("Command", "Val1", "C:\Config.ini")
call cc()
End Sub

Sub bb()
b = Plugin.File.ReadINI("Command", "Val100", "C:\Config.ini")
call cc()
End Sub


Sub ff()
For j = 1 To 60
Select case j
Case 1
b = Plugin.File.ReadINI("Command", "Val1", "C:\Config.ini")
Case 2
b = Plugin.File.ReadINI("Command", "Val2", "C:\Config.ini")
Case 3
b = Plugin.File.ReadINI("Command", "Val3", "C:\Config.ini")
Case 4
b = Plugin.File.ReadINI("Command", "Val4", "C:\Config.ini")
Case 5
b = Plugin.File.ReadINI("Command", "Val5", "C:\Config.ini")
Case 6
b = Plugin.File.ReadINI("Command", "Val6", "C:\Config.ini")
Case 7
b = Plugin.File.ReadINI("Command", "Val7", "C:\Config.ini")
Case 8
b = Plugin.File.ReadINI("Command", "Val8", "C:\Config.ini")
Case 9
b = Plugin.File.ReadINI("Command", "Val9", "C:\Config.ini")
Case 10
b = Plugin.File.ReadINI("Command", "Val10", "C:\Config.ini")
Case 11
b = Plugin.File.ReadINI("Command", "Val11", "C:\Config.ini")
Case 12
b = Plugin.File.ReadINI("Command", "Val12", "C:\Config.ini")
Case 13
b = Plugin.File.ReadINI("Command", "Val13", "C:\Config.ini")
Case 14
b = Plugin.File.ReadINI("Command", "Val14", "C:\Config.ini")
Case 15
b = Plugin.File.ReadINI("Command", "Val15", "C:\Config.ini")
Case 16
b = Plugin.File.ReadINI("Command", "Val16", "C:\Config.ini")
Case 17
b = Plugin.File.ReadINI("Command", "Val17", "C:\Config.ini")
Case 18
b = Plugin.File.ReadINI("Command", "Val18", "C:\Config.ini")
Case 19
b = Plugin.File.ReadINI("Command", "Val19", "C:\Config.ini")
Case 20
b = Plugin.File.ReadINI("Command", "Val20", "C:\Config.ini")
Case 21
b = Plugin.File.ReadINI("Command", "Val21", "C:\Config.ini")
Case 22
b = Plugin.File.ReadINI("Command", "Val22", "C:\Config.ini")
Case 23
b = Plugin.File.ReadINI("Command", "Val23", "C:\Config.ini")
Case 24
b = Plugin.File.ReadINI("Command", "Val24", "C:\Config.ini")
Case 25
b = Plugin.File.ReadINI("Command", "Val25", "C:\Config.ini")
Case 26
b = Plugin.File.ReadINI("Command", "Val26", "C:\Config.ini")
Case 27
b = Plugin.File.ReadINI("Command", "Val27", "C:\Config.ini")
Case 28
b = Plugin.File.ReadINI("Command", "Val28", "C:\Config.ini")
Case 29
b = Plugin.File.ReadINI("Command", "Val29", "C:\Config.ini")
Case 30
b = Plugin.File.ReadINI("Command", "Val30", "C:\Config.ini")
Case 31
b = Plugin.File.ReadINI("Command", "Val31", "C:\Config.ini")
Case 32
b = Plugin.File.ReadINI("Command", "Val32", "C:\Config.ini")
Case 33
b = Plugin.File.ReadINI("Command", "Val33", "C:\Config.ini")
Case 34
b = Plugin.File.ReadINI("Command", "Val34", "C:\Config.ini")
Case 35
b = Plugin.File.ReadINI("Command", "Val35", "C:\Config.ini")
Case 36
b = Plugin.File.ReadINI("Command", "Val36", "C:\Config.ini")
Case 37
b = Plugin.File.ReadINI("Command", "Val37", "C:\Config.ini")
Case 38
b = Plugin.File.ReadINI("Command", "Val38", "C:\Config.ini")
Case 39
b = Plugin.File.ReadINI("Command", "Val39", "C:\Config.ini")
Case 40
b = Plugin.File.ReadINI("Command", "Val40", "C:\Config.ini")
Case 41
b = Plugin.File.ReadINI("Command", "Val41", "C:\Config.ini")
Case 42
b = Plugin.File.ReadINI("Command", "Val42", "C:\Config.ini")
Case 43
b = Plugin.File.ReadINI("Command", "Val43", "C:\Config.ini")
Case 44
b = Plugin.File.ReadINI("Command", "Val44", "C:\Config.ini")
Case 45
b = Plugin.File.ReadINI("Command", "Val45", "C:\Config.ini")
Case 46
b = Plugin.File.ReadINI("Command", "Val46", "C:\Config.ini")
Case 47
b = Plugin.File.ReadINI("Command", "Val47", "C:\Config.ini")
Case 48
b = Plugin.File.ReadINI("Command", "Val48", "C:\Config.ini")
Case 49
b = Plugin.File.ReadINI("Command", "Val49", "C:\Config.ini")
Case 50
b = Plugin.File.ReadINI("Command", "Val50", "C:\Config.ini")
Case 51
b = Plugin.File.ReadINI("Command", "Val51", "C:\Config.ini")
Case 52
b = Plugin.File.ReadINI("Command", "Val52", "C:\Config.ini")
Case 53
b = Plugin.File.ReadINI("Command", "Val53", "C:\Config.ini")
Case 54
b = Plugin.File.ReadINI("Command", "Val54", "C:\Config.ini")
Case 55
b = Plugin.File.ReadINI("Command", "Val55", "C:\Config.ini")
Case 56
b = Plugin.File.ReadINI("Command", "Val56", "C:\Config.ini")
Case 57
b = Plugin.File.ReadINI("Command", "Val57", "C:\Config.ini")
Case 58
b = Plugin.File.ReadINI("Command", "Val58", "C:\Config.ini")
Case 59
b = Plugin.File.ReadINI("Command", "Val59", "C:\Config.ini")
Case 60
b = Plugin.File.ReadINI("Command", "Val60", "C:\Config.ini")
End Select
a = Plugin.File.ReadINI("Command", "Val", "C:\Config.ini")
text = Plugin.File.ReadINI("Command", "Val", "C:\Config.txt")
RunApp "C:\Program Files\PCMan Combo\PCMan.exe"
Delay 5000
KeyDown 18, 1
KeyPress 87, 1
KeyUp 18, 1
Delay 3000
SayString "www.wretch.cc/blog"
Delay 3000
KeyPress "Enter", 1
Delay 15000
KeyDown "Shift", 1
KeyPress "Tab", 1
KeyUp "Shift", 1
Delay 2000
KeyDown "Shift", 1
KeyPress "Tab", 1
KeyUp "Shift", 1
Delay 2000
KeyDown "Shift", 1
KeyPress "Tab", 1
KeyUp "Shift", 1
Delay 2000
KeyDown "Shift", 1
KeyPress "Tab", 1
KeyUp "Shift", 1
Delay 2000
KeyDown "Shift", 1
KeyPress "Tab", 1
KeyUp "Shift", 1
Delay 2000
KeyPress "Enter", 1
Delay 15000
SayString b
Delay 3000
KeyPress "Tab", 1
Delay 3000
SayString a
Delay 3000
KeyPress "Enter", 1
Delay 8000
KeyDown 18, 1
KeyPress 87, 1
KeyUp 18, 1
Delay 5000
SayString "www.wretch.cc/admin/blog/"
Delay 3000
KeyPress "Enter", 1
Delay 4000
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 4000
SayString "名稱"
Delay 4000
KeyPress "Esc", 1
Delay 4000
KeyPress "Tab", 1
Delay 4000
KeyDown 17, 1
KeyPress 65, 1
KeyUp 17, 1
Delay 3000
SayString "這就是人生!!!"
Delay 3000
KeyPress "Tab", 1
Delay 3000
KeyDown 17, 1
KeyPress 65, 1
KeyUp 17, 1
Delay 3000
SayString text
Delay 3000
KeyPress "Tab", 6
Delay 3000
KeyPress "Down", 26
Delay 3000
KeyPress "Tab", 10
Delay 3000
KeyPress "Enter", 1
Delay 4000
KeyDown 18, 1
KeyPress 87, 1
KeyUp 18, 1
Delay 3000
SayString "www.wretch.cc/admin/blog/?func=setting&col=article"
Delay 3000
KeyPress "Enter", 1
Delay 4000
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 3000
SayString "文章篇數"
Delay 3000
KeyPress "Esc", 1
Delay 3000
KeyPress "Tab", 1
Delay 3000
KeyPress "Up", 15
Delay 3000
KeyPress "Tab", 5
Delay 3000
KeyPress "Enter", 1
Delay 4000
KeyDown 18, 1
KeyPress 87, 1
KeyUp 18, 1
Delay 3000
SayString "www.wretch.cc/admin/style/?func=css_new&source=B"
Delay 3000
KeyPress "Enter", 1
Delay 4000
RunApp "C:\Documents and Settings\Administrator\桌面\樣式2.txt"
Delay 3000
KeyDown 17, 1
KeyPress 65, 1
KeyUp 17, 1
Delay 3000
KeyDown 17, 1
KeyPress 67, 1
KeyUp 17, 1
Delay 3000
KeyDown 18, 1
KeyDown 16, 1
KeyPress 88, 1
KeyUp 16, 1
KeyUp 18, 1
Delay 3000
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 3000
SayString "步驟二"
Delay 3000
KeyPress "Esc", 1
Delay 3000
KeyPress "Tab", 3
Delay 3000
KeyDown 17, 1
KeyPress 65, 1
KeyUp 17, 1
Delay 3000
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 3000
KeyPress "Tab", 2
Delay 3000
KeyPress "Enter", 1
KeyDown 18, 1
KeyDown 16, 1
KeyPress 88, 1
KeyUp 16, 1
KeyUp 18, 1
Delay 3000
KeyPress "Enter", 1
Delay 3000
Next
b = Plugin.File.ReadINI("Command", "Val1", "C:\Config.ini")
Call cc()
End Sub