Code:Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _ bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Sub Command2_Click() If blnAboveVer4 Then keybd_event VK_SNAPSHOT, 1, 0, 0 Else keybd_event VK_MENU, 0, 0, 0 keybd_event VK_SNAPSHOT, 0, 0, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0 keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0 End If End Sub
to snowwolf110(天下之大,惟我独尊): 谢谢!应该不是袁飞的那个吧!最好是每个api都有例子!再次感谢! [email protected]
小弟在此多谢大虾了.
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Sub Command2_Click()
If blnAboveVer4 Then
keybd_event VK_SNAPSHOT, 1, 0, 0
Else
keybd_event VK_MENU, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End If
End Sub
谢谢!应该不是袁飞的那个吧!最好是每个api都有例子!再次感谢!
[email protected]
也给我一份
[email protected]
请给我一份.
谢谢!
[email protected]
[email protected]
麻烦也给我一份吧,谢谢!!
[email protected]
你的那段代码我看不太懂 !能不能加一点说明!比如说,你截的图放在了什么地方?谢谢!
to snowwolf110(天下之大,惟我独尊):
你发了吗?我怎么还没有收到?
我也想要一份,给我也发一份吧,谢了
[email protected]
[email protected] 多谢了
qq_1818477
[email protected]