請大大交一下 Vb6的偵測編輯!!!

s9401005

偵測的每次都錯誤
Private Sub Command1_Click() 這句
剛剛看了
http://www.bingfong.com/thread-16186-1-1.html
這篇
有人回答說

要兩個 If FindGame("MapleStory.exe") = True Then(第一個 IF)
If hProcess <> 0 Then (第二個IF)
所以你後面要打 END IF
END IF
(2次)


於是 我用了
Private Sub Command1_Click()
If FindGame("MapleStory.exe") = True Then End If
Call InitAutoAsm(dwProcId)
GetWindowThreadProcessId hwd, pid
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If hProcess <> 0 Then End If
        MsgBox "偵測成功", , "系統訊息"

Else
        MsgBox "偵測失敗", , "系統訊息"
End If
End Sub

修改成這樣
可是還是錯誤
他說
Private Sub Form_Load()
編輯錯誤
沒有定義的Sub 或 Function

-------------------------------------------------------------
不知道該怎麼辦!!

vantseng

Private Sub Command1_Click()

If FindGame("MapleStory.exe") = True Then
   Call InitAutoAsm(dwProcId)
   GetWindowThreadProcessId hwd, pid
   hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
   If hProcess <> 0 Then
      MsgBox "偵測成功", , "系統訊息"
   Else
      MsgBox "偵測失敗", , "系統訊息"
   End If
End If
End Sub

根據你的內容稍做修改
你的最大問題是連VB的語法都不會用吧

s9401005

回覆 2# vantseng


已經弄好囉 謝謝 我是請問別人是用其他方法!

s9401005

回覆 2# vantseng


也謝謝你的解答!

韓小柒

ㄜ .. 不只這樣 / 還要模組噢！ 取得遊戲進程《OP》.rar (2.3 KB, 下載次數: 22, 售價: 5 楓幣)

2013-6-25 17:01 上傳

點擊文件名下載附件
售價: 5 楓幣  [記錄]