VC &&&&最新内容
VC &&&&随机内容根据窗口标题遍历查找窗口句柄的不常见方法
Option ExplicitPublic Declare Function SendMessageCallback Lib &user32& Alias &SendMessageCallbackA& (ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal lpResultCallBack As Long, ByVal dwData As Long) As LongPublic Declare Function GetWindowText Lib &user32& Alias &GetWindowTextA& (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As LongPublic Function SednAsyncProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal dwData As Long, ByVal lResult As Long) As LongDim szTitalBuffer As String * 1024Dim sf As String * 254& & GetWindowText hWnd, szTitalBuffer, 1024& & If InStr(szTitalBuffer, &梦幻诛仙[&) && 0 Then MsgBox hWndEnd FunctionOption ExplicitPrivate Sub Command1_Click()Dim Tmp As Long& & SendMessageCallback -1, 15, 0, 0, AddressOf SednAsyncProc, TmpEnd Sub/////////////////////////////////刚才看了一个哥们发的 &根据窗口标题遍历查找窗口句柄的不常见方法&这个帖子..我也跟了一句但是我感觉他的没有我的方法简单这个代码是小黑提供给我做挂用的我现在无偿奉献给大家Option ExplicitPublic Declare Function SendMessage Lib &USER32& Alias &SendMessageA& (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Declare Function GetDesktopWindow Lib &USER32& () As LongPrivate Declare Function GetWindow Lib &USER32& (ByVal hwnd As Long, ByVal wCmd As Long) As LongPublic Declare Function GetWindowText Lib &USER32& Alias &GetWindowTextA& (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As LongPublic Declare Function PostMessage Lib &USER32& Alias &PostMessageA& (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Declare Function MapVirtualKey Lib &USER32& Alias &MapVirtualKeyA& (ByVal wCode As Long, ByVal wMapType As Long) As LongDeclare Function SendMessageByString& Lib &USER32& Alias &SendMessageA& (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)Private Declare Function GetClassName Lib &USER32& Alias &GetClassNameA& (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As LongPrivate Declare Function GetWindowThreadProcessId Lib &USER32& (ByVal hwnd As Long, lpdwProcessId As Long) As LongPrivate Const GW_CHILD = 5Private Const GW_HWNDNEXT = 2Private Const WM_KEYDOWN = &H100Private Const WM_KEYUP = &H101Private Const WM_CHAR = &H102Public Function GetHandle()& &Dim tmp As String& &Dim x As Integer& &Dim wHwnd As Long& &Dim lngProcID As Long& &Dim strTitle As String * 255& & &//用来存储窗口的标题& &Dim strT As String * 255&&&//存储窗口的类名& && &&//取得桌面窗口& &wHwnd = GetDesktopWindow()& &&//取得桌面窗口的第一个子窗口& &wHwnd = GetWindow(wHwnd, GW_CHILD)& &&//通过循环来枚举所有的窗口& &Do While wHwnd && 0& && &&&&//取得下一个窗口的标题，并写入到列表框中& && &&&x = GetWindowText(wHwnd, strTitle, Len(strTitle))& && &&&If Left$(strTitle, 1) && vbNullChar Then& && && && &tmp = Left$(strTitle, x) &//窗口标题& && && && &x = GetClassName(wHwnd, strT, 255)&&&//窗口类名& && && && &If Left(strT, x) = &QQSGWinClass& Then &//QQ三国窗口类名& && && && &Form1.Label4.Caption = tmp& && && && &tmp = Form1.Label4.Caption& && && && && & GetWindowThreadProcessId wHwnd, lngProcID &//获得对应的游戏PID& && && && && & Form1.List1.AddItem tmp + &,& + Trim(str(wHwnd)) + &,& + Trim(str(lngProcID)) &//添加到列表& && && && &End If& && &&&End IfNones:& && &&&&//调用GetWindow函数，来取得下一个窗口& && &&&wHwnd = GetWindow(wHwnd, GW_HWNDNEXT)& &LoopEnd FunctionOption ExplicitPrivate Declare Function GetDesktopWindow Lib &USER32& () As LongPrivate Declare Function GetWindow Lib &USER32& (ByVal hwnd As Long, ByVal wCmd As Long) As LongPublic Declare Function GetWindowText Lib &USER32& Alias &GetWindowTextA& (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As LongPrivate Const GW_CHILD = 5Private Const GW_HWNDNEXT = 2Public Function GetHandle(Title As String) As Long& &Dim tmp As String& &Dim hwnd As Long& &Dim lngProcID As Long& &Dim strTitle As String * 255 & & &//用来存储窗口的标题& & & &//取得桌面窗口& &hwnd = GetDesktopWindow()& &&//取得桌面窗口的第一个子窗口& &hwnd = GetWindow(hwnd, GW_CHILD)& &&//通过循环来枚举所有的窗口& &Do While hwnd && 0& & & & &//取得下一个窗口的标题，并写入到列表框中& & & & GetWindowText hwnd, strTitle, Len(strTitle)& & & & If Left$(strTitle, 1) && vbNullChar Then& & & & & & &tmp = Left$(strTitle, InStr(1, strTitle, vbNullChar))& & & & & & &If Left(tmp, Len(Title)) = Title Then& & & & & & & & GetHandle = hwnd& & & & & & &End If& & & & End If& & & & &//调用GetWindow函数，来取得下一个窗口& & & & hwnd = GetWindow(hwnd, GW_HWNDNEXT)& &LoopEnd Function
&&最后修改于
请各位遵纪守法并注意语言文明后使用快捷导航没有帐号？
查看: 840|回复: 6
最后登录QQ注册时间阅读权限10精华0积分115帖子
QQ野人, 积分 115, 距离下一级还需 35 积分
为什么杜康解忧区每次打开QQ三国玩着玩着游戏窗口就突然没了？桌面右下角也没，哪里都没有了！有时候任务管理器的进程有 可是就是找不出来。还有有时候任务管理器也没！这是什么原因！我玩古城相会区都没有发生过这样的情况！真是火大！竟然说玩着玩着就突然连游戏窗口都没了！！越玩越生气，本不想过来发文章的，可是出现这样的情况不止一次了！真TMD不爽！
最后登录QQ注册时间阅读权限10精华0积分115帖子
QQ野人, 积分 115, 距离下一级还需 35 积分
今天去旗子跟77boss都是这样的情况（其实这样的情况不止一次了！），到底是什么原因！本来玩游戏是很开心的一件事，就因为这样的问题变得不愉快！这是什么游戏！死亡游戏吗？？？
最后登录QQ注册时间阅读权限10精华0积分115帖子
QQ野人, 积分 115, 距离下一级还需 35 积分
不知道大家有没有在杜康解忧这区发生过这样类似的情况
最后登录QQ注册时间阅读权限10精华0积分115帖子
QQ野人, 积分 115, 距离下一级还需 35 积分
还有一个就是为什么我那杜康解忧的js号每天都领不了2次地灵精魄?只能一次?在罗成中书丞那里领了一次之后就不能在临江领了? 不是每天可以2次吗?罗成一次，临江一次！我其他号都可以 就我那号不行，领的时候就出现什么你的国家任务未完成，什么多不烂的，我的国家任务都没！你叫我怎么完成！我其他号都不见你这样说?kao！
最后登录注册时间阅读权限100精华0积分89751帖子
灬紫妍爱紫龙灬
QQ骑士, 积分 89751, 距离下一级还需 30249 积分
遇见这样是事情，谁会爽呢，理解您这样的心情，是我，我也会很烦躁的，我这边帮您反馈下问题哦
糖糖开始休长假！最不舍还是那些有爱的版友`会一直很想念你们！
最后登录QQ注册时间阅读权限10精华0积分115帖子
QQ野人, 积分 115, 距离下一级还需 35 积分
_?兮兮糖丶 发表于
遇见这样是事情，谁会爽呢，理解您这样的心情，是我，我也会很烦躁的，我这边帮您反馈下问题哦 ...
最后登录QQ注册时间阅读权限20精华0积分3473帖子
咕噜队长, 积分 3473, 距离下一级还需 1527 积分
我新配一台电脑.配置算高的了 .&&遇到三国团战人多一点窗口就消失了,没有小窗口,没有进程.团战都屏蔽特效也那钓样.
奶爸奶妈居家过日子必备，仙术饿了挤一点，喝前摇一摇！
丸子调查员
参与丸子调查局5次调查后获得
Powered by