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
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
|
|
搜索
论坛
Home
回顶部
g.yi.org Hits:0 Last modified:2003-05-02 15:01:12
