我有一個未完成不外掛(不知可不可以用)

我是用VS2010的

1. Public Class Form1
   
2.     Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
   
3.     Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Boolean
   
4.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
5.         Form2.Show()
   
6.     End Sub
   
7.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   
8.         Dim MapleStorys As IntPtr = FindWindow("MssTaskSwWClass", "MapleStory")
   
9.         If MapleStorys = False Then MsgBox("未找到楓谷", vbCritical, "未找到")
   
10.         Return
    
11.         SetForegroundWindow(MapleStorys)
    
12.         SendKeys.Send("「S」")
    
13.         SendKeys.Send("「S」")
    
14.         SendKeys.Send("「S」")
    
15.         SendKeys.Send("「S」")
    
16.     End Sub
    
17.     Sub start()
    
18.         SendKeys.Send("「S」")
    
19.     End Sub
    
20.     Public Shared Sub Send(ByVal keys As String)
    
21.     End Sub
    
22. End Class

複製代碼