/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Simulere tryk på ctrl+v
Fra : Thomas P


Dato : 19-05-01 22:04

I min jagt på løsningen på, hvordan man kan få indsat indholdet af
udklipsholderen i Internet Explorer, har jeg nu fået den idé at man da må
kunne få Internet Explorer til at simulere et tryk på ctrl+v. Hvis der er
nogen, der bare har den nærmeste anelse eller kender "et sted", vil jeg
_meget_ gerne have et svar (jeg er vist desperat, hva'!)

--
- Thomas
~~~~~~~~
.... http://www.FlowCode.f2s.com - where code flows
.... mailto:blomme@post.com - where email goes



 
 
Thomas P (20-05-2001)
Kommentar
Fra : Thomas P


Dato : 20-05-01 07:39

Heh ! Jeg fandt denne java-kode på dk.edb.internet, der efter sigende skulle
gøre det samme - hvis der er nogen der skulle have forstand på både java og
delphi, kunne jeg godt tænke mig at vide hvordan denne kode fungerer

---

private static int KEYEVENTF_EXTENDEDKEY = 0x1;
private static int KEYEVENTF_KEYUP = 0x2;

public void setValue(String name, String value) throws JSException {
JSObject window = JSObject.getWindow(this);
JSObject document = (JSObject) window.getMember("document");
JSObject all = (JSObject) document.getMember("all");
JSObject input = (JSObject) all.getMember(name);
input.call("select", null);

try {
if (Class.forName("com.ms.security.PolicyEngine") != null) {
PolicyEngine.assertPermission(PermissionID.SYSTEM);
}
} catch (Throwable e) {}
StringSelection s = new StringSelection(value);
Toolkit.getDefaultToolkit().getSystemClipboard().setContents(s, s);

//det onde hack
int [] param = new int[] {0};
keybd_event(0x11, 0x9d, KEYEVENTF_EXTENDEDKEY | 0, param);
keybd_event(0x56, 0x81, KEYEVENTF_EXTENDEDKEY | 0, param);
keybd_event(0x56, 0x81,
KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, param);
keybd_event(0x11, 0x9d,
KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, param);
try {
if (Class.forName("com.ms.security.PolicyEngine") != null) {
PolicyEngine.revertPermission(PermissionID.SYSTEM);
}
} catch (Throwable e) {}
}

---

Se evt. det projekt jeg mangler det for på min side...

--
- Thomas
~~~~~~~~
.... http://www.FlowCode.f2s.com - where code flows
.... mailto:blomme@post.com - where email goes



Steen Jensen (20-05-2001)
Kommentar
Fra : Steen Jensen


Dato : 20-05-01 09:31

Hej Thomas

Thomas P skrev i meddelelsen <9e7onl$gdm$1@news.inet.tele.dk>...
>Heh ! Jeg fandt denne java-kode på dk.edb.internet, der efter sigende
skulle
>gøre det samme - hvis der er nogen der skulle have forstand på både java og
>delphi, kunne jeg godt tænke mig at vide hvordan denne kode fungerer
>
>private static int KEYEVENTF_EXTENDEDKEY = 0x1;
>private static int KEYEVENTF_KEYUP = 0x2;
>
>Se evt. det projekt jeg mangler det for på min side...
>
>

Jeg kunne ikke lige finde dit projekt på din side, men hvis det bare handler
om at simulere Ctrl+V så kan du prøve følgende (Her med Notepad).

var
Wnd : HWND;
begin
Wnd := FindWindow('NOTEPAD', nil);
SetForegroundWindow(Wnd);

KEYBD_EVENT(VK_CONTROL, Mapvirtualkey(VK_CONTROL, 0), 0, 0);
KEYBD_EVENT(Ord('V'), Mapvirtualkey(Ord('V'), 0), 0, 0);
KEYBD_EVENT(Ord('V'), Mapvirtualkey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
KEYBD_EVENT(VK_CONTROL, Mapvirtualkey( VK_CONTROL, 0), KEYEVENTF_KEYUP,
0);
end;

Med venlig hilsen
Steen




Thomas P (20-05-2001)
Kommentar
Fra : Thomas P


Dato : 20-05-01 10:19

> Jeg kunne ikke lige finde dit projekt på din side, men hvis det bare
handler
> om at simulere Ctrl+V så kan du prøve følgende (Her med Notepad).

Yeeehaw ! Rigtig mange gange tak for hjælpen - det var præcis det jeg skulle
bruge

--
- Thomas
~~~~~~~~
.... http://www.FlowCode.f2s.com - where code flows
.... mailto:blomme@post.com - where email goes



Thomas P (21-05-2001)
Kommentar
Fra : Thomas P


Dato : 21-05-01 13:46

Btw, så kan jeg da lige oplyse om at programmet jeg skulle bruge koden til,
kan hentes på Flowcode eller ved at følge linket her...
http://www.flowcode.f2s.com/download_fil.php?fil=http://home13.inet.tele.dk/
trompet5/flowcode/websignatur.zip&mode=download

....og bare rolig - jeg har husket at rette min credits til

--
- Thomas
~~~~~~~~
.... http://www.FlowCode.f2s.com - where code flows
.... mailto:blomme@post.com - where email goes



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste