![]()  | 
		
			
  | 	
	
	
		
		|||||||
| 論壇說明 | 
| 
				歡迎您來到『史萊姆論壇』  ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』  | 
		
     
![]()  | 
    
    
| 
         | 
    主題工具 | 顯示模式 | 
| 
			
			 | 
		#1 | 
| 
			
			 註冊會員 
			
			
			
			
			
			
			 | 
	
	
	
		
		
			
			 Hi Everybody, 
		
		
		
	有些軟體會偵測系統是否存在Softice而使軟體無法執行 當然Softice就無法進行破解程式? 請問如何讓騙過軟體的偵測(or何種軟體?),可使Softice可以執行破解程序??? Thanks!!!  | 
| 
		 | 
	
	
	
		
	
	 
		送花文章: 0,
		
			
		 
	
 
	
		
	
				 
		
		
		
		
		
		
			
		
		
		
		
		
			
					
						
					
			
		
		
		
		
		
			
				
			
		
		
		
	 | 
| 
			
			 | 
		#2 (permalink) | 
| 
			
			 管理版主 
			![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]()  | 
	
	
	
		
		
			
			 個人是第一次聽過 
		
		
		
		
			不過想想的確辦的到 比如搜尋視窗 Softice 關鍵字 最簡單就是用 winAPI : FindWindow 如真的是這個方法反反制Softice 那只要改 Softice 的視窗標題即可 用資源修改軟體開啟Softice再改名稱即可 ※如果 Softice 主程式有經過加殼加密 那就要先脫殼了 當然還有其他方法 寫一段程式來改 Softice的視窗標題即可 VB 是這麼寫的 Dim hwnd As Long hwnd = FindWindow(vbNullString, "Softice xxxxx") Me.Caption = hwnd & "這是Softice的視窗編號" SetWindowText hwnd, "XX 我要變變變" 上面的 "Softice xxxxx" 必須一模一樣 當然也可以只要找到視窗標題內有 Softice關鍵字就作用的方法 試寫了一下 "軟體偵測系統是否存在Softice而使軟體無法執行" 之功能 以下加在 Private Sub Form_Load() 裡即可 語法: 
	Dim hCurrentWindow As Long
Dim buff As String * 255
Dim strText As String
hCurrentWindow = GetWindow(Me.hwnd, GW_HWNDFIRST)
Do While hCurrentWindow <> 0
     If ((GetWindowText(hCurrentWindow, buff, 255) > 0) And IsWindowVisible(hCurrentWindow)) Then
          strText = Replace(buff, Chr$(0), vbNullString, 1, -1, vbBinaryCompare)
          If InStr(1, strText, "Softice", vbTextCompare) = 1 Then End
     End If
     hCurrentWindow = GetWindow(hCurrentWindow, GW_HWNDNEXT)
Loop
語法: 
	Option Explicit
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
    ByVal hwnd As Long, _
    ByVal lpString As String, _
    ByVal cch As Long) As Long
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" ( _
    ByVal hwnd As Long, _
    ByVal lpString As String) As Long
Public Declare Function GetWindow Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal wCmd As Long) As Long
Global Const GW_HWNDFIRST = 0
Global Const GW_HWNDNEXT = 2
此帖於 2006-08-15 02:44 PM 被 mini 編輯.  | 
| 
		 | 
	
	
	
		
	
	 
		送花文章: 2058,
		
			
		 
	
 
	
		
	
				 
		
		
		
		
		
		
			
		
		
		
		
		
		
		
		
		
			
				
						
				
			
		
		
		
	 |