谁能做帮我一个程序啊

来源：百度知道 编辑：UC知道 时间：2024/07/07 04:42:30
做一个能够自动连续按“F1”的~~`
因为我的电脑不知道为什么不能用按键精灵等等软件
谢谢 ~~~``
要有间断的按 0.5秒一下

我以前为了刷自己blog上的计数器时做的一个网页刷新的软件，是连续按F5来刷新的。

我把代码给你，你自己改改吧~！~！希望对你有用吧~！

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Private Const GW_HWNDLAST = 1
Private Const GW_HWNDNEXT = 2

Function GetWin(webadd As String) As String
On Error Resume Next

Dim NhWnd As Long
Dim Length, WinTitle$
Dim OkWin As String

NhWnd = GetWindow(hwnd, GW_HWNDFIRST)

While NhWnd <> 0
Length = GetWindowTextLength(NhWnd)
WinTitle$ = Space$(Length + 1)

Length = GetWindowTe