[F1]XXXXXXXX[F2]XXXXXXXX[F2]XXXXXXXX[F2]XXXXXXXX这个[F1]只是个书签形式的，只读取[F1]行后面的XXXXXX内容。OptionExplicitPrivateDeclareFunctionReleaseCaptureLib"user32"()AsLongPrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhWndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPrivateConstHTCAPTION=2PrivateConstWM_NCLBUTTONDOWN=&HA1PrivateDeclareFunctionSetWindowPosLib"user32"(_ByValhWndAsLong,_ByValhWndInsertAfterAsLong,_ByValXAsLong,ByValYAsLong,_ByValcxAsLong,ByValcyAsLong,_ByValwFlagsAsLong_)AsLongConstHWND_TOPMOST=-1ConstSWP_SHOWWINDOW=&H40PrivateKeyLoopAsLongPrivateFoundKeysAsStringPrivateKeyResultAsLongPrivateDeclareFunctionGetAsyncKeyStateLib"user32"(ByValvKeyAsLong)AsIntegerDimiAsIntegerSubFindKeyword(ByValkwAsString)DimKeyword$()DimStream$,filepath$Keyword=Split(kw,"")filepath=IIf(Right$(App.Path,1)<>"\"AndRight$(App.Path,1)<>"/",App.Path&"\命令.txt",App.Path&"命令.txt")OpenfilepathForInputAs#1DoWhileNotEOF(1)LineInput#1,StreamFori=0ToUBound(Keyword)IfInStr(Stream,Keyword(i))=0ThenExitFor'ReDimKeyword(1)ElseIfi=UBound(Keyword)ThenSendKeys""&Stream&""EndIfEndIfNextStream=""LoopClose#1EndSubPrivateSubCommand1_Click()EndEndSubPublicSubForm_load()DimretValueAsLongDimtmpAsStringDimstrfileAsStringstrfile=Dir(App.Path&"\命令.txt")'判断文件是否存在Ifstrfile<>""Then'如存在则把内容写入text'读取文件Else'如不存在则创建一个文件。OpenApp.Path&"\命令.txt"ForOutputAs#1Print#1,"[F1]"Print#1,"[F6]"Print#1,"[F7]"Print#1,"[F8]"Print#1,"[F9]"Print#1,"[F10]"Print#1,"[F11]"Print#1,"[F12]"Close#1EndIfEndSubPrivateSubForm_Unload(CancelAsInteger)DimFrmAsFormForEachFrmInFormsUnloadFrmSetFrm=NothingNextEndSubPrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenReleaseCaptureSendMessagehWnd,WM_NCLBUTTONDOWN,HTCAPTION,0&EndIfEndSubPrivateSubTimer1_Timer()DimAddKeyKeyResult=GetAsyncKeyState(112)IfKeyResult=-32767ThenFindKeyword"[F1]"SendKeys""EndIfKeyResult=GetAsyncKeyState(121)IfKeyResult=-32767ThenFindKeyword"[F2]"SendKeys""EndIfKeyFound:EndSub
参考答案：你遇到了什么问题，请说明清楚。 |
