簡易刷博器

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long '這個是設置鼠標的位置!
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) '定義鼠標事件

Dim zanting
Dim maxci
Dim allci
Dim ci
Dim jb
Dim m
Dim x
Dim y
Dim N
Dim zhtz As String
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub re()
On Error Resume Next
N = N + 1
Me.Text1.Text = WebBrowser1.Document.body.innerHtml
a = InStr(1, Text1.Text, "count/" & jb & ".gif")
b = InStr(1, Text1.Text, "count/" & jb + 1 & ".gif")
c = InStr(1, Text1.Text, "count/" & jb + 2 & ".gif")
d = InStr(1, Text1.Text, "count/" & jb + 3 & ".gif")
If a > 0 Or b > 0 Or c > 0 Or d > 0 Then
m = m + 1

Me.WebBrowser1.Navigate Me.Text5.Text
Else
Call SetCursorPos(x, y)
'mouse_event MOUSEEVENTF_rightDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模擬鼠標
End If
If N Mod 50 = 0 Then Me.WebBrowser1.Navigate Me.Text5.Text

'If m > 200 Then
'Me.Text1.Text = ""
' WebBrowser1.Navigate "[url]www.b.c.c[/url]"
'Call root
'End If

Label6.Caption = N
Label1.Caption = "" & m & "次"
End Sub

Private Sub Command2_Click()
Me.Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
x = Val(Text2.Text)
y = Val(Text3.Text)
jb = Val(Me.Text4.Text)
maxci = Val(Me.Text6.Text)
zanting = Val(Me.Text7.Text)
Me.Timer1.Enabled = True
Me.WebBrowser1.Navigate Me.Text5.Text
End Sub

Private Sub root()

On Error Resume Next

'Me.WebBrowser2.Navigate "xxxx"
'For w = 0 To 9999999
'Next

Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser2.Document
For i = 0 To vDoc.All.length - 1 '檢測所有標籤
   If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input標籤
     Set vTag = vDoc.All(i)
     If vTag.Type = "text" Then '檢測類型
        Select Case vTag.Name
           Case "username" '填寫用戶名的文本框的值
              vTag.Value = "XXX"
        End Select
     End If
    If vTag.Type = "password" Then        '檢測密碼框類型
       Select Case vTag.Name
           Case "password"                  '密碼框的值
            vTag.Value = "1234"
       End Select
    End If

    If vTag.Type = "submit" And vTag.Value = " 確  定 " Then '登陸按鈕
     m = 0
     vTag.Click
    
    End If
End If
 
Next i

End Sub

 

Private Sub Form_Load()
'Me.Timer1.Enabled = False
N = 1
On Error Resume Next
Me.WebBrowser1.Navigate "xxxxx
jb = Val(Me.Text4.Text)
maxci = Val(Me.Text6.Text)
zanting = Val(Me.Text7.Text)
End Sub

Private Sub Text4_Change()
jb = Val(Me.Text4.Text)
End Sub

Private Sub Text6_Change()
maxci = Val(Me.Text6.Text)
zanting = Val(Me.Text7.Text)
End Sub

Private Sub Text7_Change()
maxci = Val(Me.Text6.Text)
zanting = Val(Me.Text7.Text)
End Sub

Private Sub Timer1_Timer()

'If N Mod 500 = 0 Then Call root
If m <= maxci Then

Call re

Else

ci = ci + 1
 
  If ci > zanting Then
       ci = 0
       m = 0
       allci = allci + 1

  End If
       Me.Label8.Caption = "倒講時:" & zanting - ci
End If

Me.Label7.Caption = m & "+ " & allci & maxci

End Sub

Private Sub WebBrowser1_GotFocus()
Dim p As POINTAPI
GetCursorPos p
Text2.Text = p.x
Text3.Text = p.y
x = p.x
y = p.y
End Sub