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 "請輸入帳號密碼"
End If
End Sub
Private Sub Form_Load()
Me.Caption = "論壇登錄器"
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "登錄"
End Sub

創作者介紹

❤~眼見心不見~❤

Rossi Shie 發表在 痞客邦 留言(0) 人氣()