如何挂起另外一个进程或进程下一个线程呢?

[幽幽浮浮]

SuspendThread过期了，如何挂起另外一个进程或进程下一个线程呢?
VB.NET 2010.

[幽幽浮浮]

求版主或达人指教～～

[幽幽浮浮]

求版主或达人指教～～

[greatbody]

[Quote=引用楼主 的回复:]
SuspendThread过期了，如何挂起另外一个进程或进程下一个线程呢?
VB.NET 2010.
[/Quote]什么叫做过期了？

[幽幽浮浮]

过期就是在VB.NET 2010里不能继续使用。我看MSDN里这么写的。

[sjrw96004]

我的理解是在.net中进程过期后系统会自动关闭并收回内存空间

[幽幽浮浮]

[Quote=引用 5 楼 的回复:]
我的理解是在.net中进程过期后系统会自动关闭并收回内存空间
[/Quote]
是挂起其他进程或线程，非自己的。

[taick]

如果你怕麻烦，过期的也可以用。
个人觉得要操作线程，都是用标识比较好，只是会麻烦些，视情况而定。
如
dim t as new thread(addressof a)
t.start

dim btag

sub t()
while true
...
while btag
thread.sleep(1)
end while
...
end while
end sub

sub b()
btag=true
end wub

sub c()
btag=false
end sub

最好写临界点

这机器上没装VS

[taick]

不好意思，没看清。
以为是自己的线程

[taick]

没看清，以为是自己的线程。

[SocketUpEx]

注入到目标进程
然后获取线程句柄
然后TerminateThread()

[bigbaldy]

[Quote=引用 11 楼 的回复:]

一定要注入吗？

引用 10 楼 的回复:
注入到目标进程
然后获取线程句柄
然后TerminateThread()
[/Quote]

不用注入。下面是MSDN的例子

BOOL ListProcessThreads( DWORD dwOwnerPID ) 
{ 
  HANDLE hThreadSnap = INVALID_HANDLE_VALUE; 
  THREADENTRY32 te32; 
 
  // Take a snapshot of all running threads  
  hThreadSnap = CreateToolhelp32Snapshot( TH32CS_SNAPTHREAD, 0 ); 
  if( hThreadSnap == INVALID_HANDLE_VALUE ) 
    return( FALSE ); 
 
  // Fill in the size of the structure before using it. 
  te32.dwSize = sizeof(THREADENTRY32 ); 
 
  // Retrieve information about the first thread,
  // and exit if unsuccessful
  if( !Thread32First( hThreadSnap, &te32 ) ) 
  {
    printError( "Thread32First" ); // Show cause of failure
    CloseHandle( hThreadSnap );    // Must clean up the
                                   //   snapshot object!
    return( FALSE );
  }

  // Now walk the thread list of the system,
  // and display information about each thread
  // associated with the specified process
  do 
  { 
    if( te32.th32OwnerProcessID == dwOwnerPID )
    {
      //暂停线程 
    }
  } while( Thread32Next(hThreadSnap, &te32 ) ); 

//  Don't forget to clean up the snapshot object.
  CloseHandle( hThreadSnap );
  return( TRUE );
}

[幽幽浮浮]

一定要注入吗？

[Quote=引用 10 楼 的回复:]
注入到目标进程
然后获取线程句柄
然后TerminateThread()
[/Quote]

[幽幽浮浮]

最终用了ntsuspendprocess()函数一步搞定。