VB制作游戏双开器

VB制作游戏双开器
2010年05月24日
　　VB制作游戏双开器
　　其实原理非常简单 一般程序判断是否双开 就是读取游戏在任务管理器的应用程序中的标题（要是进程中的就不行了）。这个的功能就是修改进程名，以达到双开效果。
　　下面是源码：（看好啊） （比较简单只对部分游戏和软件管用）
　　Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
　　Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
　　Private Const WM_SETTEXT = &HC
　　Private Declare Sub InitCommonControls Lib "comctl32" ()
　　Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
　　(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
　　ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
　　Private Sub Form_Initialize()
　　InitCommonControls 'XP Style Support
　　End Sub
　　Private Sub cmdSet_Click()
　　Dim target_hwnd As Long
　　Dim target_name As String
　　Dim new_caption As String
　　target_name = txtCaption.Text
　　target_hwnd = FindWindow(vbNullString, target_name)
　　If target_hwnd = 0 Then
　　MsgBox "米有找到标题.", 16, "472881850"
　　Exit Sub
　　End If
　　new_caption = txtNewCaption.Text
　　SendMessage target_hwnd, _
　　WM_SETTEXT, 0, _
　　ByVal new_caption
　　End Sub
　　Private Sub Form_Load()
　　Call ShellExecute(Me.hWnd, "open", "http://hi.baidu.com/残DOS", "", "", SW_SHOW)
　　End Sub
　　Private Sub txtCaption_Click()
　　txtCaption.Text = ""
　　End Sub