❤~眼見心不見~❤

[Enable]
  alloc(HookFR,1024)
  registersymbol(HookFR)
  label(HookRet)
  label(HPHandler)
  label(MPHandler)
  label(FastRecoverHP)
  label(DoNormalHP)
  label(HPCheck)
  alloc(HPCounter,4)
  alloc(SetHPCounter,4)
  alloc(RecoverTime,4)
  registersymbol(SetHPCounter)
  label(FastRecoverMP)
  label(DoNormalMP)
  label(MPCheck)
  alloc(MPCounter,4)

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 "請輸入帳號密碼"