冒险岛关于聊天窗的文件

问题描述：

我做个自动发话挂~~~~可是!!!!!只能在完美世界里用~~~~~
带码如下~
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowContextHelpId Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Label4.Caption = "停止发送了"
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = shijian.Text '
Dim hWnd As Long
hWnd = FindWindow(vbNullString, ("Element Client")) '
就是这段扩号里的东东
Element Client
这是干啥的啊
听说是游戏里的聊天窗文件哦~~~~
If hWnd <> 0 Then
Label4.Caption = "游戏运行中"
SendKeys "{enter]"
SendKeys "'V"
SendKeys "{enter]"
End If
If hWnd = 0 Then
Label4.Caption = "没有找到游戏"
End If
End Sub

Private Sub xuanzhong1_Click()
VB.Clipboard.Clear
VB.Clipboard.SetText neirong1.Text
End Sub

Private Sub xuanzhong2_Click()
VB.Clipboard.Clear
VB.Clipboard.SetText neirong2.Text
End Sub
天啊谁帮帮我~
告诉我关与聊天窗的文件
冒险岛的
我不用别人的外挂
我用自己的哦~

问题解答：

冒险岛关于聊天窗的文件这个旅游问答期待您的解答，请登录账号或关注微信公众号回答这个问题。