[crazy_man]

Копируем инфу в буфер обмена:

Код: vb

function CopyToClipboard(sText)

        \'Set objIE = CreateObject(\"InternetExplorer.Application\")
        \'objIE.Navigate(\"about:blank\")
        \'objIE.document.parentwindow.clipboardData.SetData \"text\", sText
        \'objIE.Quit       
              
         \'Через VB:
              Set WshShell = CreateObject(\"WScript.Shell\")
              Set oExec = WshShell.Exec(\"clip\")
              Set oBuff = oExec.stdIn
              oBuff.WriteLine sText
end function