| ²é¿´: 2561 | »Ø¸´: 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 |
» ²ÂÄãϲ»¶
Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
²ÄÁÏ277Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
ÊýÒ»Ó¢Ò»271ר˶£¨085401£©Çóµ÷¼Á£¬¿É¿ç
ÒѾÓÐ5È˻ظ´
291Çóµ÷¼Á
ÒѾÓÐ21È˻ظ´
Ò»Ö¾Ô¸¹þ¶û±õ¹¤Òµ´óѧ²ÄÁÏÓ뻯¹¤·½Ïò336·Ö
ÒѾÓÐ8È˻ظ´
ҩѧ105500Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
¿¼Ñе÷¼Á
ÒѾÓÐ4È˻ظ´
0703»¯Ñ§
ÒѾÓÐ7È˻ظ´
ѧ˶274Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
321Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
Ò»¸ö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È˻ظ´
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
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
sjh717142
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 109.4
- Ìû×Ó: 45
- ÔÚÏß: 12.8Сʱ
- ³æºÅ: 1122710
- ×¢²á: 2010-10-14
- רҵ: ²ÄÁÏ¿ÆÑ§Ó빤³Ì
¡ï
ÓàÔó³É(½ð±Ò+1):»¶Ó½»Á÷£¡ 2010-12-31 16:27:16
ÓàÔó³É(½ð±Ò+1):»¶Ó½»Á÷£¡ 2010-12-31 16:27:16
|
LSµÄ£¬±ðÈËÊdzÌÐò½áÊøºó²ÅÍ˳ö£¬²»ÊÇÄãµÄ´úÂëÔËÐкó¾ÍÍ˳ö¡£ 1Â¥µÄ·½·¨¶¼²»´í¡£ »¹¿ÉÒÔÖ±½Ó²éÕÒÄ¿±ê³ÌÐò´°¿Ú£¬ÕÒ²»µ½¾Í˵Ã÷³ÌÐò½áÊøÁË£¬ÔÙ×ÔÉíÍ˳ö¡£ |

6Â¥2010-12-27 14:39:25














»Ø¸´´ËÂ¥