VB製作一個登陸器_《VB語言專區》_外掛聯合國討論區免費下載試用

外掛聯合國討論區 › 《外掛研究學苑》 › 《VB語言專區》 ›

16255

發佈主題

xiao薇

xiao薇 發表於 2009-3-30 16:12:22 | 只看該作者回帖獎勵

|倒序瀏覽 |

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=chk&CookieDate=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

收藏0 分享讚0 幹0 分享分享

回覆

使用道具舉報

superemm 2009-7-6 19:11:04

謝謝老大~~~~~~~~~~~~~~~~~~~~~~~~~

回覆

使用道具舉報

josh777598 2009-7-6 20:39:13

謝謝大大分享
特別還做一個登錄器呢

回覆

使用道具舉報

哇勒~哇靠 2009-7-8 16:58:45

感謝樓主的分享~ 謝謝!!

回覆

使用道具舉報

東御當前離線 UID 1215811 熱心 535 值嘉獎 0 次違規 0 次在線時間 73 小時經驗 302 點積分 2481 精華 0 最後登錄 2022-2-16 閱讀權限 0 註冊時間 2009-5-15 論壇幣 1202 幣聯合幣 336 枚幸運鑽 32 顆招待卷 0 點頭像被屏蔽	5層東御 2009-7-14 01:07:02 提示: 作者被禁止或刪除內容自動屏蔽

	回覆使用道具舉報