VB製作一個登陸器
表單上有兩個文本框 一個按鈕
還有一個inet控制項
Microsoft Internet Transfer Control 6.0
Dim LoginMessage As String
Private Sub Command1_Click()
If Text1.Text <> "" And Text2.Text <> "" Then
LoginMessage = Inet1.OpenURL("http://www.wghai.com/●禁私人部落格●in.asp?action=chkCookieDate=2&username="
Trim(Text1.Text) & "&password=" & Trim(Text2.Text))
If InStr(LoginMessage, "登錄成功") <> 0 Then
MsgBox "登錄成功,點擊確定進入論壇!!!"
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " "http://www.wghai.com/bbs", vbNormalFocus
Else
MsgBox "未能成功登錄,請檢查你輸入的用戶名及密碼是否正確!!!"
End If
Else
MsgBox "請輸入帳號密碼"