s9401005 發表於 2013-6-3 20:46:14

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

偵測的每次都錯誤
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 發表於 2013-6-3 23:23:29

本帖最後由 vantseng 於 2013-6-3 23:25 編輯

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 發表於 2013-6-4 19:19:47

回覆 2# vantseng


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

s9401005 發表於 2013-6-4 19:20:10

回覆 2# vantseng


也謝謝你的解答!

韓小柒 發表於 2013-6-25 17:01:58

ㄜ .. 不只這樣 / 還要模組噢！

漢堡 發表於 2014-3-16 21:21:32

漢堡 發表於 2014-3-16 21:22:49

漢堡 發表於 2014-3-16 21:23:06

頁: [1]
查看完整版本: 請大大交一下 Vb6的偵測編輯!!!