TalesWeaver BOTってないんでつか？
'VB用Tales Weaver BOT原型ソースコード(F1キー連打
Option Explicit
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Sub Main()
Dim handle As Long
handle = FindWindow("D2MainWindow", vbNullstring) 'Tales Weaver Client Version 2.44
Do
SendMessage handle, &H100, vbkeyF1, vbNullString
Loop
End Sub
Option Explicit
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Sub Main()
Dim handle As Long
handle = FindWindow("D2MainWindow", vbNullstring) 'Tales Weaver Client Version 2.44
Do
SendMessage handle, &H100, vbkeyF1, vbNullString
Loop
End Sub
|
|
|