[VBA]如何用VBA登入資料庫 遊戲軟體 ...等

Question

我想要寫一個VBA程式可以自動登入資料庫 遊戲軟體 BBS...等
除了要自動開啟軟體外
還要輸入帳號密碼
之後還要 按 "確定"鍵
好難喔
我試了好久都寫不出來
有大大可以幫我嗎
我只會VBA
學校有VB 6.0但我不會
我今天買了 VB 2005 EXPRESS 的程式教學書
也去下載了VB 2005 EXPRESS
只試了一天 = =
拜託大大救我

Answer 1

可以利用VBA裡的 SendKeys 陳述式, 模擬鍵盤的輸出. 大致的程式邏輯如下:

1. 用AppActivate喚起你的應用程式視窗為使用中視窗, 注意AppActivate後面接的是「視窗名稱」, 也就是藍色那條bar裡的文字, 而不是執行檔的名稱.
2. 使用迴圈讀取你預先在畫面上定義好的文字, 包括帳號, 密碼, Enter鍵等等.
3. 用 SendKeys 送出資料.

以下示範如何自動透過KKman軟體登入PTT BBS站:
1. 在模組增加以下程式碼:
Sub Test()
AppActivate ”KKman”
For i = 1 to 10
If Cells(i,1).Value ＜＞ ”” Then
SendKeys Cells(i,1).Value, True
End If
Next
End Sub
其中 ”, ＜, ＞要換成小寫的符號

2. 在工作表的A欄位依序輸入以下的值, 也就是你要模擬的鍵盤動作:
%b
ptt.cc{ENTER}
yourid{ENTER}
yourpasswd{ENTER}
{ENTER}

其中%代表 Alt 鍵, Alt+b 會跳到 kkman 的 URL
{ENTER]代表按下 Enter鍵
以下為詳細鍵盤對應表:
按鍵代碼
BACKSPACE{BACKSPACE}, {BS}, or {BKSP}
BREAK{BREAK}
CAPS LOCK{CAPSLOCK}
DEL or DELETE{DELETE} or {DEL}
DOWN ARROW{DOWN}
END{END}
ENTER{ENTER}or ~
ESC{ESC}
HELP{HELP}
HOME{HOME}
INS or INSERT{INSERT} or {INS}
LEFT ARROW{LEFT}
NUM LOCK{NUMLOCK}
PAGE DOWN{PGDN}
PAGE UP{PGUP}
PRINT SCREEN{PRTSC}
RIGHT ARROW{RIGHT}
SCROLL LOCK{SCROLLLOCK}
TAB{TAB}
UP ARROW{UP}
F1{F1}
F2{F2}
F3{F3}
F4{F4}
F5{F5}
F6{F6}
F7{F7}
F8{F8}
F9{F9}
F10{F10}
F11{F11}
F12{F12}
F13{F13}
F14{F14}
F15{F15}
F16{F16}
SHIFT+
CTRL^
ALT%

Answer 2

有興趣的話,可以交個朋友,互相交流