我的空間 ｜　會員中心　｜ VIP會員　｜ 聯合國facebook專區
黃易群俠傳M脫機外掛應用程式黃易神行
外掛聯合國討論區 › 《外掛研究學苑》 › 《VB語言專區》 ›
16101
25
發佈主題
返回

[分享] VB製作一個登陸器

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
收藏收藏 分享分享 讚讚 幹幹 分享分享 FB分享
回覆

使用道具 舉報


superemm 當前離線
UID
1022928
熱心
10 值
嘉獎
0 次
違規
0 次
在線時間
0 小時
經驗
6 點
積分
27
精華
0
最後登錄
2018-8-7
閱讀權限
20
註冊時間
2008-9-14
論壇幣
5 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
superemm 2009-7-6 19:11:04
謝謝老大~~~~~~~~~~~~~~~~~~~~~~~~~
回覆

使用道具 舉報

josh777598 當前離線
UID
446105
熱心
229 值
嘉獎
0 次
違規
0 次
在線時間
94 小時
經驗
229 點
積分
229
精華
0
最後登錄
2010-1-17
閱讀權限
25
註冊時間
2007-7-17
論壇幣
1535 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
josh777598 2009-7-6 20:39:13
謝謝大大分享
特別還做一個登錄器呢
回覆

使用道具 舉報

哇勒~哇靠 當前離線
UID
1023628
熱心
24 值
嘉獎
0 次
違規
0 次
在線時間
10 小時
經驗
23 點
積分
23
精華
0
最後登錄
2009-9-14
閱讀權限
20
註冊時間
2008-9-14
論壇幣
0 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
哇勒~哇靠 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
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

jaydiy 當前離線
UID
1140322
熱心
50 值
嘉獎
0 次
違規
0 次
在線時間
17 小時
經驗
54 點
積分
54
精華
0
最後登錄
2009-12-16
閱讀權限
20
註冊時間
2009-2-22
論壇幣
533 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
6層
jaydiy 2009-8-2 18:16:42
論壇的登入器的程式碼~看起來不難
                                             
以後登入論壇還蠻方便的~謝謝分享
回覆

使用道具 舉報

maid2009 當前離線
UID
1280577
熱心
13 值
嘉獎
0 次
違規
0 次
在線時間
1 小時
經驗
13 點
積分
13
精華
0
最後登錄
2009-7-30
閱讀權限
10
註冊時間
2009-7-30
論壇幣
26 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
7層
maid2009 2009-8-4 08:55:11
請問 這個東西具體作用是干什麽的?YCT45B YCT44B YCT43B
回覆

使用道具 舉報

隨火 當前離線
UID
1294953
熱心
214 值
嘉獎
0 次
違規
0 次
在線時間
6 小時
經驗
14 點
積分
14
精華
0
最後登錄
2011-4-5
閱讀權限
10
註冊時間
2009-8-20
論壇幣
78 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
8層
隨火 2009-9-1 10:03:25
哦原來是這樣阿謝謝你無私的分享熱情的教學
回覆

使用道具 舉報

coolfire001 當前離線
UID
404006
熱心
2 值
嘉獎
0 次
違規
0 次
在線時間
3 小時
經驗
2 點
積分
11
精華
0
最後登錄
2016-8-2
閱讀權限
10
註冊時間
2016-8-2
論壇幣
1 幣
聯合幣
3 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
9層
coolfire001 2009-9-4 18:28:56
謝謝大大的無私分享,..................thx
YCT18B
回覆

使用道具 舉報

S-BB 當前離線
UID
538360
熱心
399 值
嘉獎
0 次
違規
0 次
在線時間
114 小時
經驗
389 點
積分
2956
精華
0
最後登錄
2013-9-6
閱讀權限
40
註冊時間
2007-9-8
論壇幣
2038 幣
聯合幣
1 枚
幸運鑽
0 顆
招待卷
6338 點
查看詳細資料
Rank: 5Rank: 5Rank: 5
10層
S-BB 2009-9-12 11:46:45
我想問問這個可掛(hook)式晴T私人部落格●度嗎?例如要打完password先可以用到果個PROGRAM
回覆

使用道具 舉報

高級模式
B Color Image Link Quote Code Smilies
您需要登錄後才可以回帖 登錄 | 註冊

123下一頁

手機版 | Archiver | 外掛聯合國

GMT+8, 2024-9-20 23:43 , Processed in 0.066413 second(s), 16 queries , Memcache On.

版權說明:
　　本站不會製作、經銷、代理外掛程式。僅免費提供外掛程式下載前之掃毒及掃木馬等安全檢測驗證，協助會員遠離盜號危險程式。本站所有資料均來自網際網路收集整理，說明文字暨下載連結轉載自原程 式開發站。站上出現之公司名稱、遊戲名稱、程式等，商標及著作權，均歸各公司及程式原創所有，本站程式所有權歸外掛聯合國所有。本程式所有權歸外掛聯合國所有.......

回頂部
第二步?
第三步?