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 :) :wave::thumb:
*[error code 800A01AD]
ActiveX component can't create object" 'Toolsack.Socket'
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 :) :wave::thumb:
*[error code 800A01AD]
Quote:
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