fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Windows Copy/Paste Text

Uploader:	Eternal_Pain
Datum/Zeit:	03.03.2014 14:40:02

#include once "windows.bi"



Function GetClipboardText() as String

    Dim as Integer   ok = OpenClipboard(NULL)

    Dim as HANDLE    hData = GetClipboardData(CF_TEXT)

    Dim as ubyte ptr pchData



    pchData = GlobalLock(hData)



    Function = *pchData



    GlobalUnlock(hData)

    CloseClipboard()

End Function



Sub SetClipboardText(Byval text as String)

    Dim as Integer   ok = OpenClipboard(NULL)

    Dim as HGLOBAL   hClipboardData

    Dim as ubyte ptr pchData



    EmptyClipboard()



    hClipboardData = GlobalAlloc(GMEM_DDESHARE, len(text)+1)



    pchData = GlobalLock(hClipboardData)



    for cpy as Integer = 0 to len(text)-1

        pchData[cpy] = text[cpy]

    next cpy



    GlobalUnlock(hClipboardData)

    SetClipboardData(CF_TEXT,hClipboardData)

    CloseClipboard()

End Sub









'SetClipboardText("das isxyvxyvyxvyxvyxvt ein test")

?GetClipboardText()



sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.