aha, dikasih mangga minta pisang :) .....
ente cuma perlu fungsi2 API ... (app. prog. interface
itu loh yg dari windows.)
ini sebagian dari padanya: ....
Function long WinExec(String acmd, uint Show_Mode)
library 'kernel32.dll' alias for "WinExec;Ansi"
Function long ShowWindow(long l_hwnd, int nCmdShow)
library 'user32.dll'
FUNCTION ulong FindWindowA(ulong classname,string
windowname) LIBRARY "User32.dll" alias for
"FindWindowA;Ansi"
FUNCTION boolean BringWindowToTop( ulong HWND )
Library "user32.dll"
FUNCTION boolean GetUserNameA( ref string userID, ref
ulong len ) library "ADVAPI32.DLL" alias for
"GetUserNameA;Ansi"
SUBROUTINE keybd_event( int bVk, int bScan, int
dwFlags, int dwExtraInfo) LIBRARY "user32.dll"
FUNCTION boolean MoveWindow(ulong whand,int wx,int
wy,int ww,int wh,boolean wflag) LIBRARY "user32.dll"
Function boolean CloseHandle(ulong mutexhandle)
library 'KERNEL32.DLL'
FUNCTION long GetWindowTextA(long hWnd, ref string
lpString, long nMaxCount) Library "user32.dll" alias
for "GetWindowTextA;Ansi"
Function long GetWindow(long hwnd, long wCmd) Library
"user32.dll"
FUNCTION boolean GetKeyboardState(ref integer
kbarray[256]) LIBRARY "USER32.DLL"
FUNCTION uint GetKeyState( int nVirtKey) Library
"user32.dll"
FUNCTION boolean SetKeyboardState(ref integer
kbarray[256]) LIBRARY "USER32.DLL"
FUNCTION uint GetWindowTextLengthA(long hWnd) Library
"user32.dll"
untuk makenya copy n paste fungsi2 di atas ke:
GLOBAL EXTERNAL FUNCTIONS ... jgn ampe salah ye.
trus kalo yg ente mapsud itu sendkey coba gunakan
fungsi: keybd_event
contoh: keybd_event( asc('D'), 0, 0, 0 ) untuk ngetik
"D" , untuk kontrol key, pake scan-codenya. mis. 13
untuk enter, dll.
ogut dah sering pake. bagus untuk otomasi isian.
gut lak.
......
--- muhammad m_iqbal <[EMAIL PROTECTED]> wrote:
> makasih atas pencerahannya,
> tinggal fungsi untuk mengirimkan keycode /
> kode tombol yang kita tekan spt sendkey di VB
> ada yang tahu ?
>
> makasih ....
>
>
> ----- Original Message -----
> From: P ä P ä J Ö Y
> To: [email protected]
> Sent: Thursday, November 16, 2006 10:48 AM
> Subject: Re: [indopb] Mohon Fungsi Deteksi
> Keypress
>
>
>
> -->>>> keypress(key) <<<<------
>
> IF KeyDown(KeyF1!) THEN
>
> . . . // Statements for the F1 key
>
> ELSEIF KeyDown(KeyControl!) THEN
>
> . . . // Statements for the CTRL key
>
> END IF
>
> ....dibaca helpnya mas. gratis kok......
>
> rgds,
>
> --- muhammad m_iqbal <[EMAIL PROTECTED]>
> wrote:
>
> > salam...
> >
> > ada yang tahu fungsi bawaan or fungsi jadian
> untuk
> > membaca kode tombol yang ditekan
> > (spt fungsi inkey() or lastkey() pada clipper or
> > fox)
> >
> > thank
> >
> >
> >
> >
> >
> >
> >
> >
> >
>
________________________________________________________
> >
> > Sekarang dengan penyimpanan 1GB
> > http://id.mail.yahoo.com/
> >
>
>
__________________________________________________________
> Sponsored Link
>
> Mortgage rates near 39yr lows.
> $310k for $999/mo. Calculate new payment!
> www.LowerMyBills.com/lre
>
>
> #ygrp-mlmsg { FONT-SIZE: small; FONT-FAMILY:
> arial,helvetica,clean,sans-serif}#ygrp-mlmsg TABLE {
> }#ygrp-mlmsg SELECT { FONT: 99%
> arial,helvetica,clean,sans-serif}INPUT { FONT: 99%
> arial,helvetica,clean,sans-serif}TEXTAREA { FONT:
> 99% arial,helvetica,clean,sans-serif}#ygrp-mlmsg PRE
> { FONT: 100% monospace}CODE { FONT: 100%
> monospace}#ygrp-mlmsg { LINE-HEIGHT:
> 1.22em}#ygrp-text { FONT-FAMILY: Georgia}#ygrp-text
> P { MARGIN: 0px 0px 1em}#ygrp-tpmsgs { CLEAR: both;
> FONT-FAMILY: Arial}#ygrp-vitnav { FONT-SIZE: 77%;
> MARGIN: 0px; PADDING-TOP: 10px; FONT-FAMILY:
> Verdana}#ygrp-vitnav A { PADDING-RIGHT: 1px;
> PADDING-LEFT: 1px; PADDING-BOTTOM: 0px; PADDING-TOP:
> 0px}#ygrp-actbar { CLEAR: both; MARGIN: 25px 0px;
> COLOR: #666; WHITE-SPACE: nowrap; TEXT-ALIGN:
> right}#ygrp-actbar .left { FLOAT: left; WHITE-SPACE:
> nowrap}..bld { FONT-WEIGHT: bold}#ygrp-grft {
> PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FONT-SIZE:
> 77%; PADDING-BOTTOM: 15px; PADDING-TOP: 15px;
> FONT-FAMILY:
> Verdana}#ygrp-ft { PADDING-RIGHT: 0px; BORDER-TOP:
> #666 1px solid; PADDING-LEFT: 0px; FONT-SIZE: 77%;
> PADDING-BOTTOM: 5px; PADDING-TOP: 5px; FONT-FAMILY:
> verdana}#ygrp-mlmsg #logo { PADDING-BOTTOM:
> 10px}#ygrp-vital { PADDING-RIGHT: 0px; PADDING-LEFT:
> 8px; MARGIN-BOTTOM: 20px; PADDING-BOTTOM: 8px;
> PADDING-TOP: 2px; BACKGROUND-COLOR:
> #e0ecee}#ygrp-vital #vithd { FONT-WEIGHT: bold;
> FONT-SIZE: 77%; TEXT-TRANSFORM: uppercase; COLOR:
> #333; FONT-FAMILY: Verdana}#ygrp-vital UL {
> PADDING-RIGHT: 0px; PADDING-LEFT: 0px;
> PADDING-BOTTOM: 0px; MARGIN: 2px 0px; PADDING-TOP:
> 0px}#ygrp-vital UL LI { CLEAR: both; BORDER-RIGHT:
> #e0ecee 1px solid; BORDER-TOP: #e0ecee 1px solid;
> BORDER-LEFT: #e0ecee 1px solid; BORDER-BOTTOM:
> #e0ecee 1px solid; LIST-STYLE-TYPE: none}#ygrp-vital
> UL LI .ct { PADDING-RIGHT: 0.5em; FONT-WEIGHT: bold;
> FLOAT: right; WIDTH: 2em; COLOR: #ff7900;
> TEXT-ALIGN: right}#ygrp-vital UL LI .cat {
> FONT-WEIGHT: bold}#ygrp-vital A { TEXT-DECORATION:
> none}#ygrp-vital A:hover {
> TEXT-DECORATION: underline}#ygrp-sponsor #hd {
> FONT-SIZE: 77%; COLOR: #999}#ygrp-sponsor #ov {
> PADDING-RIGHT: 13px; PADDING-LEFT: 13px;
> MARGIN-BOTTOM: 20px; PADDING-BOTTOM: 6px;
> PADDING-TOP: 6px; BACKGROUND-COLOR:
> #e0ecee}#ygrp-sponsor #ov UL { PADDING-RIGHT: 0px;
> PADDING-LEFT: 8px; PADDING-BOTTOM: 0px; MARGIN: 0px;
> PADDING-TOP: 0px}#ygrp-sponsor #ov LI {
> PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FONT-SIZE:
> 77%; PADDING-BOTTOM: 6px; PADDING-TOP: 6px;
> LIST-STYLE-TYPE: square}#ygrp-sponsor #ov LI A {
> FONT-SIZE: 130%; TEXT-DECORATION: none}#ygrp-sponsor
> #nc { PADDING-RIGHT: 8px; PADDING-LEFT: 8px;
> MARGIN-BOTTOM: 20px; PADDING-BOTTOM: 0px;
> PADDING-TOP: 0px; BACKGROUND-COLOR:
> #eee}#ygrp-sponsor .ad { PADDING-RIGHT: 0px;
> PADDING-LEFT: 0px; PADDING-BOTTOM: 8px; PADDING-TOP:
> 8px}#ygrp-sponsor .ad #hd1 { FONT-WEIGHT: bold;
> FONT-SIZE: 100%; COLOR: #628c2a; LINE-HEIGHT: 122%;
> FONT-FAMILY: Arial}#ygrp-sponsor .ad A {
> TEXT-DECORATION: none}#ygrp-sponsor .ad A:hover {
> TEXT-DECORATION:
> underline}#ygrp-sponsor .ad P { MARGIN: 0px}o {
> FONT-SIZE: 0px}..MsoNormal { MARGIN: 0px}#ygrp-text
> TT { FONT-SIZE: 120%}BLOCKQUOTE { MARGIN: 0px 0px
> 0px 4px}..replbq { }
>
> ---------------------------------
> Kunjungi halaman depan Yahoo! Indonesia yang baru!
____________________________________________________________________________________
Sponsored Link
$420k for $1,399/mo.
Think You Pay Too Much For Your Mortgage?
Find Out! www.LowerMyBills.com/lre
-----------------------------------------------
IndoPB - Indonesia PB User Group
An Indonesian PowerBuilder User Group's Event
2nd PowerBuilder Update
Rumah Sakit Jantung Harapan Kita
26/27 August 2006
To Register :
http://groups.yahoo.com/group/indopb/database?method=addRecord&tbl=4
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indopb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indopb/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
