| ²é¿´: 2560 | »Ø¸´: 5 | |||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | |||
yhwsmile½ð³æ (СÓÐÃûÆø)
|
[½»Á÷]
¡¾ÇóÖú¡¿ÔõôÈÃvb³ÌÐòÔËÐнáÊøºó×Ô¶¯Í˳ö°¡ ÒÑÓÐ5È˲ÎÓë
|
||
|
ÎÒÓÃvbµ÷ÓÃÒ»¸öÍⲿ³ÌÐò£¬ÎÒÏëÔÚÍⲿ³ÌÐòdata_con.exeÔËÐнáÊøºó£¬vb×Ô¶¯Í˳ö£¬ÇëÎÊÔõôʵÏÖ°¡£¿Ð»Ð»¸÷λ´óÏÀÁË~~~~ ÏÂÃæÊÇ´úÂ룺 Option Explicit Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Sub Form_Load() Call Shell("data_con.exe", vbNormalFocus) End Sub |
» ²ÂÄãϲ»¶
286Çóµ÷¼Á
ÒѾÓÐ9È˻ظ´
Ò»Ö¾Ô¸Äϲý´óѧ324Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
0703»¯Ñ§/290Çóµ÷¼Á/±¾¿Æ¾Àú·á¸»/¹¤¿ÆÒ²¿É
ÒѾÓÐ10È˻ظ´
291Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
308Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
085404Çóµ÷¼Á£¬×Ü·Ö309£¬±¾¿Æ¾Àú½ÏΪ·á¸»
ÒѾÓÐ4È˻ظ´
ѹ¹ú¼ÒÒ»ÇøÏߣ¬Çóµ¼Ê¦ÊÕÁô£¬Óж÷±ØÐ»£¡
ÒѾÓÐ3È˻ظ´
Ò»Ö¾Ô¸ÖÐÄÏ´óѧ»¯Ñ§0703×Ü·Ö337Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
083000ѧ˶274Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
304Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
Ò»¸öVB¹¤³ÌµÄÎÊÌâ
ÒѾÓÐ5È˻ظ´
ÓÃvbÈçºÎ½«EXClEÒ»¸ö¹¤×÷±í¹Ø±Õͬʱ´ò¿ªÁíÒ»¸öÖ¸¶¨µÄ¹¤×÷±í
ÒѾÓÐ2È˻ظ´
ÈçºÎÔËÐÐFortran±àÒëºÃµÄexe²¢×Ô¶¯ÊäÈëÎÄ
ÒѾÓÐ11È˻ظ´
Ò»¸ö´ÓÀ´Ã»Óбà³Ì¾ÑéµÄÈË£¬ÄãÃǾõµÃVB×÷ΪÈëÃÅÓïÑÔÔõôÑù£¿
ÒѾÓÐ23È˻ظ´
¡¾ÇóÖú¡¿dev c++±àÒë½áÊø£¬ÔËÐкóÔõôÑùÊä³ö½á¹û£¿
ÒѾÓÐ6È˻ظ´
¡¾ÇóÖú¡¿matlab³ÌÐòÔËÐгö´í£¬ÊÇÔõô»ØÊ°¡¡¾ÒÑÍê½á¡¿
ÒѾÓÐ6È˻ظ´
¡¾ÇóÖú¡¿vbµ÷ÓÃÍⲿ³ÌÐò£¬Íⲿ³ÌÐòÔËÐнáÊøºóÈçºÎÔÚformÉÏÏÔʾ³öÌáʾÐÅÏ¢°¡~£¡~~
ÒѾÓÐ3È˻ظ´
¡¾ÇóÖú¡¿vb command¿Ø¼þÌí¼Ó±³¾°Í¼Æ¬ºó£¬ÎÄ×ÖÅÜ×îÏÂÁË£¬ÔõôÈÃÆä¾ÓÖа¡~~~~
ÒѾÓÐ8È˻ظ´
¡¾ÇóÖú¡¿VBÈçºÎ¶ÁÈ¡txtÎļþ~~
ÒѾÓÐ12È˻ظ´
¡¾ÇóÖú¡¿´ËVB³ÌÐòÔõôÔËÐв»ÆðÀ´£¿
ÒѾÓÐ8È˻ظ´
¡¾ÇóÖú¡¿Fortran³ÌÐò£¬ÈçºÎÈÃexeÎļþ¿ÉÒÔµ¥¶ÀÔËÐУ¿
ÒѾÓÐ6È˻ظ´
¡¾½»Á÷¡¿VC++, C#, VB´ðÒÉרÌù
ÒѾÓÐ145È˻ظ´
lwq911
гæ (СÓÐÃûÆø)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 112.6
- Ìû×Ó: 121
- ÔÚÏß: 15Сʱ
- ³æºÅ: 54090
- ×¢²á: 2004-09-25
- רҵ: ͨÐÅÀíÂÛÓëϵͳ
¡ï ¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÓàÔó³É(½ð±Ò+2):лл²ÎÓëÓ¦Öú£¬»¶Ó³£À´³ÌÐòÓïÑ԰棡 2010-12-24 16:37:44
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÓàÔó³É(½ð±Ò+2):лл²ÎÓëÓ¦Öú£¬»¶Ó³£À´³ÌÐòÓïÑ԰棡 2010-12-24 16:37:44
|
¸ãÄÇô¸´ÔÓ°¡£¬¸Éʲô°¡£¡ Private Sub Command1_Click() Dim ret As Integer Call Shell("data_con.exe", vbNormalFocus) end End Sub |
5Â¥2010-12-23 09:51:11
magic7004
½ð³æ (Ö°Òµ×÷¼Ò)
- ³ÌÐòÇ¿Ìû: 2
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 444
- ºì»¨: 4
- Ìû×Ó: 3278
- ÔÚÏß: 156.2Сʱ
- ³æºÅ: 482895
- ×¢²á: 2007-12-26
- ÐÔ±ð: GG
- רҵ: »¯Ñ§¹¤³Ì
¡ï ¡ï ¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
resonant(½ð±Ò+3):ллÌṩ£¬Ò»ÖÖ·½·¨ÆÀÒ»·Ö£º-£© 2010-10-22 19:24:07
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
resonant(½ð±Ò+3):ллÌṩ£¬Ò»ÖÖ·½·¨ÆÀÒ»·Ö£º-£© 2010-10-22 19:24:07
|
·½·¨1. PID = Shell("data_con.exe",vbNormalFocus) HANDLE = OpenProcess(PROCESS_ALL_ACCESS,0,PID) WaitForSingleObject(HANDLE, INFINITE) End ÕâÑùµÄ»°£¬data.con.exeÍ˳ö֮ǰ£¬VB³ÌÐò¶¼ÊÇûÓÐÏìÓ¦µÄ¡£ ·½·¨2 ×öÒ»¸öTimer£¬Ò»Ö±¼ì²éProcessµÄExitCode Call GetExitCodeProcess(HANDLE,ExitCode) if ExitCode <> STILL_ALIVE then End Õâ¸ö·½·¨ÓÃTimer±È½ÏÍÁ ·½·¨3 HookÄ¿±ê½ø³Ì£¬µ±Ä¿±ê½ø³Ì½áÊøÊ±£¬¸øVB³ÌÐò·¢ÏûÏ¢ Õâ¸ö·½·¨ÓÃVBʵÏֱȽÏÂé·³Ò»µã |

2Â¥2010-10-22 17:00:35
yhwsmile
½ð³æ (СÓÐÃûÆø)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 1053.8
- Ìû×Ó: 160
- ÔÚÏß: 16.2Сʱ
- ³æºÅ: 620196
- ×¢²á: 2008-10-08
- ÐÔ±ð: GG
- רҵ: ´óÆø»·¾³ÓëÈ«ÇòÆøºò±ä»¯
3Â¥2010-10-23 13:26:17
ÁõÕÑÈ»
гæ (СÓÐÃûÆø)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 217.7
- É¢½ð: 8
- Ìû×Ó: 52
- ÔÚÏß: 6.9Сʱ
- ³æºÅ: 1145539
- ×¢²á: 2010-11-13
- רҵ: ¸ÖÌúÒ±½ð
4Â¥2010-12-11 08:43:13














»Ø¸´´ËÂ¥