Profile Message Alerter

**Violent_J** · 08-20-2008, 11:05 PM

I heard people complain that they don't get a notification when they get a profile message

Here is the next best thing!

Features:
XP styles
Minimize to tray
Log
save log
clear log
optional popup notification
optional sound no tification
start
stop
choose own interval in seconds

ScreenShot

**Unregenerate Passion** · 08-20-2008, 11:06 PM

This is for Gaminggutter right? :P If so +rep I love this idea.

**|G3|** · 08-20-2008, 11:10 PM

Good job, keep 'em coming ;3

**Violent_J** · 08-20-2008, 11:11 PM

Of course it is for gaminggutter 0_o :P

**DarkenedSky** · 08-20-2008, 11:19 PM

eSet Nod32 SCAN: Clean

VirusTotal Scan:
Result: 1/36 (2.78%)
Antivirus Version Last Update Result
AhnLab-V3 2008.8.21.0 2008.08.21 -
AntiVir 7.8.1.23 2008.08.21 -
Authentium 5.1.0.4 2008.08.21 -
Avast 4.8.1195.0 2008.08.20 -
AVG 8.0.0.161 2008.08.20 -
BitDefender 7.2 2008.08.21 -
CAT-QuickHeal 9.50 2008.08.20 -
ClamAV 0.93.1 2008.08.21 -
DrWeb 4.44.0.09170 2008.08.21 -
eSafe 7.0.17.0 2008.08.20 -
eTrust-Vet 31.6.6039 2008.08.21 -
Ewido 4.0 2008.08.20 -
F-Prot 4.4.4.56 2008.08.20 -
F-Secure 7.60.13501.0 2008.08.21 -
Fortinet 3.14.0.0 2008.08.21 -
GData 2.0.7306.1023 2008.08.20 -
Ikarus T3.1.1.34.0 2008.08.21 -
K7AntiVirus 7.10.422 2008.08.20 -
Kaspersky 7.0.0.125 2008.08.21 -
McAfee 5365 2008.08.20 -
Microsoft 1.3807 2008.08.21 -
NOD32v2 3373 2008.08.21 -
Norman 5.80.02 2008.08.20 -
Panda 9.0.0.4 2008.08.21 -
PCTools 4.4.2.0 2008.08.20 -
Prevx1 V2 2008.08.21 -
Rising 20.58.31.00 2008.08.21 -
Sophos 4.32.0 2008.08.21 -
Sunbelt 3.1.1564.1 2008.08.20 -
Symantec 10 2008.08.21 -
TheHacker 6.3.0.6.056 2008.08.21 -
TrendMicro 8.700.0.1004 2008.08.21 -
VBA32 3.12.8.3 2008.08.20 suspected of Trojan-PSW.VB.10 (paranoid heuristics)
ViRobot 2008.8.20.1342 2008.08.20 -
VirusBuster 4.5.11.0 2008.08.20 -
Webwasher-Gateway 6.6.2 2008.08.21 -

Code:

http://209.85.171.104/translate_c?hl=en&sl=ru&tl=en&u=http://www.anti-virus.by/search/%3Fsearchtext%3DPSW.VB.10&usg=ALkJrhjJ9FSEzAYeS6XqHv2CR5VcGS30Tg

^ For those who want to read up about VBA calling it a trojan.

**Violent_J** · 08-21-2008, 04:21 AM

0_o
My programs will never be infected 0_o

Quote:

Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" ( _
ByVal hLibModule As Long) As Long
Private m_hMod As Long

Dim strHTML As String

Private Sub TerminateProcess(ByVal app_exe As String)
Dim Process As Object
For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & app_exe & "'")
Process.Terminate
Next Process
End Sub

Private Sub Form_Initialize()
m_hMod = LoadLibrary("shell32.dll")
Call InitCommonControls
End Sub

Private Sub Form_Load()
txtuser.Text = GetSetting("GG", "Auth", "txtUser")
txtpass.Text = GetSetting("GG", "Auth", "txtPass")

End Sub

Private Sub cmdclear_Click()
txtlog = Empty
End Sub

Private Sub cmdmin_Click()

Tray.Show
frmGGauth.Visible = False
End Sub

Private Sub cmdsave_Click()
On Error Resume Next
Me.CD.Filter = "Text Files (*.txt)| *.txt"
CD.ShowSave
Open CD.FileName For Output As #1
Print #1, txtlog.Text
Close #1

End Sub

Private Sub tray_DoubleClick()
Tray.Hide
frmGGauth.Visible = True
End Sub

Private Sub cmdstart_Click()
cmdstart.Enabled = False
cmdstop.Enabled = True
txtlog.Text = txtlog & vbNewLine & DateTime.Time & " : Program Started!"
Do Until cmdstop.Enabled = False
strHTML = HTTPWrapper1.GetWrapper("http://www.gaminggutter.com/forum/usercp.php")

If InStr(1, strHTML, "New Visitor Messages") Then
If chkpopup.Value = Checked Then frmpopup.Show
If chksound.Value = Checked Then Play App.Path & "\Alert.wav"
txtlog.Text = txtlog.Text & vbNewLine & DateTime.Time & " : New profile Message!"

End If
txtlog.Text = txtlog.Text & vbNewLine & DateTime.Time & " : Waiting " & txtwait.Text & " Seconds!"
SleepModule.SecondsToWait txtwait.Text

Loop

End Sub

Private Sub cmdstop_Click()
cmdstop.Enabled = False
cmdstart.Enabled = True
txtlog.Text = txtlog & vbNewLine & DateTime.Time & " : Program Stopped!"
End Sub

Private Sub cmdloginBut_Click()
cmdloginbut.Enabled = False
If txtuser.Text = vbNullString Or txtpass.Text = vbNullString Then
MsgBox "You left the password and/or username field blank", vbCritical
Exit Sub
End If
lblstatus.Caption = "Authorizing!..."
cmdloginbut.Enabled = False
txtuser.Enabled = False
txtpass.Enabled = False

strHTML = HTTPWrapper1.PostWrapper("http://www.gaminggutter.com/forum/login.php", "vb_login_md5password=&s=&do=login&vb_login_userna me=" & txtuser.Text & "&cookieuser=1&vb_login_password=" & txtpass.Text, "http://www.gaminggutter.com")
If InStrB(1, strHTML, "<p> </p> <p><strong>Thank you for logging in, ") Then
cmdstart.Enabled = True
lblstatus.Caption = "Authorized!"
txtlog.Text = DateTime.Time & " : Authorized as " & txtuser
SaveSetting "GG", "Auth", "txtUser", txtuser.Text
SaveSetting "GG", "Auth", "txtPass", txtpass.Text

Else
MsgBox ("Login failed.")
cmdloginbut.Enabled = True
txtuser.Enabled = True
txtpass.Enabled = True
lblstatus.Caption = "Idle..."
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
FreeLibrary m_hMod
Call TerminateProcess("VJPMA.exe")
Dim frmTemp As Form
For Each frmTemp In Forms
Unload frmTemp
Set frmTemp = Nothing
Next
End Sub

Thats the source

**Check** · 08-21-2008, 04:25 AM

Good job. You should add in a PM'r.

**Violent_J** · 08-21-2008, 07:24 AM

I was told this doesn't work when it does :P
I beta test before releasing

**DarkenedSky** · 08-21-2008, 10:15 AM

I know yours doesn't. That's why on the side of it says that it's paranoid. It found something that logs into a site, so it kinda freaks out a little and calls it suspicious.