Søg
Avatar billede Slettet bruger
20. august 2003 - 13:42 Der er 12 kommentarer og
1 løsning

Clipboard i et Visual Basic Script (vbs)

Nogen som ved om det er muligt at tilgå clipboardet fra et VB-Script?
Jeg vil gerne sender en url til clipboardet..
Avatar billede medions Nybegynder
20. august 2003 - 14:52 #1
SÅdan her gør du med VB:

http://www.aboutvb.de/vbs/artikel/vbsavbtoolsclipboard.htm

Men jeg har lige kigget i manualen, og det ser ikke ud osm om det kan lade sig gøre i VBScript :-(

Men du kan gøre sådan her i java script:

<html>
<head>
<script>
function copyit(obj)
{
    obj.focus();
  obj.select();
    rng=obj.createTextRange();
    rng.execCommand("Copy");
}
</script>
</head>

<body>

<form>
<input type=text name='mytext'>

<input type=button value="copy to clipboard" onClick='copyit(this.form["mytext"])'>

</form>

</body>
</html>


//>Rune
Avatar billede Slettet bruger
20. august 2003 - 15:00 #2
jeg skal bruge det i VBS
Avatar billede medions Nybegynder
20. august 2003 - 15:05 #3
howcome?

//>Rune
Avatar billede medions Nybegynder
20. august 2003 - 15:08 #4
Prøv den her så:

http://www.codeproject.com/useritems/emacs_style_clipboard_ring.asp

//>Rune
Avatar billede medions Nybegynder
20. august 2003 - 15:11 #5
Here you got your answer ;o) :

http://www.automatedqa.com/products/tc_faq4.asp#q9

//>Rune
Avatar billede Slettet bruger
20. august 2003 - 15:41 #6
medions -> har du selv tested "Sys.Clipboard = "My text"" for hos mig virker det ikke.. efter hvad jeg kan læse mig frem til så kræver det kommando at man har programmet TestComplete installeret.. og det ønsker jeg ikke :)
Avatar billede adam_christensen Nybegynder
20. august 2003 - 15:48 #7
Nedenstående script bruger et (skjult) IE objekt med en lille HTML form til at få fat i clipboardet. Jeg gad ikke lave det så den midlertidige html-fil bliver slettet igen. Det må du selv fixe ;-)

Option Explicit

Dim oIE                      ' global object for IE
Dim txt                      ' handles clipboard text
Dim fso, f, sHTMLFileName, html


' Create Internet Explorer instance for clipboard access
MakeIEDoc

' Ask user for a text
txt = InputBox ("Enter a text", "Paste text to clipboard", "")

' write a text into text box
oIE.Document.All.exch.Value = txt
' Write text into IE document's text box ...
oIE.Document.All.exch.select()
' ... and transfer it to clipboard
oIE.Document.execCommand("Copy")

' Allow user to check the clipboard content
WScript.Echo "Written to clipboard: " & vbCRLF & txt & vbCRLF & _
              vbCRLF & "Please check and alter the clipboard"

' read data from clipboard into text box ...
oIE.Document.execCommand("Paste")
' and show data obtained from this text box
WScript.Echo "Clipboard text:" & vbCRLF & oIE.Document.All.exch.Value

' close Internet Explorer instance
oIE.Quit 

' clean up
Set oIE = Nothing

Sub MakeIEDoc ()
' Launch Internet Explorer & prepare a page with a text box

' define HTML code with a text area
html = "<html><head><title>Clipboard Exchange Helper</title></head>" & _
      "<body bgcolor='silver'>" & _
      "<textarea name='exch' rows='8' cols='80'></textarea>" & _
      "</body></html>"
     
' write the HTML to a temporary file

sHTMLFileName = "1e74c834.html"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile(sHTMLFileName)
f.Write(html)
f.Close

Set f= Nothing
Set fso = Nothing

sHTMLFileName = "file:///" & Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\")) & sHTMLFileName

' *** launch Internet Explorer ***
Set oIE = WScript.CreateObject("InternetExplorer.Application")
  oIE.left=50            ' window position
  oIE.top = 100          ' and other properties
  oIE.height = 200
  oIE.width = 580
  oIE.menubar = 0        ' no menu
  oIE.toolbar = 0
  oIE.statusbar = 0
  oIE.navigate sHTMLFileName ' Helper window
  oIE.visible = 0        ' keep invisible

  Do While (oIE.Busy):Loop ' Important: wait till MSIE is ready
End Sub
'* End
Avatar billede Slettet bruger
20. august 2003 - 16:04 #8
hej adam.. det virker ikke kikkede også på siden hvorpå scriptet stod: http://www.borncity.de/WSHBazaar/News7.htm
og det virker heller ikke..
Avatar billede adam_christensen Nybegynder
20. august 2003 - 16:06 #9
Hmm... det virker da fint på min WinXP. Hvad får du af fejl?
Avatar billede adam_christensen Nybegynder
20. august 2003 - 16:11 #10
Scriptet på http://www.borncity.de/WSHBazaar/News7.htm virkede ikke, derfor modificerede jeg det lidt - har du prøvet koden her fra siden?
Avatar billede Slettet bruger
20. august 2003 - 16:19 #11
hmm.. sorry.. det virker.. men det er sku en nød løsning.. er der virkelig ingen måde at gøre det på normal vis.. :) altså uden at åbne en ie, er der nogen som har en anden løsning så skriv
Avatar billede Slettet bruger
20. august 2003 - 16:20 #12
adam_* svar igen
Avatar billede adam_christensen Nybegynder
20. august 2003 - 22:25 #13
VBScript kan ikke som std. Du kan sikkert finde et COM-objekt der kan, men så synes jeg da løsningen med IE er ret elegant ;-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Batch fil Af BDV i VBscript 1 12/01/202210:00 12/01/202210:05
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
IT-JOB
Seneste spørgsmål Seneste aktivitet
I går 17:38 Video ikoner Af Malm i Windows
I går 17:27 Video ikoner Af logbuilders i Windows
16/0110:29 Negativ billeder på samsung Af ALICE i Småopgaver
15/0115:45 HJÆLP - Lopslag, Indeks? Hvad gør jeg! Af Eva i Excel
14/0119:38 Webmail yousee Af nu_igen i E-mail programmer
White papers
Flere white papers »