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
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