『第 6 楼』:
使用 LLM 解释/回答一下
根据下面的代码,Private Sub Command2_Click() 和Private Sub Command3_Click() 不需要, 怎么改,或其它方法,
算了,不改成vbs,就修改下vb。能达到不使123.exe托盘图标始终(或尽量)不出来 就可以了,如以qq.exe为测试对象(反正按ctrl+alt+z可以再跑出来,或者好象关掉多出的进程*dll就可以了),只需要对qq.exe进行操作
我不知道把”qq.exe“字符串 放在哪个地方?
Option Explicit
Private Const WM_USER = &H400
Private Const TB_BUTTONCOUNT = (WM_USER + 24)
Private Const TB_HIDEBUTTON = (WM_USER + 4)
Private Const TB_GETBUTTONTEXTA = (WM_USER + 45)
Private Const TB_AUTOSIZE = (WM_USER + 33)
Private Const MEM_COMMIT = &H1000
Private Const MEM_RESERVE = &H2000
Private Const MEM_RELEASE = &H8000
Private Const PAGE_READWRITE = &H4
Private Const PROCESS_VM_OPERATION = (&H8)
Private Const PROCESS_VM_READ = (&H10)
Private Const PROCESS_VM_WRITE = (&H20)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hwnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 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 Declare Function VirtualAllocEx Lib "kernel32.dll" (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32.dll" (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Sub Command1_Click() '隐藏
Dim pIdExplorer As Long, hwnd2 As Long, hExplorer As Long, lpIconText As Long
Dim i As Integer
Dim BtnCount As Integer
Dim IconText As String
hwnd2 = FindWindow("Shell_TrayWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "TrayNotifyWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "SysPager", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "ToolbarWindow32", vbNullString)
GetWindowThreadProcessId hwnd2, pIdExplorer
hExplorer = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pIdExplorer)
lpIconText = VirtualAllocEx(ByVal hExplorer, ByVal 0&, Len(IconText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)
BtnCount = SendMessage(hwnd2, TB_BUTTONCOUNT, 0, 0)
Dim lLen As Long, sBuff As String
For i = 0 To BtnCount - 1
IconText = Space$(256)
lLen = SendMessage(hwnd2, TB_GETBUTTONTEXTA, i, ByVal lpIconText)
ReadProcessMemory hExplorer, ByVal lpIconText, ByVal IconText, Len(IconText), 0
If lLen <> -1 Then IconText = Left$(IconText, InStr(1, IconText, Chr$(0)) - 1)
If IconText = List1.List(List1.ListIndex) Then ' "音量" Then
SendMessage hwnd2, TB_HIDEBUTTON, i, ByVal True
SendMessage hwnd2, TB_AUTOSIZE, 0, 0
End If
Next
VirtualFreeEx hExplorer, lpIconText, Len(IconText), MEM_RELEASE
CloseHandle hExplorer
End Sub
Private Sub Command2_Click() '显示列表
Dim pIdExplorer As Long, hwnd2 As Long, hExplorer As Long, lpIconText As Long
Dim i As Integer
Dim BtnCount As Integer
Dim IconText As String
hwnd2 = FindWindow("Shell_TrayWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "TrayNotifyWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "SysPager", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "ToolbarWindow32", vbNullString)
GetWindowThreadProcessId hwnd2, pIdExplorer
hExplorer = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pIdExplorer)
lpIconText = VirtualAllocEx(ByVal hExplorer, ByVal 0&, Len(IconText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)
BtnCount = SendMessage(hwnd2, TB_BUTTONCOUNT, 0, 0)
Dim lLen As Long, sBuff As String
For i = 0 To BtnCount - 1
IconText = Space$(256)
lLen = SendMessage(hwnd2, TB_GETBUTTONTEXTA, i, ByVal lpIconText)
ReadProcessMemory hExplorer, ByVal lpIconText, ByVal IconText, Len(IconText), 0
If lLen <> -1 Then IconText = Left$(IconText, InStr(1, IconText, Chr$(0)) - 1)
If IconText = List1.List(List1.ListIndex) Then ' "音量" Then
SendMessage hwnd2, TB_HIDEBUTTON, i, ByVal False
SendMessage hwnd2, TB_AUTOSIZE, 0, 0
End If
Next
VirtualFreeEx hExplorer, lpIconText, Len(IconText), MEM_RELEASE
CloseHandle hExplorer
End Sub
Private Sub Command3_Click() '刷新列表
List1.Clear
Dim pIdExplorer As Long, hwnd2 As Long, hExplorer As Long, lpIconText As Long
Dim i As Integer
Dim BtnCount As Integer
Dim IconText As String
hwnd2 = FindWindow("Shell_TrayWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "TrayNotifyWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "SysPager", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "ToolbarWindow32", vbNullString)
GetWindowThreadProcessId hwnd2, pIdExplorer
hExplorer = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pIdExplorer)
lpIconText = VirtualAllocEx(ByVal hExplorer, ByVal 0&, Len(IconText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)
BtnCount = SendMessage(hwnd2, TB_BUTTONCOUNT, 0, 0)
Dim lLen As Long, sBuff As String
For i = 0 To BtnCount - 1
IconText = Space$(256)
lLen = SendMessage(hwnd2, TB_GETBUTTONTEXTA, i, ByVal lpIconText)
ReadProcessMemory hExplorer, ByVal lpIconText, ByVal IconText, Len(IconText), 0
If lLen <> -1 Then IconText = Left$(IconText, InStr(1, IconText, Chr$(0)) - 1)
List1.AddItem IconText
Next
VirtualFreeEx hExplorer, lpIconText, Len(IconText), MEM_RELEASE
CloseHandle hExplorer
End Sub
Private Sub Form_Load()
Command3_Click
End Sub
Last edited by kioskboy on 2008-11-18 at 10:40 ]
According to the code, to make the operation for qq.exe instead of the original operation for the tray icon, you need to modify the relevant parts where the icon text is compared. Here is the modified code (only showing the parts related to the change):
First, you need to define a variable to hold the process name of qq.exe, say `Const TARGET_PROCESS = "qq.exe"`. Then, in the loops where the icon text is processed, instead of comparing with the specific tray icon text like "音量", you need to adjust to find the relevant parts related to qq.exe. But this is a more complex modification involving process handling and window finding related to qq.exe specifically. The following is a partial modification idea:
```vb
Option Explicit
Private Const WM_USER = &H400
Private Const TB_BUTTONCOUNT = (WM_USER + 24)
Private Const TB_HIDEBUTTON = (WM_USER + 4)
Private Const TB_GETBUTTONTEXTA = (WM_USER + 45)
Private Const TB_AUTOSIZE = (WM_USER + 33)
Private Const MEM_COMMIT = &H1000
Private Const MEM_RESERVE = &H2000
Private Const MEM_RELEASE = &H8000
Private Const PAGE_READWRITE = &H4
Private Const PROCESS_VM_OPERATION = (&H8)
Private Const PROCESS_VM_READ = (&H10)
Private Const PROCESS_VM_WRITE = (&H20)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hwnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 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 Declare Function VirtualAllocEx Lib "kernel32.dll" (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32.dll" (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Const TARGET_PROCESS = "qq.exe" ' Add this constant to hold the target process name
Private Sub Command1_Click() 'Hide related operation for qq.exe
Dim pId As Long, hwndQQ As Long, hProcess As Long, lpQQText As Long
Dim i As Integer
Dim BtnCount As Integer
Dim QQText As String
hwndQQ = FindWindow(vbNullString, TARGET_PROCESS) ' Find the window of qq.exe
If hwndQQ = 0 Then Exit Sub ' If not found, exit
GetWindowThreadProcessId hwndQQ, pId
hProcess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pId)
lpQQText = VirtualAllocEx(ByVal hProcess, ByVal 0&, Len(QQText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)
' Here you need to adjust the following parts according to the actual window structure of qq.exe
' For example, if there are buttons related to the tray icon in qq.exe, you need to find and process them
' The following is just a placeholder, you need to replace it with the actual processing logic for qq.exe
BtnCount = SendMessage(hwndQQ, TB_BUTTONCOUNT, 0, 0)
Dim lLen As Long, sBuff As String
For i = 0 To BtnCount - 1
QQText = Space$(256)
lLen = SendMessage(hwndQQ, TB_GETBUTTONTEXTA, i, ByVal lpQQText)
ReadProcessMemory hProcess, ByVal lpQQText, ByVal QQText, Len(QQText), 0
If lLen <> -1 Then QQText = Left$(QQText, InStr(1, QQText, Chr$(0)) - 1)
' Here replace the condition for the original tray icon with the condition related to qq.exe
If QQText = "Some relevant text in qq.exe" Then ' Need to find the actual relevant text in qq.exe
SendMessage hwndQQ, TB_HIDEBUTTON, i, ByVal True
SendMessage hwndQQ, TB_AUTOSIZE, 0, 0
End If
Next
VirtualFreeEx hProcess, lpQQText, Len(QQText), MEM_RELEASE
CloseHandle hProcess
End Sub
Private Sub Command2_Click() 'Show related operation for qq.exe, similar to above, adjust the relevant parts
Dim pId As Long, hwndQQ As Long, hProcess As Long, lpQQText As Long
Dim i As Integer
Dim BtnCount As Integer
Dim QQText As String
hwndQQ = FindWindow(vbNullString, TARGET_PROCESS)
If hwndQQ = 0 Then Exit Sub
GetWindowThreadProcessId hwndQQ, pId
hProcess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pId)
lpQQText = VirtualAllocEx(ByVal hProcess, ByVal 0&, Len(QQText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)
BtnCount = SendMessage(hwndQQ, TB_BUTTONCOUNT, 0, 0)
Dim lLen As Long, sBuff As String
For i = 0 To BtnCount - 1
QQText = Space$(256)
lLen = SendMessage(hwndQQ, TB_GETBUTTONTEXTA, i, ByVal lpQQText)
ReadProcessMemory hProcess, ByVal lpQQText, ByVal QQText, Len(QQText), 0
If lLen <> -1 Then QQText = Left$(QQText, InStr(1, QQText, Chr$(0)) - 1)
If QQText = "Some relevant text in qq.exe" Then
SendMessage hwndQQ, TB_HIDEBUTTON, i, ByVal False
SendMessage hwndQQ, TB_AUTOSIZE, 0, 0
End If
Next
VirtualFreeEx hProcess, lpQQText, Len(QQText), MEM_RELEASE
CloseHandle hProcess
End Sub
Private Sub Command3_Click() 'Refresh related operation for qq.exe, similar adjustment
' Similar to above, find qq.exe window and process
Dim pId As Long, hwndQQ As Long, hProcess As Long, lpQQText As Long
Dim i As Integer
Dim BtnCount As Integer
Dim QQText As String
hwndQQ = FindWindow(vbNullString, TARGET_PROCESS)
If hwndQQ = 0 Then Exit Sub
GetWindowThreadProcessId hwndQQ, pId
hProcess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pId)
lpQQText = VirtualAllocEx(ByVal hProcess, ByVal 0&, Len(QQText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)
BtnCount = SendMessage(hwndQQ, TB_BUTTONCOUNT, 0, 0)
Dim lLen As Long, sBuff As String
For i = 0 To BtnCount - 1
QQText = Space$(256)
lLen = SendMessage(hwndQQ, TB_GETBUTTONTEXTA, i, ByVal lpQQText)
ReadProcessMemory hProcess, ByVal lpQQText, ByVal QQText, Len(QQText), 0
If lLen <> -1 Then QQText = Left$(QQText, InStr(1, QQText, Chr$(0)) - 1)
List1.AddItem QQText
Next
VirtualFreeEx hProcess, lpQQText, Len(QQText), MEM_RELEASE
CloseHandle hProcess
End Sub
Private Sub Form_Load()
Command3_Click
End Sub
```
Please note that this is a relatively large modification, and you need to further adjust according to the actual window structure and behavior of qq.exe to accurately implement the operation to make the tray icon of qq.exe not appear or be handled as expected. Also, this kind of operation related to process window manipulation needs to comply with relevant software usage regulations.
|