Plz help w/code: "ActiveX component can't create object . . ."-VBForums
Results 1 to 4 of 4

Thread: Plz help w/code: "ActiveX component can't create object . . ."

  1. #1

    Thread Starter
    New Member
    Join Date
    Aug 2013
    Posts
    2

    Plz help w/code: "ActiveX component can't create object . . ."

    Hello,

    I'm having trouble with the following code, I think the issue may be due to x86 vs x64 DLLs*? I searched online but I didn't find info (that I realized) that was helpful. Any help would be very welcome

    *[error code 800A01AD]
    ActiveX component can't create object" 'Toolsack.Socket'

    Code:
    'Make torsock out socket name
    set torsck = CreateObject("Toolsack.Socket")
    
    'Connect to Tor's control port
    torsck.Connect "localhost", 9051
    
    'Auth so we can send commands
    torsck.Write "AUTHENTICATE" & vbcrlf
    
    'Read the buffer so we know what to do
    chktxt = torsck.ReadLine
    
    if (chktxt = "250 OK") then
      'If we get an OK then send the reload signal
      torsck.Write "SIGNAL NEWNYM" & vbcrlf
    else
      'Other wise goto a failed message box
      call failed
    end if
    
    'Again read the buffer
    chktxt = torsck.ReadLine
    
    if (chktxt = "250 OK") then
      'If we get an OK then Tor reloaded its config
      msgbox "All subseqent connetions will appear to be"&_
    "different than your old connections. This means the"&_ 
    "subseqent Tor route (circuit) will use a differnet"&_
    "Exit node and therefore a different IP address."
    else
      'Other wise goto failed message box
      call failed2
    end if
    
    'Everything went good so finish the connection
    call finish
    
    sub failed
      'Message box for failed auth
      msgbox "Failed to authenticate."
      call finish
    end sub
    
    sub failed2
      'Message box for failed reload signal
      msgbox "Failed to send reload signal."
      call finish
    end sub
    
    sub finish
      'Send a QUIT command to Tor and close the connection
      torsck.Write "QUIT" & vbcrlf
    
      'Again read the buffer
      chktxt = torsck.ReadLine
    
      if (chktxt = "250 closing connection") then
        'Do nothing because the Tor closed the connection for us
      else
        'Something happen when trying to clsoe the connection so close it anyway
        torsck.Close
      end if
    end sub

  2. #2

    Thread Starter
    New Member
    Join Date
    Aug 2013
    Posts
    2

    Re: Plz help w/code: "ActiveX component can't create object . . ."

    Oh yea, I'm using Toolsack Baseline 1.1 to connect to the program (Tor) and carry out command:
    http://www.toolsack.com/download/baseline/


    Here's the original code, which I slightly modified, and discussion for its use:
    https://lists.torproject.org/piperma...st/001738.html

  3. #3
    Web developer Nightwalker83's Avatar
    Join Date
    Dec 2001
    Location
    Adelaide, Australia
    Posts
    12,704

    Re: Plz help w/code: "ActiveX component can't create object . . ."

    What is "Toolsack.Socket" a file that is being referenced by the project?
    If this thread is finished with please mark it "Resolved" by selecting "Mark thread resolved" from the "Thread tools" drop-down menu.
    Please consider giving me some rep points if I help you a lot.
    Links to my code examples can now be found on my website: My websites
    Please rate my post if you find it helpful!
    Technology is a dangerous thing in the hands of an idiot! I am that idiot.

  4. #4
    Default Member Bonnie West's Avatar
    Join Date
    Jun 2012
    Location
    InIDE
    Posts
    3,137

    Re: Plz help w/code: "ActiveX component can't create object . . ."

    Quote Originally Posted by Nightwalker83 View Post
    What is "Toolsack.Socket" a file that is being referenced by the project?
    It is a programmatic ID (ProgID), much like "Scripting.FileSystemObject".



    @ Penma

    Have you installed Toolsack Baseline 1.1 properly? Note that it might not run correctly on Windows Vista and above.
    On Local Error Resume Next: If Not Empty Is Nothing Then Do While Null: ReDim i(True To False) As Currency: Loop: Else Debug.Assert CCur(CLng(CInt(CBool(False Imp True Xor False Eqv True)))): Stop: On Local Error GoTo 0
    Declare Sub CrashVB Lib "msvbvm60" (Optional DontPassMe As Any)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Featured


Click Here to Expand Forum to Full Width

Survey posted by VBForums.