C / C++ / MFC

"When I was born I was so surprised that I didn't talk for a year and a half." - Gracie Allen

Dim objIE
Set objIE = WScript.CreateObject("InternetExplorer.Application")

objIE.Navigate "http://www.whitehouse.gov/homeland/"
objIE.Visible = true

While objIE.Busy = true
Wend

Dim objTables
Set objTables = objIE.Document.all.tags("TABLE")

Dim objTable
Set objTable = objTables(12)  ' get the 13th <TABLE> tag

Dim objRow
Set objRow = objTable.rows(0) ' get the 1st <TR> tag

Dim objCol
Set objCol = objRow.cells(0)  ' get the 1st <TD> tag

Dim objImg
Set objImg = objCol.all(0)    ' get the 1st <IMG> tag

MsgBox objImg.src

Dim IE

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.nralive.com/sweeps/enter.cfm", NULL, NULL, NULL, NULL

' wait until the page is fully loaded
While IE.Busy = true
Wend

' assuming there are 4 radio buttons named "enteringBy", operate on the 4th (index 3) one
IE.Document.all("enteringBy", 3).checked = true

IE.Document.all.fname.Value   = "J"
IE.Document.all.lname.Value   = "S"
IE.Document.all.email.Value   = "j"
IE.Document.all.address.Value = "2"
IE.Document.all.city.Value    = "S"
IE.Document.all.state.Value   = "O"
IE.Document.all.zip.Value     = "7"
IE.Document.all.phone.Value   = "4"

' click the "next" button
IE.Document.all.tags("INPUT").item(12).click()

"When I was born I was so surprised that I didn't talk for a year and a half." - Gracie Allen

PostMessage(WM_MYMSG, (WPARAM)&info_data, NULL);

AfxGetMainWnd( )->PostMessage(WM_LOGMSG, (WPARAM)&info_data, NULL); 

info *info_data = (info*)wParam

<br />
typedef DATA<br />
{<br />
int EventID;<br />
CString ModuleName;<br />
CString ThreatName;<br />
} info;<br />
<br />
info* pinfo_data = (info*)GlobalAlloc(GPTR, sizeof(info));<br />
AfxGetMainWnd( )->PostMessage(WM_LOGMSG, 0, (LPARAM)pinfo_data);