到别人的机器结果不一样(100分求助啊)

本人做了一个识别xbm图片的投票软件,在自己的机器可以得到正确的验证码,可到别人的机器就不能.还有能否将程序进行自动投票最好是后台的.
Private Sub Command1_Click()
Dim tupian1, a1, a2, a3, a4, b1, b2, b3, b4 As String
Dim x1 As Integer
 Command1.Enabled = False
 
 Clipboard.Clear
tupian1 = Inet1.OpenURL("http://www.qz123.com/hd/policstory/checkcode.asp")
WebBrowser1.Navigate "http://www.qz123.com/hd/policstory/vote.asp?id=27"
   x1 = 155 
             
    a1 = Mid(tupian1, x1, 2)   '取出特征
    a2 = Mid(tupian1, x1 + 5, 2)
    a3 = Mid(tupian1, x1 + 10, 2)
    a4 = Mid(tupian1, x1 + 15, 2)
    b1 = Mid(tupian1, x1 + 20, 2)
    b2 = Mid(tupian1, x1 + 25, 2)
    b3 = Mid(tupian1, x1 + 30, 2)
    b4 = Mid(tupian1, x1 + 35, 2)
     b1 = a1 + b1
     b2 = a2 + b2
     b3 = a3 + b3
     b4 = a4 + b4
    Select Case b1 '识别出数字
      Case "c3c3"
      a1 = "0"
      Case "1818"
      a1 = "1"
      Case "6030"
      a1 = "2"
      Case "601c"
      a1 = "3"
      Case "3333"
      a1 = "4"
      Case "063e"
      a1 = "5"
      Case "0c3e"
      a1 = "6"
      Case "3018"
      a1 = "7"
      Case "663c"
      a1 = "8"
      Case "c366"
      a1 = "9"
    End Select
      
      Select Case b2
      Case "c3c3"
      a2 = "0"
      Case "1818"
      a2 = "1"
      Case "6030"
      a2 = "2"
      Case "601c"
      a2 = "3"
      Case "3333"
      a2 = "4"
      Case "063e"
      a2 = "5"
      Case "0c3e"
      a2 = "6"
      Case "3018"
      a2 = "7"
      Case "663c"
      a2 = "8"
      Case "c366"
      a2 = "9"
    End Select
    
    Select Case b3
      Case "c3c3"
      a3 = "0"
      Case "1818"
      a3 = "1"
      Case "6030"
      a3 = "2"
      Case "601c"
      a3 = "3"
      Case "3333"
      a3 = "4"
      Case "063e"
      a3 = "5"
      Case "0c3e"
      a3 = "6"
      Case "3018"
      a3 = "7"
      Case "663c"
      a3 = "8"
      Case "c366"
      a3 = "9"
    End Select
    
    Select Case b4
      Case "c3c3"
      a4 = "0"
      Case "1818"
      a4 = "1"
      Case "6030"
      a4 = "2"
      Case "601c"
      a4 = "3"
      Case "3333"
      a4 = "4"
      Case "063e"
      a4 = "5"
      Case "0c3e"
      a4 = "6"
      Case "3018"
      a4 = "7"
      Case "663c"
      a4 = "8"
      Case "c366"
      a4 = "9"
    End Select
  
    b1 = a1 & a2 & a3 & a4'得到验证码
    
     Clipboard.Clear
     Clipboard.SetText b1 '验证码存入剪贴版
     
    Do While Inet1.StillExecuting
          DoEvents
  Loop
  Command1.Enabled = True
    
  End Sub
    
 
Private Sub comforward_click()
On Error Resume Next
WebBrowser1.goforwatd
End Sub
Private Sub comback_click()
On Error Resume Next
WebBrowser1.GoBack
End Sub