DimmRectAsRectangleProtectedOverridesSubOnMouseDown(ByValeAsMouseEventArgs)mRect=NewRectangle(e.X,e.Y,0,0)Me.Invalidate()EndSubProtectedOverridesSubOnMouseMove(ByValeAsMouseEventArgs)Ife.Button=Windows.Forms.MouseButtons.LeftThenmRect=NewRectangle(mRect.Left,mRect.Top,e.X-mRect.Left,e.Y-mRect.Top)'…
사용법:)Cookie=SetCookie(Cookie,.GetAllResponseHeaders)함수:)PublicFunctionSetCookie(OldCookieAsString,GetAllResponseHeadersAsString)AsStringDimV()AsString,iAsInteger,nAsIntegerDimCookies()AsString={}IfNotOldCookieIsNothingThenCookies=OldCookie.Replace("","").Split(";")DimCo…
PrivateFunctionCookieJoin(CookieAsString,ResponseHeaders)AsStringDimvAsVariant,iAsInteger,TAsStringv=Split(Cookie,";")DimOAsObjectSetO=CreateObject("Scripting.Dictionary")O.CompareMode=1Fori=0ToUBound(v)v(i)=Trim(v(i))T=Right(v(i),Len(v(i))-InStr(v(i),"="))O.AddSplit(v(…