资源描述:
《易语言泡泡堂源码(easy language bubble tang source)》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、易语言泡泡堂源码(EasylanguagebubbleTangsource)Version2SupportlibraryxplibAssemblywindowassembly1Assemblyvariables,windowhandles,integertypeTheassemblyvariablebubbleshallhasrun,logicaltypeAssemblyvariables,errors,logicSubroutinetofindtheserverwindowLocalvariablename,texttypeLocalvariablename
2、1,texttypeBubblehallhasrun=falseName=CrazyArcade:selectserver"Checkwindow(name)SubroutinecheckwindowParameterwindowname,texttypeLocalvariableTitlelength,integertypeLocalvariables,windowcontent,texttypeWindowhandle=searchwindow(0,windowname)If(windowhandle=0)Titlelength=takewindowtit
3、lelength(windowhandle)Takethewindow(thewindowhandle,windowtitle,titlelength+1)Bubblehallhasrun=true!Return()Ifit'soverBubblehallhasrun=falseIftrue(error=true)Messagebox(bubblehallserverwindowdoesnotrun.Checkthatthepathiscorrectorothererrorreasons!"(16)Ifit'soverReturn()Subroutinewin
4、downame,texttypeParameterwindowhandle,integertypeLocalvariablesarelongandintegertypesLocalvariablename,texttypeNamelength=takewindowtitlelength(windowhandle)If(namelengthislessthanorequalto0)Return([))Ifit'soverName=takeblanktext(namelong)Takethewindowtitle(windowhandle,name,namelen
5、gth+1)Return(name)SubroutinetofindtheentryaccountwindowLocalvariablesX,integertypeLocalvariablesY,integertypeProcessevents()Timedelay(10000)Mousemigrationevents()If(numberofpeople,currentselection=0)Processevents()Timedelay(100)X=40065/2Y=40565/220X=X*65535,getthesystemscale(0)Y=Y*6
6、5535,getthesystemscale(1)Mouseevents(bitsor(1,32768),X,Y,0,0)Timedelay(100)Mouseevents(2,0,0,0,0)Timedelay(100)Mouseevents(4,0,0,0,0)Timedelay(100)Setclipboardtext(accountnumber)Analogkeyboard(#Ctrlkey,0,0,0)Analogkeyboard(#Vkey,0,0,0)Analogkeyboard(#Ctrlkey,0,2,0)Analogkeyboard(#Vk
7、ey,0,2,0)Timedelay(10)Processevents()Timedelay(100)X=40065/2Y=43565/220X=X*65535,getthesystemscale(0)Y=Y*65535,getthesystemscale(1)Mouseevents(bitsor(1,32768),X,Y,0,0)Timedelay(100)Mouseevents(2,0,0,0,0)Timedelay(100)Mouseevents(4,0,0,0,0)Timedelay(10)Setclipboardtext(password)Analo
8、gkeyboard(#Ctrlkey,