首页 > 前⚪

2024年12月华为荣耀magic 2(nx90)

发布时间：

今天给各位分享华为荣耀magic 2的知识，其中也会对nx90进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文导读目录：

1、2024年12月华为荣耀magic 2(nx90)

2、电脑解锁就蓝屏怎么回事(电脑解开锁屏后蓝屏)

3、word空白页删不掉（word文档空白页删不掉怎么办）

用vb做全局鼠标键盘钩子求助？delphi鼠标钩子记录鼠标运行轨迹

鼠标和键盘PrivateSubTimer_Timer()IfSSSDDD》ThenSSSDDD=SSSDDD-If=“不可移动“ThenForm.Caption=“记录鼠标-锁定鼠标和键盘不可移动“&SSSDDD&“秒后解锁“If=“可移动“ThenForm.Caption=“记录鼠标-锁定鼠标和键盘可移动“&SSSDDD&“秒后解锁“IfSSSDDD《ThenBlockInput()Form.Caption=“记录鼠标“=“停锁记录鼠标“Timer.Enabled=FalseYhFuEndIf’恢复EndSubPrivateSubSSS()Form.Caption=“记录鼠标-锁定鼠标和键盘,“&vbCrLf&_vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&_““&App.Title+“(版本“&App.Major&“.“&App.Minor&“.“&App.Revi sion&“)“’当前版本号是EndSub’速度PrivateSubText_KeyPress(KeyAsciiAsInteger)’文本中只能输入(.)数字IfInStr(,““,UCase(Chr(KeyAscii)),)《=ThenKeyAscii=EndSubPrivateSubText_Change()IfText.Text》ThenTimer.Interval=Text.TextEndSub’读保文件PrivateSubmand_Click()’List保存*.txtDimfnAsInteger,iAsIntegerfn=FreeFileOpenText.TextForOutputAs#Fori=ToList.ListCount-Print#,List.List(i)NextClose#MsgBox“成功保存到:“&Text.TextEndSubPrivateSubmand_Click()’List读取*.txtList.Clear’清空OpenText.TextForInputAs#DoWhileNotEOF()LineInput#,TempList.AddItemTempLoopClose#EndSub’清空ListPrivateSubmand_Click()List.ClearEndSub’回放录制PrivateSubmand_Click()ShFuIfList.ListCount》ThenList.ListIndex=Form.Caption=“记录鼠标-正在回放“Timer.Enabled=TrueEndIfEndSubPrivateSubTimer_Timer()DimxList.ListIndex=List.ListIndex-+x=Split(List.Text,“《*》“)SetCursorPosx(),x()’你所需要点的位置Ifx()=“左“ThenZuoDanJiIfx()=“中“ThenZongDanJiIfx()=“右“ThenYouDanJiIfList.ListIndex》=List.ListCount-ThenForm.Caption=“记录鼠标“:=“停锁记录鼠标“:YhFu:Timer.Enabled=FalseEndSub’鼠标左键点击PrivateSubZuoDanJi()mouse_eventMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,&,&,&,&’模拟鼠标点击EndSub’鼠标中键点击PrivateSubZongDanJi()mouse_eventMOUSEEVENTF_MIDDLEDOWNOrMOUSEEVENTF_MIDDLEUP,&,&,&,&’模拟鼠标点击EndSub’鼠标右键点击PrivateSubYouDanJi()mouse_eventMOUSEEVENTF_RIGHTDOWNOrMOUSEEVENTF_RIGHTUP,&,&,&,&’模拟鼠标点击EndSub’开始录制PrivateSubmand_Click()ShFuForm.Caption=“记录鼠标-正在录制（按下A键停止“EndSub’录制PrivateSubTttex_Change()IfForm.Caption=“记录鼠标-正在录制（按下A键停止“ThenList.AddItemTttex.TextEndSubPrivateSubTimer_Timer()DimMousGIfMyKey(vbKeyLButton)ThenMousG=“左“IfMyKey(vbKeyMButton)ThenMousG=“中“IfMyKey(vbKeyRButton)ThenMousG=“右“DimPAsPOINTAPIGetCursorPosPTttex.Text=P.x&“《*》“&P.y&“《*》“&MousGMousG=““’快捷键IfMyHotKey(vbKeyA)ThenForm.Caption=“记录鼠标“:=“停锁记录鼠标“:YhFu’A键盘按下IfMyHotKey(vbKeyX)Thenmand_Click:ShFuIfMyHotKey(vbKeyC)Thenmand_Click:ShFuIfMyHotKey(vbKeyB)Thenmand_ClickIfMyHotKey(vbKeyV)Thenmand_ClickIfMyHotKey(vbKeyZ)Thenmand_ClickIfMyHotKey(vbKeyE)Thenmand_ClickIfMyHotKey(vbKeyS)ThenSSS:ShFuIfMyHotKey(vbKeyD)ThenDDD:ShFuEndSub’锁定,可移动EndSub’操作时是否可以看到本软件PrivateSubShFu()’IfCheck.Value=ThenForm.Hide’隐藏EndSubPrivateSubYhFu()’If=“停锁记录鼠标“ThenForm.Show’显示=“鼠标记录“EndIfEndSub’删除List中的一行PrivateSubList_DblClick()’List.RemoveItemList.ListIndexEndSub’退出PrivateSubmand_Click()EndEndSubdelphi鼠标钩子记录鼠标运行轨迹钩子类型：WH_MOUSE_LL这个是全局的值为;WH_MOUSE是局部的值为数据结构：PMouseHookStruct鼠标坐标保存在钩子函数的lParam参数中,如下：PMouseHookStruct(lParam).pt.XPMouseHookStruct(lParam).pt.Y这个应该可以记录鼠标轨迹了,（窗口过程钩子监视所有从系统消息队列发往目标窗口的消息,（鼠标钩子和低级鼠标钩子可以监视各种鼠标消息,“&vbCrLf&_“本软件还可以按下S锁定鼠标和键盘,“&vbCrLf&_“本软件还可以按下D锁定鼠标和键盘,钩子机制允许应用程序截获处理window消息或特定事件。

用vb做全局鼠标键盘钩子求助

2024年12月华为荣耀magic 2(nx90)

下面是我的《记录鼠标》Form.frm，其中也用到了键盘快捷键VERSION.BeginVB.FormFormBorderStyle=’FixedSingleCaption=“记录鼠标“ClientHeight=ClientLeft=ClientTop=ClientWidth=FillColor=&HFF&Icon=“Form.frx“:LinkTopic=“Form“MaxButton=’FalseMinButton=’FalseScaleHeight=ScaleWidth=StartUpPosition=’窗口缺省BeginVB.CheckBoxCheckCaption=“操作时是否可以看到本软件“Height=Left=TabIndex=Top=Value=’CheckedWidth=EndBeginVB.TextBoxTttexAlignment=’CenterAppearance=’FlatHeight=Left=Locked=-’TrueTabIndex=Text=“《*》“Top=Width=EndBeginVB.mandButtonmandCaption=“退出(&E)“Height=Left=TabIndex=Top=Width=EndBeginVB.TimerTimerEnabled=’FalseInterval=Left=Top=EndBeginVB.TextBoxTextAlignment=’CenterAppearance=’FlatHeight=Left=TabIndex=Text=““Top=Width=EndBeginVB.mandButtonmandCaption=“清空录制(&Z)“Height=Left=TabIndex=Top=Width=EndBeginVB.TextBoxTextAppearance=’FlatHeight=Left=TabIndex=Text=“D:鼠标记录.text“Top=Width=EndBeginVB.mandButtonmandCaption=“打开录制(&V)“Height=Left=TabIndex=Top=Width=EndBeginVB.mandButtonmandCaption=“保存录制(&B)“Height=Left=TabIndex=Top=Width=EndBeginVB.ListBoxListHeight=ItemData=“Form.frx“:ALeft=List=“Form.frx“:CTabIndex=Top=Width=EndBeginVB.mandButtonmandCaption=“回放录制(&C)“Height=Left=TabIndex=Top=Width=EndBeginVB.TimerTimerEnabled=’FalseInterval=Left=Top=EndBeginVB.TimerTimerEnabled=’FalseInterval=Left=Top=EndBeginVB.mandButtonmandCaption=“开始录制(&X)“Height=Left=TabIndex=Top=Width=EndBeginVB.LabelLabelCaption=“用法“Height=Left=TabIndex=Top=Width=EndBeginVB.LabelLabelCaption=“保存地址：“Height=Left=TabIndex=Top=Width=EndBeginVB.LabelLabelCaption=“当前位置：“Height=Left=TabIndex=Top=Width=EndBeginVB.LabelLabelCaption=“回放速度：“Height=Left=TabIndex=Top=Width=EndEndAttributeVB_Name=“Form“AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVB_Exposed=False’获得鼠标点PrivateDeclareFunctionGetCursorPosLib“user“(lpPointAsPOINTAPI)AsLong’移到鼠标点PrivateDeclareFunctionSetCursorPosLib“user“(ByValxAsLong,ByValyAsLong)AsLong’按下键盘PrivateDeclareFunctionGetAsyncKeyStateLib“user“(ByValvKeyAsLong)AsInteger’鼠标键-要求按下PrivateDeclareSubmouse_eventLib“user“(ByValdwFlagsAsLong,ByValdxAsLong,ByValdyAsLong,ByValcButtonsAsLong,ByValdwExtraInfoAsLong)PrivateConstMOUSEEVENTF_LEFTDOWN=&H’leftbuttondownPrivateConstMOUSEEVENTF_LEFTUP=&H’leftbuttonupPrivateConstMOUSEEVENTF_RIGHTDOWN=&H’rightbuttondownPrivateConstMOUSEEVENTF_RIGHTUP=&H’rightbuttonupPrivateConstMOUSEEVENTF_MIDDLEDOWN=&H’middlebuttondownPrivateConstMOUSEEVENTF_MIDDLEUP=&H’middlebuttonup’锁定，鼠标和键盘PrivateDeclareFunctionBlockInputLib“user“(ByValfEnableAsLong)AsLongPrivateDeclareSubSleepLib“kernel“(ByValdwMillisecondsAsLong)’定义Dimxxx,yyyDimSSSDDDAsStringDim’鼠标点类型PrivateTypePOINTAPIxAsLongyAsLongEndType’获得键盘按下PrivateFunctionMyHotKey(vKeyCode)AsBooleanMyHotKey=(GetAsyncKeyState(vKeyCode))EndFunction’获得鼠标键按下PrivateFunctionMyKey(vbKeyLButton)AsBooleanMyKey=GetAsyncKeyState(vbKeyLButton)EndFunctionPrivateSubForm_Load()=“记录鼠标“SSSDDD=““Timer.Enabled=TrueTimer.Enabled=FalseTimer.Enabled=FalseLabel.Caption=“用法：开始录制时按下A键停止录制；“&vbCrLf&_“本软件还可以按下S锁定鼠标和键盘，不可移动；“&vbCrLf&_“本软件还可以按下D锁定鼠标和键盘，可移动；“&vbCrLf&_“每个控制都有一个快捷键，就是每个按钮后括号内。“&vbCrLf&_vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&_““&App.Title+“(版本“&App.Major&“.“&App.Minor&“.“&App.Revision&“)“’当前版本号是EndSub’速度PrivateSubText_KeyPress(KeyAsciiAsInteger)’文本中只能输入(.)数字IfInStr(,““,UCase(Chr(KeyAscii)),)《=ThenKeyAscii=EndSubPrivateSubText_Change()IfText.Text》ThenTimer.Interval=Text.TextEndSub’读保文件PrivateSubmand_Click()’List保存*.txtDimfnAsInteger,iAsIntegerfn=FreeFileOpenText.TextForOutputAs#Fori=ToList.ListCount-Print#,List.List(i)NextClose#MsgBox“成功保存到:“&Text.TextEndSubPrivateSubmand_Click()’List读取*.txtList.Clear’清空OpenText.TextForInputAs#DoWhileNotEOF()LineInput#,TempList.AddItemTempLoopClose#EndSub’清空ListPrivateSubmand_Click()List.ClearEndSub’回放录制PrivateSubmand_Click()ShFuIfList.ListCount》ThenList.ListIndex=Form.Caption=“记录鼠标-正在回放“Timer.Enabled=TrueEndIfEndSubPrivateSubTimer_Timer()DimxList.ListIndex=List.ListIndex-+x=Split(List.Text,“《*》“)SetCursorPosx(),x()’你所需要点的位置Ifx()=“左“ThenZuoDanJiIfx()=“中“ThenZongDanJiIfx()=“右“ThenYouDanJiIfList.ListIndex》=List.ListCount-ThenForm.Caption=“记录鼠标“:=“停锁记录鼠标“:YhFu:Timer.Enabled=FalseEndSub’鼠标左键点击PrivateSubZuoDanJi()mouse_eventMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,&,&,&,&’模拟鼠标点击EndSub’鼠标中键点击PrivateSubZongDanJi()mouse_eventMOUSEEVENTF_MIDDLEDOWNOrMOUSEEVENTF_MIDDLEUP,&,&,&,&’模拟鼠标点击EndSub’鼠标右键点击PrivateSubYouDanJi()mouse_eventMOUSEEVENTF_RIGHTDOWNOrMOUSEEVENTF_RIGHTUP,&,&,&,&’模拟鼠标点击EndSub’开始录制PrivateSubmand_Click()ShFuForm.Caption=“记录鼠标-正在录制（按下A键停止“EndSub’录制PrivateSubTttex_Change()IfForm.Caption=“记录鼠标-正在录制（按下A键停止“ThenList.AddItemTttex.TextEndSubPrivateSubTimer_Timer()DimMousGIfMyKey(vbKeyLButton)ThenMousG=“左“IfMyKey(vbKeyMButton)ThenMousG=“中“IfMyKey(vbKeyRButton)ThenMousG=“右“DimPAsPOINTAPIGetCursorPosPTttex.Text=P.x&“《*》“&P.y&“《*》“&MousGMousG=““’快捷键IfMyHotKey(vbKeyA)ThenForm.Caption=“记录鼠标“:=“停锁记录鼠标“:YhFu’A键盘按下IfMyHotKey(vbKeyX)Thenmand_Click:ShFuIfMyHotKey(vbKeyC)Thenmand_Click:ShFuIfMyHotKey(vbKeyB)Thenmand_ClickIfMyHotKey(vbKeyV)Thenmand_ClickIfMyHotKey(vbKeyZ)Thenmand_ClickIfMyHotKey(vbKeyE)Thenmand_ClickIfMyHotKey(vbKeyS)ThenSSS:ShFuIfMyHotKey(vbKeyD)ThenDDD:ShFuEndSub’锁定，鼠标和键盘PrivateSubTimer_Timer()IfSSSDDD》ThenSSSDDD=SSSDDD-If=“不可移动“ThenForm.Caption=“记录鼠标-锁定鼠标和键盘不可移动“&SSSDDD&“秒后解锁“If=“可移动“ThenForm.Caption=“记录鼠标-锁定鼠标和键盘可移动“&SSSDDD&“秒后解锁“IfSSSDDD《ThenBlockInput()Form.Caption=“记录鼠标“=“停锁记录鼠标“Timer.Enabled=FalseYhFuEndIf’恢复EndSubPrivateSubSSS()Form.Caption=“记录鼠标-锁定鼠标和键盘，不可移动“SSSDDD=InputBox(“提示“,“请问你想锁定多少秒？“,““)=“不可移动“Timer.Enabled=TrueBlockInput()’锁定，不可移动EndSubPrivateSubDDD()Form.Caption=“记录鼠标-锁定鼠标和键盘，可移动“SSSDDD=InputBox(“提示“,“请问你想锁定多少秒？“,““)=“可移动“Timer.Enabled=TrueCallSleep(SSSDDD)’锁定，可移动EndSub’操作时是否可以看到本软件PrivateSubShFu()’IfCheck.Value=ThenForm.Hide’隐藏EndSubPrivateSubYhFu()’If=“停锁记录鼠标“ThenForm.Show’显示=“鼠标记录“EndIfEndSub’删除List中的一行PrivateSubList_DblClick()’List.RemoveItemList.ListIndexEndSub’退出PrivateSubmand_Click()EndEndSub

delphi鼠标钩子记录鼠标运行轨迹

nx90

电脑解锁就蓝屏怎么回事(电脑解开锁屏后蓝屏)

本文主要为大家介绍电脑解锁时蓝屏是怎么回事(电脑解锁后蓝屏)，下面跟着小编一起来详细了解一下吧。

win电脑解锁需要重启后蓝屏的解决方法。

WindowsS系统电脑蓝屏怎么锁？很多朋友反馈，自己的Win电脑按下WinL锁屏后，会毫无预警的直接重启蓝屏，很烦。如何操作？最近很多win用户反映锁屏后出现蓝屏。原因是什么？让让我们看看下面的win教程，帮助解决蓝屏问题。

2024年12月华为荣耀magic 2(nx90)

Win锁蓝屏的原因:

nx90

word空白页删不掉（word文档空白页删不掉怎么办

word文档空白页删不掉怎么办

直接按Backspace不能删除的空页，一般是页底存在分节符或分页符，开始-段落-“显示/隐藏编辑标记按钮”快捷键【ctrl+*】，找到隐藏的分节符或者分栏符。将光标移动到符号之前，按键盘上的“Delete”将它删除干净，多的空白页就消失了。

MicrosoftOfficeWord是微软公司的一个文字处理器应用程序。它最初是由RichardBrodie为了运行DOS的IBM计算机而在年编写的。随后的版本可运行于AppleMacintosh(年)SCOUNIX和MicrosoftWindows(年)，并成为了MicrosoftOffice的一部分。

2024年12月华为荣耀magic 2(nx90)

Word给用户提供了用于创建专业而优雅的文档工具，帮助用户节省时间，并得到优雅美观的结果。一直以来，MicrosoftOfficeWord?都是最流行的文字处理程序。

华为荣耀magic 2的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于nx90、华为荣耀magic 2的信息别忘了在本站进行查找喔。