Sign in to follow this  
Followers 0
zhao

please help me convert vb6 to autoit

1 post in this topic

here is some vb6 code,could you help me convert it to autoit?

and the XdictGrb.dll is needed

Option Explicit
Implements IXDictGrabSink
Private gp As GrabProxy
Private Sub Form_Load()
    
      Set gp = New GrabProxy
    
With gp
      .GrabEnabled = True 
    
      .GrabInterval = 30 
    
      .GrabMode = XDictGrabMouse '
    
      .AdviseGrab Me 
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
      Set gp = Nothing
End Sub
Private Function IXDictGrabSink_QueryWord(ByVal WordString As String, ByVal lCursorX As Long, ByVal lCursorY As Long, ByVal SentenceString As String, lLoc As Long, lStart As Long) As Long
    
      Label1.Caption = "当前坐标:" & "(" & lCursorX & "," & lCursorY & ")"
      Label2.Caption = "当前语句:" & SentenceString
      Label3.Caption = "当前字符:" & Mid(SentenceString, lLoc + 1, 1000)
End Function

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0