Guidance
指路人
g.yi.org
software / rapidq / Examples / Graphics & Animation / aYlite / aYLite.bas

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
     DEFSTR Title :  Title = "aYLite 0.2.1"
     DEFSTR CopyR :  CopyR = "soldatino_di_stagno"
     DEFSTR Win   :  Win="Sperando che Winzoz regga"

     $TYPECHECK ON
     $OPTIMIZE ON

     $OPTION ICON "YahooSpyG.ico"
     $RESOURCE ICOG AS "YahooSpyL.ico"
     $RESOURCE ICOL AS "YahooSpyG.ico"
     $RESOURCE Sfondo AS "aYlite.bmp"
     $RESOURCE Char AS "fixedsys.bmp"
     $RESOURCE Sml AS "aYsml.bmp"

     EXTRACTRESOURCE(resource(0),"YahooSpyLtmp.ico")
     EXTRACTRESOURCE(resource(1),"YahooSpyGtmp.ico")

     Application.Icon="YahooSpyLtmp.ico"
     Application.Title=Title

     CONST NIM_ADD=&H0
     CONST NIM_MODIFY=&H1
     CONST NIM_DELETE=&H2
     CONST NIM_MESSAGE=&H1
     CONST NIF_ICON=&H2
     CONST NIF_TIP=&H4

     CONST WM_LBUTTONUP = &H202
     CONST WM_LBUTTONDBLCLK=&H203
     CONST WM_LBUTTONDOWN=&H201
     CONST WM_RBUTTONUP=&H205

     CONST GWL_HWNDPARENT=-8
     CONST HWND_DESKTOP=0

     CONST WM_SETTEXT=&HC
     CONST WM_CLOSE=&H10

     TYPE Rect
      Left   AS LONG
      Top    AS LONG
      Right  AS LONG
      Bottom AS LONG
     END TYPE

     DECLARE FUNCTION ModifyMenu LIB "USER32" ALIAS "ModifyMenuA" (hMenu AS LONG, uPosition AS LONG, uFlags AS LONG, _
      uIDNewItem AS LONG, lpNewItem AS LONG) AS LONG
     DECLARE FUNCTION GetMenu LIB "user32" ALIAS "GetMenu"(BYVAL hwnd AS LONG) AS LONG
     DECLARE FUNCTION ReleaseCapt LIB "user32" ALIAS "ReleaseCapture"() AS LONG
     DECLARE SUB SetForegroundWindow LIB "USER32" ALIAS "SetForegroundWindow" (HWnd AS LONG)
     DECLARE FUNCTION SetWindowLong LIB "User32" ALIAS "SetWindowLongA" (hwnd AS LONG, nIndex AS LONG, dwNewLong AS LONG) AS LONG
     DECLARE FUNCTION Shell_NotifyIcon LIB "Shell32" ALIAS "Shell_NotifyIconA" (dwMessage AS LONG, pnid AS QNOTIFYICONDATA) AS LONG
     DECLARE FUNCTION DeleteObject LIB "gdi32" ALIAS "DeleteObject" (hObject AS LONG) AS LONG
     DECLARE FUNCTION WindowFromPoint LIB "user32" ALIAS "WindowFromPoint"(BYVAL xPoint AS LONG, BYVAL yPoint AS LONG) AS LONG
     DECLARE FUNCTION GetWindowText LIB "user32" ALIAS "GetWindowTextA" (BYVAL hwnd AS LONG, _
      BYVAL lpString AS STRING, BYVAL cch AS LONG) AS LONG
     DECLARE FUNCTION FindWindowEx LIB "user32" ALIAS "FindWindowExA" (BYVAL hWnd1 AS LONG, _
      BYVAL hWnd2 AS LONG, BYVAL lpsz1 AS STRING, BYVAL lpsz2 AS STRING) AS LONG
     DECLARE FUNCTION FindWindow LIB "user32" ALIAS "FindWindowA" (BYVAL lpClassName AS STRING, _
      BYVAL lpWindowName AS STRING) AS LONG
     DECLARE FUNCTION SendMessageByString LIB "user32" ALIAS "SendMessageA" (BYVAL hWnd AS LONG, _
      BYVAL wMsg AS LONG, BYVAL wParam AS LONG, BYVAL lParam AS STRING) AS LONG
     DECLARE FUNCTION GetPix LIB "gdi32" ALIAS "GetPixel" (BYVAL hDC AS LONG, BYVAL x AS LONG, BYVAL y AS LONG) AS LONG
     DECLARE FUNCTION SetPix LIB "gdi32" ALIAS "SetPixel" (BYVAL hDC AS LONG, BYVAL x AS LONG, _
      BYVAL y AS LONG, BYVAL c AS LONG) AS LONG
     DECLARE FUNCTION GetWinRect LIB "user32" ALIAS "GetWindowRect"(BYVAL hwnd AS LONG,lpRect AS RECT)AS LONG
     DECLARE FUNCTION GetDCh LIB "user32" ALIAS "GetDC" (BYVAL hndle AS LONG) AS LONG
     DECLARE FUNCTION ReleaseDCh LIB "user32" ALIAS "ReleaseDC" (BYVAL hWnd AS LONG,BYVAL hDC AS LONG)AS LONG
     DECLARE FUNCTION SetFocusAPI LIB "user32" ALIAS "SetFocus" (BYVAL hwnd AS LONG) AS LONG
     DECLARE FUNCTION MoveWin LIB "user32" ALIAS "MoveWindow"  (BYVAL hWnd AS LONG, BYVAL X AS LONG, _
      BYVAL Y AS LONG, BYVAL nWidth AS LONG, BYVAL nHeight AS LONG, BYVAL bRepaint AS LONG) AS LONG

     DECLARE SUB SysTray
     DECLARE SUB MouseDown(Button, X, Y, Shift)
     DECLARE SUB CharLoader
     DECLARE SUB MoveControl
     DECLARE SUB SearchChat
     DECLARE SUB ScanChat
     DECLARE SUB GetScreen
     DECLARE SUB LetScreen
     DECLARE SUB StopAll
     DECLARE SUB StartAll

     DECLARE SUB GifDemo
     DECLARE SUB WriteChat
     DECLARE SUB Sml1Sub
     DECLARE SUB Sml2Sub
     DECLARE SUB Sml3Sub
     DECLARE SUB Sml4Sub
     DECLARE SUB Sml5Sub
     DECLARE SUB Sml6Sub
     DECLARE SUB Sml7Sub
     DECLARE SUB Sml8Sub
     DECLARE SUB SendSmile

     DECLARE SUB BannerShield

     DECLARE SUB Suspend
     DECLARE SUB FormRestore
     DECLARE SUB Minimize
     DECLARE SUB _Esc

     DEFLNG PrimoC
     DEFLNG ContaC
     DEFLNG AltroC
     DEFLNG Bold
     DEFLNG BoldPager
     DEFLNG WndHnd
     DEFLNG WndHnd2
     DEFLNG BanHnd
     DEFLNG SubWin
     DEFLNG Button
     DEFLNG RichEdit
     DEFLNG NewMenu
     DEFLNG LH
     DEFLNG HB
     DEFLNG HW
     DEFSTR BFR
     DEFSTR Capt
     DEFSTR Msg$
     DEFSTR Smile$
     DEFSTR OldMsg$
     DEFSTR V
     DEFLNG StartLink
     DEFLNG Demo%
     DEFLNG Bx
     DEFLNG By
     DEFLNG ChatColor
     DEFLNG GlLeft
     DEFSTR CurRoom
     DEFLNG N%
     DEFLNG T%
     DEFLNG DCScreenWndHnd

     TYPE OCR
      Car(7,9) AS LONG
     END TYPE
     DIM CarOCR(80) AS OCR '46 = ./
     DIM YRect AS Rect

     DIM Demo(10) AS STRING

     CREATE WEBtimer AS QTIMER
      Interval=9000
      Enabled=0
      OnTimer=ScanChat
     END CREATE

     HB=16
     HW=48
     BFR=SPACE$(128)
     GlLeft=782

     V="http://it.geocities.com/soldatino_di_stagno/"
     Demo(0)=V+"SuperY.gif"
     Demo(1)=V+"1.gif"
     Demo(2)=V+"2.gif"
     Demo(3)=V+"3.gif"
     Demo(4)=V+"4.gif"
     Demo(5)=V+"AldoAlee.gif"
     Demo(6)=V+"SuperM.gif"
     Demo(7)=V+"horse.gif"
     Demo(8)=V+"smile.gif"
     Demo(9)=V+"Euro.gif"
     Demo(10)=V+"Pasqua.gif"
     V=CHR$(34)

     DIM Font AS QFONT
     DIM TrayI AS QNOTIFYICONDATA

     CREATE Popup AS QPOPUPMENU
      CREATE pActive AS QMENUITEM
       CAPTION="&Attivo"
       Checked=1
       OnClick=Suspend
      END CREATE
      CREATE pRestore AS QMENUITEM
       CAPTION="&Ripristina"
       OnClick=FormRestore
      END CREATE
      CREATE BreakItem AS QMENUITEM
       CAPTION = "-"
      END CREATE
      CREATE pBanner AS QMENUITEM
       CAPTION="&Banner"
       OnClick=BannerShield
       Hint="Elimina l'inserto pubblicitario"
       Enabled=0
      END CREATE
      CREATE BreakItem1 AS QMENUITEM
       CAPTION = "-"
      END CREATE
      CREATE pClose AS QMENUITEM
       CAPTION="&Esci"
       OnClick=_Esc
      END CREATE
     END CREATE

     CREATE Form AS QFORM
      IcoHandle=ICOG
      CAPTION=Title
      OnResize=SysTray
      OnMouseDown=MoveControl
      OnClose=_Esc
      Width=1024
      Height=39
      BorderStyle=0
      Top=701
      CREATE Image AS QIMAGE
       OnMouseDown= MoveControl
       Height=39
       Width=1024
       BMPHandle=Sfondo
      END CREATE
      CREATE Vista AS QIMAGE
       BMPhandle=Char
       Left=148
       Top=3
       AutoSize=1
       Visible=1
      END CREATE
      CREATE Prgr_s AS QLABEL
       Top=5
       Left=11
       Transparent=1
       CAPTION=Title+" ©2003"
       Visible=1
       Font.COLOR=&HFFFFFF
       Font.AddStyles(0)
      END CREATE
      CREATE Copy_s AS QLABEL
       Top=5+HB
       Left=11
       Transparent=1
       CAPTION=CopyR
       Visible=1
       Font.COLOR=&HFFFFFF
       Font.AddStyles(0)
      END CREATE
      CREATE Prgr AS QLABEL
       Top=4
       Left=10
       Transparent=1
       CAPTION=Title+" ©2003"
       Visible=1
       Font.COLOR=&H444422
       Font.AddStyles(0)
      END CREATE
      CREATE Copy AS QLABEL
       Top=4+HB
       Left=10
       Transparent=1
       CAPTION=CopyR
       Visible=1
       Font.COLOR=&H444422
       Font.AddStyles(0)
      END CREATE
      CREATE ChatIn AS QLABEL
       Top=1
       Left=134
       Transparent=1
       CAPTION=CurRoom
      END CREATE
      CREATE Mem AS QLABEL
       Top=23
       Left=690
       Visible=1
       Transparent=1
       Font.AddStyles(0)
      END CREATE
      CREATE WhatLink AS QEDIT
       Width=280
       Top=14
       Left=134
       Text=Demo(Demo%)
       Hint="Inserire qui l'indirizzo Internet del Gif or Jpg da mandare"
       ShowHint=1
      END CREATE
      CREATE Smiles AS QIMAGE
       BMPhandle=Sml
       Left=443
       Top=15
       AutoSize=1
       Visible=1
       CopyMode=14
       Transparent=1
      END CREATE
      CREATE Sml1 AS QCOOLBTN
       Left=440
       Top=14
       Width=20
       Height=22
       Flat=1
       Hint=">-)"
       ShowHint=1
       OnClick=Sml1Sub
      END CREATE
      CREATE Sml2 AS QCOOLBTN
       Left=440+Sml1.Width
       Top=14
       Width=20
       Height=22
       Flat=1
       Hint=":-"+V
       ShowHint=1
       OnClick=Sml2Sub
      END CREATE
      CREATE Sml3 AS QCOOLBTN
       Left=440+Sml1.Width+Sml2.Width
       Top=14
       Width=20
       Height=22
       Flat=1
       Hint=":^o"
       ShowHint=1
       OnClick=Sml3Sub
      END CREATE
      CREATE Sml4 AS QCOOLBTN
       Left=440+Sml1.Width+Sml2.Width+Sml3.Width
       Top=14
       Width=20
       Height=22
       Flat=1
       Hint="B-("
       ShowHint=1
       OnClick=Sml4Sub
      END CREATE
      CREATE Sml5 AS QCOOLBTN
       Left=440+Sml1.Width+Sml2.Width+Sml3.Width+Sml4.Width
       Top=14
       Width=24
       Height=22
       Flat=1
       Hint=":)>-"
       ShowHint=1
       OnClick=Sml5Sub
      END CREATE
      CREATE Sml6 AS QCOOLBTN
       Left=440+Sml1.Width+Sml2.Width+Sml3.Width+Sml4.Width+Sml5.Width
       Top=14
       Width=24
       Height=22
       Flat=1
       Hint="[-x"
       ShowHint=1
       OnClick=Sml6Sub
      END CREATE
      CREATE Sml7 AS QCOOLBTN
       Left=440+Sml1.Width+Sml2.Width+Sml3.Width+Sml4.Width+Sml5.Width+Sml6.Width
       Top=14
       Width=20
       Height=22
       Flat=1
       Hint="\:D/"
       ShowHint=1
       OnClick=Sml7Sub
      END CREATE
      CREATE Sml8 AS QCOOLBTN
       Left=440+Sml1.Width+Sml2.Width+Sml3.Width+Sml4.Width+Sml5.Width+Sml6.Width+Sml7.Width
       Top=14
       Width=44
       Height=22
       Flat=1
       Hint=">:D<"
       ShowHint=1
       OnClick=Sml8Sub
      END CREATE

      CREATE BtnChat AS QCOOLBTN
       Width=HW
       Height=HB
       Top=4+HB
       Left=GlLeft+(HW*2)
       CAPTION="Chat Gif"
       OnClick=WriteChat
       Hint="Invia Gif o Jpg in Chat"
       ShowHint=1
       Flat=1
       Enabled=0
      END CREATE
      CREATE BtnDemo AS QCOOLBTN
       Top=4
       Width=HW
       Height=HB
       Left=GlLeft+(HW*2)
       CAPTION="Demo"
       OnClick=GifDemo
       Hint="Seleziona gli indirizzi Internet dimostrativi"
       ShowHint=1
       Flat=1
       Visible=1
      END CREATE
      CREATE BtnBanner AS QCOOLBTN
       Top=4
       Width=HW
       Height=HB
       Left=GlLeft+(HW*3)
       CAPTION="No Ban"
       OnClick=BannerShield
       Hint="Elimina l'inserto pubblicitario"
       ShowHint=1
       Flat=1
       Visible=1
       Enabled=0
      END CREATE
      CREATE aYMin AS QCOOLBTN
       Height=HB
       Width=HW
       Top=4
       Left=GlLeft+(HW*4)
       CAPTION="Mini"
       OnClick=Minimize
       Hint="Minimizza aYLite nella TaskBar"
       ShowHint=1
       Flat=1
      END CREATE
      CREATE alYClose AS QCOOLBTN
       OnClick=_Esc
       CAPTION="Esci"
       Hint="Chiudi aYLite"
       Height=HB
       Width=HW
       Top=4+HB
       Left=GlLeft+(HW*4)
       ShowHint=1
       Flat=1
      END CREATE
     END CREATE

     IF Screen.Width<1024 OR Screen.Height<768 THEN
      SHOWMESSAGE "ATTENZIONE : risoluzione video non valida [richiesta 1024x768], sessione aYLite annullata."
      IF FILEEXISTS("YahooSpyLtmp.ico") THEN KILL "YahooSpyLtmp.ico"
      IF FILEEXISTS("YahooSpyGtmp.ico") THEN KILL "YahooSpyGtmp.ico"
      application.terminate
     END IF
     CharLoader
     WEBtimer.Enabled=1
     Form.SHOWMODAL

     SUB MoveControl(MButton% AS INTEGER,Shift% AS INTEGER,X% AS SINGLE,Y% AS SINGLE)
      ReleaseCapt
      SENDMESSAGE FORM.HANDLE,&H112,&HF012,0
     END SUB

     SUB CloseForm
      TrayI.hwnd=Form.Handle
      TrayI.uId=1
      Shell_NotifyIcon NIM_DELETE, TrayI
     END SUB

     SUB SysTray
      IF Form.WindowState=1 THEN
       TrayI.hwnd=Form.Handle
       TrayI.uId=1
       TrayI.uFlags=NIF_ICON OR NIF_TIP OR NIM_MESSAGE
       TrayI.uCallBackMessage=WM_LBUTTONDOWN
       TrayI.hIcon=Application.Icon
       TrayI.szTip=Application.Title
       Shell_NotifyIcon NIM_ADD, TrayI
       Form.Visible=0
      END IF
     END SUB

     SUB MouseDown
      SELECT CASE X
      CASE WM_LBUTTONDBLCLK
       TrayI.hwnd=Form.Handle
       TrayI.uId=1
       Shell_NotifyIcon NIM_DELETE, TrayI
       Form.Visible=1
       Form.WindowState=0
       SendMessage Form.Handle,WM_LBUTTONUP,0,0
       SetForegroundWindow(Form.Handle)
      CASE WM_RBUTTONUP
       Popup.Popup(Screen.MOUSEX,Screen.MOUSEY)
      END SELECT
     END SUB

     SUB Minimize
      Image.OnMouseDown=MouseDown
      Form.OnMouseDown=MouseDown
      Form.WindowState=1
     END SUB

     SUB FormRestore
      WEBtimer.Enabled=1
      pActive.CAPTION="Attivo"
      pActive.Checked=1
      Image.OnMouseDown=MoveControl
      Form.OnMouseDown=MoveControl
      Application.Icon="YahooSpyLtmp.ico"
      MouseDown(0,WM_LBUTTONDBLCLK,0,0)
     END SUB

     SUB _Esc
      IF FILEEXISTS("YahooSpyLtmp.ico") THEN KILL "YahooSpyLtmp.ico"
      IF FILEEXISTS("YahooSpyGtmp.ico") THEN KILL "YahooSpyGtmp.ico"
      Form.CLOSE
     END SUB

     SUB WriteChat
      FOR N%=5 TO 590 STEP 36
       FOR T%=70 TO 975 STEP 139
        WndHnd=WINDOWFROMPOINT(T%,N%)
        IF WndHnd<>0 THEN
         LH=GETWINDOWTEXT(WndHnd,@BFR, 128)
         Capt=LEFT$(BFR,LH)
         IF INSTR(Capt," -- Chat") THEN
          Msg$=WhatLink.Text
          MSG$="<font face="+V+"fixedsys"+V+"><font size="+V+"9"+V+">"+Msg$+"</font>
     Button=FindWindowEx(WndHnd,0,""button,""Invia)
     Button=FindWindowEx(WndHnd,0,""button,""Invia)
     IF Button=0 THEN Button=FindWindowEx(WndHnd,0,""button,"&"Send)
     IF Button=0 THEN Button=FindWindowEx(WndHnd,0,""button,"&"Send)
     RichEdit=FindWindowEx(WndHnd,0,""richedit,"")
     RichEdit=FindWindowEx(WndHnd,0,""richedit,"")
     SetFocusAPI(WndHnd)
     SendMessageByString(RICHEDIT,WM_SETTEXT,0,Msg$)
     SendMessage button,WM_LBUTTONDOWN,0,0
     SendMessage button,WM_LBUTTONUP,0,0
     SendMessage button,WM_LBUTTONDOWN,0,0
     SendMessage button,WM_LBUTTONUP,0,0
     EXIT SUB
         END IF
   END IF
  NEXT
 NEXT
END SUB

Sub SendSmile
 FOR N%=5 TO 590 STEP 36
  FOR T%=70 TO 975 STEP 139
   WndHnd=WINDOWFROMPOINT(T%,N%)
   IF WndHnd<>0 THEN
    LH=GETWINDOWTEXT(WndHnd,@BFR, 128)
    Capt=LEFT$(BFR,LH)
    IF INSTR(Capt," -- "Chat) THEN
     Button=FindWindowEx(WndHnd,0,""button,""Invia)
     Button=FindWindowEx(WndHnd,0,""button,""Invia)
     IF Button=0 THEN Button=FindWindowEx(WndHnd,0,""button,"&"Send)
     IF Button=0 THEN Button=FindWindowEx(WndHnd,0,""button,"&"Send)
     RichEdit=FindWindowEx(WndHnd,0,""richedit,"")
     RichEdit=FindWindowEx(WndHnd,0,""richedit,"")
     SetFocusAPI(WndHnd)
     SendMessageByString(RICHEDIT,WM_SETTEXT,0,Smile$)
     SendMessage button,WM_LBUTTONDOWN,0,0
     SendMessage button,WM_LBUTTONUP,0,0
     SendMessage button,WM_LBUTTONDOWN,0,0
     SendMessage button,WM_LBUTTONUP,0,0
     EXIT SUB
    END IF
   END IF
  NEXT
 NEXT
END SUB

SUB GifDemo
 Demo%=Demo%+1
 IF Demo%>10 THEN Demo%=0
 WhatLink.Text=Demo(Demo%)
END SUB

Sub ScanChat
 CurRoom="Nessuna Chat "attiva
 SearchChat
 IF CurRoom<>"Nessuna Chat "attiva THEN
  BtnChat.Enabled=1
 ELSE
  EXIT SUB
 END IF
 StopAll
 WndHnd=FindWindowEx(0,0,""IMClass,CurRoom)
 IF WndHnd=0 THEN WndHnd=FindWindowEx(0,0,""IMClass,CurRoom)
 SubWin=FindWindowEx(WndHnd,0&,"ATL:"0054C0E0,"")
 IF SubWin=0 THEN SubWin=FindWindowEx(WndHnd,0&,"ATL:"0054C0E0,"")
 SubWin=FindWindowEx(SubWin,0&,"Internet "Explorer_Server,"")
 IF SubWin=0 THEN SubWin=FindWindowEx(SubWin,0&,"Internet "Explorer_Server,"")
  IF SubWin=0 THEN
  StartAll
  EXIT SUB
 END IF
 GetScreen
 IF DCScreenWndHnd<1 THEN
  StartAll
  EXIT SUB
 END IF
 ChatColor=GetPix(DCScreenWndHnd,YRect.Left+6,YRect.Top+6)
 StartLink=1
 N%=0
 FOR T%=10 TO (YRect.Bottom-YRect.Top)-20
  BoldPager=0
  Bold=0
  ContaC=0
  PrimoC=GetPix(DCScreenWndHnd,YRect.Left+200,YRect.Bottom-T%)
  IF PrimoC=ChatColor THEN GOTO NEXT_T
  ContaC=0
  SameCoSc: AltroC=GetPix(DCScreenWndHnd,YRect.Left+199-ContaC,YRect.Bottom-T%)
  IF PrimoC=AltroC THEN
   ContaC=ContaC+1
   GOTO SameCoSc
  END IF
  ContaC=ContaC-2
  IF CONTAC<50 THEN GOTO NEXT_T
  Bold=0
  T%=T%+10
  Msg$=""
  nextcar:
  BoldPager=0
  indietro:
  BoldPager=0
  FOR Bx=0 to 7
   WndHnd2=WINDOWFROMPOINT(YRect.Left+199-ContaC+4,YRect.Bottom-T%-3)
   IF WndHnd2<>SubWin THEN
    LetScreen
    StartAll
    ChatIn.Caption="altra applicazione sulla "Chat
    EXIT SUB
   END IF
   IF (YRect.Left+199-ContaC+10)>(YRect.Right-20) then
    LetScreen
    StartAll
    ChatIn.Caption="Chat window troppo "piccola
    EXIT SUB
   END IF
   FOR By=0 to 8
    N%=ChatColor
    IF GetPix(DCScreenWndHnd,YRect.Left+199-ContaC+Bx,YRect.Bottom-T%+By)<>ChatColor THEN N%=0
    IF CarOCR(Bold).Car(Bx,By)<>N% THEN
     BoldPager=1
     EXIT FOR
    END IF
   NEXT
   IF BoldPager=1 THEN EXIT FOR
   doevents
  NEXT

  IF BoldPager=1 THEN 'errore
   Bold=Bold+1
   IF Bold<81 THEN GOTO indietro 'cerca un altro carattere
  END IF

  IF CHR$(Bold+46)<>""h AND StartLink=1 then
   GOTO NEXT_T
  ELSE
   StartLink=0
  END IF
  IF CHR$(Bold+46)=""g THEN
   IF GetPix(DCScreenWndHnd,YRect.Left+199-ContaC+2,YRect.Bottom-T%+11)<>ChatColor THEN
    Msg$=Msg$+CHR$(Bold+46)
   ELSE
    Msg$=Msg$+""q
   END IF
  ELSE
   Msg$=Msg$+CHR$(Bold+46)
  END IF

  FOR Bx=0 to 7
   FOR By=0 to 8
    SetPix(DCScreenWndHnd,YRect.Left+199-ContaC+Bx,YRect.Bottom-T%+By,CarOCR(Bold).Car(Bx,By))
   NEXT
  NEXT

  ChatIn.Caption=Msg$
  IF INSTR(Msg$,"."gif)<>0 THEN GOTO Salto
  IF INSTR(msg$,"."Gif)<>0 then goto salto
  IF INSTR(msg$,"."GIF)<>0 then goto salto
  IF INSTR(msg$,"."jpg)<>0 then goto salto
  IF INSTR(msg$,"."Jpg)<>0 then goto salto
  IF INSTR(msg$,"."JPG)<>0 then goto salto

  Bold=0
  ContaC=ContaC-8
  GOTO nextcar
  salto:
  Msg$=REPLACESUBSTR$(Msg$,"P://","P:\\")
  Msg$=REPLACESUBSTR$(Msg$,"p://","p:\\")
  Msg$=REPLACESUBSTR$(Msg$,";",""_)
  IF MID$(Msg$,8,4)="www." THEN Msg$=MID$(Msg$,1,7)+MID$(Msg$,12)
  Msg$="<font size="+V+""1+V+"><</HTML>URL=<IMG BORDER="+V+""0+V+"SRC="+V+Msg$+V+"ALT="+V+""aYLite+V+">"
  IF Msg$=OldMsg$ THEN
   ChatIn.Caption="nessuna nuova "immagine
   GOTO Duplex
  END IF
  OldMsg$=Msg$
  Button=FindWindowEx(WndHnd,0,""button,""Invia)
  IF Button=0 THEN Button=FindWindowEx(WndHnd,0,""button,""Invia)
  IF Button=0 THEN Button=FindWindowEx(WndHnd,0,""button,"&"Send)
  IF Button=0 THEN Button=FindWindowEx(WndHnd,0,""button,"&"Send)
  RichEdit=FindWindowEx(WndHnd,0,""richedit,"")
  IF RichEdit=0 THEN RichEdit=FindWindowEx(WndHnd,0,""richedit,"")
  SetFocusAPI(WndHnd)
  SendMessageByString(RICHEDIT,WM_SETTEXT,0,Msg$)
  SendMessage button,WM_LBUTTONDOWN,0,0
  SendMessage button,WM_LBUTTONUP,0,0
  SendMessage button,WM_LBUTTONDOWN,0,0
  SendMessage button,WM_LBUTTONUP,0,0
  duplex:
  LetScreen
  StartAll
  EXIT SUB
 NEXT_T:
 startlink=1
 NEXT T%
 LetScreen
 StartAll
END SUB

SUB CharLoader
 FOR Bold=0 to 80
  FOR Bx=0 to 7
   FOR By=0 to 9
    CarOCR(Bold).Car(Bx,By)=Vista.Pixel((Bold*8)+Bx,By)
   NEXT
  NEXT
 NEXT
 Vista.Visible=0
 WEBtimer.Enabled=1
END SUB

Sub SearchChat
 FOR N%=5 TO 590 STEP 36
  FOR T%=10 TO 1000 STEP 200
   WndHnd=WINDOWFROMPOINT(T%,N%)
   IF WndHnd<>0 THEN
    LH=GETWINDOWTEXT(WndHnd,@BFR, 128)
    Capt=LEFT$(BFR,LH)
    IF INSTR(Capt," -- "Chat) THEN
     IF Capt<>CurRoom THEN
      newMenu=GetMenu(WndHnd)
      ModifyMenu(NewMenu,5,&H400,5,varptr(Win))
     END IF
     CurRoom=Capt
     ChatIn.Caption=CurRoom
     BtnChat.Enabled=1
     BtnBanner.Enabled=1
     pBanner.Enabled=1
     EXIT SUB
    END IF
   END IF
  NEXT
 NEXT
 ChatIn.Caption=CurRoom
 BtnBanner.Enabled=0
 pBanner.Enabled=0
END SUB

SUB GetScreen
 GetWinRect(SubWin,YRect)
 DCScreenWndHnd=GetDCh(0)
 Mem.Caption="uso DCh "#+str$(DCScreenWndHnd)
END SUB

SUB LetScreen
 N%=ReleaseDCh(0,DCScreenWndHnd)
 Mem.Caption="DCh Rilasc.="+str$(N%)
END SUB

SUB StopAll
 BtnDemo.Enabled=0
 BtnChat.Enabled=0
 aYMin.Enabled=0
 BtnBanner.Enabled=0
 pBanner.Enabled=0
 WEBtimer.Enabled=0
END SUB

SUB StartAll
 BtnDemo.Enabled=1
 aYMin.Enabled=1
 SearchChat
 WEBtimer.Enabled=1
END SUB

SUB Suspend
 IF WEBtimer.Enabled=1 THEN
  WEBtimer.Enabled=0
  Application.Icon="YahooSpyGtmp."ico
  Shell_NotifyIcon NIM_DELETE, TrayI
  TrayI.hIcon=Application.Icon
  Shell_NotifyIcon NIM_ADD, TrayI
  pActive.Caption="Ri&"attiva
  pActive.Checked=0
 ELSE
  WEBtimer.Enabled=1
  Application.Icon="YahooSpyLtmp."ico
  Shell_NotifyIcon NIM_DELETE, TrayI
  TrayI.hIcon=Application.Icon
  Shell_NotifyIcon NIM_ADD, TrayI
  pActive.Caption="&"Attivo
  pActive.Checked=1
 END IF
END SUB

SUB BannerShield
 SearchChat
 IF INSTR(Capt," -- "Chat) THEN
  BanHnd=FindWindowEx(WndHnd,0&,"ATL:"0054B360,"")
  MoveWin(BanHnd,0,0,0,0,1)
 END IF
END SUB

SUB Sml1Sub
 Smile$=Sml1.Hint
 SendSmile
END SUB

SUB Sml2Sub
 Smile$=Sml2.Hint
 SendSmile
END SUB

SUB Sml3Sub
 Smile$=Sml3.Hint
 SendSmile
END SUB

SUB Sml4Sub
 Smile$=Sml4.Hint
 SendSmile
END SUB

SUB Sml5Sub
 Smile$=Sml5.Hint
 SendSmile
END SUB

SUB Sml6Sub
 Smile$=Sml6.Hint
 SendSmile
END SUB

SUB Sml7Sub
 Smile$=Sml7.Hint
 SendSmile
END SUB

SUB Sml8Sub
 Smile$=Sml8.Hint
 SendSmile
END SUB

掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2019-4-19  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2003-05-02 15:01:12